FTP: Difference between revisions

Content added Content deleted
m (→‎{{header|FutureBasic}}: Inserted code indents)
Line 620: Line 620:


local fn RunTerminalCommand( cmd as CFStringRef ) as CFStringRef
local fn RunTerminalCommand( cmd as CFStringRef ) as CFStringRef
CFStringRef outputStr = NULL
'~'1
CFStringRef outputStr = NULL
TaskRef task = fn TaskInit

TaskSetExecutableURL( task, fn URLFileURLWithPath( @"/bin/zsh" ) )
TaskRef task = fn TaskInit
CFStringRef cmdStr = fn StringWithFormat( @"%@", cmd )
TaskSetExecutableURL( task, fn URLFileURLWithPath( @"/bin/zsh" ) )
CFStringRef cmdStr = fn StringWithFormat( @"%@", cmd )
CFArrayRef args = fn ArrayWithObjects( @"-c", cmdStr, NULL )
TaskSetArguments( task, args )
CFArrayRef args = fn ArrayWithObjects( @"-c", cmdStr, NULL )
TaskSetArguments( task, args )
PipeRef p = fn PipeInit

TaskSetStandardOutput( task, p )
PipeRef p = fn PipeInit
TaskSetStandardOutput( task, p )
TaskSetStandardError( task, p )
FileHandleRef fh = fn PipeFileHandleForReading( p )
TaskSetStandardError( task, p )
FileHandleRef fh = fn PipeFileHandleForReading( p )
fn TaskLaunch( task, NULL )

fn TaskLaunch( task, NULL )
TaskWaitUntilExit( task )
TaskWaitUntilExit( task )
ErrorRef err

CFDataRef dta = fn FileHandleReadDataToEndOfFile( fh, @err )
ErrorRef err
if err then NSLog( @"%@", fn ErrorLocalizedDescription( err ) ) : exit fn
CFDataRef dta = fn FileHandleReadDataToEndOfFile( fh, @err )
outputStr = fn StringWithData( dta, NSUTF8StringEncoding )
if err then NSLog( @"%@", fn ErrorLocalizedDescription( err ) ) : exit fn
outputStr = fn StringWithData( dta, NSUTF8StringEncoding )
end fn = outputStr
end fn = outputStr