;ELC���
;;; Compiled by yjaradin(at)localhost.localdomain on Fri Jul 4 12:17:09 2008
;;; from file /tmp/build-1.4.0/mozart/share/elisp/oz-server.el
;;; in Emacs version 21.4.1
;;; with bytecomp version 2.85.4.1
;;; with all optimizations.

;;; This file uses dynamic docstrings, first added in Emacs 19.29.
(if (and (boundp ’emacs-version)
(< (aref emacs-version (1- (length emacs-version))) ?A)
(or (and (boundp ‘epoch::version) epoch::version)
(string-lessp emacs-version “19.29”)))
(error “`oz-server.el’ was compiled for Emacs 19.29 or later”))

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

(provide ’oz-server)
#@28 name of the server process
(defconst oz-server-name “Oz Server” (#$ . 652))
#@27 the server process itself
(defvar oz-server-process nil (#$ . 736))
#@80 open a server connection to the Oz process running on
HOST and waiting at PORT
(defalias ‘oz-server-open #[(host port) “\305\306 \n\211\307\310\"\210\311\312\")\207" [oz-server-name host port process oz-server-process open-network-stream nil set-process-filter oz-server-filter set-process-sentinel oz-server-sentinel] 6 (# . 810)])
#@27 end of argument character
(defconst oz-server-eoa “
” (#$ . 1156))
#@26 end of message character
(defconst oz-server-eom “” (#$ . 1229))
#@19 quoting character
(defconst oz-server-quo “” (#$ . 1301))
#@34 anything but a quoting character
(defconst oz-server-quo-skip (concat “^” oz-server-quo) (#$ . 1366))
#@77 anything but an end of argument', end of message’,
or quoting character' (defconst oz-server-all-skip (concat "^" oz-server-eoa oz-server-eom oz-server-quo) (#$ . 1474)) #@29 accumulated partial message (defvar oz-server-buffered-input "" (#$ . 1653)) (defalias 'oz-server-filter #[(process input) "\306 \"\211\2032� \307\nO \nT\310O\310 P\310\311\312\313\314\"\"!\210\315\f\"+\2029� P\211)\207" [oz-server-eom input i args suffix prefix string-match 0 nil oz-server-process-message mapcar oz-server-unescape split-string oz-server-filter oz-server-buffered-input oz-server-eoa process] 7]) (byte-code "\301B\302\301\207" [current-load-list oz-server-temp "*Oz Server Temp*"] 2) #@15 decode STRING (defalias 'oz-server-unescape #[(string) "\306!\212\214 q\210~\210\307 \210\nc\210eb\210\310\2039�\f\311w\210m\203(�\311\211\202�Tf\312Z\313\314!\210
c\210)\202�)\315 +\207” [oz-server-temp b string redo oz-server-quo-skip c get-buffer-create erase-buffer t nil 100 delete-char 2 buffer-string] 3 (#$ . 2185)])
#@15 encode STRING
(defalias ‘oz-server-escape #[(string) “\306!\212\214 q\210~\210\307 \210\nc\210eb\210\310\203;�\f\311w\210m\203(�\311\211\202�f\312\\\313\314!\210 \261\210)\202�)\315 +\207" [oz-server-temp b string redo oz-server-all-skip c get-buffer-create erase-buffer t nil 100 delete-char 1 buffer-string oz-server-quo] 3 (#$ . 2525)]) (defalias 'oz-server-sentinel #[(process status) "\301\211\207" [oz-server-process nil] 2]) (defalias 'oz-server-process-message #[(args) "\302@!\211\303=\203�\304A!\2020� \305=\203�\306A!\2020� \307=\203,�\310A!\2020�\311\312 \")\207" [args tag intern reply oz-server-process-reply replyError oz-server-process-replyError event oz-server-process-event error "unknown tag %s’”] 4])
#@20 create a new alist
(defalias ’oz-server-alist-make #[nil “\300C\207” [ALIST] 1 (#$ . 3274)])
#@75 return the value associated with KEY in ALIST, or nil
if KEY is not found
(defalias ’oz-server-alist-get #[(alist key) “ A\236A\207” [key alist] 2 (#$ . 3373)])
#@51 set to VAL the value associated with KEY in ALIST
(defalias ’oz-server-alist-put #[(alist key val) “ A\236\211\203�\n\241\202� B AB\241)\207” [key alist e val] 4 (#$ . 3541)])
#@76 delete the entry for KEY in ALIST. do nothing if KEY is
not found in ALIST
(defalias ’oz-server-alist-del #[(alist key) “\211A \205)� \211@@)\f=\203�\n A\241\210\305\211\202�  A\211\204 �\305*\207” [alist curr prev x key nil] 3 (#$ . 3730)])
#@66 maps ID of request to callback, i.e. to a pair (FUNCTION . DATA)
(defvar oz-server-callback-alist (oz-server-alist-make) (#$ . 3987))
#@48 alist with entries of the form (TAG . HANDLER)
(defvar oz-server-handler-alist nil (#$ . 4127))
(defalias ’oz-server-process-reply-generic #[(args errflag) “\305@!A\306 "\211\205�\307 "\210\310\311\312\217+\207” [args id vals oz-server-callback-alist callback string-to-int oz-server-alist-get oz-server-alist-del nil (byte-code “@ \nA#\207” [callback errflag vals] 4) ((error))] 4])
(defalias ’oz-server-process-reply #[(args) “\301\302"\207” [args oz-server-process-reply-generic nil] 3])
(defalias ’oz-server-process-replyError #[(args) “\301\302"\207” [args oz-server-process-reply-generic t] 3])
#@43 name of buffer in which to display errors
(defconst oz-server-errors “Oz Server Errors” (#$ . 4750))
#@42 display error message in an error buffer
(defalias ’oz-server-display-error #[(MSG) “\305!\212\214 q\210~\210d\306\211b\210\f\307\211\261\210\310 !\311\n"-\207” [oz-server-errors b w p MSG get-buffer-create nil 10 display-buffer set-window-start] 4 (#$ . 4859)])
(defalias ’oz-server-process-event #[(args) “\304@!\211\n\236A\211\205�\305\306\307\217*\207” [args tag oz-server-handler-alist handler intern nil (byte-code “ \nA"\207” [handler tag args] 3) ((error))] 4])
#@62 monotonically increasing counter used to generate unique IDs
(defvar oz-server-query-count 0 (#$ . 5349))
#@110 send a query ARGS, a list of strings, to the Oz process, and
register CALLBACK and DATA to process the reply
(defalias ’oz-server-query #[(args callback data) “\306\307\310 !\nB" T\311\f
B#\210\203,�\312\f@
P"\210A\211\204�\312\f"*\207” [oz-server-query-count id args msg oz-server-callback-alist callback mapcar oz-server-escape int-to-string oz-server-alist-put process-send-string data oz-server-process oz-server-eoa oz-server-eom] 6 (#$ . 5462)])
#@87 a flag that is t while waiting for the reply: the synchronous
callback sets it to nil
(defvar oz-server-synchronous-polling nil (#$ . 5940))
#@61 the synchronous callback sets it to (ERRFLAG ARG1 … ARGn)
(defvar oz-server-synchronous-reply nil (#$ . 6087))
(defalias ’oz-server-synchronous-callback #[(errflag vals data) “\304 \nB\211\207” [oz-server-synchronous-polling errflag vals oz-server-synchronous-reply nil] 2])
#@32 delay between polling attempts
(defconst oz-server-polling-delay 0.05 (#$ . 6372))
#@209 send the query consisting of the list of strings ARGS to the
Oz process, wait for the reply and return the correposning list
of strings. Raise an ’oz-server-query exception in case we get
back a replyError.
(defalias ‘oz-server-query-synchronously #[(args) “\306\216\307\310 \311\312#\210\203�\313\n!\210\202\n�@A\211\203&�\314\310\f"\202’�\f+\207” [oz-server-synchronous-polling args oz-server-polling-delay oz-server-synchronous-reply vals errflag ((byte-code “\302\302\302\207” [oz-server-synchronous-polling oz-server-synchronous-reply nil] 1)) t oz-server-query oz-server-synchronous-callback nil sit-for signal] 5 (#$ . 6462)])