From 54c72f5ab023c0cdac83eb28dd1f81d4cd35aeae Mon Sep 17 00:00:00 2001
From: aarne <unknown>
Date: Tue, 11 Nov 2003 15:44:24 +0000
Subject: Working with interfaces.

Working with interfaces.
Created new place for grammar parsers.
Created new script jgf2+.
---
 src/GF.hs | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'src/GF.hs')

diff --git a/src/GF.hs b/src/GF.hs
index bdc9a9fea..3144e8a18 100644
--- a/src/GF.hs
+++ b/src/GF.hs
@@ -23,12 +23,13 @@ main = do
   xs <- getArgs
   let (os,fs) = getOptions "-" xs
       java    = oElem forJava os
+      isNew   = oElem newParser os ---- temporary hack to have two parallel GUIs
   putStrLn $ if java then encodeUTF8 welcomeMsg else welcomeMsg
   st <- case fs of 
     _ -> useIOE emptyShellState $ foldM (shellStateFromFiles os) emptyShellState fs
   ---  _ -> return emptyShellState
   if null fs then return () else putCPU 
-  if java then sessionLineJ st else do
+  if java then sessionLineJ isNew st else do
   gfInteract (initHState st) 
   return ()
 
-- 
cgit v1.2.3