Mercurial > repos > icfp2012

comparison src/sim.tp @ 17:998ef2173f28

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
colse stdout file descriptor
author William Morgan <bill@mrgn.org>
date Sat, 14 Jul 2012 11:08:17 -0700
parents 26cfb964fe81
children be6d1cf7b7d7 75a005b210c5
comparison
equal deleted inserted replaced
14:26cfb964fe81 17:998ef2173f28
194 if: (args length) < 2 { 194 if: (args length) < 2 {
195 print: "usage: sim filename\n" 195 print: "usage: sim filename\n"
196 } else: { 196 } else: {
197 text <- readFile: (args get: 1) 197 text <- readFile: (args get: 1)
198 print: text 198 print: text
199 os close: 1
199 simState <- state fromStr: text 200 simState <- state fromStr: text
200 while: { if: (simState ended) {false} else: {true} } do: { 201 while: { if: (simState ended) {false} else: {true} } do: {
201 simState advance: (getMove: ) 202 simState advance: (getMove: )
202 } 203 }
203 } 204 }