Changeset 9210 for src/Pugs/Run

Show
Ignore:
Timestamp:
02/28/06 17:39:48 (3 years ago)
Author:
audreyt
Message:

* ./pugs -l totally means nothing now. SolidState?++ for noticing this,

and rgs++ for pointing out that it wasn't doing anything useful.

Files:
1 modified

Legend:

Unmodified
Added
Removed

  • src/Pugs/Run/Args.hs

    r8837 r9210  
    3131  by compareArgs and is currently: 
    3232 
    33   > (-h -v -V) (-I) (-d) (-w) (-c) (-C) (--external) (-M) (-n -p) (-l -0 -e other) 
     33  > (-h -v -V) (-I) (-d) (-w) (-c) (-C) (--external) (-M) (-n -p) (-0 -e other) 
    3434 
    3535  Args -M, -n and -p are converted to -e scripts by desugarDashE. 
    … …  
    111111  Enforce a canonical order of command line switches.  Currently this is: 
    112112 
    113   > (-h -v -V) (-I) (-d) (-w) (-c) (-C) (--external) (-M) (-n -p) (-l -0 -e other) 
     113  > (-h -v -V) (-I) (-d) (-w) (-c) (-C) (--external) (-M) (-n -p) (-0 -e other) 
    114114 
    115115  This makes pattern matching more convenient 
    … …  
    147147gatherArgs :: [String] -> [Arg] 
    148148gatherArgs [] = [] 
    149 -- XXX implement BEGIN block later 
    150 gatherArgs ("-l":rest)             = gatherArgs("-e":"# BEGIN { ... } # to be done":rest) 
    151149gatherArgs ("-e":frag:rest)        = [Opt "-e" frag] ++ gatherArgs(rest) 
    152150gatherArgs ("--external":mod:rest) = [Opt "--external" mod] ++ gatherArgs(rest)