Ignore:
Timestamp:
Jun 4, 2014, 2:32:22 PM (5 years ago)
Author:
cameron
Message:

Generalize Advance(x) to Advance(x, n)

File:
1 edited

Legend:

Unmodified
Added
Removed
  • proto/RE/Haskell/REcompile.hs

    r3826 r3855  
    7777   where
    7878     (newenv, newsym) = gensym(env, "marker")
    79      new_stmt = Assign (newsym, Advance(And(Var(last_marker), CharClass(c))))
     79     new_stmt = Assign (newsym, Advance(And(Var(last_marker), CharClass(c)), 1))
    8080
    8181-- To match "^" we must be at the start of line, i.e., one past
     
    8787   where
    8888     (newenv, newsym) = gensym(env, "start_of_line_marker")
    89      new_stmt = Assign (newsym, And(Var(last_marker), Not(Advance(Not(eol_CC)))))
     89     new_stmt = Assign (newsym, And(Var(last_marker), Not(Advance(Not(eol_CC), 1))))
    9090
    9191-- To match "$" we must have reached end of line.
Note: See TracChangeset for help on using the changeset viewer.