From 2b92a1c2d4fe890d0637402d3a2c542095197ede Mon Sep 17 00:00:00 2001
From: Anders Kaseorg <andersk@mit.edu>
Date: Fri, 22 Nov 2013 09:36:14 -0500
Subject: xml/parse: Accept entity files on the command line Signed-off-by:
 Anders Kaseorg <andersk@mit.edu> ---  Makefile.am   | 2 +-  xml/parse.sml | 4
 +---  2 files changed, 2 insertions(+), 4 deletions(-)

---
 Makefile.am   | 2 +-
 xml/parse.sml | 4 +---
 2 files changed, 2 insertions(+), 4 deletions(-)

diff --git a/Makefile.am b/Makefile.am
index d88b08a9..fa3ee896 100644
--- a/Makefile.am
+++ b/Makefile.am
@@ -63,7 +63,7 @@ bin/urweb: xml/entities.sml \
 	$(MLTON) $(MLTONARGS) -output $@ src/compiler.mlb
 
 xml/entities.sml: xml/parse xml/xhtml-lat1.ent xml/xhtml-special.ent xml/xhtml-symbol.ent
-	xml/parse >xml/entities.sml
+	$^ > $@
 
 xml/parse: xml/parse.sml
 	$(MLTON) $(MLTONARGS) xml/parse.sml
diff --git a/xml/parse.sml b/xml/parse.sml
index ad63c851..21256010 100644
--- a/xml/parse.sml
+++ b/xml/parse.sml
@@ -67,9 +67,7 @@ fun main () =
     in
         print "structure Entities = struct\n";
         print "\tval all =\n";
-        doFile "xml/xhtml-lat1.ent";
-        doFile "xml/xhtml-special.ent";
-        doFile "xml/xhtml-symbol.ent";
+        app doFile (CommandLine.arguments ());
         print "\t[]\n";
         print "end\n"
     end
-- 
cgit v1.2.3