From d9c809a5550b2fe23b2fd1e66672b503730d55f1 Mon Sep 17 00:00:00 2001 From: Vladimir Azarov Date: Sun, 25 May 2025 19:59:56 +0200 Subject: Expression parsing --- driver.fun | 14 ++++++++++---- 1 file changed, 10 insertions(+), 4 deletions(-) (limited to 'driver.fun') 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 -- cgit v1.2.3