Changeset 13262 in project


Ignore:
Timestamp:
02/12/09 01:25:39 (11 years ago)
Author:
Ivan Raikov
Message:

Fixes to the numpat example.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • wiki/lexgen

    r13261 r13262  
    6262<procedure>(opt MATCHER) => MATCHER</procedure>
    6363
    64 Optional pattern. Analogous to {{'?'}}.
     64Optional pattern. Analogous to {{?}}.
    6565
    6666<procedure>(char CHAR) => MATCHER</procedure>
     
    117117  (define numpat
    118118    (let* ((digit        (range #\0 #\9))
    119            (digits       (pos digit))
    120            (fraction     (seq `(,(char #\.) ,digits)))
    121            (significand  (bar `(,(seq `(,digits ,(opt fraction))) ,fraction)))
    122            (exp          (seq `(,(set "eE") ,(opt (set "+-")) ,digits)))
    123            (sign         (opt (char #\-)) ))     
    124     (seq `(,sign ,(seq `(,significand ,(opt exp)))))))
    125 
     119           (digits       (pos digit))
     120           (fraction     (seq `(,(char #\.) ,digits)))
     121           (significand  (bar `(,(seq `(,digits ,(opt fraction))) ,fraction)))
     122           (exp          (seq `(,(set "eE") ,(opt (set "+-")) ,digits)))
     123           (sign         (opt (char #\-)) ))     
     124     (seq `(,sign ,(seq `(,significand ,(opt exp)))))))
    126125  (print (lex numpat "3.45e-6"))
    127 
    128126
    129127=== Requires
Note: See TracChangeset for help on using the changeset viewer.