Mercurial > rlm
annotate src/rlm/telmo.clj @ 0:78a630e650d2
initial import
| author | Robert McIntyre <rlm@mit.edu> |
|---|---|
| date | Tue, 18 Oct 2011 00:57:08 -0700 |
| parents | |
| children |
| rev | line source |
|---|---|
| rlm@0 | 1 (ns rlm.telmo |
| rlm@0 | 2 (:refer-clojure :only []) |
| rlm@0 | 3 (:require rlm.ns-rlm mobius.base)) |
| rlm@0 | 4 (rlm.ns-rlm/ns-clone mobius.base) |
| rlm@0 | 5 |
| rlm@0 | 6 |
| rlm@0 | 7 (import '[telmo.matcher.library Variable VariableType Transition]) |
| rlm@0 | 8 (import '[java.io BufferedReader]) |
| rlm@0 | 9 |
| rlm@0 | 10 (def a (Transition. VariableType/W 1 0 0 1)) |
| rlm@0 | 11 |
| rlm@0 | 12 |
| rlm@0 | 13 ;; (defmulti read-structure first) |
| rlm@0 | 14 |
| rlm@0 | 15 ;; (defmethod read-structure Transition [_ s] |
| rlm@0 | 16 |
| rlm@0 | 17 |
| rlm@0 | 18 |
| rlm@0 | 19 |
| rlm@0 | 20 |
| rlm@0 | 21 |
| rlm@0 | 22 ;; (defmethod seq Transition [t] |
| rlm@0 | 23 ;; 5) |
| rlm@0 | 24 |
| rlm@0 | 25 |
| rlm@0 | 26 ;; (defmethod seq Variable [v] |
| rlm@0 | 27 |
| rlm@0 | 28 ;; (defn read-as-pattern |
| rlm@0 | 29 |
| rlm@0 | 30 ;; ;(defmulti write |
| rlm@0 | 31 |
| rlm@0 | 32 |