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

fixed unlexer

Browse Source
This commit is contained in:
aarne
2004-06-24 15:13:40 +00:00
parent 59654146c6
commit 15a95cdbd2
2 changed files with 2 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
src/GF/API.hs
View File

@@ -205,7 +205,7 @@ optLinearizeTree opts0 gr t = case getOptVal opts transferFun of
allLinTables g c allLinTables g c
| oElem showAll opts = liftM (unlines . map untok . prLinTable False) . | oElem showAll opts = liftM (unlines . map untok . prLinTable False) .
allLinTables g c allLinTables g c
| otherwise = return . unlines . optIntOrOne . linTree2strings mk g c | otherwise = return . unlines . map untok . optIntOrOne . linTree2strings mk g c
g = grammar gr g = grammar gr
c = cncId gr c = cncId gr
untok = customOrDefault opts useUntokenizer customUntokenizer gr untok = customOrDefault opts useUntokenizer customUntokenizer gr

1
src/GF/UseGrammar/Custom.hs
View File

@@ -303,6 +303,7 @@ customUntokenizer =
,(strCI "codelit", const $ formatAsCodeLit) ,(strCI "codelit", const $ formatAsCodeLit)
,(strCI "concat", const $ concat . words) ,(strCI "concat", const $ concat . words)
,(strCI "glue", const $ performBinds) ,(strCI "glue", const $ performBinds)
,(strCI "reverse", const $ reverse)
,(strCI "bind", const $ performBinds) -- backward compat ,(strCI "bind", const $ performBinds) -- backward compat
-- add your own untokenizers here -- add your own untokenizers here
] ]