GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-05-06 17:52:51 -06:00
Code Issues Packages Projects Releases Wiki Activity

remove all files that aren't used in GF-3.0

Browse Source
This commit is contained in:
kr.angelov
2008-05-22 11:59:31 +00:00
parent d78e8d5469
commit fc42d8ec3b
286 changed files with 21 additions and 53176 deletions
Download Patch File Download Diff File Expand all files Collapse all files

39
src-3.0/GF/Grammar/PrGrammar.hs
View File

@@ -29,7 +29,7 @@ module GF.Grammar.PrGrammar (Print(..),
tree2string, prprTree,
prConstrs, prConstraints,
prMetaSubst, prEnv, prMSubst,
prExp, prPatt, prOperSignature,
prExp, prOperSignature,
lookupIdent, lookupIdentInfo
) where
@@ -38,8 +38,6 @@ import GF.Data.Zipper
import GF.Grammar.Grammar
import GF.Infra.Modules
import qualified GF.Source.PrintGF as P
import qualified GF.Canon.PrintGFC as C
import qualified GF.Canon.AbsGFC as A
import GF.Grammar.Values
import GF.Source.GrammarToSource
--- import GFC (CanonGrammar) --- cycle of modules
@@ -106,32 +104,6 @@ prContext co = unwords $ map prParenth [prt x +++ ":" +++ prt t | (x,t) <- co]
-- some GFC notions
instance Print A.Exp where prt = C.printTree
instance Print A.Term where prt = C.printTree
instance Print A.Case where prt = C.printTree
instance Print A.CType where prt = C.printTree
instance Print A.Label where prt = C.printTree
instance Print A.Module where prt = C.printTree
instance Print A.Def where prt = C.printTree
instance Print A.Canon where prt = C.printTree
instance Print A.Sort where prt = C.printTree
instance Print A.Atom where
prt = C.printTree
prt_ (A.AC c) = prt_ c
prt_ (A.AD c) = prt_ c
prt_ a = prt a
instance Print A.Patt where
prt = C.printTree
prt_ = prPatt
instance Print A.CIdent where
prt = C.printTree
prt_ (A.CIQ _ c) = prt c
-- printing values and trees in editing
instance Print a => Print (Tr a) where
prt (Tr (n, trees)) = prt n +++ unwords (map prt2 trees)
prt2 t@(Tr (_,args)) = if null args then prt t else prParenth (prt t)
@@ -252,15 +224,6 @@ prExp e = case e of
App _ _ -> prParenth $ prExp e
_ -> pr1 e
prPatt :: A.Patt -> String
prPatt p = case p of
A.PC c ps -> prt_ c +++ unwords (map pr1 ps)
_ -> prt p --- PR
where
pr1 p = case p of
A.PC _ (_:_) -> prParenth $ prPatt p
_ -> prPatt p
-- | option @-strip@ strips qualifications
prTermOpt :: Options -> Term -> String
prTermOpt opts = if oElem nostripQualif opts then prt else prExp