Function: org-babel-execute:csh

org-babel-execute:csh is a byte-compiled function defined in ob-shell.el.gz.

Signature

(org-babel-execute:csh ARG1 ARG2)

Documentation

Execute a block of csh commands with Babel.

Source Code

;; Defined in /usr/src/emacs/lisp/org/ob-shell.el.gz
(defun org-babel-shell-initialize ()
  "Define execution functions associated to shell names.
This function has to be called whenever `org-babel-shell-names'
is modified outside the Customize interface."
  (interactive)
  (dolist (name org-babel-shell-names)
    (let ((fname (intern (concat "org-babel-execute:" name))))
      (defalias fname
        (lambda (body params)
	  (:documentation
           (format "Execute a block of %s commands with Babel." name))
	  (let ((explicit-shell-file-name name)
                (shell-file-name name))
	    (org-babel-execute:shell body params))))
      (put fname 'definition-name 'org-babel-shell-initialize))
    (let ((fname (intern (concat "org-babel-prep-session:" name))))
      (defalias fname
        (lambda (session params)
	  (:documentation
           (format "Prepare %s SESSION according to the header arguments specified in PARAMS." name))
	  (let ((explicit-shell-file-name name)
                (shell-file-name name))
	    (org-babel-prep-session:shell session params))))
      (put fname 'definition-name 'org-babel-shell-initialize))
    (let ((fname (intern (format "org-babel-%s-initiate-session" name))))
      (defalias fname
        (lambda (session _params)
	  (:documentation
           (format "Initiate %s session named SESSION." name))
	  (let ((explicit-shell-file-name name)
                (shell-file-name name))
	    (org-babel-sh-initiate-session session))))
      (put fname 'definition-name 'org-babel-shell-initialize))
    (defalias (intern (concat "org-babel-variable-assignments:" name))
      #'org-babel-variable-assignments:shell
      (format "Return list of %s statements assigning to the block's \
variables."
	      name))
    (funcall (if (fboundp 'defvar-1) #'defvar-1 #'set) ;Emacs-29
             (intern (concat "org-babel-default-header-args:" name))
             org-babel-default-header-args:shell)
    (funcall (if (fboundp 'defvar-1) #'defvar-1 #'set) ;Emacs-29
             (intern (concat "org-babel-header-args:" name))
             org-babel-header-args:shell)))