script1.stx
author Jan Vrany <jan.vrany@fit.cvut.cz>
Mon, 24 Sep 2018 20:52:34 +0100
branchjv
changeset 1579 e6c2667b4692
parent 1474 5da7d89d0cae
child 1498 71eac66f2d96
permissions -rwxr-xr-x
Fix bug when install `smalltalkx.svg` and `smalltalkx.desktop` when running from toy archive
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
1349
cc4ef8ce80c7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     1
#!stx --script
cc4ef8ce80c7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     2
"/
1392
359fc4f22cd6 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1349
diff changeset
     3
"/ on any system:
359fc4f22cd6 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1349
diff changeset
     4
"/      "stx --script script1.stx
359fc4f22cd6 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1349
diff changeset
     5
"/ or:
359fc4f22cd6 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1349
diff changeset
     6
"/      "stx --f script.stx"
359fc4f22cd6 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1349
diff changeset
     7
"/ or:
359fc4f22cd6 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1349
diff changeset
     8
"/      "stx script1.stx"
359fc4f22cd6 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1349
diff changeset
     9
"/
359fc4f22cd6 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1349
diff changeset
    10
"/ on Unix:
359fc4f22cd6 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1349
diff changeset
    11
"/      make this file executable,
359fc4f22cd6 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1349
diff changeset
    12
"/      ensure that stx is in your path,
359fc4f22cd6 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1349
diff changeset
    13
"/      then type ./script1.stx
359fc4f22cd6 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1349
diff changeset
    14
"/
1474
5da7d89d0cae *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1392
diff changeset
    15
"/ will just print some numbers
1349
cc4ef8ce80c7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    16
"/
cc4ef8ce80c7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    17
1 to:10 do:[:i |
cc4ef8ce80c7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    18
   ('the factorial of %1 is %2'
cc4ef8ce80c7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    19
	bindWith:i with:i factorial) printCR
cc4ef8ce80c7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    20
].