mirror of
https://github.com/GrammaticalFramework/gf-core.git
synced 2026-04-11 05:49:31 -06:00
56 lines
1.7 KiB
Haskell
56 lines
1.7 KiB
Haskell
module IOGrammar where
|
|
|
|
import Abstract
|
|
import qualified GFC
|
|
import PGrammar
|
|
import TypeCheck
|
|
import Compile
|
|
import ShellState
|
|
import GetGrammar
|
|
|
|
import Modules
|
|
import Option
|
|
import Operations
|
|
import UseIO
|
|
import Arch
|
|
|
|
import Monad (liftM)
|
|
|
|
-- for reading grammars and terms from strings and files
|
|
|
|
--- a heuristic way of renaming constants is used
|
|
string2absTerm :: String -> String -> Term
|
|
string2absTerm m = renameTermIn m . pTrm
|
|
|
|
renameTermIn :: String -> Term -> Term
|
|
renameTermIn m = refreshMetas [] . rename [] where
|
|
rename vs t = case t of
|
|
Abs x b -> Abs x (rename (x:vs) b)
|
|
Vr c -> if elem c vs then t else Q (zIdent m) c
|
|
App f a -> App (rename vs f) (rename vs a)
|
|
_ -> t
|
|
|
|
string2annotTree :: GFC.CanonGrammar -> Ident -> String -> Err Tree
|
|
string2annotTree gr m = annotate gr . string2absTerm (prt m) ---- prt
|
|
|
|
----string2paramList :: ConcreteST -> String -> [Term]
|
|
---string2paramList st = map (renameTrm (lookupConcrete st) . patt2term) . pPattList
|
|
|
|
shellStateFromFiles :: Options -> ShellState -> FilePath -> IOE ShellState
|
|
shellStateFromFiles opts st file = case fileSuffix file of
|
|
"cf" -> do
|
|
let opts' = addOptions (options [beVerbose]) opts
|
|
sgr <- getCFGrammar opts' file
|
|
ioeIO $ print sgr -----
|
|
return st
|
|
"gfcm" -> do
|
|
(_,_,cgr) <- compileOne opts (compileEnvShSt st []) file
|
|
ioeErr $ updateShellState opts st (cgr,(emptyMGrammar,[]))
|
|
_ -> do
|
|
let osb = if oElem showOld opts
|
|
then addOptions (options [beVerbose]) opts -- for old, no emit
|
|
else addOptions (options [beVerbose, emitCode]) opts -- for new,do
|
|
grts <- compileModule osb st file
|
|
ioeErr $ updateShellState opts st grts
|
|
--- liftM (changeModTimes rts) $ grammar2shellState opts gr
|