1 files changed, 0 insertions, 159 deletions
diff --git a/src/GF/UseGrammar/RealMoreCustom.hs b/src/GF/UseGrammar/RealMoreCustom.hs
deleted file mode 100644
index 86cb2623d..000000000
--- a/src/GF/UseGrammar/RealMoreCustom.hs
+++ /dev/null
@@ -1,159 +0,0 @@
-----------------------------------------------------------------------
--- |
--- Module      : MoreCustom
--- Maintainer  : AR
--- Stability   : (stable)
--- Portability : (portable)
---
--- > CVS $Date: 2005/02/24 11:46:39 $ 
--- > CVS $Author: peb $
--- > CVS $Revision: 1.5 $
---
--- databases for customizable commands. AR 21\/11\/2001
---
--- Extends "Custom".
---
--- obsolete???
------------------------------------------------------------------------------
-
-module MoreCustom where
-
-import Operations
-import Text
-import Tokenize
-import UseGrammar
-import qualified UseSyntax as S
-import ShellState
-import Editing
-import Paraphrases
-import Option
-import CF
-import CFIdent --- (CFTok, tS)
-
-import EBNF
-import CFtoGrammar
-import PPrCF
-
-import CFtoHappy
-import Morphology
-import GrammarToHaskell
-import GrammarToCanon (showCanon)
-import GrammarToXML
-import qualified SyntaxToLatex as L
-import GFTex
-import MkResource
-import SeparateOper
-
--- the cf parsing algorithms
-import ChartParser -- or some other CF Parser
-import Earley -- such as this one
----- import HappyParser -- or this...
-
-import qualified PPrSRG as SRG
-import PPrGSL
-
-import qualified TransPredCalc as PC
-
--- databases for customizable commands. AR 21/11/2001
--- Extends ../Custom.
-
-moreCustomGrammarParser :: CustomData (FilePath -> IOE C.CanonGrammar) 
-moreCustomGrammarParser = 
-  [
-   (strCIm "gfl",  S.parseGrammar . extractGFLatex)   
-  ,(strCIm "tex",  S.parseGrammar . extractGFLatex)
-  ,(strCIm "ebnf", pAsGrammar pEBNFasGrammar)
-  ,(strCIm "cf",   pAsGrammar pCFAsGrammar)
--- add your own grammar parsers here
-  ]
- where
-  -- use a parser with no imports or flags
-  pAsGrammar p = err Bad (\g -> return (([],noOptions),g)) . p
-
-
-moreCustomGrammarPrinter :: CustomData (StateGrammar -> String)             
-moreCustomGrammarPrinter = 
-  [
-   (strCIm "happy",   cf2HappyS . stateCF)
-  ,(strCIm "srg",     SRG.prSRG . stateCF)
-  ,(strCIm "gsl",     prGSL . stateCF)
-  ,(strCIm "gfhs",    show . stateGrammarST)
-  ,(strCIm "haskell", grammar2haskell . st2grammar . stateGrammarST)
-  ,(strCIm "xml",     unlines . prDTD . grammar2dtd . stateAbstract)
-  ,(strCIm "fullform",prFullForm . stateMorpho)
-  ,(strCIm "resource",prt . st2grammar . mkResourceGrammar . stateGrammarST)
-  ,(strCIm "resourcetypes", 
-      prt . operTypeGrammar . st2grammar . mkResourceGrammar . stateGrammarST)
-  ,(strCIm "resourcedefs", 
-      prt . operDefGrammar . st2grammar . mkResourceGrammar . stateGrammarST)
--- add your own grammar printers here
---- also include printing via grammar2syntax!
-  ]
-
-moreCustomMultiGrammarPrinter :: CustomData (CanonGrammar -> String)    
-moreCustomMultiGrammarPrinter = []
-
-moreCustomSyntaxPrinter  :: CustomData (GF.Grammar -> String)        
-moreCustomSyntaxPrinter = 
-  [ 
-    (strCIm "gf",    S.prSyntax) -- DEFAULT
-   ,(strCIm "latex", L.syntax2latexfile)
--- add your own grammar printers here
-  ]
-
-moreCustomTermPrinter  :: CustomData (StateGrammar -> Tree -> String)
-moreCustomTermPrinter = 
-  [ 
-    (strCIm "xml",    \g t -> unlines $ prElementX $ term2elemx (stateAbstract g) t)
--- add your own term printers here
-  ]
-
-moreCustomTermCommand    :: CustomData (StateGrammar -> Tree -> [Tree])
-moreCustomTermCommand = 
-  [
-   (strCIm "predcalc",   \_ t -> PC.transfer t)
--- add your own term commands here
-  ]
-
-moreCustomEditCommand    :: CustomData (StateGrammar -> Action)
-moreCustomEditCommand = 
-  [
--- add your own edit commands here
-  ]
-
-moreCustomStringCommand  :: CustomData (StateGrammar -> String -> String)
-moreCustomStringCommand = 
-  [
--- add your own string commands here
-  ]
-
-moreCustomParser         :: CustomData (StateGrammar -> CFCat -> CFParser)
-moreCustomParser = 
-  [
-   (strCIm "chart",    chartParser . stateCF)
-  ,(strCIm "earley",   earleyParser . stateCF)
---  ,(strCIm "happy",     const $ lexHaskell)
---  ,(strCIm "td",        const $ lexText)
--- add your own parsers here
-  ]
-
-moreCustomTokenizer      :: CustomData (StateGrammar -> String -> [CFTok])  
-moreCustomTokenizer = 
-  [
--- add your own tokenizers here
-  ]
-
-moreCustomUntokenizer    :: CustomData (StateGrammar -> String -> String)  
-moreCustomUntokenizer = 
-  [
--- add your own untokenizers here
-  ]
-
-moreCustomUniCoding :: CustomData (String -> String)
-moreCustomUniCoding = 
-  [
--- add your own codings here
-  ]
-
-strCIm :: String -> CommandId
-strCIm = id