Mercurial Mercurial > hg > stx-projects-smalltalk / annotate
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | file | latest | revisions | annotate | diff | comparison | raw | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
script1.stx
author Jan Vrany <jan.vrany@fit.cvut.cz>
Wed, 08 Jun 2016 00:20:44 +0100
branchjv
changeset 1440 b822d6dc20e7
parent 1392 359fc4f22cd6
child 1474 5da7d89d0cae
permissions -rwxr-xr-x
Merge
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
 
"/
1349
cc4ef8ce80c7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset 
    15
 
"/ just prints some numbers
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
 
].
hg/stx-projects-smalltalk