113 lines
5.1 KiB
Org Mode
113 lines
5.1 KiB
Org Mode
#+TITLE: Tests for default header arguments to Babel source blocks
|
|
#+OPTIONS: ^:nil
|
|
#+PROPERTY: header-args :var t1="gh1" t2="gh2_clobbered"
|
|
#+PROPERTY: header-args+ :var t4="gh4" t2="gh2" :var end=9
|
|
#+PROPERTY: header-args:emacs-lisp :var t1="ge1" t4="ge4_clobbered"
|
|
#+PROPERTY: header-args:emacs-lisp+ :var t4="ge4" :var t5="ge5"
|
|
#+PROPERTY: header-args:emacs-lisp+ :results silent :noweb yes
|
|
|
|
#+NAME: showvar
|
|
#+BEGIN_SRC emacs-lisp :execute no
|
|
(mapconcat (lambda (n)
|
|
(let* ((n (string (+ 48 n)))
|
|
(p (intern (concat "t" n))))
|
|
(if (boundp p) (eval p) (concat "--" n))))
|
|
(number-sequence 1 end)
|
|
"/")
|
|
#+END_SRC
|
|
|
|
* Global property
|
|
:PROPERTIES:
|
|
:ID: 3fdadb69-5d15-411e-aad0-f7860cdd7816
|
|
:END:
|
|
|
|
| Global | t1 | t2 | t3 | t4 | t5 | t6 | t7 | t8 | t9 |
|
|
|------------------------+-----+-----+-----+-----+-----+-----+-----+-----+-----|
|
|
| header-args | gh1 | gh2 | --- | gh4 | --- | --- | --- | --- | --- |
|
|
| header-args:emacs-lisp | ge1 | --- | --- | ge4 | ge5 | --- | --- | --- | --- |
|
|
|------------------------+-----+-----+-----+-----+-----+-----+-----+-----+-----|
|
|
| Result | ge1 | gh2 | --3 | ge4 | ge5 | --6 | --7 | --8 | --9 |
|
|
|
|
#+CALL: showvar() :results silent
|
|
#+BEGIN_SRC emacs-lisp :var end=7
|
|
<<showvar>>
|
|
#+END_SRC
|
|
|
|
* Tree property
|
|
** Overwrite
|
|
:PROPERTIES:
|
|
:ID: a9cdfeda-9f31-4bb5-b694-2cf452f07dfd
|
|
:header-args: :var t7="th7"
|
|
:header-args:emacs-lisp: :var t8="te8"
|
|
:header-args:emacs-lisp+: :results silent :noweb yes :var end=9
|
|
:END:
|
|
|
|
| Global | t1 | t2 | t3 | t4 | t5 | t6 | t7 | t8 | t9 |
|
|
|------------------------+-----+-----+-----+-----+-----+-----+-----+-----+-----|
|
|
| header-args | gh1 | gh2 | --- | gh4 | --- | --- | --- | --- | --- |
|
|
| header-args:emacs-lisp | ge1 | --- | --- | ge4 | ge5 | --- | --- | --- | --- |
|
|
|------------------------+-----+-----+-----+-----+-----+-----+-----+-----+-----|
|
|
| Tree | t1 | t2 | t3 | t4 | t5 | t6 | t7 | t8 | t9 |
|
|
|------------------------+-----+-----+-----+-----+-----+-----+-----+-----+-----|
|
|
| header-args | --- | --- | --- | --- | --- | --- | th7 | --- | --- |
|
|
| header-args:emacs-lisp | --- | --- | --- | --- | --- | --- | --- | te8 | --- |
|
|
|------------------------+-----+-----+-----+-----+-----+-----+-----+-----+-----|
|
|
| Result #+CALL | ge1 | gh2 | --3 | ge4 | ge5 | --6 | th7 | te8 | --9 |
|
|
| Result noweb | --1 | --2 | --3 | --4 | --5 | --6 | th7 | te8 | --9 |
|
|
|
|
#+CALL: showvar() :results silent
|
|
#+BEGIN_SRC emacs-lisp
|
|
<<showvar>>
|
|
#+END_SRC
|
|
|
|
** Accumulate
|
|
:PROPERTIES:
|
|
:ID: 1d97d258-fd50-4107-a095-e4625bffc57b
|
|
:header-args+: :var t2="th2" t3="th3"
|
|
:header-args:emacs-lisp+: :var t5="te5" end=8
|
|
:END:
|
|
|
|
| Global | t1 | t2 | t3 | t4 | t5 | t6 | t7 | t8 | t9 |
|
|
|-------------------------+-----+-----+-----+-----+-----+-----+-----+-----+-----|
|
|
| header-args | gh1 | gh2 | --- | gh4 | --- | --- | --- | --- | --- |
|
|
| header-args:emacs-lisp | ge1 | --- | --- | ge4 | ge5 | --- | --- | --- | --- |
|
|
|-------------------------+-----+-----+-----+-----+-----+-----+-----+-----+-----|
|
|
| Tree | t1 | t2 | t3 | t4 | t5 | t6 | t7 | t8 | t9 |
|
|
|-------------------------+-----+-----+-----+-----+-----+-----+-----+-----+-----|
|
|
| header-args+ | --- | th2 | th3 | --- | --- | --- | --- | --- | --- |
|
|
| header-args:emacs-lisp+ | --- | --- | --- | --- | te5 | --- | --- | --- | --- |
|
|
|-------------------------+-----+-----+-----+-----+-----+-----+-----+-----+-----|
|
|
| Result #+CALL | ge1 | th2 | th3 | ge4 | te5 | --6 | --7 | --8 | --9 |
|
|
| Result noweb | ge1 | th2 | th3 | ge4 | te5 | --6 | --7 | --8 | --9 |
|
|
|
|
#+CALL: showvar(end=6) :results silent
|
|
#+BEGIN_SRC emacs-lisp
|
|
<<showvar>>
|
|
#+END_SRC
|
|
|
|
** Complex
|
|
:PROPERTIES:
|
|
:ID: fa0e912d-d9b4-47b0-9f9e-1cbb39f7cbc2
|
|
:header-args+: :var t2="th2"
|
|
:header-args:emacs-lisp: :var t5="te5" end=7
|
|
:header-args:emacs-lisp+: :results silent :noweb yes :var end=9
|
|
:END:
|
|
|
|
| Global | t1 | t2 | t3 | t4 | t5 | t6 | t7 | t8 | t9 |
|
|
|------------------------+-----+-----+-----+-----+-----+-----+-----+-----+-----|
|
|
| header-args | gh1 | gh2 | --- | gh4 | --- | --- | --- | --- | --- |
|
|
| header-args:emacs-lisp | ge1 | --- | --- | ge4 | ge5 | --- | --- | --- | --- |
|
|
|------------------------+-----+-----+-----+-----+-----+-----+-----+-----+-----|
|
|
| Tree | t1 | t2 | t3 | t4 | t5 | t6 | t7 | t8 | t9 |
|
|
|------------------------+-----+-----+-----+-----+-----+-----+-----+-----+-----|
|
|
| header-args+ | --- | th2 | --- | --- | --- | --- | --- | --- | --- |
|
|
| header-args:emacs-lisp | --- | --- | --- | --- | te5 | --- | --- | --- | --- |
|
|
|------------------------+-----+-----+-----+-----+-----+-----+-----+-----+-----|
|
|
| Result #+CALL | gh1 | th2 | go3 | gh4 | te5 | --6 | --7 | --8 | --9 |
|
|
| Result noweb | gh1 | th2 | --3 | gh4 | te5 | --6 | --7 | --8 | --9 |
|
|
|
|
#+CALL: showvar(end=6) :results silent
|
|
#+BEGIN_SRC emacs-lisp
|
|
<<showvar>>
|
|
#+END_SRC
|