mirror of
https://git.freebsd.org/ports.git
synced 2025-06-05 21:00:30 -04:00
7542e5c15d
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>
22 lines
882 B
Standard ML
22 lines
882 B
Standard ML
diff -Naur src/Unicode/Chars/uniChar.sml.orig src/Unicode/Chars/uniChar.sml
|
|
--- src/Unicode/Chars/uniChar.sml.orig 2003-10-09 09:47:58.000000000 -0500
|
|
+++ src/Unicode/Chars/uniChar.sml 2003-10-17 13:43:07.000000000 -0500
|
|
@@ -108,10 +108,14 @@
|
|
if len<=maxlen orelse maxlen=0
|
|
then Data2String (Vector2Data vec)
|
|
else let
|
|
- val cs1 = Vector.foldri
|
|
- (fn (_,c,cs) => c::cs) nil (vec,0,SOME (maxlen div 2))
|
|
- val cs2 = Vector.foldri
|
|
- (fn (_,c,cs) => c::cs) nil (vec,len-3-maxlen div 2,NONE)
|
|
+ val cs1 = VectorSlice.foldri
|
|
+ (fn (_,c,cs) => c::cs)
|
|
+ nil
|
|
+ (VectorSlice.slice (vec,0,SOME (maxlen div 2)))
|
|
+ val cs2 = VectorSlice.foldri
|
|
+ (fn (_,c,cs) => c::cs)
|
|
+ nil
|
|
+ (VectorSlice.slice (vec,len-3-maxlen div 2,NONE))
|
|
in Data2String cs1^"..."^Data2String cs2
|
|
end
|
|
end
|