Calendar: Difference between revisions

Content added Content deleted

Inline

@@ Line 3,411: / Line 3,411: @@
 =={{header|FutureBasic}}==
-<lang futurebasic>
+<lang futurebasic>// Legacy version
-// Legacy version
 window 1, @"Calendar", (0, 0, 520, 520 )
@@ Line 3,420: / Line 3,418: @@
 open "UNIX", 1,"cal 1969"
 do
-line input #1, a
+  line input #1, a
-print a
+  print a
 until eof(1)
 close 1
-HandleEvents
+HandleEvents</lang>
-</lang>
-<lang futurebasic>
+<lang futurebasic>// Modern version
-// 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 )
-fn TaskLaunch( tsk, NULL )
+  CFDataRef dta = fn FileHandleReadDataToEndOfFile( fh, NULL )
+  CFStringRef outputStr = fn StringWithData( dta, NSUTF8StringEncoding )
-CFDataRef dta = fn FileHandleReadDataToEndOfFile( fh, NULL )
-CFStringRef outputStr = fn StringWithData( dta, NSUTF8StringEncoding )
 end fn = outputStr
 NSLog( @"%@", fn RunCommand( @"cal 1969" ) )
-HandleEvents
+HandleEvents</lang>
-</lang>
 Output of either version: