GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-05-20 16:42:51 -06:00
Code Issues Packages Projects Releases Wiki Activity

detect keywords in the lookahead

Browse Source
This commit is contained in:
Krasimir Angelov
2024-03-08 09:27:01 +01:00
parent 5a2e1a847d
commit 518e57141b
1 changed files with 10 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

15
src/compiler/api/GF/Grammar/Lexer.x
View File

@@ -358,13 +358,18 @@ start_of_tag s = isJust (match s)
matchIdent s matchIdent s
| BS.null s = Nothing | BS.null s = Nothing
| BS.elem (BS.head s) init = matchRest (BS.tail s) | BS.elem (BS.head s) init = matchRest s 1 (BS.tail s)
| otherwise = Nothing | otherwise = Nothing
matchRest s matchRest s0 i s
| BS.null s = Just s | BS.null s = checkResWord (BS.take i s0) s
| BS.elem (BS.head s) rest = matchRest (BS.tail s) | BS.elem (BS.head s) rest = matchRest s0 (i+1) (BS.tail s)
| otherwise = Just s | otherwise = checkResWord (BS.take i s0) s
checkResWord w s =
case Map.lookup (identC (rawIdentC w)) resWords of
Just t -> Nothing
Nothing -> Just s
getPosn :: P Posn getPosn :: P Posn
getPosn = P $ \ai2@(_,inp@(AI pos _ _)) -> POk ai2 pos getPosn = P $ \ai2@(_,inp@(AI pos _ _)) -> POk ai2 pos