Getting terminal data and printing it in CIW

Hi,

Here is a perfectible example to do so :

;printf("ret=shout(\"echo `date +F`TATA\")\n")

Hi,

Here is a perfectible example to do so :

;printf("ret=shout(\"echo `date +F`TATA\")\n")

I suppose that you can adapt the solution from this article very easily that it satisfies your needs.

Regards,

Matthias

Hi,

Thanks for the reply but ipcReadProcess is only giving me 1 line output.

I tried increasing the time limit but it still gives me less no of lines output

My testrun.sh file may give 1000 lines output

So I need a function which can print all that lines

Teja.

Hi,

A simple solution consists in piping your shell command to a file, then you just have to read and delete the file in SKILL

Otherwise using ipcBeginProcess, the following SKILL++ snippet should do the job nicely:

(inScheme
(defun shell_output (command)
  "Run COMMAND then return stdout, stderr and exit status it generated"
  (let ((stdout (outstring))
        (stderr (outstring))
        exit_status)
    (unwindProtect
      (progn
        ;; Run shell command and wait for it to finish
        (ipcWait
          (ipcBeginProcess command ""
            ;; Save stdout, stderr and exit status
            (lambda (_pid data) (fprintf stdout "%s" data))
            (lambda (_pid data) (fprintf stderr "%s" data))
            (lambda (_pid n   ) (setq exit_status n))
            ))
        ;; Return stdout, stderr and exit status
        (list (getOutstring stdout) (getOutstring stderr) exit_status)
        )
      ;; Properly close outstrings whatever happened before
      (progn (close stdout) (close stderr))
      )))
);inScheme

Note that if you want stdout and stderr in one string as they would have been printed to the terminal, you can remove stderr definition in the let and replace stderr by stdout in the second lambda

If you just want to print the output to the CIW and not get it in a string, you can also write a much simpler code

(defun shell_print (command)
  "Run COMMAND while printing its stdout and stderr to CIW. Always return t"
  ;; Run shell command and wait for it to finish
  (ipcWait
    (ipcBeginProcess command ""
      ;; Print stdout and stderr to CIW
      (lambda (_pid data) (printf "%s" data))
      (lambda (_pid data) (printf "%s" data))
      )))

Cheers,

Aurel

This is the code I was looking for

Thanks for your help

Teja.