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

fixed bug in org-babel-execute:C

This commit is contained in:
Eric Schulte 2010-04-22 19:33:01 -06:00
parent 59251c8d08
commit 9124e9055d
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -61,7 +61,7 @@ called by `org-babel-execute-src-block'."
(defun org-babel-expand-body:c++ (body params &optional processed-params) (defun org-babel-expand-body:c++ (body params &optional processed-params)
"Expand a block of C++ code with org-babel according to it's "Expand a block of C++ code with org-babel according to it's
header arguments (calls `org-babel-C-expand')." header arguments (calls `org-babel-C-expand')."
(let ((c-variant 'cpp)) (org-babel-C-expand body params))) (let ((c-variant 'cpp)) (org-babel-C-expand body params processed-params)))
(defun org-babel-execute:C (body params) (defun org-babel-execute:C (body params)
"Execute a block of C code with org-babel. This function is "Execute a block of C code with org-babel. This function is
@ -71,13 +71,14 @@ called by `org-babel-execute-src-block'."
(defun org-babel-expand-body:c (body params &optional processed-params) (defun org-babel-expand-body:c (body params &optional processed-params)
"Expand a block of C code with org-babel according to it's "Expand a block of C code with org-babel according to it's
header arguments (calls `org-babel-C-expand')." header arguments (calls `org-babel-C-expand')."
(let ((c-variant 'c)) (org-babel-C-expand body params))) (let ((c-variant 'c)) (org-babel-C-expand body params processed-params)))
(defun org-babel-C-execute (body params) (defun org-babel-C-execute (body params)
"This should only be called by `org-babel-execute:C' or "This should only be called by `org-babel-execute:C' or
`org-babel-execute:c++'." `org-babel-execute:c++'."
(message "executing C source code block") (message "executing C source code block")
(let* ((tmp-src-file (make-temp-file "org-babel-C-src" nil (let* ((processed-params (org-babel-process-params params))
(tmp-src-file (make-temp-file "org-babel-C-src" nil
(case c-variant (case c-variant
('c ".c") ('c ".c")
('cpp ".cpp")))) ('cpp ".cpp"))))