GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-04-23 19:42:50 -06:00
Code Issues Packages Projects Releases Wiki Activity

lexer for latex code: don't separate backslash from the macro name that it marks

Browse Source
This commit is contained in:
aarne
2014-10-17 06:40:06 +00:00
parent 6375bacc73
commit 42cfacbf86
1 changed files with 11 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
src/runtime/haskell/PGF/Lexing.hs
View File

@@ -54,6 +54,16 @@ unlexCode s = case s of
_ -> [] _ -> []
-- | LaTeX lexer in the math mode: \ should not be separated from the next word
lexLatexCode :: String -> [String]
lexLatexCode = restoreBackslash . lexCode where --- quick hack: postprocess Haskell's lex
restoreBackslash ws = case ws of
"\\":"\\":ww -> "\\\\":restoreBackslash ww
"\\":w:ww -> ("\\" ++ w) : restoreBackslash ww
w:ww -> w:restoreBackslash ww
_ -> ws
-- * Mixed lexing -- * Mixed lexing
-- | LaTeX style lexer, with "math" environment using Code between $...$ -- | LaTeX style lexer, with "math" environment using Code between $...$
@@ -64,7 +74,7 @@ lexMixed = concat . alternate False where
(t,[]) -> lex env t : [] (t,[]) -> lex env t : []
(t,c:m) -> lex env t : [[c]] : alternate (not env) m (t,c:m) -> lex env t : [[c]] : alternate (not env) m
_ -> [] _ -> []
lex env = if env then lexCode else lexText lex env = if env then lexLatexCode else lexText
unlexMixed :: [String] -> String unlexMixed :: [String] -> String
unlexMixed = capitInit . concat . alternate False where unlexMixed = capitInit . concat . alternate False where