Current File : //usr/local/share/emacs/27.2/lisp/org/ob-C.elc
;ELC
;;; Compiled
;;; in Emacs version 27.2
;;; 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\"\210\304\305\307\"\207" [require cc-mode ob org-macs add-to-list org-babel-tangle-lang-exts ("C++" . "cpp") ("D" . "d")] 3)
(defvar org-babel-default-header-args:C nil)
#@34 C/C++-specific header arguments.
(defconst org-babel-header-args:C '((includes . :any) (defines . :any) (main . :any) (flags . :any) (cmdline . :any) (libs . :any)) (#$ . 642))
#@32 C++-specific header arguments.
(defconst org-babel-header-args:C++ (append '((namespaces . :any)) org-babel-header-args:C) (#$ . 825))
(byte-code "\300\301\302\303\304DD\305\306\307\310\311\312\313& \210\300\314\302\303\315DD\316\306\307\310\311\312\313& \210\300\317\302\303\320DD\321\306\307\310\311\312\313& \207" [custom-declare-variable org-babel-C-compiler funcall function #[0 "\300\207" [#1="gcc"] 1 #1#] "Command used to compile a C source code file into an executable.\nMay be either a command in the path, like gcc\nor an absolute path name, like /usr/local/bin/gcc\nparameter may be used, like gcc -v" :group org-babel :version "24.3" :type string org-babel-C++-compiler #[0 "\300\207" [#2="g++"] 1 #2#] "Command used to compile a C++ source code file into an executable.\nMay be either a command in the path, like g++\nor an absolute path name, like /usr/local/bin/g++\nparameter may be used, like g++ -v" org-babel-D-compiler #[0 "\300\207" [#3="rdmd"] 1 #3#] "Command used to compile and execute a D source code file.\nMay be either a command in the path, like rdmd\nor an absolute path name, like /usr/local/bin/rdmd\nparameter may be used, like rdmd --chatty"] 10)
#@99 Internal variable used to hold which type of C (e.g. C or C++ or D)
is currently being evaluated.
(defvar org-babel-c-variant nil (#$ . 2013))
#@98 Execute BODY according to PARAMS.
This function calls `org-babel-execute:C++'.
(fn BODY PARAMS)
(defalias 'org-babel-execute:cpp #[514 "\300\"\207" [org-babel-execute:C++] 5 (#$ . 2162)])
#@96 Expand a block of C++ code with org-babel according to its
header arguments.
(fn BODY PARAMS)
(defalias 'org-babel-expand-body:cpp #[514 "\300\"\207" [org-babel-expand-body:C++] 5 (#$ . 2359)])
#@121 Execute a block of C++ code with org-babel.
This function is called by `org-babel-execute-src-block'.
(fn BODY PARAMS)
(defalias 'org-babel-execute:C++ #[514 "\301\302\")\207" [org-babel-c-variant cpp org-babel-C-execute] 5 (#$ . 2563)])
#@96 Expand a block of C++ code with org-babel according to its
header arguments.
(fn BODY PARAMS)
(defalias 'org-babel-expand-body:C++ #[514 "\301\302\")\207" [org-babel-c-variant cpp org-babel-C-expand-C++] 5 (#$ . 2811)])
#@119 Execute a block of D code with org-babel.
This function is called by `org-babel-execute-src-block'.
(fn BODY PARAMS)
(defalias 'org-babel-execute:D #[514 "\301\302\")\207" [org-babel-c-variant d org-babel-C-execute] 5 (#$ . 3042)])
#@94 Expand a block of D code with org-babel according to its
header arguments.
(fn BODY PARAMS)
(defalias 'org-babel-expand-body:D #[514 "\301\302\")\207" [org-babel-c-variant d org-babel-C-expand-D] 5 (#$ . 3284)])
#@119 Execute a block of C code with org-babel.
This function is called by `org-babel-execute-src-block'.
(fn BODY PARAMS)
(defalias 'org-babel-execute:C #[514 "\301\302\")\207" [org-babel-c-variant c org-babel-C-execute] 5 (#$ . 3507)])
#@94 Expand a block of C code with org-babel according to its
header arguments.
(fn BODY PARAMS)
(defalias 'org-babel-expand-body:C #[514 "\301\302\")\207" [org-babel-c-variant c org-babel-C-expand-C] 5 (#$ . 3749)])
#@133 This function should only be called by `org-babel-execute:C'
or `org-babel-execute:C++' or `org-babel-execute:D'.
(fn BODY PARAMS)
(defalias 'org-babel-C-execute #[514 "\305\306\307\267\202 \310\202 \311\202 \312\202 \313\"\314\305\315 \"!\316\236A\211\203* \317P\202+ \320\321\236A\322\323<\203: \202< C\317#\324\325\236A\206L \326\313\327\330#\313\"\322\323<\203Y \202[ C\317#\331\267\202~ \332\n\n\"\202 \333\n\n\"\202 \334\n\n\"\202 \313\335\336!\337\340\341\342\343!\344\"\345$\216r\211q\210c\210)r\211q\210\346\313\211\313\340%\210*\266\347\267\202\316 \350\351\352\353\267\202\276 \n\202\277 \202\277 \313 \314!&\320\"\210\350\354\267\202\354 P\202\355 \351\355\f\314! %\202\355 \313\320\"\211\205\244\356!\262\357\360\f\236A\361\235?\205}\362\235\204G\363\235\204G\364\235\204G\365\235\204G\366\235\204G\367\235\204G\370\235\204A\371\235\204A\372\235\204A\373\235\203N\374\235\204N\324\330\"\202}\305\375!\211\335\336!\337\340\341\342\343!\376\"\345$\216r\211q\210c\210)r\211q\210\346\313\211\313\340%\210*\266\377!\262\262\201@ \201A \236A\201B \236A\"\201@ \201C \236A\201D \236A\"#\262\207" [org-babel-c-variant org-babel-exeext org-babel-C-compiler org-babel-C++-compiler org-babel-D-compiler org-babel-temp-file "C-src-" #s(hash-table size 3 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (c 8 cpp 12 d 16)) ".c" ".cpp" ".d" nil org-babel-process-file-name "C-bin-" :cmdline " " "" :flags mapconcat identity org-babel-read :libs org-entry-get "libs" t #s(hash-table size 3 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (c 99 cpp 108 d 117)) org-babel-C-expand-C org-babel-C-expand-C++ org-babel-C-expand-D generate-new-buffer " *temp file*" make-byte-code 0 "\301\300!\205 \302\300!\207" vconcat vector [buffer-name kill-buffer] 2 write-region #s(hash-table size 3 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (cpp 173 c 173 d 206)) org-babel-eval format "%s -o %s %s %s %s" #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (c 182 cpp 186)) #s(hash-table size 3 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (cpp 213 c 213 d 221)) "%s %s %s %s" org-remove-indentation org-babel-reassemble-table :result-params "none" "scalar" "verbatim" "html" "code" "pp" "file" "output" "raw" "org" "drawer" "table" "c-" [buffer-name kill-buffer] org-babel-import-elisp-from-file org-babel-pick-name :colname-names :colnames :rowname-names :rownames] 23 (#$ . 3972)])
#@101 Expand a block of C or C++ code with org-babel according to
its header arguments.
(fn BODY PARAMS)
(defalias 'org-babel-C-expand-C++ #[514 "\300\"\207" [org-babel-C-expand-C] 5 (#$ . 6554)])
#@101 Expand a block of C or C++ code with org-babel according to
its header arguments.
(fn BODY PARAMS)
(defalias 'org-babel-C-expand-C #[514 "\300!\301\236A\302\236A\303\230?\304\305\236A\306\"\304\307\236A\306\"\304\310\236A\306\";\203/ \311!\262\211;\2039 \311!\262;\203m \306\312C\311!\211\203f \211@\204T \211\262\202_ \313QC\244\210\306\262A\266\202\202D \210\211A\262\266\314\315\314\316\317#\314\320<\203\202 \202\205 C\317#\314\321\317#\314\322\f\317#\314\323
\317# \205\240 \324 \314\325\317#\f\203\262 \326!\202\264 \317\257 \317#\207" [org-babel--get-vars :colname-names :main "no" org-babel-read :includes nil :defines :namespaces split-string t " " mapconcat identity #[257 "\2119\203\n \300!\262\301\302\"\203 \303\304\"\207\303\305\"\207" [symbol-name string-prefix-p "<" format "#include %s" "#include \"%s\""] 4 "\n\n(fn INC)"] "\n" #[257 "\300\301\"\207" [format "#define %s"] 4 "\n\n(fn INC)"] #[257 "\300\301\"\207" [format "using namespace %s;"] 4 "\n\n(fn INC)"] org-babel-C-var-to-C org-babel-C-table-sizes-to-C org-babel-C-utility-header-to-C org-babel-C-header-to-C org-babel-C-ensure-main-wrap] 20 (#$ . 6755)])
#@94 Expand a block of D code with org-babel according to
its header arguments.
(fn BODY PARAMS)
(defalias 'org-babel-C-expand-D #[514 "\300!\301\236A\302\236A\303\230?\304\236A\206 \305\306\307\310\311#!\211;\203& \312!\262\313\314\"\262\315\316\317\315\320\321#\315\322 \321#\315\323\n\321#\205G \324 \315\325 \321# \203Y \326!\202[
\321\257\321#\207" [org-babel--get-vars :colname-names :main "no" :imports org-babel-read org-entry-get nil "imports" t split-string append ("std.stdio" "std.conv") mapconcat identity "module mmm;" #[257 "\300\301\"\207" [format "import %s;"] 4 "\n\n(fn INC)"] "\n" org-babel-C-var-to-C org-babel-C-table-sizes-to-C org-babel-C-utility-header-to-C org-babel-C-header-to-C org-babel-C-ensure-main-wrap] 17 (#$ . 7948)])
#@64 Wrap BODY in a "main" function call if none exists.
(fn BODY)
(defalias 'org-babel-C-ensure-main-wrap #[257 "\300\301\"\203 \207\302\303\"\207" [string-match "^[ ]*[intvod]+[ \n
]*main[ ]*(.*)" format "int main() {\n%s\nreturn 0;\n}\n"] 4 (#$ . 8726)])
#@107 This function does nothing as C is a compiled language with no
support for sessions.
(fn SESSION PARAMS)
(defalias 'org-babel-prep-session:C #[514 "\300\301!\207" [error "C is a compiled language -- no support for sessions"] 4 (#$ . 8993)])
#@112 This function does nothing as C is a compiled language with no
support for sessions.
(fn SESSION BODY PARAMS)
(defalias 'org-babel-load-session:C #[771 "\300\301!\207" [error "C is a compiled language -- no support for sessions"] 5 (#$ . 9242)])
#@71 Handle the FORMAT part of TYPE with the data from VAL.
(fn TYPE VAL)
(defalias 'org-babel-C-format-val #[514 "A@\211;\203 \300\301\"B\202 \211!\207" ["" format] 7 (#$ . 9495)])
#@192 Determine the type of VAL.
Return a list (TYPE-NAME FORMAT). TYPE-NAME should be the name of the type.
FORMAT can be either a format string or a function which is called with VAL.
(fn VAL)
(defalias 'org-babel-C-val-to-C-type #[257 "\301!\211\302\267\202! \303\202% \304\202% \305=\203 \306\202 \307\310D\202% \311\312\"\250\203. \211\202\236 \313!\2038 \211\202\236 <\203q @<\203q \211@\314\315\316\317\320\321\322\314\323\320\324\322\314\325\326A@\327BBE\330BB\331BBBE\332BB\333BBBEED\202\236 <\204| \334!\203\235 \211@\314\335\316\336\320\337\322\314\340\326 A@\341BBE\342BB\343BBBEED\202\236 \211\207" [org-babel-c-variant org-babel-C-val-to-base-type #s(hash-table size 3 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (integerp 9 floatp 13 stringp 17)) ("int" "%d") ("double" "%f") d "string" "const char*" "\"%s\"" error "unknown type %S" floatp lambda (val) cons (format "[%d][%d]" (length val) (length (car val))) concat (if (eq org-babel-c-variant 'd) "[\n" "{\n") mapconcat (v) (if (eq org-babel-c-variant 'd) " [" " {") (w) format (w) (v ",") ((if (eq org-babel-c-variant 'd) "]" "}")) (val ",\n") ((if (eq org-babel-c-variant 'd) "\n]" "\n}")) vectorp (val) (format "[%d]" (length val)) (if (eq org-babel-c-variant 'd) "[" "{") (v) (v) (val ",") ((if (eq org-babel-c-variant 'd) "]" "}"))] 21 (#$ . 9686)])
#@186 Determine the base type of VAL which may be
`integerp' if all base values are integers
`floatp' if all base values are either floating points or integers
`stringp' otherwise.
(fn VAL)
(defalias 'org-babel-C-val-to-base-type #[257 "\211\250\203 \300\207\301!\203 \301\207\211<\204 \302!\2030 \303C\304\305\306\307\310\311!\312\"\313\314%\"\210\211\242\207\315\207" [integerp floatp vectorp nil mapc make-byte-code 257 "\301!\211\302\267\202- \300\303\240\202. \300\242\203 \300\242\304=\205. \300\305\240\202. \300\242?\205. \300\304\240\202. \306\207" vconcat vector [org-babel-C-val-to-base-type #s(hash-table size 3 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (stringp 9 floatp 15 integerp 33)) stringp integerp floatp nil] 4 "\n\n(fn V)" stringp] 9 (#$ . 11046)])
#@93 Convert an elisp val into a string of C code specifying a var
of the same value.
(fn PAIR)
(defalias 'org-babel-C-var-to-C #[257 "\211@A\2119\203 \300!\262\211G\301U\203 \302!\262\303!\211@\304\"\211@A\305\306 %\266\205\207" [symbol-name 1 string-to-char org-babel-C-val-to-C-type org-babel-C-format-val format "%s %s%s = %s;"] 14 (#$ . 11850)])
#@70 Create constants of table dimensions, if PAIR is a table.
(fn PAIR)
(defalias 'org-babel-C-table-sizes-to-C #[257 "\211A<\205) \211A@<\203! \300\301@AG#\302\300\303@A@G#Q\207\300\303@AG#\207" [format "const int %s_rows = %d;" "\n" "const int %s_cols = %d;"] 7 (#$ . 12218)])
#@76 Generate a utility function to convert a column name
into a column number.
(defalias 'org-babel-C-utility-header-to-C #[0 "\301\267\202\n \302\207\303\207\304\207" [org-babel-c-variant #s(hash-table size 3 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (cpp 6 c 6 d 8)) "int get_column_num (int nbcols, const char** header, const char* column)\n{\n int c;\n for (c=0; c<nbcols; c++)\n if (strcmp(header[c],column)==0)\n return c;\n return -1;\n}\n" "int get_column_num (string[] header, string column)\n{\n foreach (c, h; header)\n if (h==column)\n return to!int(c);\n return -1;\n}\n" nil] 2 (#$ . 12506)])
#@121 Convert an elisp list of header table into a C or D vector
specifying a variable with the name of the table.
(fn HEAD)
(defalias 'org-babel-C-header-to-C #[257 "\211@A\301\302\267\202 \303\202 \304\202 \305G\306\307\310#$\311\312\267\202; \301\313\211G%\202< \301\314\211\211$\202< \305Q\207" [org-babel-c-variant format #s(hash-table size 3 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (cpp 11 c 11 d 15)) "const char* %s_header[%d] = {%s};" "string %s_header[%d] = [%s];" nil mapconcat #[257 "\300\301\"\207" [format "%S"] 4 "\n\n(fn H)"] "," "\n" #s(hash-table size 3 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (cpp 37 c 37 d 50)) "const char* %s_h (int row, const char* col) { return %s[row][get_column_num(%d,%s_header,col)]; }" "string %s_h (size_t row, string col) { return %s[row][get_column_num(%s_header,col)]; }"] 11 (#$ . 13160)])
(provide 'ob-C)
Mini Shell