(in-package "COM")

(load-foreign-files  '("~/unit-and-dim/shade/kapi/kapi.o"
		       "~/unit-and-dim/shade/kapi/block.o"
		       "~/unit-and-dim/shade/kapi/chunk.o" 
		       "~/unit-and-dim/shade/kapi/keyword.o"
		       "~/unit-and-dim/shade/kapi/parse.o"
		       "~/unit-and-dim/shade/kapi/regexp.o"
		       "~/unit-and-dim/shade/kapi/sexp.o"
		       "~/unit-and-dim/shade/kapi/socket.o"))

(load-foreign-libraries "~/unit-and-dim/shade/kapi/libkapi.a")

(load "~/unit-and-dim/kapi.lisp")

(defvar *hostname* "yoyo.eitech.com")
(defvar *registrar* "registrar")
(defvar *mbusport* 2390)


(defun connect (&optional (name *myname*))
  (let ((msg-rgtr (format nil "(registrar-name : name ~a)" name)))
    (if (= (Lisp-KConnect *hostname* *mbusport* name) -1)
	(format t "~%problem of communication?"))
    (Lisp-KSendString msg-rgtr *registrar*)))



(defun disconnect ()
  (Lisp-KDisconnect))
  
  
(defun kapi-lisp ()
  (let  ((caransw (car (YP-KGetString-Or-Wait ""))))
     (if (typep (cadr (multiple-value-list
			  (ignore-errors
			   (eval (Read-from-String caransw)))))
		'error)
	 (format t "~a~%> " caransw))
    (kapi-lisp)))


;;;
(defun start-listening ()
  (setf s1 (make-process :name "s1"
			 :function 'kapi-lisp
			 :priority 200)))