tonyg

#!/bin/bash
# Keep a set of clones of your github repos up-to-date. Run this in a
# directory of its own. It will clone (or update) your github repos into
# subdirectories, one per repo. Written on OS X Leopard.
# Depends on /usr/bin/xpath.
# Make sure you set githubuser, below, to the correct value :-)

githubuser=tonyg

for repo in $(curl http://github.com/api/v1/xml/$githubuser | xpath '//repository/name' 2>/dev/null | sed -e 's:><:> <:g')

tonyg

Group is
        $cml/basis.cm
        $cml/cml.cm
        $cml-lib/smlnj-lib.cm
        maybebug.sml

tonyg

;; Relevant parts of my .emacs for setting up org-mode
;;  - I like the main file to be loaded at startup
;;  - I'm experimenting with having the agenda shown at startup, too
;;     - comment out the lines marked with "%%%" below if you don't like this
;;  - I'm using flashbake for checking in my main org-file using cron,
;;    http://bitbucketlabs.net/flashbake/

; Don't make pesky backup files.
(setq make-backup-files nil)

tonyg

Morph subclass: #SinCosTanMorph
	instanceVariableNames: 'radius theta sinHistory cosHistory tanHistory stretch'
	classVariableNames: ''
	poolDictionaries: ''
	category: 'SinCosTan'!

!SinCosTanMorph methodsFor: 'as yet unclassified' stamp: 'tonyg 4/19/2010 15:31'!
drawHistory: aHistory on: aCanvas from: aPoint withBasis: aBasis
	| xAxis yAxis b p q n |
	xAxis := aBasis first * stretch.

tonyg

diff -r aa7a2b480166 amqplib/client_0_8/channel.py
--- a/amqplib/client_0_8/channel.py	Thu Dec 10 23:40:05 2009 -0600
+++ b/amqplib/client_0_8/channel.py	Thu Jan 07 17:43:42 2010 +0000
@@ -74,6 +74,7 @@
         self.default_ticket = 0
         self.is_open = False
         self.active = True # Flow control
+        self.flow_callback = None
         self.alerts = Queue()
         self.returned_messages = Queue()

tonyg

#!/bin/sh
cd $(dirname "$0")
SETUPHOST="$(hostname -s)"
SETUPDOMAIN="$(hostname -f | sed -e "s:$(hostname -s):any:")"
echo "Setting up home directory from $(pwd) for host $SETUPHOST and domain $SETUPDOMAIN."

git submodule update --init

uninstall="no"
while getopts "u" opt; do

tonyg

(define-language model-erlang
  (world ((module ...) (actor ...)))

  (module-dictionary (module ...))

  (module (atom ;; module name
	   (atom value) ...)) ;; (constant-name constant-definition) - incl functions

  (atom string)

tonyg

#lang racket
(require racket/private/class-internal)

;; An ordinary Racket class.
(define a%
  (class* object% ()
    (super-new)
    (define/public (op x) (+ x 1))))

;; Representation of a trivial vtable.

tonyg

#lang racket

(require (for-syntax "json-parsing.ss"))

(define-syntax loaded-uci-descriptions
  (lambda (stx)
    (syntax-case stx ()
      ((_) #`(quote #,(call-with-input-file "uci-descriptions.js"
			(lambda (f) (json->sjson f))))))))

tonyg

(define-language <list>
  (Nil)
  (Cons first rest))

(define-language <maybe>
  (Nothing)
  (Just value))

(define-language <tsil>
  (Snoc butlast last))