msyds/gf-core
1
0
Fork 0
forked from GitHub/gf-core
Code Pull Requests Activity

one general case in dealing with backslash in latex lexing is enough

Browse Source
This commit is contained in:
aarne
2014-10-17 15:49:23 +00:00
parent 53787205b9
commit 1550300c80
1 changed files with 0 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -59,7 +59,6 @@ unlexCode s = case s of
lexLatexCode :: String -> [String] lexLatexCode :: String -> [String]
lexLatexCode = restoreBackslash . lexCode where --- quick hack: postprocess Haskell's lex lexLatexCode = restoreBackslash . lexCode where --- quick hack: postprocess Haskell's lex
restoreBackslash ws = case ws of restoreBackslash ws = case ws of
"\\":"\\":ww -> "\\\\":restoreBackslash ww
"\\":w:ww -> ("\\" ++ w) : restoreBackslash ww "\\":w:ww -> ("\\" ++ w) : restoreBackslash ww
w:ww -> w:restoreBackslash ww w:ww -> w:restoreBackslash ww
_ -> ws _ -> ws