18 lines
586 B
Plaintext
18 lines
586 B
Plaintext
include "NSLog.incl"
|
|
|
|
local fn RunCommand( command as CFStringRef ) as CFStringRef
|
|
TaskRef tsk = fn TaskInit
|
|
TaskSetExecutableURL( tsk, fn URLFileURLWithPath( @"/bin/sh" ) )
|
|
TaskSetArguments( tsk, @[@"-c",command] )
|
|
PipeRef pip = fn PipeInit
|
|
TaskSetStandardOutput( tsk, pip )
|
|
FileHandleRef fh = fn PipeFileHandleForReading( pip )
|
|
fn TaskLaunch( tsk, NULL )
|
|
CFDataRef dta = fn FileHandleReadDataToEndOfFile( fh, NULL )
|
|
CFStringRef outputStr = fn StringWithData( dta, NSUTF8StringEncoding )
|
|
end fn = outputStr
|
|
|
|
NSLog( @"%@", fn RunCommand( @"cal 1969" ) )
|
|
|
|
HandleEvents
|