tec/org-mode
tec
/
org-mode
forked from mirrors/org-mode
1
0
Fork 0
Code Pull Requests Releases Activity

org-babel-c: new header argument ":main no" allows inhibiting main wrap

This commit is contained in:
Eric Schulte 2010-04-10 15:54:40 -06:00
parent 99a07f1d4a
commit 7cbb35920d
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
contrib/babel/lisp/langs/org-babel-C.el
View File

@ -77,6 +77,7 @@ called by `org-babel-execute-src-block'."
(cmdline (cdr (assoc :cmdline params))) (cmdline (cdr (assoc :cmdline params)))
(flags (cdr (assoc :flags params))) (flags (cdr (assoc :flags params)))
(vars (second processed-params)) (vars (second processed-params))
(main-p (not (string= (cdr (assoc :main params)) "no")))
(includes (or (cdr (assoc :includes params)) (includes (or (cdr (assoc :includes params))
(org-entry-get nil "includes" t))) (org-entry-get nil "includes" t)))
(defines (org-babel-read (defines (org-babel-read
@ -95,7 +96,9 @@ called by `org-babel-execute-src-block'."
;; variables ;; variables
(mapconcat 'org-babel-C-var-to-C vars "\n") (mapconcat 'org-babel-C-var-to-C vars "\n")
;; body ;; body
"\n" (org-babel-C-ensure-main-wrap body) "\n") "\n")) "\n" (if main-p
(org-babel-C-ensure-main-wrap body)
body) "\n") "\n"))
(error-buf (get-buffer-create "*Org-Babel Error Output*")) (error-buf (get-buffer-create "*Org-Babel Error Output*"))
(compile (compile
(progn (progn