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 /eXene/trunk/styles/parse-resource-specs.sml
ViewVC logotype

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

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

revision 703, Thu Sep 7 05:43:23 2000 UTC revision 704, Fri Sep 8 02:09:17 2000 UTC
# Line 224  Line 224 
224            val start = skipWS(ln, 0)            val start = skipWS(ln, 0)
225            fun getCompBind (i, path) = let            fun getCompBind (i, path) = let
226                  val (comp, i) = scanComp (ln, i)                  val (comp, i) = scanComp (ln, i)
227                  in                  fun getRest i = (case comp
                   case (getCC (ln, i))  
                    of Colon => (case comp  
228                           of (Name attr) => (rev path, attr, skipWS(ln, i+1))                           of (Name attr) => (rev path, attr, skipWS(ln, i+1))
229                            | Wild => raise (BadSpec i)                            | Wild => raise (BadSpec i)
230                          (* end case *))                          (* end case *))
231                    in
232                      case (getCC (ln, i))
233                       of Colon => getRest i
234                        | Space => let
235                            val i = skipWS(ln, i+1)
236                            in
237                              case getCC(ln, i)
238                               of Colon => getRest i
239                                | _ => raise (BadSpec i)
240                              (* end case *)
241                            end
242                      | _ => let                      | _ => let
243                          val (bind, i) = scanBinding (ln, i)                          val (bind, i) = scanBinding (ln, i)
244                          in                          in

Legend:
Removed from v.703  
changed lines
  Added in v.704

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