ports/textproc/sml-fxp/files/patch-src-Parser-Dfa-dfaString.sml
Thomas Abthorpe 7542e5c15d fxp is a validating XML parser written completely in the functional
programming language SML. fxp can validate both XML 1.0 and XML 1.1
documents. It has a programming interface allowing for production of XML
applications based on fxp. It is installed with four example applications.

WWW: http://www2.informatik.tu-muenchen.de/~berlea/Fxp

PR:		ports/116572
Submitted by:	Timothy Bourke <timbob at bigpond.com>
2007-10-04 03:02:59 +00:00

17 lines
617 B
Standard ML

diff -ruN src/Parser/Dfa/dfaString.sml.orig src/Parser/Dfa/dfaString.sml
--- src/Parser/Dfa/dfaString.sml.orig 2004-06-25 18:42:52.000000000 +0200
+++ src/Parser/Dfa/dfaString.sml 2004-12-08 19:02:48.000000000 +0100
@@ -68,11 +68,11 @@
(fn (i,q,yet) => if q<0 then yet
else " "::Elem2String (i+lo)::"->"::State2String q::yet)
(if fin then [" [Final]"] else nil)
- (tab,0,NONE))
+ tab)
fun Dfa2String Elem2String tab =
String.concat
(Vector.foldri
(fn (q,row,yet) => State2String q::":"::Row2String Elem2String row::yet)
- nil (tab,0,NONE))
+ nil tab)
end