9 -- Begin Signature ------------------------------------------------------
11 Given a filename, and function from a memory state and a starting point to a
12 an output, "hawkMain" will open the file and parse it and apply the
17 hawkMain :: (Read a,Read w) => String -> ((MemoryState w a,w) -> IO b) -> IO b
18 -- End Signature ------------------------------------------------------
21 hawkMain filename f = do {ps <- readInitFile filename; f ps}
24 readInitFile :: (Read a,Read w) => String -> IO (MemoryState w a,w)
26 do{ h <- openFile infile ReadMode