Main.hs 291 B

123456789101112131415161718
  1. module Main where
  2. import qualified LexAn as LA
  3. import qualified Lan_1 as L
  4. firstFSM = LA.FSM
  5. { LA.symbols = L.symbols_1
  6. , LA.start_state = L.s_q
  7. , LA.eos = L.eos
  8. , LA.delta = L.delta_1
  9. }
  10. test = LA.execFSM firstFSM "Var1 = Var2 + (14 * 1.12)"
  11. main :: IO()
  12. main = do putStr("")