Expression parsing

1 files changed, 10 insertions, 4 deletions

diff --git a/driver.fun b/driver.fun
index 5336987..3e2df5e 100644
--- a/driver.fun
+++ b/driver.fun
@@ -1,4 +1,4 @@
-functor Driver(P: PPC): DRIVER = struct
+functor Driver(P: PARSER): DRIVER = struct
   structure P = P
 
   datatype execMode = Normal | DebugE | DebugT
@@ -50,9 +50,15 @@ functor Driver(P: PPC): DRIVER = struct
     val file = valOf $ #file config
   in
     case (#mode config) of
-      Normal => die `"Normal mode is not implemented yet" %
-    | DebugT => P.T.debugPrint file
-    | DebugE => P.debugPrint file (#includeDirs config)
+      Normal =>
+        let
+          val parseCtx = P.createParseCtx file (#includeDirs config)
+          val (_, _) = P.parseDef parseCtx
+        in
+          raise Unimplemented
+        end
+    | DebugT => P.P.T.debugPrint file
+    | DebugE => P.P.debugPrint file (#includeDirs config)
   end
 end