# HG changeset patch
# User Anders Kaseorg <andersk@mit.edu>
# Date 1385130974 18000
# Node ID 686fa4e7f397d35e247e7598ed44cd49e6dea684
# Parent  de3afd3ecf0725dac1980b553d22e2489555e3d2
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(-)

diff -r de3afd3ecf07 -r 686fa4e7f397 Makefile.am
--- a/Makefile.am	Thu Nov 21 16:36:22 2013 -0500
+++ b/Makefile.am	Fri Nov 22 09:36:14 2013 -0500
@@ -63,7 +63,7 @@
 	$(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 -r de3afd3ecf07 -r 686fa4e7f397 xml/parse.sml
--- a/xml/parse.sml	Thu Nov 21 16:36:22 2013 -0500
+++ b/xml/parse.sml	Fri Nov 22 09:36:14 2013 -0500
@@ -67,9 +67,7 @@
     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