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/cm/parse/cm.grm
ViewVC logotype

Diff of /sml/trunk/src/cm/parse/cm.grm

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

revision 397, Fri Aug 13 07:06:52 1999 UTC revision 493, Mon Nov 29 07:13:22 1999 UTC
# Line 46  Line 46 
46         | boolexp of S.exp         | boolexp of S.exp
47         | exp of S.exp         | exp of S.exp
48         | ml_symbol of S.ml_symbol         | ml_symbol of S.ml_symbol
49         | pathname of S.pathname         | pathname of { name: string, mkpath: string -> S.pathname }
        | cmpath of S.pathname  
        | nativepath of S.pathname  
50         | sym of S.cm_symbol         | sym of S.cm_symbol
51         | word of S.cm_symbol         | word of S.cm_symbol
52         | owner of S.pathname option         | owner of S.pathname option
# Line 61  Line 59 
59      S.context *      S.context *
60      (pos * pos -> unit) *      (pos * pos -> unit) *
61      (pos * pos -> string -> unit) *      (pos * pos -> string -> unit) *
62      (S.pathname * pos * pos * S.cm_class option -> S.members) *      ({ name: string, mkpath: string -> S.pathname } *
63         pos * pos * S.cm_class option -> S.members) *
64      S.pathname option *      S.pathname option *
65      GeneralParams.info      GeneralParams.info
66  %start description  %start description
# Line 99  Line 98 
98                                                    members, gp))                                                    members, gp))
99    
100  owner : (* empty *)                            (NONE)  owner : (* empty *)                            (NONE)
101        | LPAREN pathname RPAREN                 (SOME pathname)        | LPAREN pathname RPAREN                 (SOME (#mkpath pathname
102                                                          (#name pathname)))
103    
104  wrapspec : (* empty *)                         (fn p => p)  wrapspec : (* empty *)                         (fn p => p)
105            | wrapspec word                      (fn p =>            | wrapspec word                      (fn p =>
# Line 216  Line 216 
216            | FUNCTOR ML_ID                       (S.ml_functor ML_ID)            | FUNCTOR ML_ID                       (S.ml_functor ML_ID)
217            | FUNSIG ML_ID                        (S.ml_funsig ML_ID)            | FUNSIG ML_ID                        (S.ml_funsig ML_ID)
218    
219  pathname : FILE_STANDARD                        (S.file_standard gp  pathname : FILE_STANDARD                        ({ name = FILE_STANDARD,
220                                                   (FILE_STANDARD, context))                                                     mkpath = fn n =>
221           | FILE_NATIVE                          (S.file_native                                                       S.file_standard gp
222                                                   (FILE_NATIVE, context))                                                         (n, context) })
223             | FILE_NATIVE                          ({ name = FILE_NATIVE,
224                                                       mkpath = fn n =>
225                                                         S.file_native
226                                                           (n, context) })

Legend:
Removed from v.397  
changed lines
  Added in v.493

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