wip

jonasseglare · Nov 9, 2017 · a198825 · a198825
1 parent ecc56b7
commit a198825
Show file tree

Hide file tree

Showing 2 changed files with 12 additions and 2 deletions.
diff --git a/src/fsa/tokenizer.clj b/src/fsa/tokenizer.clj
@@ -1,4 +1,5 @@
-(ns fsa.tokenizer)
+(ns fsa.tokenizer
+  (:require [fsa.core :as fsa]))
 
 (defn remove-eol-comment [s]
   (let [i (.indexOf s "//")]
@@ -11,3 +12,11 @@
    str
    (map remove-eol-comment
         (clojure.string/split-lines x))))
+
+(def graphviz-state
+  {::fsa/current :idle
+   ::fsa/table {:idle (fsa/dispatch)}})
+
+
+; (fsa/parse graphviz-state "digraph kattskit {}")
+
diff --git a/test/fsa/tokenizer-test.clj b/test/fsa/tokenizer-test.clj
@@ -5,5 +5,6 @@
 
 (deftest graphviz-test
   (let [s (remove-eol-comments "asdf // kattskit\n d")]
-    (is (= s "asdf  d"))))
+    (is (= s "asdf  d"))
+    (fsa/state? graphviz-state)))