repos/icfp2012: src/sim.tp annotate

annotate src/sim.tp @ 10:370a1eeb8812

merge and stuff

author	William Morgan <bill@mrgn.org>
date	Sat, 14 Jul 2012 01:58:43 -0700
parents	66ea6fdd3fcb
children	f28e465e9ee6

rev	line source
3 bb29dcd46cbf Put dummy code in placeholder source files. Create makefile. Mike Pavone <pavone@retrodev.com> parents: 0 diff changeset	1 #{
10 370a1eeb8812 merge and stuff William Morgan <bill@mrgn.org> parents: 9 diff changeset	2
370a1eeb8812 merge and stuff William Morgan <bill@mrgn.org> parents: 9 diff changeset	3 // utilities
5 be946b2a2cbc initial barf into simulator file William Morgan <bill@mrgn.org> parents: 3 diff changeset	4 true <- #{
be946b2a2cbc initial barf into simulator file William Morgan <bill@mrgn.org> parents: 3 diff changeset	5 if:else <- :self trueblock :elseblock {
be946b2a2cbc initial barf into simulator file William Morgan <bill@mrgn.org> parents: 3 diff changeset	6 trueblock:
be946b2a2cbc initial barf into simulator file William Morgan <bill@mrgn.org> parents: 3 diff changeset	7 }
be946b2a2cbc initial barf into simulator file William Morgan <bill@mrgn.org> parents: 3 diff changeset	8 }
be946b2a2cbc initial barf into simulator file William Morgan <bill@mrgn.org> parents: 3 diff changeset	9
be946b2a2cbc initial barf into simulator file William Morgan <bill@mrgn.org> parents: 3 diff changeset	10 false <- #{
be946b2a2cbc initial barf into simulator file William Morgan <bill@mrgn.org> parents: 3 diff changeset	11 if:else <- :self trueblock :elseblock {
be946b2a2cbc initial barf into simulator file William Morgan <bill@mrgn.org> parents: 3 diff changeset	12 elseblock:
be946b2a2cbc initial barf into simulator file William Morgan <bill@mrgn.org> parents: 3 diff changeset	13 }
be946b2a2cbc initial barf into simulator file William Morgan <bill@mrgn.org> parents: 3 diff changeset	14 }
be946b2a2cbc initial barf into simulator file William Morgan <bill@mrgn.org> parents: 3 diff changeset	15
10 370a1eeb8812 merge and stuff William Morgan <bill@mrgn.org> parents: 9 diff changeset	16 foreach <- :string action {
370a1eeb8812 merge and stuff William Morgan <bill@mrgn.org> parents: 9 diff changeset	17 strLen <- string byte_length:
370a1eeb8812 merge and stuff William Morgan <bill@mrgn.org> parents: 9 diff changeset	18 index <- 0
370a1eeb8812 merge and stuff William Morgan <bill@mrgn.org> parents: 9 diff changeset	19 while: {index < strLen} do {
370a1eeb8812 merge and stuff William Morgan <bill@mrgn.org> parents: 9 diff changeset	20 element <- (string byte: index)
370a1eeb8812 merge and stuff William Morgan <bill@mrgn.org> parents: 9 diff changeset	21 action: index element
370a1eeb8812 merge and stuff William Morgan <bill@mrgn.org> parents: 9 diff changeset	22 index <- index + 1
370a1eeb8812 merge and stuff William Morgan <bill@mrgn.org> parents: 9 diff changeset	23 }
370a1eeb8812 merge and stuff William Morgan <bill@mrgn.org> parents: 9 diff changeset	24 }
370a1eeb8812 merge and stuff William Morgan <bill@mrgn.org> parents: 9 diff changeset	25 // end utilities
370a1eeb8812 merge and stuff William Morgan <bill@mrgn.org> parents: 9 diff changeset	26
370a1eeb8812 merge and stuff William Morgan <bill@mrgn.org> parents: 9 diff changeset	27
7 1bd46f854dbb progress on sim, celltypes as objects William Morgan <bill@mrgn.org> parents: 6 diff changeset	28 cellTypes <- #{
1bd46f854dbb progress on sim, celltypes as objects William Morgan <bill@mrgn.org> parents: 6 diff changeset	29 allstr <- #[]
1bd46f854dbb progress on sim, celltypes as objects William Morgan <bill@mrgn.org> parents: 6 diff changeset	30 allobj <- #[]
10 370a1eeb8812 merge and stuff William Morgan <bill@mrgn.org> parents: 9 diff changeset	31 new <- :idstr {
7 1bd46f854dbb progress on sim, celltypes as objects William Morgan <bill@mrgn.org> parents: 6 diff changeset	32 ret <- #{
1bd46f854dbb progress on sim, celltypes as objects William Morgan <bill@mrgn.org> parents: 6 diff changeset	33 id <- (idstr byte: 0)
10 370a1eeb8812 merge and stuff William Morgan <bill@mrgn.org> parents: 9 diff changeset	34 isrobot <- { false }
7 1bd46f854dbb progress on sim, celltypes as objects William Morgan <bill@mrgn.org> parents: 6 diff changeset	35 }
1bd46f854dbb progress on sim, celltypes as objects William Morgan <bill@mrgn.org> parents: 6 diff changeset	36 allobj append: ret
1bd46f854dbb progress on sim, celltypes as objects William Morgan <bill@mrgn.org> parents: 6 diff changeset	37 allstr append: idstr
1bd46f854dbb progress on sim, celltypes as objects William Morgan <bill@mrgn.org> parents: 6 diff changeset	38 ret
1bd46f854dbb progress on sim, celltypes as objects William Morgan <bill@mrgn.org> parents: 6 diff changeset	39 }
1bd46f854dbb progress on sim, celltypes as objects William Morgan <bill@mrgn.org> parents: 6 diff changeset	40 find <- :idstr {
1bd46f854dbb progress on sim, celltypes as objects William Morgan <bill@mrgn.org> parents: 6 diff changeset	41 if: idstr = "R" { robot } else: {
1bd46f854dbb progress on sim, celltypes as objects William Morgan <bill@mrgn.org> parents: 6 diff changeset	42 index <- 0
1bd46f854dbb progress on sim, celltypes as objects William Morgan <bill@mrgn.org> parents: 6 diff changeset	43 while: {
1bd46f854dbb progress on sim, celltypes as objects William Morgan <bill@mrgn.org> parents: 6 diff changeset	44 if: index < (allstr length) {
1bd46f854dbb progress on sim, celltypes as objects William Morgan <bill@mrgn.org> parents: 6 diff changeset	45 (allstr get: index) != idstr
1bd46f854dbb progress on sim, celltypes as objects William Morgan <bill@mrgn.org> parents: 6 diff changeset	46 } else: {false}
1bd46f854dbb progress on sim, celltypes as objects William Morgan <bill@mrgn.org> parents: 6 diff changeset	47 } do: {
1bd46f854dbb progress on sim, celltypes as objects William Morgan <bill@mrgn.org> parents: 6 diff changeset	48 index <- index + 1
1bd46f854dbb progress on sim, celltypes as objects William Morgan <bill@mrgn.org> parents: 6 diff changeset	49 }
1bd46f854dbb progress on sim, celltypes as objects William Morgan <bill@mrgn.org> parents: 6 diff changeset	50 if: index <- (allstr length) {
1bd46f854dbb progress on sim, celltypes as objects William Morgan <bill@mrgn.org> parents: 6 diff changeset	51 allobj get: index
1bd46f854dbb progress on sim, celltypes as objects William Morgan <bill@mrgn.org> parents: 6 diff changeset	52 } else: {
1bd46f854dbb progress on sim, celltypes as objects William Morgan <bill@mrgn.org> parents: 6 diff changeset	53 empty
1bd46f854dbb progress on sim, celltypes as objects William Morgan <bill@mrgn.org> parents: 6 diff changeset	54 }
1bd46f854dbb progress on sim, celltypes as objects William Morgan <bill@mrgn.org> parents: 6 diff changeset	55 }
1bd46f854dbb progress on sim, celltypes as objects William Morgan <bill@mrgn.org> parents: 6 diff changeset	56 }
10 370a1eeb8812 merge and stuff William Morgan <bill@mrgn.org> parents: 9 diff changeset	57 wall <- new: "#"
370a1eeb8812 merge and stuff William Morgan <bill@mrgn.org> parents: 9 diff changeset	58 empty <- new: " "
370a1eeb8812 merge and stuff William Morgan <bill@mrgn.org> parents: 9 diff changeset	59 earth <- new: "."
370a1eeb8812 merge and stuff William Morgan <bill@mrgn.org> parents: 9 diff changeset	60 rock <- new: "*"
370a1eeb8812 merge and stuff William Morgan <bill@mrgn.org> parents: 9 diff changeset	61 lambda <- new: "\\"
370a1eeb8812 merge and stuff William Morgan <bill@mrgn.org> parents: 9 diff changeset	62 closedlift <- new: "L"
370a1eeb8812 merge and stuff William Morgan <bill@mrgn.org> parents: 9 diff changeset	63 openlift <- new: "O"
370a1eeb8812 merge and stuff William Morgan <bill@mrgn.org> parents: 9 diff changeset	64 newline <- new: "\n"
7 1bd46f854dbb progress on sim, celltypes as objects William Morgan <bill@mrgn.org> parents: 6 diff changeset	65 robot <- {
1bd46f854dbb progress on sim, celltypes as objects William Morgan <bill@mrgn.org> parents: 6 diff changeset	66 #{
1bd46f854dbb progress on sim, celltypes as objects William Morgan <bill@mrgn.org> parents: 6 diff changeset	67 id <- ("R" byte: 0)
10 370a1eeb8812 merge and stuff William Morgan <bill@mrgn.org> parents: 9 diff changeset	68 isrobot <- { true }
7 1bd46f854dbb progress on sim, celltypes as objects William Morgan <bill@mrgn.org> parents: 6 diff changeset	69 heldBreath <- 0
1bd46f854dbb progress on sim, celltypes as objects William Morgan <bill@mrgn.org> parents: 6 diff changeset	70 }
5 be946b2a2cbc initial barf into simulator file William Morgan <bill@mrgn.org> parents: 3 diff changeset	71 }
be946b2a2cbc initial barf into simulator file William Morgan <bill@mrgn.org> parents: 3 diff changeset	72
be946b2a2cbc initial barf into simulator file William Morgan <bill@mrgn.org> parents: 3 diff changeset	73 state <- #{
6 86cdb799f950 unbarfed some things William Morgan <bill@mrgn.org> parents: 5 diff changeset	74 new <- :in_grid in_width in_height {
10 370a1eeb8812 merge and stuff William Morgan <bill@mrgn.org> parents: 9 diff changeset	75 nextGrid <- #[]
370a1eeb8812 merge and stuff William Morgan <bill@mrgn.org> parents: 9 diff changeset	76 robot <- false
5 be946b2a2cbc initial barf into simulator file William Morgan <bill@mrgn.org> parents: 3 diff changeset	77 foreach: in_grid :index el{
10 370a1eeb8812 merge and stuff William Morgan <bill@mrgn.org> parents: 9 diff changeset	78 nextGrid append: el
370a1eeb8812 merge and stuff William Morgan <bill@mrgn.org> parents: 9 diff changeset	79 if: (el isrobot) { robot <- el } else: { true }
5 be946b2a2cbc initial barf into simulator file William Morgan <bill@mrgn.org> parents: 3 diff changeset	80 }
be946b2a2cbc initial barf into simulator file William Morgan <bill@mrgn.org> parents: 3 diff changeset	81 #{
8 5941e6b3684c Read map file in simulator Mike Pavone <pavone@retrodev.com> parents: 6 diff changeset	82 grid <- in_grid
5 be946b2a2cbc initial barf into simulator file William Morgan <bill@mrgn.org> parents: 3 diff changeset	83 width <- in_width
be946b2a2cbc initial barf into simulator file William Morgan <bill@mrgn.org> parents: 3 diff changeset	84 height <- in_height
be946b2a2cbc initial barf into simulator file William Morgan <bill@mrgn.org> parents: 3 diff changeset	85 address <- :x y { x + y * width }
10 370a1eeb8812 merge and stuff William Morgan <bill@mrgn.org> parents: 9 diff changeset	86 setCell <- :x y val {
370a1eeb8812 merge and stuff William Morgan <bill@mrgn.org> parents: 9 diff changeset	87 grid set: (address: x y) val
5 be946b2a2cbc initial barf into simulator file William Morgan <bill@mrgn.org> parents: 3 diff changeset	88 }
be946b2a2cbc initial barf into simulator file William Morgan <bill@mrgn.org> parents: 3 diff changeset	89 getCell <- :x y {
be946b2a2cbc initial barf into simulator file William Morgan <bill@mrgn.org> parents: 3 diff changeset	90 grid get: (address: x y)
be946b2a2cbc initial barf into simulator file William Morgan <bill@mrgn.org> parents: 3 diff changeset	91 }
7 1bd46f854dbb progress on sim, celltypes as objects William Morgan <bill@mrgn.org> parents: 6 diff changeset	92 water <- 0
1bd46f854dbb progress on sim, celltypes as objects William Morgan <bill@mrgn.org> parents: 6 diff changeset	93 flooding <- 0
1bd46f854dbb progress on sim, celltypes as objects William Morgan <bill@mrgn.org> parents: 6 diff changeset	94 waterproof <- 10
5 be946b2a2cbc initial barf into simulator file William Morgan <bill@mrgn.org> parents: 3 diff changeset	95 collected <- 0
be946b2a2cbc initial barf into simulator file William Morgan <bill@mrgn.org> parents: 3 diff changeset	96 moves <- 0
be946b2a2cbc initial barf into simulator file William Morgan <bill@mrgn.org> parents: 3 diff changeset	97 ended <- false
6 86cdb799f950 unbarfed some things William Morgan <bill@mrgn.org> parents: 5 diff changeset	98 doMove <- :roboMove {
7 1bd46f854dbb progress on sim, celltypes as objects William Morgan <bill@mrgn.org> parents: 6 diff changeset	99
1bd46f854dbb progress on sim, celltypes as objects William Morgan <bill@mrgn.org> parents: 6 diff changeset	100 robo <- doMove r
1bd46f854dbb progress on sim, celltypes as objects William Morgan <bill@mrgn.org> parents: 6 diff changeset	101 nexty <- doMove y
6 86cdb799f950 unbarfed some things William Morgan <bill@mrgn.org> parents: 5 diff changeset	102 ended <- roboMove = "A"
86cdb799f950 unbarfed some things William Morgan <bill@mrgn.org> parents: 5 diff changeset	103 }
7 1bd46f854dbb progress on sim, celltypes as objects William Morgan <bill@mrgn.org> parents: 6 diff changeset	104 doUpdate <- {
1bd46f854dbb progress on sim, celltypes as objects William Morgan <bill@mrgn.org> parents: 6 diff changeset	105 updateCell <- :x, y {
1bd46f854dbb progress on sim, celltypes as objects William Morgan <bill@mrgn.org> parents: 6 diff changeset	106 if
1bd46f854dbb progress on sim, celltypes as objects William Morgan <bill@mrgn.org> parents: 6 diff changeset	107 }
1bd46f854dbb progress on sim, celltypes as objects William Morgan <bill@mrgn.org> parents: 6 diff changeset	108 }
1bd46f854dbb progress on sim, celltypes as objects William Morgan <bill@mrgn.org> parents: 6 diff changeset	109 advance <- :roboCmd {
1bd46f854dbb progress on sim, celltypes as objects William Morgan <bill@mrgn.org> parents: 6 diff changeset	110 robot move: roboCmd
6 86cdb799f950 unbarfed some things William Morgan <bill@mrgn.org> parents: 5 diff changeset	111 moves <- moves + 1
7 1bd46f854dbb progress on sim, celltypes as objects William Morgan <bill@mrgn.org> parents: 6 diff changeset	112 doUpdate:
6 86cdb799f950 unbarfed some things William Morgan <bill@mrgn.org> parents: 5 diff changeset	113 self
5 be946b2a2cbc initial barf into simulator file William Morgan <bill@mrgn.org> parents: 3 diff changeset	114 }
be946b2a2cbc initial barf into simulator file William Morgan <bill@mrgn.org> parents: 3 diff changeset	115
be946b2a2cbc initial barf into simulator file William Morgan <bill@mrgn.org> parents: 3 diff changeset	116 }
be946b2a2cbc initial barf into simulator file William Morgan <bill@mrgn.org> parents: 3 diff changeset	117 }
be946b2a2cbc initial barf into simulator file William Morgan <bill@mrgn.org> parents: 3 diff changeset	118 fromStr <- :str {
10 370a1eeb8812 merge and stuff William Morgan <bill@mrgn.org> parents: 9 diff changeset	119
5 be946b2a2cbc initial barf into simulator file William Morgan <bill@mrgn.org> parents: 3 diff changeset	120 strLen <- str byte_length:
be946b2a2cbc initial barf into simulator file William Morgan <bill@mrgn.org> parents: 3 diff changeset	121 maxRow <- 0
be946b2a2cbc initial barf into simulator file William Morgan <bill@mrgn.org> parents: 3 diff changeset	122 curRow <- 0
10 370a1eeb8812 merge and stuff William Morgan <bill@mrgn.org> parents: 9 diff changeset	123 foreach: str :index element {
370a1eeb8812 merge and stuff William Morgan <bill@mrgn.org> parents: 9 diff changeset	124 if: element = ((cellTypes newline) id) {
370a1eeb8812 merge and stuff William Morgan <bill@mrgn.org> parents: 9 diff changeset	125 maxRow <- if: curRow > maxRow {curRow} else: {maxRow}
370a1eeb8812 merge and stuff William Morgan <bill@mrgn.org> parents: 9 diff changeset	126 curRow <- 0
370a1eeb8812 merge and stuff William Morgan <bill@mrgn.org> parents: 9 diff changeset	127 } else: {
370a1eeb8812 merge and stuff William Morgan <bill@mrgn.org> parents: 9 diff changeset	128 curRow <- curRow + 1
370a1eeb8812 merge and stuff William Morgan <bill@mrgn.org> parents: 9 diff changeset	129 }
370a1eeb8812 merge and stuff William Morgan <bill@mrgn.org> parents: 9 diff changeset	130 }
370a1eeb8812 merge and stuff William Morgan <bill@mrgn.org> parents: 9 diff changeset	131
370a1eeb8812 merge and stuff William Morgan <bill@mrgn.org> parents: 9 diff changeset	132 foreach: str :index element {
370a1eeb8812 merge and stuff William Morgan <bill@mrgn.org> parents: 9 diff changeset	133 if: element = ((cellTypes newline) id) {
370a1eeb8812 merge and stuff William Morgan <bill@mrgn.org> parents: 9 diff changeset	134 // add spaces
370a1eeb8812 merge and stuff William Morgan <bill@mrgn.org> parents: 9 diff changeset	135 curRow <- 0
5 be946b2a2cbc initial barf into simulator file William Morgan <bill@mrgn.org> parents: 3 diff changeset	136 } else: {
be946b2a2cbc initial barf into simulator file William Morgan <bill@mrgn.org> parents: 3 diff changeset	137 curRow = curRow + 1
be946b2a2cbc initial barf into simulator file William Morgan <bill@mrgn.org> parents: 3 diff changeset	138 }
be946b2a2cbc initial barf into simulator file William Morgan <bill@mrgn.org> parents: 3 diff changeset	139 }
be946b2a2cbc initial barf into simulator file William Morgan <bill@mrgn.org> parents: 3 diff changeset	140 grid <- #[ ("#" byte: 0) ("#" byte: 0) ("#" byte: 0) ( "#" byte: 0) (" " byte: 0) ("#" byte: 0) ( "#" byte: 0) ("#" byte: 0) ("#" byte: 0)]
be946b2a2cbc initial barf into simulator file William Morgan <bill@mrgn.org> parents: 3 diff changeset	141 fresh <- new: grid 3 3
8 5941e6b3684c Read map file in simulator Mike Pavone <pavone@retrodev.com> parents: 6 diff changeset	142 fresh
5 be946b2a2cbc initial barf into simulator file William Morgan <bill@mrgn.org> parents: 3 diff changeset	143 }
be946b2a2cbc initial barf into simulator file William Morgan <bill@mrgn.org> parents: 3 diff changeset	144 }
be946b2a2cbc initial barf into simulator file William Morgan <bill@mrgn.org> parents: 3 diff changeset	145
be946b2a2cbc initial barf into simulator file William Morgan <bill@mrgn.org> parents: 3 diff changeset	146 testMoves <- {
be946b2a2cbc initial barf into simulator file William Morgan <bill@mrgn.org> parents: 3 diff changeset	147 myStep <- 0
be946b2a2cbc initial barf into simulator file William Morgan <bill@mrgn.org> parents: 3 diff changeset	148 {
be946b2a2cbc initial barf into simulator file William Morgan <bill@mrgn.org> parents: 3 diff changeset	149 print: (string: myStep)
be946b2a2cbc initial barf into simulator file William Morgan <bill@mrgn.org> parents: 3 diff changeset	150 myStep <- myStep + 1
be946b2a2cbc initial barf into simulator file William Morgan <bill@mrgn.org> parents: 3 diff changeset	151 if: myStep > 5 {"A"} else: {"W"}
be946b2a2cbc initial barf into simulator file William Morgan <bill@mrgn.org> parents: 3 diff changeset	152 }
be946b2a2cbc initial barf into simulator file William Morgan <bill@mrgn.org> parents: 3 diff changeset	153 }
be946b2a2cbc initial barf into simulator file William Morgan <bill@mrgn.org> parents: 3 diff changeset	154
8 5941e6b3684c Read map file in simulator Mike Pavone <pavone@retrodev.com> parents: 6 diff changeset	155 readFile <- :path {
5941e6b3684c Read map file in simulator Mike Pavone <pavone@retrodev.com> parents: 6 diff changeset	156 fd <- os open: path (os O_RDONLY)
5941e6b3684c Read map file in simulator Mike Pavone <pavone@retrodev.com> parents: 6 diff changeset	157 print: "fd: " . fd . "\n"
5941e6b3684c Read map file in simulator Mike Pavone <pavone@retrodev.com> parents: 6 diff changeset	158 if: fd < 0 { "" } else: {
5941e6b3684c Read map file in simulator Mike Pavone <pavone@retrodev.com> parents: 6 diff changeset	159 cur <- ""
5941e6b3684c Read map file in simulator Mike Pavone <pavone@retrodev.com> parents: 6 diff changeset	160 part <- ""
5941e6b3684c Read map file in simulator Mike Pavone <pavone@retrodev.com> parents: 6 diff changeset	161 while: {
5941e6b3684c Read map file in simulator Mike Pavone <pavone@retrodev.com> parents: 6 diff changeset	162 part <- os read: fd 128
5941e6b3684c Read map file in simulator Mike Pavone <pavone@retrodev.com> parents: 6 diff changeset	163 print: "read: " . part . "\n"
5941e6b3684c Read map file in simulator Mike Pavone <pavone@retrodev.com> parents: 6 diff changeset	164 part != ""
5941e6b3684c Read map file in simulator Mike Pavone <pavone@retrodev.com> parents: 6 diff changeset	165 } do: {
5941e6b3684c Read map file in simulator Mike Pavone <pavone@retrodev.com> parents: 6 diff changeset	166 cur <- cur . part
5941e6b3684c Read map file in simulator Mike Pavone <pavone@retrodev.com> parents: 6 diff changeset	167 }
5941e6b3684c Read map file in simulator Mike Pavone <pavone@retrodev.com> parents: 6 diff changeset	168 os close: fd
5941e6b3684c Read map file in simulator Mike Pavone <pavone@retrodev.com> parents: 6 diff changeset	169 cur
5941e6b3684c Read map file in simulator Mike Pavone <pavone@retrodev.com> parents: 6 diff changeset	170 }
5941e6b3684c Read map file in simulator Mike Pavone <pavone@retrodev.com> parents: 6 diff changeset	171 }
5941e6b3684c Read map file in simulator Mike Pavone <pavone@retrodev.com> parents: 6 diff changeset	172
5941e6b3684c Read map file in simulator Mike Pavone <pavone@retrodev.com> parents: 6 diff changeset	173 getMove <- {
5941e6b3684c Read map file in simulator Mike Pavone <pavone@retrodev.com> parents: 6 diff changeset	174 os read: 0 1
3 bb29dcd46cbf Put dummy code in placeholder source files. Create makefile. Mike Pavone <pavone@retrodev.com> parents: 0 diff changeset	175 }
5 be946b2a2cbc initial barf into simulator file William Morgan <bill@mrgn.org> parents: 3 diff changeset	176
8 5941e6b3684c Read map file in simulator Mike Pavone <pavone@retrodev.com> parents: 6 diff changeset	177 main <- :args {
5941e6b3684c Read map file in simulator Mike Pavone <pavone@retrodev.com> parents: 6 diff changeset	178 if: (args length) < 2 {
5941e6b3684c Read map file in simulator Mike Pavone <pavone@retrodev.com> parents: 6 diff changeset	179 print: "usage: sim filename\n"
5941e6b3684c Read map file in simulator Mike Pavone <pavone@retrodev.com> parents: 6 diff changeset	180 } else: {
5941e6b3684c Read map file in simulator Mike Pavone <pavone@retrodev.com> parents: 6 diff changeset	181 print: (args get: 1) . "\n"
5941e6b3684c Read map file in simulator Mike Pavone <pavone@retrodev.com> parents: 6 diff changeset	182 text <- readFile: (args get: 1)
5941e6b3684c Read map file in simulator Mike Pavone <pavone@retrodev.com> parents: 6 diff changeset	183 simState <- state fromStr: text
5941e6b3684c Read map file in simulator Mike Pavone <pavone@retrodev.com> parents: 6 diff changeset	184 while: { if: (simState ended) {false} else: {true} } do: {
5941e6b3684c Read map file in simulator Mike Pavone <pavone@retrodev.com> parents: 6 diff changeset	185 print: "step...\n"
5941e6b3684c Read map file in simulator Mike Pavone <pavone@retrodev.com> parents: 6 diff changeset	186 simState advance: (getMove: )
5941e6b3684c Read map file in simulator Mike Pavone <pavone@retrodev.com> parents: 6 diff changeset	187 }
5 be946b2a2cbc initial barf into simulator file William Morgan <bill@mrgn.org> parents: 3 diff changeset	188 }
be946b2a2cbc initial barf into simulator file William Morgan <bill@mrgn.org> parents: 3 diff changeset	189 }
8 5941e6b3684c Read map file in simulator Mike Pavone <pavone@retrodev.com> parents: 6 diff changeset	190
3 bb29dcd46cbf Put dummy code in placeholder source files. Create makefile. Mike Pavone <pavone@retrodev.com> parents: 0 diff changeset	191 }

Mercurial > repos > icfp2012

annotate src/sim.tp @ 10:370a1eeb8812