Re: [O] a minor patch to awk invocation

[Achim Gratz]

Eric Schulte writes:
> I can't reproduce these problems.  Could you provide examples, and maybe
> a stack traces?

The tests have all been done with "make vanilla" and
testing/examples/ob-awk-test.org.  The test failure is:

--8<---------------cut here---------------start------------->8---
(("tset:" "standard" "error:" "Inappropriate" "ioctl" "for" "device")
 ("" "" "" "" "" "" "")
 ("/bin/stty:" "standard" "input:" "Inappropriate" "ioctl" "for" "device")
 ("/usr/bin/stty:" "standard" "input:" "Inappropriate" "ioctl" "for" "device")
 (43 "" "" "" "" "" ""))
Test ob-awk/input-src-block-1 backtrace:
  =(43 (("tset:" "standard" "error:" "Inappropriate" "ioctl" "for" "de
  apply(= (43 (("tset:" "standard" "error:" "Inappropriate" "ioctl" "f
  (setq value-74 (apply fn-72 args-73))
  (unwind-protect (setq value-74 (apply fn-72 args-73)) (setq form-des
  (if (unwind-protect (setq value-74 (apply fn-72 args-73)) (setq form
  (let (form-description-76) (if (unwind-protect (setq value-74 (apply
  (let ((value-74 (quote ert-form-evaluation-aborted-75))) (let (form-
  (let ((fn-72 (function =)) (args-73 (list 43 (org-babel-execute-src-
  (save-restriction (org-babel-next-src-block 2) (let ((fn-72 (functio
  (progn (org-id-goto "9e998b2a-3581-43fe-b26d-07d3c507b86a") (setq to
  (unwind-protect (progn (org-id-goto "9e998b2a-3581-43fe-b26d-07d3c50
  (let ((save-match-data-internal (match-data))) (unwind-protect (prog
  (progn (let ((save-match-data-internal (match-data))) (unwind-protec
  (unwind-protect (progn (let ((save-match-data-internal (match-data))
  (let ((wconfig (current-window-configuration))) (unwind-protect (pro
  (unwind-protect (let ((wconfig (current-window-configuration))) (unw
  (let* ((id-location (org-id-find "9e998b2a-3581-43fe-b26d-07d3c507b8
  (lambda nil (let* ((id-location (org-id-find "9e998b2a-3581-43fe-b26
  byte-code("\306\307!▒q\210\310\216\311 \312\216\313\314\315\316\3
  ert--run-test-internal([cl-struct-ert--test-execution-info [cl-struc
  byte-code("\306\307!\211▒\211r\310\311!q\210\312 d\313\223)L\210)\3
  ert-run-test([cl-struct-ert-test ob-awk/input-src-block-1 "Test a co
  ert-run-or-rerun-test([cl-struct-ert--stats "ob-awk" [[cl-struct-ert
  ert-run-tests("ob-awk" #[(event-type &rest event-args) "\30\307\"\
  ert-run-tests-batch("ob-awk")
  ert-run-tests-batch-and-exit("ob-awk")
  (let ((org-id-track-globally t) (org-test-selector (if org-test-sele
  org-test-run-batch-tests("ob-awk")
  eval((org-test-run-batch-tests org-test-select-re))
  command-line-1(("--eval" "(setq vc-handled-backends nil org-startup-
  command-line()
  normal-top-level()
Test ob-awk/input-src-block-1 condition:
    (wrong-type-argument number-or-marker-p
                         (("tset:" "standard" "error:" "Inappropriate" "ioctl" 
"for" "device")
                          ("" "" "" "" "" "" "")
                          ("/bin/stty:" "standard" "input:" "Inappropriate" 
"ioctl" "for" "device")
                          ("/usr/bin/stty:" "standard" "input:" "Inappropriate" 
"ioctl" "for" "device")
                          (43 "" "" "" "" "" "")))
   FAILED  2/4  ob-awk/input-src-block-1
--8<---------------cut here---------------end--------------->8---

I've no idea how to get at the command line.  It is clear that awk gets
invoked and even delivers the right result, but somehow it is doing this
differently than before in the case where it uses STDIN.  I can't
reproduce with my own awk program on the command line.

The problem with "C-c C-v C-v" happens when invoking it on the
#+BEGIN_SRC line only (which interestingly enough works without error
once you've done it inside the source block first).


Regards,
Achim.
-- 
+<[Q+ Matrix-12 WAVE#46+305 Neuron microQkb Andromeda XTk Blofeld]>+

SD adaptations for Waldorf Q V3.00R3 and Q+ V3.54R2:
http://Synth.Stromeko.net/Downloads.html#WaldorfSDada