;ELC ;;; Compiled ;;; in Emacs version 28.0.50 ;;; with all optimizations. (byte-code "\300\301!\210\300\302\303\304#\207" [require ob mozart nil t] 4) #@77 Path to the contrib/scripts directory in which StartOzServer.oz is located. (defvar org-babel-oz-server-dir (byte-code "\302\303\304\302\303\305\306\206\f !\"!\"!\207" [load-file-name buffer-file-name file-name-as-directory expand-file-name "contrib/scripts" "../../.." file-name-directory] 8) (#$ . 164)) #@42 Port for communicating with Oz compiler. (defvar org-babel-oz-port 6001 (#$ . 478)) #@36 Socket for communicating with OPI. (defvar org-babel-oz-OPI-socket nil (#$ . 568)) #@79 Aux var to hand result from org-babel-oz-filter to oz-send-string-expression. (defvar org-babel-oz-collected-result nil (#$ . 657)) #@55 Processes output from socket org-babel-oz-OPI-socket. (defalias 'org-babel-oz-filter #[(proc string) "\211\207" [string org-babel-oz-collected-result] 2 (#$ . 795)]) (defalias 'org-babel-oz-create-socket #[nil "\303\304!\210\305 \210\306\307\310Q!\210\311\312!\210\313\314\315\316 $\317\n\320\"\207" [org-babel-oz-server-dir org-babel-oz-port org-babel-oz-OPI-socket message "Create OPI socket for evaluating expressions" run-oz oz-send-string "\\insert '" "StartOzServer.oz'" sit-for 3 open-network-stream "*Org-babel-OPI-socket*" nil "localhost" set-process-filter org-babel-oz-filter] 5]) #@350 Similar to oz-send-string, oz-send-string-expression sends a string to the OPI compiler. However, string must be expression and this function returns the result of the expression (as string). oz-send-string-expression is synchronous, wait-time allows to specify a maximum wait time. After wait-time is over with no result, the function returns nil. (defalias 'oz-send-string-expression #[(string &optional wait-time) "\204\306 \210\307\310\311 \"\210\f\203:\312\313\216\310=\2030 \fV\2040\314\n!\210 \n\\\202\310*\202Q\315\216\310=\203J\314\n!\210\202<\310) *\207" [org-babel-oz-OPI-socket result polling-delay string wait-time waited org-babel-oz-create-socket 0.1 nil process-send-string 0 #[nil "\300\207" [nil] 1] sit-for #[nil "\300\207" [nil] 1] org-babel-oz-collected-result] 3 (#$ . 1398)]) (defalias 'org-babel-expand-body:oz #[(body params) "\304!\211\203\305\306 \"\307\310\311\312C\n\313 \314E#\315#)\202 )\207" [params vars var-string body org-babel--get-vars mapcar #[(pair) "\301\302@\303A!#\207" [pair format "%s=%s" org-babel-oz-var-to-oz] 5] mapconcat identity append "local" "in" "end" "\n"] 9]) #@127 Execute a block of Oz code with org-babel. This function is called by `org-babel-execute-src-block' via multiple-value-bind. (defalias 'org-babel-execute:oz #[(body params) "\305\236A\306\n\"\307\310\"\311\312 \235\203 \313\314!\210\315 !\2028\316 \235\2035\313\317!\210\320 \f\2061\321\"\2028\322\323!\324\325\236A\326\236A\"\324\327\236A\330\236A\"#+\207" [params result-params body full-body wait-time :result-params org-babel-expand-body:oz plist-get :wait-time org-babel-reassemble-table "output" message "Org-babel: executing Oz statement" oz-send-string "value" "Org-babel: executing Oz expression" oz-send-string-expression 1 error "either 'output' or 'results' must be members of :results" org-babel-pick-name :colname-names :colnames :roname-names :rownames] 7 (#$ . 2559)]) #@72 Prepare SESSION according to the header arguments specified in PARAMS. (defalias 'org-babel-prep-session:oz #[(session params) "\300\301!\207" [error "org-babel-prep-session:oz unimplemented"] 2 (#$ . 3366)]) #@108 If there is not a current inferior-process-buffer in SESSION then create. Return the initialized session. (defalias 'org-babel-oz-initiate-session #[(&optional session params) "\303\230?\205\304 \305\216\306\n!*\207" [session #1=#:wconfig oz-compiler-buffer "none" current-window-configuration #[nil "\301!\207" [#1# set-window-configuration] 2] get-buffer] 2 (#$ . 3582)]) #@90 Convert an elisp var into a string of Oz source code specifying a var of the same value. (defalias 'org-babel-oz-var-to-oz #[(var) "<\203 \301!\207\302\303\"\207" [var eval format "%s"] 3 (#$ . 3968)]) #@121 If the results look like a table, then convert them into an Emacs-lisp table, otherwise return the results as a string. (defalias 'org-babel-oz-table-or-string #[(results) "\300\301!\207" [error "org-babel-oz-table-or-string unimplemented"] 2 (#$ . 4181)]) (provide 'ob-oz)