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

tabularLinearize should always generate label names

Browse Source
This commit is contained in:
krasimir
2009-02-02 09:56:02 +00:00
parent 7a882b5c36
commit ddd7ab98d8
1 changed files with 2 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
src/PGF/ShowLinearize.hs
View File

@@ -70,9 +70,9 @@ tableLinearize unlex pgf lang = unlines . map pr . tabularLinearize pgf lang whe
tabularLinearize :: PGF -> CId -> Tree -> [(String,[String])] tabularLinearize :: PGF -> CId -> Tree -> [(String,[String])]
tabularLinearize pgf lang = branches . recLinearize pgf lang where tabularLinearize pgf lang = branches . recLinearize pgf lang where
branches r = case r of branches r = case r of
RR fs -> [( b,s) | (lab,t) <- fs, (b,s) <- branches t] RR fs -> [(lab +++ b,s) | (lab,t) <- fs, (b,s) <- branches t]
RT fs -> [(lab +++ b,s) | (lab,t) <- fs, (b,s) <- branches t] RT fs -> [(lab +++ b,s) | (lab,t) <- fs, (b,s) <- branches t]
RFV rs -> [([], ss) | (_,ss) <- concatMap branches rs] RFV rs -> concatMap branches rs
RS s -> [([], [s])] RS s -> [([], [s])]
RCon _ -> [] RCon _ -> []