mirror of
https://github.com/GrammaticalFramework/gf-core.git
synced 2026-04-11 05:49:31 -06:00
43 lines
1020 B
Haskell
43 lines
1020 B
Haskell
----------------------------------------------------------------------
|
|
-- |
|
|
-- Module : BatchTranslate
|
|
-- Maintainer : Aarne Ranta
|
|
-- Stability : (stable)
|
|
-- Portability : (portable)
|
|
--
|
|
-- > CVS $Date $
|
|
-- > CVS $Author $
|
|
-- > CVS $Revision $
|
|
--
|
|
-- translate OCL, etc, files in batch mode
|
|
-----------------------------------------------------------------------------
|
|
|
|
module BatchTranslate (translate) where
|
|
|
|
import API
|
|
import GetMyTree (file2tree)
|
|
|
|
translate :: FilePath -> FilePath -> IO ()
|
|
translate fgr txt = do
|
|
gr <- file2grammar fgr
|
|
s <- file2tree txt
|
|
putStrLn $ linearize gr s
|
|
|
|
|
|
{- headers for model-specific grammars:
|
|
|
|
abstract userDefined = oclLibrary ** {
|
|
|
|
--# -path=.:abstract:prelude:English:ExtraEng
|
|
concrete userDefinedEng of userDefined = oclLibraryEng ** open externalOperEng in {
|
|
|
|
--# -path=.:abstract:prelude:German:ExtraGer
|
|
concrete userDefinedGer of userDefined = oclLibraryGer ** open
|
|
externalOperGer in {
|
|
|
|
|
|
It seems we should add open
|
|
|
|
ParadigmsX, ResourceExtX, PredicationX
|
|
|
|
-} |