From 7542e5c15d8f589bac3e05b0d61b0f5249499feb Mon Sep 17 00:00:00 2001
From: Thomas Abthorpe <tabthorpe@FreeBSD.org>
Date: Thu, 4 Oct 2007 03:02:59 +0000
Subject: 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>
---
 textproc/sml-fxp/files/patch-src-Util-intSets.sml | 32 +++++++++++++++++++++++
 1 file changed, 32 insertions(+)
 create mode 100644 textproc/sml-fxp/files/patch-src-Util-intSets.sml

(limited to 'textproc/sml-fxp/files/patch-src-Util-intSets.sml')

diff --git a/textproc/sml-fxp/files/patch-src-Util-intSets.sml b/textproc/sml-fxp/files/patch-src-Util-intSets.sml
new file mode 100644
index 000000000000..968ce68ffbd4
--- /dev/null
+++ b/textproc/sml-fxp/files/patch-src-Util-intSets.sml
@@ -0,0 +1,32 @@
+diff -Naur src/Util/intSets.sml.orig src/Util/intSets.sml
+--- src/Util/intSets.sml.orig	2003-10-09 09:47:58.000000000 -0500
++++ src/Util/intSets.sml	2003-10-17 14:20:11.000000000 -0500
+@@ -49,8 +49,8 @@
+ 
+       fun normalize (vec:IntSet) = 
+ 	 let val max = Vector.foldli
+-	    (fn (i,w,max) => if w=0wx0 then i else max) 0 (vec,0,NONE)
+-	 in Vector.extract (vec,0,SOME max)
++            (fn (i,w,max) => if w=0wx0 then i else max) 0 vec
++         in VectorSlice.vector(VectorSlice.slice (vec,0,SOME max))
+ 	 end
+ 
+       val emptyIntSet = Vector.fromList nil : IntSet
+@@ -88,7 +88,7 @@
+ 	    val size = Vector.length vec
+ 	 in 
+ 	    if size>idx 
+-	       then Vector.mapi (fn (i,x) => if i=idx then x||mask else x) (vec,0,NONE)
++	       then Vector.mapi (fn (i,x) => if i=idx then x||mask else x) vec
+ 	    else Vector.tabulate 
+ 	       (idx+1,fn i => if i<size then Vector.sub(vec,i) else if i=idx then mask else 0w0)
+ 	 end
+@@ -100,7 +100,7 @@
+ 	    val vec1 = if size<=idx then vec
+ 		       else let val mask = !! (0w1 << (Word.fromInt (n mod wordSize)))
+ 			    in Vector.mapi 
+-			       (fn (i,x) => if i=idx then x && mask else x) (vec,0,NONE)
++                               (fn (i,x) => if i=idx then x && mask else x) vec
+ 			    end
+ 	 in normalize vec1
+ 	 end
-- 
cgit v1.2.3