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

tabularLinearize should always generate label names

Browse Source
This commit is contained in:
krasimir committed 2009-02-02 09:56:02 +00:00
1 parent 7a882b5c36
commit ddd7ab98d8
1 file changed
+2 -2
Download Patch File Download Diff File Expand all files Collapse all files
src/PGF/ShowLinearize.hs
+2 -2
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 _ -> []