Redirect poport to variable

Hi Lior,

How about this?

/* abPoportToString

Author     A.D.Beckett
Group      Custom IC (UK), Cadence Design Systems Ltd.
Language   SKILL
Date       Mar 07, 2019 
Modified   
By         

A macro to capture any output to poport (e.g. standard output) from
the code within the body of the call into a string (which is returned)

For example:

data=abPoportToString(
    ; code inside just writes to poport
    foreach(file sort(getDirFiles("/bin") 'alphalessp)
      printf("%s\n" file)
    )
  )

This will have all the file names in the directory /bin in a string
with newline between each file name, as produced by the printf.

So you could then do: printf("%s" data) and see the same text.

***************************************************

SCCS Info: @(#) abPoportToString.il 03/07/19.17:04:14 1.1

*/

(defmacro abPoportToString (@rest body)
  `(let ((_outputStringPort (outstring)))
     (unwindProtect
       (dynamicLet ((poport _outputStringPort))
                   ,@body
                   (getOutstring _outputStringPort)
                   )
       (close _outputStringPort)
       )
     )
  )

Regards,

Andrew.

Hi Andrew. I'll give it a try..

Hi Andrew. Works as expected. Thanks!