----------------------------------------------------------------------
-- |
-- Module      : JGF
-- Maintainer  : AR
-- Stability   : (stable)
-- Portability : (portable)
--
-- > CVS $Date: 2005/04/21 16:23:21 $ 
-- > CVS $Author: bringert $
-- > CVS $Revision: 1.12 $
--
-- GF editing session controlled by e.g. a Java program. AR 16\/11\/2001
-----------------------------------------------------------------------------

module GF.Shell.JGF where

import GF.Data.Operations
import GF.Infra.UseIO
import GF.Text.Unicode

import GF.API.IOGrammar
import GF.Infra.Option
import GF.Compile.ShellState
import GF.UseGrammar.Session
import GF.Shell.Commands
import GF.Shell.CommandL

import System
import GF.Text.UTF8


-- GF editing session controlled by e.g. a Java program. AR 16/11/2001

-- | the Boolean is a temporary hack to have two parallel GUIs
sessionLineJ :: Bool -> ShellState -> IO ()
sessionLineJ isNew env = do
  putStrLnFlush $ initEditMsgJavaX env
  let env' = addGlobalOptions (options [sizeDisplay "short",beSilent]) env
  editLoopJnewX isNew env' (initSState)

-- | this is the real version, with XML
--
-- the Boolean is a temporary hack to have two parallel GUIs
editLoopJnewX :: Bool -> CEnv -> SState -> IO ()
editLoopJnewX isNew env state = do
  (m,c) <- getCommandUTF (isCEnvUTF8 env state) ----
  case c of
    CQuit -> return ()

    c -> do
      (env',state') <- execCommand env c state
      let inits = initAndEditMsgJavaX isNew env' state' m
      let package = case c of
            CCEnvImport _         -> inits
            CCEnvEmptyAndImport _ -> inits
            CCEnvOpenTerm _       -> inits
            CCEnvOpenString _     -> inits
            CCEnvEmpty            -> initEditMsgJavaX env'
            _ -> displaySStateJavaX isNew env' state' m
      putStrLnFlush package
      editLoopJnewX isNew env' state'

welcome :: String
welcome = 
  "An experimental GF Editor for Java." ++ 
  "(c) Kristofer Johannisson, Janna Khegai, and Aarne Ranta 2002 under CNU GPL."

initEditMsgJavaX :: CEnv -> String
initEditMsgJavaX env = encodeUTF8 $ mkUnicode $ unlines $ tagXML "gfinit" $ 
  tagsXML "newcat"   [["n" +++ cat]     | (_,cat) <- newCatMenu env] ++
  tagXML  "topic"    [abstractName env] ++
  tagXML  "language" [prLanguage langAbstract] ++
  concat [tagAttrXML "language" ("file",file) [prLanguage lang] |
           (file,lang) <- zip (allGrammarFileNames env) (allLanguages env)]


initAndEditMsgJavaX :: Bool -> CEnv -> SState -> String -> String
initAndEditMsgJavaX isNew env state m = 
  initEditMsgJavaX env ++++ displaySStateJavaX isNew env state m