1* $Id: bq.sno,v 1.4 1997-09-14 04:36:57 phil Exp $ 2* execute a shell command line and capture stdout 3* 4* like shell backquotes (hence the name) 5* p budne, june 20, 1994 6 7* optional second arg is string to use to seperate lines 8 9 DEFINE("BQ(COMMAND,OFS)UNIT") :(END_BQ) 10BQ UNIT = IO_FINDUNIT() :F(FRETURN) 11 INPUT(.X,UNIT,,'|' COMMAND) :F(FRETURN) 12 OFS = IDENT(OFS) ' ' 13 BQ = X :F(BQF) 14BQL BQ = BQ OFS X :S(BQL) 15 ENDFILE(UNIT) 16 DETACH(.X) :(RETURN) 17BQF ENDFILE(UNIT) 18 DETACH(.X) :(FRETURN) 19END_BQ 20