Update of /cvsroot/hcoop/domtool/src
In directory sc8-pr-cvs17:/tmp/cvs-serv2621/src
Modified Files:
util.sml
Log Message:
Better checking of Block arguments
Index: util.sml
===================================================================
RCS file: /cvsroot/hcoop/domtool/src/util.sml,v
retrieving revision 1.15
retrieving revision 1.16
diff -C2 -d -r1.15 -r1.16
*** util.sml 20 Mar 2007 16:43:38 -0000 1.15
--- util.sml 12 Jul 2007 16:32:54 -0000 1.16
***************
*** 66,73 ****
fun validHost s =
! size s > 0 andalso size s < 30 andalso CharVector.all (fn ch => isIdent
ch orelse ch = #"-") s
fun validHostUC s =
! size s > 0 andalso size s < 30 andalso CharVector.all (fn ch =>
Char.isAlphaNum ch orelse ch = #"-") s
fun validVhostFilename s =
--- 66,77 ----
fun validHost s =
! size s > 0 andalso size s < 30
! andalso CharVector.all (fn ch => isIdent ch orelse ch = #"-") s
! andalso CharVector.exists (fn ch => not (Char.isDigit ch)) s
fun validHostUC s =
! size s > 0 andalso size s < 30
! andalso CharVector.all (fn ch => Char.isAlphaNum ch orelse ch = #"-") s
! andalso CharVector.exists (fn ch => not (Char.isDigit ch)) s
fun validVhostFilename s =
-------------------------------------------------------------------------
This SF.net email is sponsored by DB2 Express
Download DB2 Express C - the FREE version of DB2 express and take
control of your XML. No limits. Just data. Click to get it now.
http://sourceforge.net/powerbar/db2/
_______________________________________________
hcoop-cvs mailing list
hcoop-cvs@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/hcoop-cvs
