mirror of
https://github.com/GrammaticalFramework/gf-core.git
synced 2026-05-26 03:08:55 -06:00
Rename modules GFI, GFC & GFServer...
... to GF.Interactive, GF.Compiler & GF.Server, respectively.
This commit is contained in:
6
gf.cabal
6
gf.cabal
@@ -158,7 +158,7 @@ Executable gf
|
|||||||
build-depends: httpd-shed>=0.4.0.2, network>=2.3 && <2.6, json, cgi
|
build-depends: httpd-shed>=0.4.0.2, network>=2.3 && <2.6, json, cgi
|
||||||
-- ,silently
|
-- ,silently
|
||||||
cpp-options: -DSERVER_MODE
|
cpp-options: -DSERVER_MODE
|
||||||
other-modules: GFServer
|
other-modules: GF.Server
|
||||||
hs-source-dirs: src/server src/server/transfer src/example-based
|
hs-source-dirs: src/server src/server/transfer src/example-based
|
||||||
|
|
||||||
if flag(c-runtime)
|
if flag(c-runtime)
|
||||||
@@ -251,8 +251,8 @@ Executable gf
|
|||||||
GF.Compile.PGFtoJS
|
GF.Compile.PGFtoJS
|
||||||
GF.Compile
|
GF.Compile
|
||||||
GF.Quiz
|
GF.Quiz
|
||||||
GFC
|
GF.Compiler
|
||||||
GFI
|
GF.Interactive
|
||||||
|
|
||||||
if flag(interrupt)
|
if flag(interrupt)
|
||||||
cpp-options: -DUSE_INTERRUPT
|
cpp-options: -DUSE_INTERRUPT
|
||||||
|
|||||||
@@ -1,7 +1,7 @@
|
|||||||
module Main where
|
module Main where
|
||||||
|
|
||||||
import GFC
|
import GF.Compiler
|
||||||
import GFI
|
import GF.Interactive
|
||||||
import GF.Data.ErrM
|
import GF.Data.ErrM
|
||||||
import GF.Infra.Option
|
import GF.Infra.Option
|
||||||
import GF.Infra.UseIO
|
import GF.Infra.UseIO
|
||||||
|
|||||||
@@ -1,5 +1,4 @@
|
|||||||
module GFC (mainGFC, writePGF) where
|
module GF.Compiler (mainGFC, writePGF) where
|
||||||
-- module Main where
|
|
||||||
|
|
||||||
import PGF
|
import PGF
|
||||||
import PGF.Internal(concretes,optimizePGF,unionPGF)
|
import PGF.Internal(concretes,optimizePGF,unionPGF)
|
||||||
@@ -1,6 +1,6 @@
|
|||||||
{-# LANGUAGE ScopedTypeVariables, CPP #-}
|
{-# LANGUAGE ScopedTypeVariables, CPP #-}
|
||||||
-- | GF interactive mode
|
-- | GF interactive mode
|
||||||
module GFI (mainGFI,mainRunGFI,mainServerGFI) where
|
module GF.Interactive (mainGFI,mainRunGFI,mainServerGFI) where
|
||||||
import Prelude hiding (putStrLn,print)
|
import Prelude hiding (putStrLn,print)
|
||||||
import qualified Prelude as P(putStrLn)
|
import qualified Prelude as P(putStrLn)
|
||||||
import GF.Command.Interpreter(CommandEnv(..),commands,mkCommandEnv,emptyCommandEnv,interpretCommandLine)
|
import GF.Command.Interpreter(CommandEnv(..),commands,mkCommandEnv,emptyCommandEnv,interpretCommandLine)
|
||||||
@@ -45,7 +45,7 @@ import Control.Monad
|
|||||||
import GF.Text.Pretty (render)
|
import GF.Text.Pretty (render)
|
||||||
import qualified GF.System.Signal as IO(runInterruptibly)
|
import qualified GF.System.Signal as IO(runInterruptibly)
|
||||||
#ifdef SERVER_MODE
|
#ifdef SERVER_MODE
|
||||||
import GFServer(server)
|
import GF.Server(server)
|
||||||
#endif
|
#endif
|
||||||
import GF.System.Console(changeConsoleEncoding)
|
import GF.System.Console(changeConsoleEncoding)
|
||||||
|
|
||||||
@@ -1,6 +1,6 @@
|
|||||||
-- | GF server mode
|
-- | GF server mode
|
||||||
{-# LANGUAGE CPP #-}
|
{-# LANGUAGE CPP #-}
|
||||||
module GFServer(server) where
|
module GF.Server(server) where
|
||||||
import Data.List(partition,stripPrefix,isInfixOf)
|
import Data.List(partition,stripPrefix,isInfixOf)
|
||||||
import qualified Data.Map as M
|
import qualified Data.Map as M
|
||||||
import Control.Monad(when)
|
import Control.Monad(when)
|
||||||
Reference in New Issue
Block a user