From 3e293ae3e0b9664fadb118d013563be52f0e5885 Mon Sep 17 00:00:00 2001 From: aarne Date: Sat, 13 Dec 2008 20:19:37 +0000 Subject: bracketing with tree node reference: l -bracket --- src/GF/Command/Commands.hs | 10 ++++++---- 1 file changed, 6 insertions(+), 4 deletions(-) (limited to 'src/GF/Command') 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 $ -- cgit v1.2.3