diff options
| author | peb <unknown> | 2005-02-18 18:21:06 +0000 |
|---|---|---|
| committer | peb <unknown> | 2005-02-18 18:21:06 +0000 |
| commit | 9568d7a844ba6a1872a8e8f6ef002860057e62ab (patch) | |
| tree | 9e25c6ed62e48101a2782d5fb8dcba68462dc613 /src/GF/Compile/PrOld.hs | |
| parent | 1c4f025320900897ae3acdab6982f7d595b98dd1 (diff) | |
"Committed_by_peb"
Diffstat (limited to 'src/GF/Compile/PrOld.hs')
| -rw-r--r-- | src/GF/Compile/PrOld.hs | 13 |
1 files changed, 7 insertions, 6 deletions
diff --git a/src/GF/Compile/PrOld.hs b/src/GF/Compile/PrOld.hs index cba3eb536..8c0132fe7 100644 --- a/src/GF/Compile/PrOld.hs +++ b/src/GF/Compile/PrOld.hs @@ -1,13 +1,13 @@ ---------------------------------------------------------------------- -- | --- Module : (Module) --- Maintainer : (Maintainer) +-- Module : PrOld +-- Maintainer : GF -- Stability : (stable) -- Portability : (portable) -- --- > CVS $Date $ --- > CVS $Author $ --- > CVS $Revision $ +-- > CVS $Date: 2005/02/18 19:21:09 $ +-- > CVS $Author: peb $ +-- > CVS $Revision: 1.7 $ -- -- a hack to print gf2 into gf1 readable files -- Works only for canonical grammars, printed into GFC. Otherwise we would have @@ -15,7 +15,7 @@ -- --- printnames are not preserved, nor are lindefs ----------------------------------------------------------------------------- -module PrOld where +module PrOld (printGrammarOld, stripTerm) where import PrGrammar import CanonToGrammar @@ -59,6 +59,7 @@ stripInfo (c,i) = case i of stripContext co = [(x, stripTerm t) | (x,t) <- co] +stripTerm :: Term -> Term stripTerm t = case t of Q _ c -> Vr c QC _ c -> Vr c |