Calendar: Difference between revisions
m
→{{header|FutureBasic}}
Line 3,411:
=={{header|FutureBasic}}==
<lang futurebasic>// Legacy version
window 1, @"Calendar", (0, 0, 520, 520 )
Line 3,420 ⟶ 3,418:
open "UNIX", 1,"cal 1969"
do
line input #1, a
print a
until eof(1)
close 1
HandleEvents</lang>
<lang futurebasic>// Modern version
include "NSLog.incl"
local fn RunCommand( command as CFStringRef ) as CFStringRef
TaskRef tsk = fn TaskInit▼
TaskSetExecutableURL( tsk, fn URLFileURLWithPath( @"/bin/sh" ) )▼
▲TaskRef tsk = fn TaskInit
TaskSetArguments( tsk, @[@"-c",command] )▼
▲TaskSetExecutableURL( tsk, fn URLFileURLWithPath( @"/bin/sh" ) )
PipeRef pip = fn PipeInit▼
▲TaskSetArguments( tsk, @[@"-c",command] )
TaskSetStandardOutput( tsk, pip )▼
▲PipeRef pip = fn PipeInit
FileHandleRef fh = fn PipeFileHandleForReading( pip )▼
▲TaskSetStandardOutput( tsk, pip )
fn TaskLaunch( tsk, NULL )
▲FileHandleRef fh = fn PipeFileHandleForReading( pip )
CFDataRef dta = fn
CFStringRef outputStr = fn StringWithData( dta, NSUTF8StringEncoding )▼
▲CFStringRef outputStr = fn StringWithData( dta, NSUTF8StringEncoding )
end fn = outputStr
NSLog( @"%@", fn RunCommand( @"cal 1969" ) )
HandleEvents</lang>
Output of either version:
|