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
  10 )
  11
  12 (defn get-parser []
  13         (Parser. (Lexer. (PushbackReader. (InputStreamReader. java.lang.System/in) 1024)))
  14 )
  15
  16 (defn bkell [handler]
  17
  18
  19         (def shell (ref {}))    ;; the shell and memory
  20
  21         (loop [ dfadapter handler ]     ;; loop on input (shell) until 'exit'
  22
  23                 (def tree (.parse (get-parser)))
  24                 (. tree apply dfadapter )
  25
  26                 ;; loop unless exit
  27                 (if (true? true)
  28                    (recur dfadapter)
  29                 )
  30         )
  31
  32 )
  33
  34 (use 'depth_adapter)
  35
  36 (bkell (get-depth-adapter))
  37