;;; Compilation of /Users/t/oz/music/Strasheela/strasheela/contributions/anders/OzServer/clients/oz-server-lisp-client/lisp-client.lisp, ;;; by t on LispWorks 4.4.5 at 2007/01/25 10:40:28. ;;; Safety = 3, Speed = 1, Space = 1, Float = 1, Interruptible = 0 ;;; Compilation speed = 1, Debug = 2, Fixnum safety = 3 ;;; Source level debugging is on ;;; Source file recording is on ;;; Cross referencing is on A |8@@X,@P0!`=0~-180|N!0! N 0|N  ==C LISPWORKSTOP-LEVEL-FORM>>>E%  = ===  COMMON-LISPPATHNAMEKEYWORD UNSPECIFICBC ABSOLUTEUserstozmusic Strasheela strasheela contributionsandersOzServerclientsoz-server-lisp-client> > EUUU lisp-clientlispB;COMPILER22NOTE-START-OF-FILE Top-level form 1 from file #P"/Users/t/oz/music/Strasheela/strasheela/contributions/anders/OzServer/clients/oz-server-lisp-client/lisp-client.lisp"|8@@`,@X0!`=0~-10`580|N!0! N 0|N  ==CB>>>E%  := 9=== OZNEWSYSTEM== %IN-PACKAGE 6 Top-level form 2 from file #P"/Users/t/oz/music/Strasheela/strasheela/contributions/anders/OzServer/clients/oz-server-lisp-client/lisp-client.lisp"|8@@`,@X0!`=0~-15980|N!0! N 0|N ==C DEFPARAMETEROZ-SERVER-LISP-CLIENTEE*DEFAULT-OZ-SERVER*>>E%  H= G=== B6B~/.oz/1.3.1/bin/OzServerDSPECJJINSTALL-DEFPARAMETER A"(DEFPARAMETER *DEFAULT-OZ-SERVER*)|8@@`,@X0!`=0~-15980|N!0! N 0|N ==CB1E*DEFAULT-OZ-INIT-FILE*>>E%  S= R=== B B~/.ozrcB8 N%(DEFPARAMETER *DEFAULT-OZ-INIT-FILE*)|8@@0!Կ!3 `02 0|N!a|~-c0 |N!|AC~5c0n|N!`y~9c0 |N!|A~AcE0|N!}|A~Ic0.|N!|Adcc#c$0^|N!MceQ8c0|N!}~U0|N!`d-59~A0! aY8 }cF0|N!0!]88`0|N!~5cdaei80|N!0=!0!N 1v,6@b0V|N!`zKP=v,6@b0V|N!}Kdcccpg@H9|D|t@@0cc0^|N!Kt0|N 80 .|N!}K= ERUN-OZC &KEYE OZ-SERVERBEPORTEFILEB E RESULT-FORMATlisp>>EQFI) CDBGmmrest- >>E k> EMY-PORT? o0??   ?&?FB  v u t s r?>mG B w?D?B??jB??B??~B??B?@?B?,?B?>B?>B?>B?>B?>B>d>B>L>B q0 j===  OZ-SERVERBPORTFILEB  RESULT-FORMATBCBBBB>>EUOzServer at port ~aLW-XPINTERNAL-FORMATESTART-OZ-SERVERPORT MAKE-PROCESSSLEEPHOST localhostE CONNECT-TO-OZ WF@4|8@@,@0!A3 08`c0N|N!`|8N ~-^1~598c0|N!`e=A0!E8cccD0|N!0!A0!N 0|N = CB>>>E%  =  ?>B`  >|>B#  === BBBx=%NEW-CLOSURIZE DOCUMENTATIONEasy to use top-level command to start the OzServer and connect Lisp to it. oz-server is the OzServer application to call (a string). See the OzServer documentation for the meaning of the other arguments. Meanigful values for result-format are "lisp" and "lispWithStrings".J INSTALL-DEFUN Top-level form 3 from file #P"/Users/t/oz/music/Strasheela/strasheela/contributions/anders/OzServer/clients/oz-server-lisp-client/lisp-client.lisp"|8@@0!Կ!3 02 0|N!a|~-c0 |N!|AXc~5c0n|N!`y~9c0 |N!|AHC~AcE0|N!}|A~Ic0.|N!M~QU8c$0|N!}~YU8cD0|N!}~]U80|N!`ea8}䀝0|N!`ee2`0!i8cc0|N!0!0=!0!N 1v,6@b0V|N!`{K=v,6@b0V|N!`zK0|N = BC BBBB BBBlisp>>EQFI) CB >>E > ???& B    ??B??>> ?FB  ?h?B?D?>B? ?vB??B  === BBB4BBB+B*CBBBB>>EUARGS--port=E ARG-STRING--file=--resultFormat==LISTN-3GUI?EBASH B ,|8@@,@0!A3 0`z`~-|AX18cCc0|N!`e58ccd0|N!A0!N cK0|N  = B2CEARGNAMEEVALUE>>E%  ?F = ?>> ?F >h?vB  === ~{~A~}=LISTN-2B B3 |8@@\,@T0!`=0-18c0|N!0! N 0|N  ==> B = >T j  === CAPICOLLECTOR-PANECLOSCHECK-PLIST-POINTER-TO-CLASS F@|8@@`,AX0!ȿ!3,!0}2 0|N!ay~-c$0n|N!}؀~1c$0n|N!}~5c$90|N!}|A~=c$0.|N!|@A|~AEIM80|N!Q80|N!U80|N!`{Y|@A]a8c0|N!`e0!ؐa8cԀ0|N!}0!cia8cc0|N!~mqu80|N!}܃]cCy8cc0|N!`||A<}a8ccc0|N!K3x`K܀eKc80=!0!N 0|N = BCECMDBEARGSEGUI?E INIT-FILE~/.bash_profile> >EU CB >>E  > ?8 ELINE EMY-PIPE E MY-COMMAND E OUT-STREAM      B          ? RBx??vB??B??B?T vB??>B? ZB? jB  === BB INIT-FILEB%CBBB6>>EBTITLE Shell outputMAKE-INSTANCE-FROM-CLASSCONTAINCOLLECTOR-PANE-STREAM "~a~a~{ ~a~}". ~a; B;; $ /bin/bash -c ~a~% /bin/bash-c PIPE-INPUT READ-LINE~a~% B8 A|8@@0!!302 0|N!a|~-c10|N!`y~5c0n|N!`z|A~9c0.|N!=8c#cD0|N!`{}ccd0^|N!cc80=!0!N 0|N = BCBEHOST localhostB>>EQ& CB >>E  ; > tf //EOZ-SOCKET-STREAM?t hntr?o>dB ecli?oFerv?s&lieB - t ;  W?4?a0?0>B?:>B>h>B>L>B  d ===  , ozC=BB>>E%ie OPEN-SOCKET n F@ 3|8@@,@0!!3`0`z`<-18ccEcf0|N!`d58c#0|N!cc98!0!0|N 0|N ~-= E FEED-TO-OZC E DIRECTIVEE CODE-STRING>>E% K OP-?-F M!= ? "??z OMM?SF $>t?{B A#  === %!~A~%~ACCFORMATSO FORCE-OUTPUT F@|8@@h,@`0!3`0cc-80|N!0!N 0|N p-c =?@EE READ-FROM-OZ isp -= OMP2?2 .STA>`?I / ,=== eREAD f* F@#|8@@h,@`0!3`0cc-80|N!0!N 0|N  =?@E DISCONNECT-OZ  6= 15B? 7>`? 8 5=== =CLOSE 3 F@|8@@,@0!A3 0~-180|N!8`c0N|N!`|cc0^|N!~5^9~=A8c0|N!`eEI0!M8cccD0|N!0!~Q^9~UA8c0|N!`eEY0!M8cccD0|N!0!~]^9~aA8c0|N!`eEe0!M8cccD0|N!0!~i^9~mA8c0|N!`eEq0!M8cccD0|N!0!A0!N 0|N = PEC>>>E% PTER @= " RA? >~U- VER B?>~B3?>>B?h>>B?<>B?>B?>B?~>B A ?=== C FUNCTIONStarts the OzServer application in its own shell. oz-server is the OzServer application to call (a string). See the OzServer documentation for the meaning of the other arguments. Meanigful values for result-format are "lisp" and "lispWithStrings".B2O~-Z[Aux def] Returns a string "argname value". However, if value is nil then nil is returned.EOA portable implementation for calling the bash shell. Executes cmd with args and shows the output. If gui? is nil (the default), then the output is written to *standard-output*. Otherwise, the output is written into a special window (presently, this is only supported for LispWorks where a CAPI pane is opened). NB: this function does not return before the cmd is finished -- consider running it is its own thread (e.g. using port:make-process).>> ETRI2LOAD-DOCUMENTATIONBBlConnects to the OzServer application on given host (a string with the host name) at given port (an integer).BFB Feeds code to the OzServer which is preceeded by %! . See OzServer documentation for details on supported directives.BB0@Reads a lisp expression from a result returned by the Oz server.BB /Closes the socket connection with the OzServer. <Top-level form 4 from file #P"/Users/t/oz/music/Strasheela/strasheela/contributions/anders/OzServer/clients/oz-server-lisp-client/lisp-client.lisp"j|8@@`,@X0!30`|~-18c0|N!0!N 0|N ~a =?@E FEED-FILECFEPATH>>E SER  _= >X>> ESS ` ^=== fileB sZE B@ |8@@`,@X0!30`|~-18c0|N!0!N 0|N 9 =?@EFEED-STATEMENTC=B>>E  D g= >X>> ! h f===  statementB c> BI "|8@@t,@l0!30`|~-18c0|N!580!0|N 0|N TIO =?@aEFEED-EXPRESSIONCB>>E e O er  oo= >X? s p On=== lic expressionBB rkg) BA |8@@`,@X0!30`|~-18c0|N!0!N 0|N ith =?@EBROWSE-EXPRESSIONCB>>E p- fo fro ew= >X>> ic/ hx rv=== tribrowseB ss BY |8@@`,@X0!`=0~-180|N!~580! N 0|N | ==C>>>E% X~5 = ~=== C[B/Feeds the file path (a string) to the OzServer.BB;Feeds the statement code-string (a string) to the OzServer.BBFeeds the expression code-string (a string) to the OzServer and returns the result of the expression as Lisp value (the suitable result-format must be set when starting the OzServer).B%BhFeeds the expression code-string (a string) to the OzServer and displays the result with the Oz Browser.>> ETRI%B>jFeeds the expression code-string (a string) to the OzServer and displays the result with the Oz Inspector. { Top-level form 5 from file #P"/Users/t/oz/music/Strasheela/strasheela/contributions/anders/OzServer/clients/oz-server-lisp-client/lisp-client.lisp"B|8@@`,@X0!30`|~-18c0|N!0!N 0|N E =?@EINSPECT-EXPRESSIONCB>>E A  = >X>   C=== inspectB  B} |8@@\,@T0!`=0~-1580|N!0! N 0|N  ==EQUIT-OZ   = >T>>  === quitB  } "|8@@t,@l0!`=0~-180|N!~5980|N!0! N 0|N ==C>>>E%   T= === C=B;Quits the OzServer (and implicitly closes the connections).>>ET BCEO2 XREF-INFOBCALLSB &Xd,2TLF-NAME-BINDING2TOP-LEVEL-FORM-NAMEJnDEF1 REFERENCESBB5BLISTBBBB~X$B!SYMBOL-FUNCTIONB&+HARLEQUIN-COMMON-LISP SUBFUNCTION!DEFUN+BJLOCATIONtBBBaNULLBB&B2%LOAD-TIME-VALUEB&a MAKE-INSTANCEBBBBBB Bu=B B B}B"B 49||S=BBBSBBBB!7`>e 3BBB[BBBBB EKB BXB6SQBB ?E TLBBBB Br4B >B +0 l+BBBB&BBBEEOB K?@?EPT)EUJQIURTU)eR)EUJQUUU)eR)eR)E)E)EUJQU)EUJQ)eRIU)eR)E)EU)EURRT2LOAD-XREF-INFO  Top-level form 6 from file #P"/Users/t/oz/music/Strasheela/strasheela/contributions/anders/OzServer/clients/oz-server-lisp-client/lisp-client.lisp"