;(asdf:oos 'asdf:load-op 'jbominji-system)
;(asdf:oos 'asdf:compile-op 'jbominji-system)
;(lojban-parser:initialize-parser)
;(save-lisp-and-die "jbominji.core" :toplevel #'(lambda () (progn (lojban-parser::parse-and-output-to-stdout "do na fenki") (quit))) )

; 

(defpackage #:lojban
  (:use :common-lisp :cl-peg)
  (:export :gismu :jbovalsi :children :text :cmavo-group :*grammar-leaf-nodes* :children :text :grammar-label :|gismu| :|cmene| :|BRIVLA| :|CMENE|
	   :lookup-gismu :lookup-cmavo
	   )
)

(defpackage #:lojban-parser
  (:use :common-lisp :lojban :cl-peg)
  (:export :initialize-parser :parse-lojban :make-parse-tree :*lojban-grammar* :get-mutex :collapse-tree :show-parsed-text :show-unparsed-text)
)

(defpackage #:lojban-dot
  (:use :common-lisp :cl-peg :cl-dot :araneida :lojban-parser)
  (:export :*listener* :restart-lojban-dot)
 )

(defpackage #:jbominji-irc
  (:use :common-lisp :cl-peg :lojban :lojban-parser :cl-irc)
  (:export *irc-connection* :quit-irc :irc-listen-loop :join-listen-room :join-alternative-room :join-log-room :leave-listen-room :leave-alternative-room :switch-to-alternative-room :switch-to-primary-room :setup-connection :drop-connection :setup-hooks)
)

(defpackage #:jbominji
  (:use :common-lisp :cl-peg :cl-dot :araneida :lojban-dot :lojban :lojban-parser :cl-irc :cl-ajax :json)
  (:export *listener* :incoming-event :*log-events-wait-queue* :*log-events-mutex* :*log-events* :*log-counter* :*site-host-name* :start-jbominji)
 )

(defpackage #:jbominji-weblog
  (:use :common-lisp :lojban :cl-ajax :json :jbominji)
  (:export :restart-jbominji-weblog :*listener*)
)



;(load "lojban.lisp")
;(load "dot.lisp")
;(load "lojban-dot.lisp")