CVS: sml-dist/src/eXene/styles styles-func.sml,1.2,1.3

Update of /cvsroot/smlnj/sml-dist/src/eXene/styles
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv32471/styles

Modified Files:
	styles-func.sml 
Log Message:
merge Kansas changes to eXene into repository

Index: styles-func.sml
===================================================================
RCS file: /cvsroot/smlnj/sml-dist/src/eXene/styles/styles-func.sml,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** styles-func.sml	1 Jun 2000 18:33:41 -0000	1.2
--- styles-func.sml	3 Mar 2006 03:33:15 -0000	1.3
***************
*** 31,69 ****
    (* a style_name is a key for searching a style database *)
      type style_name = {
! 	name : Quark.quark list,
! 	hash : word
        }
  
      fun extHash (hash, comp) =
! 	  Word.andb(Word.<<(hash, 0w1), 0wxffffff) + Q.hash comp
  
      fun styleName sl = let
[...1036 lines suppressed...]
+         fun filt (OPT_RESSPEC(n),v) = true
+           | filt (_,_) = false
+         fun rovToStr(OPT_RESSPEC(n),OPT_STRING(v)) = (n^":"^v)
+           | rovToStr(_,_) = ""
+         val strLst = List.map (rovToStr) (List.filter filt od)
+         in
+             styleFromStrings(ctxt,strLst)
+         end
+     
+     (* a utility function that returns a string outlining the valid command
+      * line arguments in optSpec. *)
+     fun helpStrFromOptSpec (os:optSpec) =
+         let
+         val argLst = (List.map (fn (_,ar,_,_) => ar:string) os)
+         val hlpStr = ("["^(String.concatWith "|" argLst)^"]")
+         in ("Valid options:\n"^hlpStr^"\n") end
+         
+ (* end additions by ddeboer. *)
+ 
    end; (* Styles *)



-------------------------------------------------------
This SF.Net email is sponsored by xPML, a groundbreaking scripting language
that extends applications into web and mobile media. Attend the live webcast
and join the prime developer group breaking into this new coding territory!
http://sel.as-us.falkag.net/sel?cmd=lnk&kid=110944&bid=241720&dat=121642