;ELC ;;; Compiled ;;; in Emacs version 28.0.50 ;;; with all optimizations. (byte-code "\300\301!\210\300\302!\210\303\304\305\"\207" [require ob ob-eval add-to-list org-babel-tangle-lang-exts ("tcl" . "tcl")] 3) (defvar org-babel-default-header-args:tcl nil) #@48 Name of command to use for executing Tcl code. (custom-declare-variable 'org-babel-tcl-command "tclsh" '(#$ . 271) :group 'org-babel :type 'string) #@99 Execute a block of Tcl code with Babel. This function is called by `org-babel-execute-src-block'. (defalias 'org-babel-execute:tcl #[(body params) "\306\236A\307\236A\310\236A\311\f\312!#\313 !\314\315 #\316\317\236A\320\236A\"\316\321\236A\322\236A\"#-\207" [params session result-params result-type body full-body :session :result-params :result-type org-babel-expand-body:generic org-babel-variable-assignments:tcl org-babel-tcl-initiate-session org-babel-reassemble-table org-babel-tcl-evaluate org-babel-pick-name :colname-names :colnames :rowname-names :rownames] 7 (#$ . 425)]) #@62 Prepare SESSION according to the header arguments in PARAMS. (defalias 'org-babel-prep-session:tcl #[(session params) "\300\301!\207" [error "Sessions are not supported for Tcl"] 2 (#$ . 1032)]) #@64 Return list of tcl statements assigning the block's variables. (defalias 'org-babel-variable-assignments:tcl #[(params) "\301\302\303!\"\207" [params mapcar #[(pair) "\301\302@\303A!#\207" [pair format "set %s %s" org-babel-tcl-var-to-tcl] 5] org-babel--get-vars] 4 (#$ . 1233)]) #@145 Convert an elisp value to a tcl variable. The elisp value, VAR, is converted to a string of tcl source code specifying a var of the same value. (defalias 'org-babel-tcl-var-to-tcl #[(var) "<\203\301\302\303\304#\305Q\207\306\307\"\207" [var "{" mapconcat org-babel-tcl-var-to-tcl " " "}" format "%s"] 5 (#$ . 1523)]) (defvar org-babel-tcl-buffers '(:default)) #@55 Return nil because sessions are not supported by tcl. (defalias 'org-babel-tcl-initiate-session #[(&optional session params) "\300\207" [nil] 1 (#$ . 1895)]) (defvar org-babel-tcl-wrapper-method "\nproc main {} {\n %s\n}\n\nset r [eval main]\nset o [open \"%s\" \"w\"];\nputs $o $r\nflush $o\nclose $o\n\n") (defvar org-babel-tcl-pp-wrapper-method nil) #@225 Pass BODY to the Tcl process in SESSION. If RESULT-TYPE equals 'output then return a list of the outputs of the statements in BODY, if RESULT-TYPE equals 'value then return the value of the last statement in BODY, as elisp. (defalias 'org-babel-tcl-evaluate #[(session body &optional result-type) "\203\306\307!\210 \310\267\202(\311\n \"\207\312\313!\311\n\314 \315\f\316\"#\"\210\317\f!)\207\320\207" [session result-type org-babel-tcl-command body tmp-file org-babel-tcl-wrapper-method error "Sessions are not supported for Tcl" #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (output 14 value 19)) org-babel-eval org-babel-temp-file "tcl-" format org-babel-process-file-name noquote org-babel-eval-read-file nil] 8 (#$ . 2257)]) (provide 'ob-tcl)