diff options
| author | aarne <aarne@cs.chalmers.se> | 2008-12-13 20:19:37 +0000 |
|---|---|---|
| committer | aarne <aarne@cs.chalmers.se> | 2008-12-13 20:19:37 +0000 |
| commit | 3e293ae3e0b9664fadb118d013563be52f0e5885 (patch) | |
| tree | 2921df5a86643d38a4dbe80e8d41d882e3a01691 /src/GF/Command | |
| parent | 6e511e5fbddf3f388ff16c45030e2db470029758 (diff) | |
bracketing with tree node reference: l -bracket
Diffstat (limited to 'src/GF/Command')
| -rw-r--r-- | src/GF/Command/Commands.hs | 10 |
1 files changed, 6 insertions, 4 deletions
diff --git a/src/GF/Command/Commands.hs b/src/GF/Command/Commands.hs index 35a86ad96..a78fa0fac 100644 --- a/src/GF/Command/Commands.hs +++ b/src/GF/Command/Commands.hs @@ -273,6 +273,7 @@ allCommands cod env@(pgf, mos) = Map.fromList [ exec = \opts -> return . fromStrings . map (optLin opts), options = [ ("all","show all forms and variants"), + ("bracket","show tree structure with brackets and paths to nodes"), ("multi","linearize to all languages (default)"), ("record","show source-code-like record"), ("table","show all forms labelled by parameters"), @@ -555,10 +556,11 @@ allCommands cod env@(pgf, mos) = Map.fromList [ _ -> unlines [linear opts lang t | lang <- optLangs opts] linear opts lang = let unl = unlex opts lang in case opts of - _ | isOpt "all" opts -> allLinearize unl pgf lang - _ | isOpt "table" opts -> tableLinearize unl pgf lang - _ | isOpt "term" opts -> termLinearize pgf lang - _ | isOpt "record" opts -> recordLinearize pgf lang + _ | isOpt "all" opts -> allLinearize unl pgf lang + _ | isOpt "table" opts -> tableLinearize unl pgf lang + _ | isOpt "term" opts -> termLinearize pgf lang + _ | isOpt "record" opts -> recordLinearize pgf lang + _ | isOpt "bracket" opts -> markLinearize pgf lang _ -> unl . linearize pgf lang treebank opts t = unlines $ |