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

switched the upper and lower parts of lexc entries to their standard order

Browse Source
This commit is contained in:
aarne
2011-03-04 17:25:53 +00:00
parent c834cb348c
commit 603dc34b63
1 changed files with 2 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
src/compiler/GF/Command/Commands.hs
View File

@@ -1229,10 +1229,10 @@ infinity = 256
prLexcLexicon :: Morpho -> String prLexcLexicon :: Morpho -> String
prLexcLexicon mo = prLexcLexicon mo =
unlines $ "LEXICON" : [w ++ ":" ++ prLexc l p | (w,lps) <- morpho, (l,p) <- lps] ++ ["END"] unlines $ "LEXICON" : [prLexc l p ++ ":" ++ w ++ " # ;" | (w,lps) <- morpho, (l,p) <- lps] ++ ["END"]
where where
morpho = fullFormLexicon mo morpho = fullFormLexicon mo
prLexc l p = showCId l ++ mkTags (words p) ++ " # ;" prLexc l p = showCId l ++ mkTags (words p)
mkTags p = case p of mkTags p = case p of
"s":ws -> mkTags ws --- remove record field "s":ws -> mkTags ws --- remove record field
ws -> concat $ "+" : intersperse "+" ws ws -> concat $ "+" : intersperse "+" ws