script1.stx
author convert-repo
Fri, 20 Dec 2019 04:29:09 +0000
changeset 1619 71f3cbb5c172
parent 1498 71eac66f2d96
permissions -rwxr-xr-x
update tags
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
1498
71eac66f2d96 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1474
diff changeset
     1
#!/usr/bin/env stx --script
71eac66f2d96 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1474
diff changeset
     2
1349
cc4ef8ce80c7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     3
"/
1392
359fc4f22cd6 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1349
diff changeset
     4
"/ on any system:
359fc4f22cd6 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1349
diff changeset
     5
"/      "stx --script script1.stx
359fc4f22cd6 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1349
diff changeset
     6
"/ or:
359fc4f22cd6 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1349
diff changeset
     7
"/      "stx --f script.stx"
359fc4f22cd6 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1349
diff changeset
     8
"/ or:
359fc4f22cd6 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1349
diff changeset
     9
"/      "stx script1.stx"
359fc4f22cd6 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1349
diff changeset
    10
"/
359fc4f22cd6 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1349
diff changeset
    11
"/ on Unix:
359fc4f22cd6 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1349
diff changeset
    12
"/      make this file executable,
359fc4f22cd6 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1349
diff changeset
    13
"/      ensure that stx is in your path,
359fc4f22cd6 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1349
diff changeset
    14
"/      then type ./script1.stx
359fc4f22cd6 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1349
diff changeset
    15
"/
1474
5da7d89d0cae *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1392
diff changeset
    16
"/ will just print some numbers
1349
cc4ef8ce80c7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    17
"/
cc4ef8ce80c7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    18
1 to:10 do:[:i |
cc4ef8ce80c7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    19
   ('the factorial of %1 is %2'
cc4ef8ce80c7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    20
	bindWith:i with:i factorial) printCR
cc4ef8ce80c7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    21
].