diff options
| author | Thomas Abthorpe <tabthorpe@FreeBSD.org> | 2007-10-04 03:02:59 +0000 |
|---|---|---|
| committer | Thomas Abthorpe <tabthorpe@FreeBSD.org> | 2007-10-04 03:02:59 +0000 |
| commit | 7542e5c15d8f589bac3e05b0d61b0f5249499feb (patch) | |
| tree | 7eb3a422ca7644f92eea916165fe3a75fe24c1fb /textproc/sml-fxp/files/patch-src-Parser-Params-dtd.sml | |
| parent | - Update to 0.12 (diff) | |
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>
Diffstat (limited to 'textproc/sml-fxp/files/patch-src-Parser-Params-dtd.sml')
| -rw-r--r-- | textproc/sml-fxp/files/patch-src-Parser-Params-dtd.sml | 18 |
1 files changed, 18 insertions, 0 deletions
diff --git a/textproc/sml-fxp/files/patch-src-Parser-Params-dtd.sml b/textproc/sml-fxp/files/patch-src-Parser-Params-dtd.sml new file mode 100644 index 000000000000..c8d64a19371f --- /dev/null +++ b/textproc/sml-fxp/files/patch-src-Parser-Params-dtd.sml @@ -0,0 +1,18 @@ +diff -Naur src/Parser/Params/dtd.sml.orig src/Parser/Params/dtd.sml +--- src/Parser/Params/dtd.sml.orig 2003-10-09 09:47:56.000000000 -0500 ++++ src/Parser/Params/dtd.sml 2003-10-17 14:09:57.000000000 -0500 +@@ -290,10 +290,10 @@ + val _ = map (fn i => Array.update(preRedef,i,false)) [1,2,3,4,5] + val _ = GenEnt2Index dtd [0wx2D] (* "-" *) + val _ = ParEnt2Index dtd [0wx2D] (* "-" *) +- val _ = Vector.appi +- (fn (_,(name,lit,cs)) +- => (setGenEnt dtd (GenEnt2Index dtd name,(GE_INTERN(lit,cs),false)))) +- (predefined,1,NONE) ++ val _ = VectorSlice.appi ++ (fn (_,(name,lit,cs)) ++ => (setGenEnt dtd (GenEnt2Index dtd name,(GE_INTERN(lit,cs),false)))) ++ (VectorSlice.slice (predefined,1,NONE)) + in () + end + |