update.lisp

;;;; make-mod-ont-json.lisp
;;;; load into running gloss system, call (send-define-msgs) to read define-type and define-words messages from files, send them into the system, and then call (write-json)
;;;; William de Beaumont
;;;; 2019-12-16


(load "test")

(dfc:defcomponent :json :use (:util :common-lisp) :system (:depends-on (:util :lxm :om) :components nil))

(defvar *define-type-and-words-file* #!TRIPS"src;messages.kqml")

(defun send-define-msgs (msg args)
    (declare (ignore msg args))
  (with-open-file (f *define-type-and-words-file* :direction :input)
    (loop for dm = (read f nil nil)
	  while dm
	  do (send-msg dm))))
(defcomponent-handler '(request &key :content (send-define-msgs . *)) #'send-define-msgs :subscribe t)

(in-package :cl-user)

(defun send-define-msgs ()
  (comm::send 'test '(request :content (send-define-msgs))))

(defvar *out-dir* #!TRIPS"src;jsontrips;dist")
(defun write-json ()
  (if (probe-file #!TRIPS"src;messages.kqml") 
      (progn
        (format t "Sending messages")
        (send-define-msgs)
        (format t "sleeping for a bit")
        (sleep 20)
        (format t "sleeping for a bit")
        (sleep 20)
        (format t "sleeping for a bit")
        (sleep 20)
        (format t "sleeping for a bit")
        (sleep 20)
        (format t "sleeping for a bit")
        (sleep 20)
        (format t "sleeping for a bit")
        (sleep 20)
        ))
  (format t "Writing ontology\n")
  (load #!TRIPS"src;jsontrips;lisp;genontology.lisp")
  (om::write-all-ontology *out-dir*)
  (format t "Writing lexicon\n")
  (load #!TRIPS"src;jsontrips;lisp;genlexicon.lisp")
  (lxm::write-all-lexicon *out-dir*)
  (format t "done!\n")
  )


(trips:process-run-function :json #'dfc:run-component :json)

(run)
(write-json)