mTaskInterpret.icl

   1 implementation module mTaskInterpret
   2
   3 import iTasks
   4 import gdynamic, gCons, GenEq, StdMisc, StdArray
   5 import GenPrint
   6 import mTask
   7
   8
   9 toByteVal :: BC -> String
  10 toByteVal a = undef
  11
  12 derive gPrint BC
  13
  14 toReadableByteVal :: BC -> String
  15 toReadableByteVal a = printToString a
  16
  17 instance arith ByteCode where
  18   lit _ = undef
  19   (+.) _ _ = undef
  20   (-.) _ _ = undef
  21   (*.) _ _ = undef
  22   (/.) _ _ = undef
  23
  24 instance serial ByteCode where
  25   serialAvailable = undef
  26   serialPrint _ = undef
  27   serialPrintln _ = undef
  28   serialRead = undef
  29   serialParseInt = undef
  30
  31 Start :: Main (ByteCode Int Expr)
  32 Start = {main=serialPrint (lit 36)}