15 lines
333 B
Text
15 lines
333 B
Text
|
include "NSLog.incl"
|
||
|
|
|
||
|
|
void local fn DoCommandLineArguments
|
||
|
|
CFArrayRef args = fn ProcessInfoArguments
|
||
|
|
NSLog(@"This program is named %@.",args[0])
|
||
|
|
NSLog(@"There are %d arguments.",len(args)-1)
|
||
|
|
for long i = 1 to len(args)-1
|
||
|
|
NSLog(@"the argument #%d is %@", i, args[i])
|
||
|
|
next
|
||
|
|
end fn
|
||
|
|
|
||
|
|
fn DoCommandLineArguments
|
||
|
|
|
||
|
|
HandleEvents
|