|
=={{header|FutureBasic}}==
REAL PROGRAMMERS USE THE COMMAND LINE. (ALL UPPERCASE...UGH! =;:^0 )
<syntaxhighlight lang="futurebasic">
INCLUDE "NSLOG.INCL"
LOCAL FN RUNTERMINALCOMMAND( CMD AS CFSTRINGREF ) AS CFSTRINGREF
include "NSLog.incl"
CFSTRINGREF OUTPUTSTR = NULL
local fn RunTerminalCommand( cmd as CFStringRef ) as CFStringRef
CFStringRef outputStr = NULL
TaskRefTASKREF taskTASK = fnFN TaskInitTASKINIT
TASKSETEXECUTABLEURL( TASK, FN URLFILEURLWITHPATH( FN STRINGLOWERCASESTRING( @"/BIN/ZSH" ) ) )
TaskSetExecutableURL( task, fn URLFileURLWithPath( @"/bin/zsh" ) )
CFStringRefCFSTRINGREF cmdStrCMDSTR = fnFN StringWithFormatSTRINGWITHFORMAT( @"%@", cmdFN STRINGLOWERCASESTRING( CMD ) )
CFArrayRefCFARRAYREF argsARGS = fnFN ArrayWithObjectsARRAYWITHOBJECTS( FN STRINGLOWERCASESTRING( @"-cC" ), cmdStrCMDSTR, NULL )
TaskSetArgumentsTASKSETARGUMENTS( taskTASK, argsARGS )
PipeRefPIPEREF pP = fnFN PipeInitPIPEINIT
TaskSetStandardOutputTASKSETSTANDARDOUTPUT( taskTASK, pP )
TaskSetStandardErrorTASKSETSTANDARDERROR( taskTASK, pP )
FileHandleRefFILEHANDLEREF fhFH = fnFN PipeFileHandleForReadingPIPEFILEHANDLEFORREADING( pP )
fnFN TaskLaunchTASKLAUNCH( taskTASK, NULL )
TaskWaitUntilExitTASKWAITUNTILEXIT( taskTASK )
ErrorRefERRORREF errERR
CFDataRefCFDATAREF dtaDTA = fnFN FileHandleReadDataToEndOfFileFILEHANDLEREADDATATOENDOFFILE( fhFH, @errERR )
ifIF errERR thenTHEN NSLogNSLOG( @"%@", fnFN ErrorLocalizedDescriptionERRORLOCALIZEDDESCRIPTION( errERR ) ) : exitEXIT fnFN
OUTPUTSTR = FN STRINGWITHDATA( DTA, NSUTF8STRINGENCODING )
outputStr = fn StringWithData( dta, NSUTF8StringEncoding )
OUTPUTSTR = FN STRINGUPPERCASESTRING( OUTPUTSTR )
outputStr = fn StringUppercaseString( outputStr )
endEND fnFN = outputStrOUTPUTSTR
VOID LOCAL FN BUILDSNOOPYCALENDAR
void local fn BuildSnoopyCalendar
CFStringRefCFSTRINGREF calStrCALSTR = fnFN StringWithFormatSTRINGWITHFORMAT( FN STRINGLOWERCASESTRING( @"\n%37s37S\n\n%@" ), fnFN StringUTF8StringSTRINGUTF8STRING( @"[SNOOPY HERE]" ), fnFN RunTerminalCommandRUNTERMINALCOMMAND( FN STRINGLOWERCASESTRING( @"calCAL 1969" ) ) )
NSLogNSLOG( @"%@", calStrCALSTR )
END FN
end fn
FN BUILDSNOOPYCALENDAR
fn BuildSnoopyCalendar
HANDLEEVENTS
HandleEvents
</syntaxhighlight>
{{output}}
30
</pre>
=={{header|Go}}==
|