Bug: Proposed new version of ob-C.el [8.3beta (release_8.3beta-944-g830cf3 @ /Users/snapp/.emacs.d/vendor/org/)]

[Robert Snapp <robert.snapp@uvm.edu>]

I must admit I am not a fan of the proposed changes to ob-C.el which seem to insert

  #include <string.h>
  #include <stdio.h>
  #include <stdlib.h>

during a tangle operation, without option. Currently, I am using C mode to tangle source written in GLSL (OpenGL shading language), which is syntactically similar to C. However the inclusion of the three includes triggers an error when the tangled GLSL files are compiled by OpenGL. I would appreciate if you either required users to specify each included header file in the #+src_begin line, or provide an option to suppress the three include statements described above. Alternatively, one could tangle GLSL files with the extensions (.glsl, .vert, and .frag) like C files without inserting any unrequested "#include" statements.

Thank you for your consideration.
Robert Snapp

==========

Emacs  : GNU Emacs 24.4.1 (x86_64-apple-darwin14.0.0)
 of 2014-11-19 on tenten-slave.macports.org
Package: Org-mode version 8.3beta (release_8.3beta-944-g830cf3 @ /Users/snapp/.emacs.d/vendor/org/)

current state:
==============
(setq
 org-hide-leading-stars t
 org-tab-first-hook '(org-hide-block-toggle-maybe org-babel-hide-result-toggle-maybe
                      org-babel-header-arg-expand)
 org-mobile-files '("~/org/journal.org" "~/org/dates.org" "~/org/todo.org"
                    "~/org/projects/")
 org-speed-command-hook '(org-speed-command-default-hook org-babel-speed-command-hook)
 org-occur-hook '(org-first-headline-recenter)
 org-metaup-hook '(org-babel-load-in-session-maybe)
 org-html-format-drawer-function '(lambda (name contents) contents)
 org-log-done 'time
 org-latex-minted-options '(("frame" "lines") ("fontsize" "\\scriptsize")
                            ("bgcolor" "WhiteSmoke"))
 org-src-window-setup 'current-window
 org-latex-format-inlinetask-function 'org-latex-format-inlinetask-default-function
 org-confirm-shell-link-function 'yes-or-no-p
 org-ascii-format-inlinetask-function 'org-ascii-format-inlinetask-default
 org-latex-pdf-process '("pdflatex -shell-escape -interaction nonstopmode -output-directory %o %f" "bibtex %b" "pdflatex -shell-escape -interaction nonstopmode -output-directory %o\
 %f" "pdflatex -shell-escape -interaction nonstopmode -output-directory %o %f")
 org-latex-format-headline-function 'org-latex-format-headline-default-function
 org-default-notes-file "~/org//notes.org"
 org-todo-keyword-faces '(("TODO" :foreground "red" :weight bold)
                          ("WAITING" :foreground "orange" :weight bold)
                          ("CANCELLED" :foreground "purple" :weight bold)
                          ("DONE" :foreground "forest green" :weight bold)
                          ("FIXME" :foreground "red" :weight bold)
                          ("FIXED" :foreground "forest green" :weight bold))
 org-capture-templates '(("t" "Todo" entry (file+headline "~/org/todo.org" "Tasks")
                          "* TODO %?\n %i\n %a")
                         ("j" "Journal" entry (file+datetree "~/org/journal.org")
                          "* %U %? %^g\n %i\n %a")
                         ("n" "Notes" entry (file+headline "~/org/notes.org" "Unfiled")
                          "* %?\n %i\n %a")
                         ("p" "Password" entry (file "~/org/sites.gpg")
                          "* %^{Account Name}\n %i\n %[~/org/templates/password.txt]")
                         )
 org-after-todo-state-change-hook '(org-clock-out-if-current)
 org-latex-format-drawer-function '(lambda (name contents) contents)
 org-from-is-user-regexp "\\<Robert Snapp\\>"
 org-src-mode-hook '(org-src-babel-configure-edit-buffer
                     org-src-mode-configure-edit-buffer)
 org-agenda-before-write-hook '(org-agenda-add-entry-text)
 org-babel-pre-tangle-hook '(save-buffer)
 org-mode-hook '(#[nil "\300\301\302\303\304$\207"
                   [org-add-hook before-save-hook org-encrypt-entries nil t] 5]
                 turn-on-visual-line-mode er/add-org-mode-expansions
  #[nil "\300\301\302\303\304$\207"
                   [org-add-hook change-major-mode-hook org-show-block-all append local]
                   5]
                 #[nil "\300\301\302\303\304$\207"
                   [org-add-hook change-major-mode-hook org-babel-show-result-all append
                    local]
                   5]
                 org-babel-result-hide-spec org-babel-hide-all-hashes
                 #[nil "\300\301!\207" [run-hooks prelude-org-mode-hook] 2]
                 org-journal-update-auto-mode-alist)
 org-refile-targets '((nil :maxlevel . 1) (org-agenda-files :maxlevel . 1))
 org-archive-hook '(org-attach-archive-delete-maybe)
 org-ascii-format-drawer-function '(lambda (name contents width) contents)
 org-ctrl-c-ctrl-c-hook '(org-babel-hash-at-point org-babel-execute-safely-maybe)
 org-directory "~/org/"
 org-cycle-hook '(org-cycle-hide-archived-subtrees org-cycle-hide-drawers
                  org-cycle-hide-inline-tasks org-cycle-show-empty-lines
                  org-optimize-window-after-visibility-change)
 org-tags-exclude-from-inheritance '("crypt" "project")
 org-crypt-key "snapp@cs.uvm.edu"
 org-todo-keywords '((sequence "TODO(t)" "WAITING(w)" "|" "DONE(d)")
                     (sequence "ERROR(e)" "|" "FIXED(f)") (sequence "|" "CANCELLED(c)"))
 org-babel-tangle-lang-exts '(("latex" . "tex") ("D" . "d") ("C++" . "cpp")
                              ("clojure" . "clj") ("emacs-lisp" . "el") ("elisp" . "el"))
 org-confirm-elisp-link-function 'yes-or-no-p
 org-metadown-hook '(org-babel-pop-to-session-maybe)
 org-latex-listings 'minted
 org-html-format-headline-function 'org-html-format-headline-default-function
 org-structure-template-alist '(("J"
                                 "#+name: ?\n#+begin_src clojure :results silent\n\n#+end_src" "<src id=\"?\" lang=clojure\"\">\n?\n</src>")
                                ("j" "#+begin_src clojure :results silent\n?\n#+end_src"
                                 "<src lang=\"clojure\">\n?\n</src>")
                                ("S" "#+name: ?\n#+begin_src \n\n#+end_src"
                                 "<src id=\"?\" lang=\"\">\n\n</src>")
                                ("s" "#+begin_src ?\n\n#+end_src"
                                 "<src lang=\"?\">\n\n</src>")
                                ("e" "#+begin_example\n?\n#+end_example"
                                 "<example>\n?\n</example>")
                                ("q" "#+begin_quote\n?\n#+end_quote"
                                 "<quote>\n?\n</quote>")
                                ("v" "#+BEGIN_VERSE\n?\n#+END_VERSE"
                                 "<verse>\n?\n</verse>")
                                ("c" "#+BEGIN_CENTER\n?\n#+END_CENTER"
                                 "<center>\n?\n</center>")
                                ("l" "#+BEGIN_LaTeX\n?\n#+END_LaTeX"
                                 "<literal style=\"latex\">\n?\n</literal>")
                                ("L" "#+latex: " "<literal style=\"latex\">?</literal>")
                                ("h" "#+begin_html\n?\n#+end_html"
                                 "<literal style=\"html\">\n?\n</literal>")
                                ("H" "#+html: " "<literal style=\"html\">?</literal>")
                                ("a" "#+begin_ascii\n?\n#+end_ascii") ("A" "#+ascii: ")
                                ("i" "#+index: ?" "#+index: ?")
                                ("I" "#+include %file ?"
                                 "<include file=%file markup=\"?\">")
                                )
 org-mobile-directory "~/Dropbox/MobileOrg"
 org-babel-load-languages '((C . t) (clojure . t) (emacs-lisp . t) (latex . t) (org . t))
 org-src-preserve-indentation t
 org-reveal-start-hook '(org-decrypt-entry)
 org-html-format-inlinetask-function 'org-html-format-inlinetask-default-function
 org-agenda-files '("~/org/dates.org" "~/org/todo.org" "~/org/projects/")
 org-clock-out-hook '(org-clock-remove-empty-clock-drawer)
 org-mobile-inbox-for-pull "~/org//inbox.org"
 org-tag-alist '((:startgroup) ("@COMPUTER" . 67) ("@ERRAND" . 69) ("@HOME" . 72)
                 ("@PHONE" . 80) ("@READING" . 82) ("@UVM" . 85) (:endgroup)
                 ("crypt" . 99) ("MEETING" . 109) ("PROGRAMMING" . 112)
                 ("READING" . 114) ("SYS_ADMIN" . 115) ("TEACHING" . 116))
 )


==========================================================================
Robert R. Snapp                                    | Office:  802-656-0735
Associate Professor                                | CS Dept: 802-656-3330
Department of Computer Science                     | iPhone:  802-598-1274 
University of Vermont                              |   
33 Colchester Ave.                                 |                        
Burlington, VT 05405 USA                           |
--------------------------------------------------------------------------
Office: 353 Votey Hall; Hours: Mon. 2:00–3:30 pm; Thu. 10:00-11:30 am;
and by appointment.            Home Page: http://www.cems.uvm.edu/~rsnapp/
==========================================================================