From e99a8dc48ede26696be2ba75a8cb0d5122d94598 Mon Sep 17 00:00:00 2001
From: Vladimir Azarov <avm@intermediate-node.net>
Date: Fri, 11 Apr 2025 21:54:16 +0200
Subject:  #include directive

---
 ccross.sml | 8 +++-----
 1 file changed, 3 insertions(+), 5 deletions(-)

(limited to 'ccross.sml')

diff --git a/ccross.sml b/ccross.sml
index 749687b..d42368d 100644
--- a/ccross.sml
+++ b/ccross.sml
@@ -4,13 +4,11 @@ structure ccross:> CCROSS = struct
 
   structure P:> CPP = Cpp(T)
 
+  structure D:> DRIVER = Driver(P)
+
   structure ExnHandler:> EXN_HANDLER =
     ExnHandler(structure T = T; structure P = P)
 end
 
 val () = MLton.Exn.setTopLevelHandler ccross.ExnHandler.handler
-
-fun main [fname] = ccross.P.debugPrint fname
-  | main _  = printLn "Expected a single argument: file name"
-
-val () = main $ CommandLine.arguments ()
+val () = ccross.D.exec ()
-- 
cgit v1.2.3