Skip to content

Commit

Permalink
Removal of flyOver parsing
Browse files Browse the repository at this point in the history
  • Loading branch information
jtristan authored Sep 19, 2024
1 parent 9355881 commit 1eb72cc
Showing 1 changed file with 0 additions and 11 deletions.
11 changes: 0 additions & 11 deletions SHerLOC/Parsing/Parser.lean
Original file line number Diff line number Diff line change
Expand Up @@ -263,17 +263,6 @@ def parseString : PState String := do
parseItem "\""
return token

def flyOver (start stop : String) : PState Unit := do
skip
parseItem start
let st ← get
for _ in [st.index:st.stop] do
let st ← get
if ← isParse "->" then continue
if ← is stop then break
else set { st with index := st.index + 1, columnNumber := st.columnNumber + 1} -- Incorrect because of \n and \t but this code is temporary
parseItem stop

def push (parser : String) : PState Unit := do
let st ← get
let traceItem : Trace := { startLine := st.lineNumber, startColumn := st.columnNumber, parser }
Expand Down

0 comments on commit 1eb72cc

Please sign in to comment.