;ELC
;;; Compiled by mockbuild@buildfarm06-new.corp.cloudlinux.com on Fri Oct 11 10:06:45 2024
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/org/ob-table.el
;;; in Emacs version 24.3.1
;;; with all optimizations.

;;; This file uses dynamic docstrings, first added in Emacs 19.29.

;;; This file does not contain utf-8 non-ASCII characters,
;;; and so can be loaded in Emacs versions earlier than 23.

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


(require 'ob)
#@145 Replace newline character with ellipses.
If STRING ends in a newline character, then remove the newline
character and replace it with ellipses.
(defalias 'org-babel-table-truncate-at-newline #[(string) ";\203\301\302\"\203\303\211\224O\304\305\"\205\306P\207\207" [string string-match "[\n
]\\(.\\)?" 0 match-string 1 "..."] 4 (#$ . 570)])
#@989 Return the results of calling SOURCE-BLOCK with VARIABLES.
Each element of VARIABLES should be a two
element list, whose first element is the name of the variable and
second element is a string of its value.  The following call to
`sbe' would be equivalent to the following source code block.

 (sbe 'source-block (n $2) (m 3))

#+begin_src emacs-lisp :var results=source-block(n=val_at_col_2, m=3) :results silent
results
#+end_src

NOTE: by default string variable names are interpreted as
references to source-code blocks, to force interpretation of a
cell's value as a string, prefix the identifier a "$" (e.g.,
"$$2" instead of "$2" or "$@2$2" instead of "@2$2").

NOTE: it is also possible to pass header arguments to the code
block.  In this case a table cell should hold the string value of
the header argument which can then be passed before all variables
as shown in the example below.

| 1 | 2 | :file nothing.png | nothing.png |
#+TBLFM: @1$4='(sbe test-sbe $3 (x $1) (y $2))
(defalias 'sbe '(macro . #[(source-block &rest variables) "@;\203@\202\f\306@;\203A\202\307\310\311\";\204*\312!\203_G\313V\203_\314\315\316\317\320	\321\322\323\324\302D\325BBB\326BBBBBBBBD!\327\307\330\331\fE\332#)\202`\306\333
;\203k
\202o\334\335
\"!-\207" [variables header-args quote source-block params result "" nil mapcar #[(var) "@\301\302\303\304A\"\"B\207" [var delq nil mapcar #[(el) "\305=\203\n\306\307\207	\203\310\311\"\202C\306\312\313!\203*\313\314G\306$\210\202A\n\2039\315\314G\f$\210\202A\313\314G\306$\210*\306\207" [el quote restricted s org-rm-props $ nil t format "\"%s\"" fboundp set-text-properties 0 remove-text-properties] 5]] 6] symbol-name 0 eval org-babel-parse-header-arguments concat ":var results=" "[" "]" "(" mapconcat (lambda (var-spec) (if (> (length (cdr var-spec)) 1) (format "%S='%S" (car var-spec) (mapcar #'read (cdr var-spec))) (format "%S=%s" (car var-spec) (cadr var-spec)))) (", ") (")") org-babel-execute-src-block "emacs-lisp" "results" ((:results . "silent")) org-babel-trim format "%S"] 13 (#$ . 928)]))
(byte-code "\300\301\302\303#\210\304\305!\207" [put sbe edebug-form-spec (form form) provide ob-table] 4)