bkell.clj

   1
   2 (ns com.interrupt.bookkeeping
   3    (:import com.interrupt.bookkeeping.cc.parser.Parser)
   4    (:import com.interrupt.bookkeeping.cc.lexer.Lexer)
   5    (:import java.io.PushbackReader)
   6    (:import java.io.InputStreamReader)
   7
   8    (:use clojure.core)
   9    (:use depth_adapter)
  10
  11 )
  12
  13 (defn get-parser []
  14         (Parser. (Lexer. (PushbackReader. (InputStreamReader. java.lang.System/in) 1024)))
  15 )
  16
  17 (defn demo-bkell [handler]
  18
  19         ;; loop on input (shell) until 'exit'
  20         (loop [ dfadapter handler ]
  21
  22                 (def tree (.parse (get-parser)))
  23                 (. tree apply dfadapter )
  24
  25                 ;; loop unless exit
  26                 (if (true? true)
  27                    (recur dfadapter)
  28                 )
  29         )
  30
  31 )
  32
  33 (demo-bkell (get-depth-adapter))
  34