Skip to content

Instantly share code, notes, and snippets.

@clsn
clsn / islcalscript.lua
Created July 21, 2015 01:54
Islamic calendar support in lua for WatchMaker
--[==[
Calculations for the Islamic Calendar (for WatchMaker)
Calendar math from Edward M. Dershowitz and Nachum Reingold,
see http://emr.cs.uiuc.edu/~reingold/calendar-book/index.html
Translated into Lua from emacs-lisp by Mark Shoulson, mark@shoulson.com
The MIT License (MIT)
Copyright (c) 2015 Mark E. Shoulson
#!/bin/sh
if [ $# -gt 0 ]
then DIR="$1"
else DIR="."
fi
if [ -d "$DIR/.hg" ]
then echo hg status "$DIR"
hg status "$DIR"
elif [ -d "$DIR/.svn" ]
use v6;
grammar Simpl {
token xxx { 'x' }
token c { 'c' }
token end { '!' }
token xc { <xxx>*<c> }
token xend { <xxx>*<end> }
}
Sorry, something went wrong. Reload?
Sorry, we cannot display this file.
Sorry, this file is invalid so it cannot be displayed.
@clsn
clsn / gist:901470
Created April 4, 2011 10:59
voylogo-s.svg first cut
<?xml version="1.0" encoding="UTF-8" standalone="no"?>
<!-- Created with Inkscape (http://www.inkscape.org/) -->
<svg
xmlns:dc="http://purl.org/dc/elements/1.1/"
xmlns:cc="http://creativecommons.org/ns#"
xmlns:rdf="http://www.w3.org/1999/02/22-rdf-syntax-ns#"
xmlns:svg="http://www.w3.org/2000/svg"
xmlns="http://www.w3.org/2000/svg"
version="1.1"
@clsn
clsn / gist:977701
Created May 17, 2011 23:57
Trying to filter!
###### XXX.pm:
#!/usr/bin/perl
package XXX;
use Filter::Simple;
FILTER {
s/MXM/#/g;
}
1;
#!/bin/sh
if [ $# -gt 0 ]
then DIR="$1"
else DIR="."
fi
if [ -d "$DIR/.hg" ]
then echo hg status "$DIR"
hg status "$DIR"
elif [ -d "$DIR/.svn" ]
@clsn
clsn / setup.py
Created August 4, 2011 15:17
Setup.py from singularity
# setup.py
from distutils.core import setup
versionnum="0.30"
try:
import py2exe
except ImportError:
try:
import py2app
except ImportError:
@clsn
clsn / recurs.p6
Created November 10, 2011 06:37
Recursing bug in perl6 rakudo
my $counter=0;
sub recur(Int $x) {
my $h;
$h="h" ~ $counter;
$counter++;
my @k=(1,6);
if ($x>0) {
recur($x-1);
@clsn
clsn / gist:3379853
Created August 17, 2012 15:24
gdb mystery...
[mark@dev ~]$ cat A.c
#include <string.h>
int
main() {
}
[mark@dev ~]$ cc -g -c -o A32.o A.c
[mark@dev ~]$ cc -g -c -o A64.o +DD64 A.c
[mark@dev ~]$ cc -g -o A32 A32.o
[mark@dev ~]$ cc -g -o A64 +DD64 A64.o
[mark@dev ~]$ gdb ./A32