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 651, Thu Jun 1 18:34:03 2000 UTC revision 666, Fri Jun 16 08:27:00 2000 UTC
# Line 51  Line 51 
51         | boolexp of S.exp         | boolexp of S.exp
52         | exp of S.exp         | exp of S.exp
53         | ml_symbol of S.ml_symbol         | ml_symbol of S.ml_symbol
54         | pathname of { name: string, mkpath: string -> S.pathname }         | pathname of { name: string, mkpath: string -> SrcPath.prefile }
55         | sym of S.cm_symbol         | sym of S.cm_symbol
56         | word of S.cm_symbol         | word of S.cm_symbol
57         | owner of S.pathname option         | owner of SrcPath.file option
58         | class of S.cm_class         | class of S.cm_class
59         | optclass of S.cm_class option         | optclass of S.cm_class option
60         | toolopts of S.toolopt list         | toolopts of S.toolopt list
# Line 64  Line 64 
64  %pos int  %pos int
65  %verbose  %verbose
66  %arg (grouppath, context, obsolete, error, doMember, curlib, gp, ig) :  %arg (grouppath, context, obsolete, error, doMember, curlib, gp, ig) :
67      S.pathname *      SrcPath.file *
68      S.context *      S.context *
69      (pos * pos -> unit) *      (pos * pos -> unit) *
70      (pos * pos -> string -> unit) *      (pos * pos -> string -> unit) *
71      ({ name: string, mkpath: string -> S.pathname } *      ({ name: string, mkpath: string -> SrcPath.prefile } *
72       pos * pos * S.cm_class option * S.toolopt list option -> S.members) *       pos * pos * S.cm_class option * S.toolopt list option -> S.members) *
73      S.pathname option *      SrcPath.file option *
74      GeneralParams.info *      GeneralParams.info *
75      S.group      S.group
76  %start description  %start description
# Line 126  Line 126 
126                                                          FILE_STANDARDright)))                                                          FILE_STANDARDright)))
127    
128  owner : (* empty *)                            (NONE)  owner : (* empty *)                            (NONE)
129        | LPAREN pathname RPAREN                 (SOME (#mkpath pathname        | LPAREN pathname RPAREN                 (SOME (SrcPath.file
130                                                        (#name pathname)))                                                            (#mkpath pathname
131                                                                (#name pathname))))
132    
133  wrapspec : (* empty *)                         (fn p => p)  wrapspec : (* empty *)                         (fn p => p)
134            | wrapspec word                      (fn p =>            | wrapspec word                      (fn p =>
# Line 264  Line 265 
265           | FILE_NATIVE                          ({ name = FILE_NATIVE,           | FILE_NATIVE                          ({ name = FILE_NATIVE,
266                                                     mkpath = fn n =>                                                     mkpath = fn n =>
267                                                       S.file_native                                                       S.file_native
268                                                         (n, context) })                                                         (n, context, error
269                                                            (FILE_NATIVEleft,
270                                                             FILE_NATIVEright)) })

Legend:
Removed from v.651  
changed lines
  Added in v.666

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