Merge pull request #25 from anka-213/no-backups

Add option for disabling backups

Author: inariksit

UD2GF.hs

@@ -47,7 +47,7 @@ getExprs opts env string = map getExpr sentences
         devtree1 = analyseWords env devtree0
         devtree = combineTrees env devtree1
         besttree0 = head (splitDevTree devtree)
-        besttree = addBackups besttree0
+        besttree = addBackups opts besttree0
         ts0 = devtree2abstrees besttree
         ts1 = map (expandMacro env) ts0
         crs = map (checkAbsTreeResult env) ts1
@@ -84,7 +84,7 @@ showUD2GF opts env sentence = do
   let besttree0 = head (splitDevTree devtree)
   ifOpt opts "bt0" $ prLinesRTree (prDevNode 1) besttree0
 
-  let besttree = addBackups besttree0
+  let besttree = addBackups opts besttree0
   ifOpt opts "bt" $ prLinesRTree (prDevNode 1) besttree
 
   let ts0 = devtree2abstrees besttree
@@ -230,15 +230,16 @@ devtree2abstrees :: DevTree -> [AbsTree]
 devtree2abstrees = map atiAbsTree . devAbsTrees . root
 
 -- to be applied to a DevTree with just one tree at each node
-addBackups :: DevTree -> DevTree
-addBackups = addBackups0 ---- TODO: this must be improved
+addBackups :: Opts -> DevTree -> DevTree
+addBackups opts | isOpt opts "no-backups" = id
+                | otherwise = addBackups0 ---- TODO: this must be improved
 
 addBackups0 :: DevTree -> DevTree
 addBackups0 tr@(RTree dn trs) = case map collectBackup (tr:trs) of  -- backups from the tree itself and every subtree
   btrs -> RTree
     (dn {devAbsTrees = [
-           replaceInfo [(t,ai) | (_,(t,Just ai)) <- btrs]   -- 
-           (theAbsTreeInfo tr)]                             -- the only abstree that there is 
+           replaceInfo [(t,ai) | (_,(t,Just ai)) <- btrs]   --
+           (theAbsTreeInfo tr)]                             -- the only abstree that there is
         }
     )
     (map fst (tail btrs))
@@ -355,7 +356,7 @@ combineTrees env =
     where
       -- The head only contains new trees that were created in the previous iteration
       onlyNewTree = tr {root = nd { devAbsTrees = map funInfoToAbsTreeInfo fis}}
-      -- Add the new trees to the old ones. There shouldn't really be any duplicates now, so there's 
+      -- Add the new trees to the old ones. There shouldn't really be any duplicates now, so there's
       -- a bit of redundant checking going on here.
       nextTr = combineUnduplicated fis tr
 
@@ -479,7 +480,7 @@ analyseWords env = mapRTree lemma2fun
 
   auxWords = [(lemma,cat) | ((fun_,lemma),(cat,labels_)) <- M.assocs (lemmaLabels (cncLabels env))]
 
--- auxiliaries 
+-- auxiliaries
 newWordTree w c = RTree (mkCId (w ++ "_" ++ showCId c)) [] ---
 isNewWordFun f = isInfixOf "__x__" (showCId f)
 unknownCat = mkCId "Adv" --- treat unknown words as adverbs ---- TODO: from config

UDOptions.hs

@@ -39,6 +39,7 @@ fullOpts = [
   ("at0","resulting GF tree, with macros in place"),
   ("at", "final GF tree, macros expanded"),
   ("tc", "type checking the final GF tree"),
+  ("no-backups", "don't add backups to incomplete trees"),
   ("sum","summary: GF tree built from the interpreted nodes"),
   ("gf", "(gf2ud) original GF tree"),
   ("an0","(gf2ud) initial annotated tree"),