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

qualified cat in gfe

Browse Source
This commit is contained in:
aarne
2005-06-06 08:56:28 +00:00
parent 9d6aaadb03
commit 17c4219691
1 changed files with 4 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
src/GF/Compile/MkConcrete.hs
View File

@@ -107,8 +107,9 @@ mkCncLine parser morpho (Left line) = mkLinRule (words line) where
mkLinRule s = mkLinRule s =
let let
(pre,str) = span (/= "in") s (pre,str) = span (/= "in") s
([cat],rest) = splitAt 1 $ tail str ([mcat],rest) = splitAt 1 $ tail str
(lin,subst) = span (/= '"') $ tail $ unwords rest (lin,subst) = span (/= '"') $ tail $ unwords rest
cat = reverse $ takeWhile (/= '.') $ reverse mcat
substs = doSubst (init (tail subst)) substs = doSubst (init (tail subst))
def def
| last pre /= "=" = line -- ordinary lin rule | last pre /= "=" = line -- ordinary lin rule