Changeset 2167
- Timestamp:
- 07/03/08 07:43:27 (3 months ago)
- Files:
-
- trunk/ProjectFortress/demos/Cfa.fss (modified) (1 diff)
- trunk/ProjectFortress/demos/Lambda.fss (modified) (2 diffs)
- trunk/ProjectFortress/demos/aStar.fss (modified) (1 diff)
- trunk/ProjectFortress/demos/tennisRanking.fss (modified) (2 diffs)
Legend:
- Unmodified
- Added
- Removed
- Modified
- Copied
- Moved
trunk/ProjectFortress/demos/Cfa.fss
r2041 r2167 324 324 *) 325 325 collectVars(name: String, e: If) = 326 col elctVars(name, e.thenB) UNION colelctVars(name, e.elseB)326 collectVars(name, e.thenB) UNION collectVars(name, e.elseB) 327 327 328 328 (* Add control flow equations into the cfa_eqns table. *************************) trunk/ProjectFortress/demos/Lambda.fss
r1771 r2167 177 177 t 178 178 else 179 f reeVar(global)179 fv(global) 180 180 end 181 181 … … 259 259 ')' => fail ("unexpected ')' in arg list, last arg " id) 260 260 else => if curr IN digits then 261 fail ("unexpected digit " c 2.toString() " in arg list")261 fail ("unexpected digit " curr.toString() " in arg list") 262 262 else 263 263 mkLambda(id,parseLambdaF(newlineOK)) trunk/ProjectFortress/demos/aStar.fss
r1775 r2167 302 302 st0 303 303 else 304 fail("Bad initial state:" // res)304 fail("Bad initial state:" // st0) 305 305 end 306 306 trunk/ProjectFortress/demos/tennisRanking.fss
r1778 r2167 388 388 then if database.member(loserName) 389 389 then addGame(fout, winnerName, true, loserName, true) 390 else println loserName " is a new member!"; dieend391 else println winnerName " is a new member!"; dieend390 else println loserName " is a new member!"; fail("end") end 391 else println winnerName " is a new member!"; fail("end") end 392 392 393 393 (* doubles games ****************************************) … … 478 478 then addGame(fout, winnerName1, true, winnerName2, true, 479 479 loserName1 , true, loserName2 , true) 480 else println loserName2 " is a new member!"; dieend481 else println loserName1 " is a new member!"; dieend482 else println winnerName2 " is a new member!"; dieend483 else println winnerName1 " is a new member!"; dieend480 else println loserName2 " is a new member!"; fail("end") end 481 else println loserName1 " is a new member!"; fail("end") end 482 else println winnerName2 " is a new member!"; fail("end") end 483 else println winnerName1 " is a new member!"; fail("end") end 484 484 485 485 (* Print result ***************************************************************)
