Home My Page Projects Code Snippets Project Openings SML/NJ
Summary Activity Forums Tracker Lists Tasks Docs Surveys News SCM Files

SCM Repository

[smlnj] Diff of /sml/trunk/src/eXene/styles/parse-resource-specs.sml
ViewVC logotype

Diff of /sml/trunk/src/eXene/styles/parse-resource-specs.sml

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1861, Mon Nov 7 18:17:09 2005 UTC revision 1862, Mon Nov 7 23:03:18 2005 UTC
# Line 193  Line 193 
193            fun scan (ss, chunks) = let            fun scan (ss, chunks) = let
194                  val (prefix, rest) =                  val (prefix, rest) =
195                        SS.splitl (fn (#"\\" | #"\n") => false | _ => true) ss                        SS.splitl (fn (#"\\" | #"\n") => false | _ => true) ss
196                  fun add (c, rest) = scan (rest, (SS.all c)::prefix::chunks)                  fun add (c, rest) = scan (rest, (SS.full c)::prefix::chunks)
197                  in                  in
198                    case (SS.getc rest)                    case (SS.getc rest)
199                     of NONE => (finish(prefix, chunks), false)                     of NONE => (finish(prefix, chunks), false)
# Line 213  Line 213 
213                    (* end case *)                    (* end case *)
214                  end                  end
215            in            in
216              scan (SS.triml i (SS.all s), [])              scan (SS.triml i (SS.full s), [])
217            end            end
218    
219    (* decompose a resource specification string into a list    (* decompose a resource specification string into a list

Legend:
Removed from v.1861  
changed lines
  Added in v.1862

root@smlnj-gforge.cs.uchicago.edu
ViewVC Help
Powered by ViewVC 1.0.0