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