15 lines
333 B
Plaintext
15 lines
333 B
Plaintext
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
|