ZHONG GUO REN » scheme blog http://www.a-chinaman.com 一個中國人, 這是我的故事 Tue, 22 Nov 2011 21:11:48 +0000 en hourly 1 http://wordpress.org/?v=3.2 A New Beginning http://www.a-chinaman.com/2008/04/16/new-beginning/ http://www.a-chinaman.com/2008/04/16/new-beginning/#comments Wed, 16 Apr 2008 08:12:06 +0000 Duncan http://www.a-chinaman.com/?p=110 Didn’t feel like working this afternoon, so instead, I updated my blog software to WordPress 2.5.

Here’s some Scheme code for all of you fans out there:

(define-record-type keystroke
  (%make-keystroke %value %meta?)


  keystroke?
  (%value char-value)
  (%meta? meta?))

(define-record-discloser keystroke
  (lambda (k)
    `(


 Keystroke ,(keystroke->sexpr k) ,(keystroke-hash k) )))

(define



  (parse-key form)
  (if (list? form)
      (let ((tag (car  form))


            (val (cadr form)))
        (case tag
          ((


 control) (


 %control  (parse-key val)))
          ((meta)    (


 %meta     (parse-key val)))
          ((key)


      (%key     val))
          (


 else


       (error "This is not a valid key form " tag))))
      (%key form)))
]]> http://www.a-chinaman.com/2008/04/16/new-beginning/feed/ 0