1#@!#!123s

file_get_contents 1#@!#!123s
: / usr / share / emacs / 24.3 / lisp / org /
Filename : ob-C.elc
back
;ELC���
;;; Compiled by mockbuild@buildfarm06-new.corp.cloudlinux.com on Fri Oct 11 10:06:38 2024
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/org/ob-C.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.

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


(byte-code "\300\301!\210\300\302!\210\300\303!\210\304\305\306\"\207" [require ob ob-eval cc-mode add-to-list org-babel-tangle-lang-exts ("C++" . "cpp")] 3)
(defvar org-babel-default-header-args:C nil)
#@68 Command used to compile a C source code file into an
  executable.
(defvar org-babel-C-compiler "gcc" (#$ . 754))
#@70 Command used to compile a C++ source code file into an
  executable.
(defvar org-babel-C++-compiler "g++" (#$ . 874))
#@94 Internal variable used to hold which type of C (e.g. C or C++)
is currently being evaluated.
(defvar org-babel-c-variant nil (#$ . 998))
#@81 Execute BODY according to PARAMS.  This function calls
`org-babel-execute:C++'.
(defalias 'org-babel-execute:cpp #[(body params) "\302	\"\207" [body params org-babel-execute:C++] 3 (#$ . 1141)])
#@104 Execute a block of C++ code with org-babel.  This function is
called by `org-babel-execute-src-block'.
(defalias 'org-babel-execute:C++ #[(body params) "\303\304	\n\")\207" [org-babel-c-variant body params cpp org-babel-C-execute] 3 (#$ . 1344)])
#@108 Expand a block of C++ code with org-babel according to it's
header arguments (calls `org-babel-C-expand').
(defalias 'org-babel-expand-body:C++ #[(body params) "\303\304	\n\")\207" [org-babel-c-variant body params cpp org-babel-C-expand] 3 (#$ . 1599)])
#@102 Execute a block of C code with org-babel.  This function is
called by `org-babel-execute-src-block'.
(defalias 'org-babel-execute:C #[(body params) "\303\304	\n\")\207" [org-babel-c-variant body params c org-babel-C-execute] 3 (#$ . 1861)])
#@106 Expand a block of C code with org-babel according to it's
header arguments (calls `org-babel-C-expand').
(defalias 'org-babel-expand-body:c #[(body params) "\303\304	\n\")\207" [org-babel-c-variant body params c org-babel-C-expand] 3 (#$ . 2110)])
#@90 This function should only be called by `org-babel-execute:C'
or `org-babel-execute:C++'.
(defalias 'org-babel-C-execute #[(body params) "\306\307\310\232\203\f�\311\202�\312\232\205�\313\"\306\314\n\"\315\316\f\"A\315\317\f\"A-\320.\f\"/	\321\322\323!!01\324\216r0q\210/c\210)r0q\210\325\326\2111\326\327%\210,\330\331\332\310\232\203a�2\202i�\312\232\205i�3\333!\334\335-<\203y�-\202|�-C\336#\333	!%\337\"4\340\330
\203\223�\336
P\202\224�\337P\337\"!5\341\342\315\343\f\"A\235\203\327�\306\344!\2116\321\322\323!!78\345\216r7q\2105c\210)r7q\210\325\326\2118\326\327%\210,\3466!)\202\333�\3475!\350\315\351\f\"A\315\352\f\"A\"\350\315\353\f\"A\315\354\f\"A\"#.\207" [org-babel-c-variant tmp-src-file org-babel-exeext tmp-bin-file params cmdline org-babel-temp-file "C-src-" c ".c" cpp ".cpp" "C-bin-" assoc :cmdline :flags org-babel-C-expand get-buffer-create generate-new-buffer-name " *temp file*" ((byte-code "\301!\203\n�\302!\210\301\207" [#1=#:temp-buffer buffer-name kill-buffer] 2)) write-region nil 0 org-babel-eval format "%s -o %s %s %s" org-babel-process-file-name mapconcat identity " " "" org-babel-trim org-babel-reassemble-table "vector" :result-params "c-" ((byte-code "\301!\203\n�\302!\210\301\207" [#2=#:temp-buffer buffer-name kill-buffer] 2)) org-babel-import-elisp-from-file org-babel-read org-babel-pick-name :colname-names :colnames :rowname-names :rownames flags body full-body #1# #3=#:temp-file org-babel-C-compiler org-babel-C++-compiler compile results tmp-file #2# #4=#:temp-file] 10 (#$ . 2365)])
#@84 Expand a block of C or C++ code with org-babel according to
it's header arguments.
(defalias 'org-babel-C-expand #[(body params) "\306\307\310\311\"\"\312\313\"A\314\230?\312\315\"A\206�\316\317\320\321\322#!\316\312\323\"A\206.�\316\317\320\324\322#!!\325\326\325\327\n<\203@�\n\202B�\nC\330#\325\331	<\203O�	\202Q�	C\330#\325\332\f\330#\203b�\333
!\202c�
\330\257\330#,\207" [params defines includes main-p vars body mapcar cdr org-babel-get-header :var assoc :main "no" :includes org-babel-read org-entry-get nil "includes" t :defines "defines" mapconcat identity #[(inc) "\301\302\"\207" [inc format "#include %s"] 3] "\n" #[(inc) "\301\302\"\207" [inc format "#define %s"] 3] org-babel-C-var-to-C org-babel-C-ensure-main-wrap] 9 (#$ . 3942)])
#@53 Wrap body in a "main" function call if none exists.
(defalias 'org-babel-C-ensure-main-wrap #[(body) "\301\302\"\203	�\207\303\304\"\207" [body string-match "^[ 	]*[intvod]+[ 	\n
]*main[ 	]*(.*)" format "int main() {\n%s\nreturn(0);\n}\n"] 3 (#$ . 4709)])
#@85 This function does nothing as C is a compiled language with no
support for sessions
(defalias 'org-babel-prep-session:C #[(session params) "\300\301!\207" [error "C is a compiled languages -- no support for sessions"] 2 (#$ . 4974)])
#@85 This function does nothing as C is a compiled language with no
support for sessions
(defalias 'org-babel-load-session:C #[(session body params) "\300\301!\207" [error "C is a compiled languages -- no support for sessions"] 2 (#$ . 5214)])
#@82 Convert an elisp val into a string of C code specifying a var
of the same value.
(defalias 'org-babel-C-var-to-C #[(pair) "@A	9\203�\303	!\211G\304U\203�\305	!	\250\203'�\306\307\n	#\202W�\310	!\2035�\306\311\n	#\202W�	\250\203B�\306\312\n	#\202W�	;\203R�\306\313\n	GT	$\202W�\306\314\n	#*\207" [pair val var symbol-name 1 string-to-char format "int %S = %S;" floatp "double %S = %S;" "char %S = '%S';" "char %S[%d] = \"%s\";" "u32 %S = %S;"] 6 (#$ . 5459)])
(provide 'ob-C)