15 lines
258 B
Text
15 lines
258 B
Text
program shellout, rclass
|
|
tempfile f
|
|
tempname m
|
|
shell `0' > `f'
|
|
file open `m' using "`f'", read binary
|
|
file seek `m' eof
|
|
file seek `m' query
|
|
local n=r(loc)
|
|
if `n'>0 {
|
|
file seek `m' tof
|
|
file read `m' %`n's s
|
|
file close `m'
|
|
return local out "`s'"
|
|
}
|
|
end
|