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

fully implement the linearize command

Browse Source
This commit is contained in:
krangelov
2021-12-10 10:34:57 +01:00
parent 73c16504d2
commit b0672afc67
1 changed files with 10 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -713,13 +713,17 @@ pgfCommands = Map.fromList [
linear :: [Option] -> Concr -> Expr -> [String]
linear opts concr = case opts of
_ | isOpt "all" opts -> concat .
map (map snd) . tabularLinearizeAll concr
_ | isOpt "list" opts -> (:[]) . commaList . concat .
map (map snd) . tabularLinearizeAll concr
_ | isOpt "table" opts -> concat .
map (map (\(p,v) -> p+++":"+++v)) . tabularLinearizeAll concr
_ | isOpt "list" opts &&
isOpt "all" opts -> map (commaList . map snd) . tabularLinearizeAll concr
_ | isOpt "list" opts -> (:[]) . commaList .
map snd . tabularLinearize concr
_ | isOpt "table" opts &&
isOpt "all" opts -> map (\(p,v) -> p+++":"+++v) . concat . tabularLinearizeAll concr
_ | isOpt "table" opts -> map (\(p,v) -> p+++":"+++v) . tabularLinearize concr
_ | isOpt "bracket" opts &&
isOpt "all" opts -> map (unwords . map showBracketedString) . bracketedLinearizeAll concr
_ | isOpt "bracket" opts -> (:[]) . unwords . map showBracketedString . bracketedLinearize concr
_ | isOpt "all" opts -> linearizeAll concr
_ -> (:[]) . linearize concr
-- replace each non-atomic constructor with mkC, where C is the val cat