script0.stx
author convert-repo
Sun, 10 Feb 2019 04:31:24 +0000
changeset 1590 a1e0688b2f39
parent 1510 328cf54d3850
permissions -rwxr-xr-x
update tags
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
1510
328cf54d3850 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     1
#!stx --script
328cf54d3850 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     2
328cf54d3850 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     3
"/ shows command line arguments
328cf54d3850 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     4
"/
328cf54d3850 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     5
"/ run with:
328cf54d3850 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     6
"/   ./stc --script script0.stx one two three
328cf54d3850 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     7
"/ or:
328cf54d3850 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     8
"/   chmod +x stcript0.stx
328cf54d3850 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     9
"/   ./stscript0.stx one two three
328cf54d3850 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    10
328cf54d3850 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    11
'Command line arguments:' printCR.
328cf54d3850 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    12
'_$0: ' print. _$0 printCR.
328cf54d3850 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    13
'_$n: ' print. _$n printCR.
328cf54d3850 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    14
1 to: _$n do:[:idx |
328cf54d3850 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    15
   ('_$',idx asString,': ') print. (_$$ at:idx) printCR.
328cf54d3850 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    16
].
328cf54d3850 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    17
'_$$: ' print. _$$ printCR.