{-# LANGUAGE CPP #-}

{- |

Module : $Id$

Copyright : (c) Uni Bremen 2003-2005

License : GPLv2 or higher, see LICENSE.txt

Maintainer : Christian.Maeder@dfki.de

Stability : provisional

Portability : non-portable (imports Logic.Logic)

The Main module of the Heterogeneous Tool Set.

It provides the main function to call (and not much more).

-}

-- for interactice purposes use Test.hs

module Main where

import System.Environment (getArgs)

import Control.Monad

import Driver.Options

import Driver.AnaLib

import Driver.ReadFn (showFileType)

import Driver.WriteFn

import Static.DevGraph

import Logic.PrintLogics

#ifdef UNI_PACKAGE

import GUI.ShowGraph

import GUI.ShowLogicGraph

#endif

#ifdef PROGRAMATICA

import Haskell.Haskell2DG

#endif

import Common.LibName

import Interfaces.DataTypes

import CMDL.ProcessScript

import CMDL.Interface (cmdlRunShell)

import CMDL.DataTypes

import PGIP.XMLparsing

import PGIP.XMLstate (isRemote)

#ifdef SERVER

import PGIP.Server

#endif

import Maude.Maude2DG (anaMaudeFile)

import LF.Twelf2DG (anaTwelfFile)

import OMDoc.Import (anaOMDocFile)

#ifdef HEXPAT

import HolLight.HolLight2DG (anaHolLightFile)

#endif

#ifdef HAXML

import Isabelle.Isa2DG (anaIsaFile, anaThyFile)

#endif

main :: IO ()

main =

getArgs >>= hetcatsOpts >>= \ opts -> let imode = interactive opts in

printOptionsWarnings opts >>

#ifdef SERVER

if serve opts then hetsServer opts else

#endif

if isRemote opts || imode

then cmdlRun opts >>= displayGraph "" opts . getMaybeLib . intState

else do

putIfVerbose opts 3 $ "Options: " ++ show opts

if outputLogicList opts

then printLogics

else

case (infiles opts, outputLogicGraph opts) of

([], lg) -> case guiType opts of

UseGui ->

#ifdef UNI_PACKAGE

showPlainLG

#else

noUniPkg

#endif

NoGui | lg -> writeLG opts

_ -> hetsIOError "supply option -G or -g and/or file arguments"

(fs, False) -> mapM_ (processFile opts) fs

_ -> hetsIOError

"option -G is illegal together with file arguments (use -g)"

noUniPkg :: IO ()

noUniPkg = fail $ "No graph display interface; \n"

++ "UNI_PACKAGE option has been "

++ "disabled during compilation of Hets"

processFile :: HetcatsOpts -> FilePath -> IO ()

processFile opts file =

if fileType opts then showFileType opts file else do

putIfVerbose opts 3 ("Processing input: " ++ file)

let doExit = guiType opts == UseGui

res <- case guess file (intype opts) of

#ifdef PROGRAMATICA

HaskellIn -> putStr "this is HaskellIn" >> anaHaskellFile opts file

#endif

#ifdef HEXPAT

HolLightIn -> anaHolLightFile opts file

#endif

#ifdef HAXML

IsaIn -> anaIsaFile opts file

ThyIn -> anaThyFile opts file

#endif

PrfIn -> anaLibReadPrfs opts file

ProofCommand -> do

st <- cmdlProcessFile doExit opts file

liftM (getMaybeLib . intState)

$ (if interactive opts then cmdlRunShell else return) st

MaudeIn -> anaMaudeFile opts file

TwelfIn -> anaTwelfFile opts file

OmdocIn -> anaOMDocFile opts file

_ -> anaLib opts file

case res of

Just (ln, nEnv) ->

writeSpecFiles opts file nEnv ln $ lookupDGraph ln nEnv

_ -> hetsIOError ""

if guess file (intype opts) /= ProofCommand && interactive opts

then cmdlRun opts >> return ()

else displayGraph file opts res

displayGraph :: FilePath -> HetcatsOpts -> Maybe (LibName, LibEnv) -> IO ()

displayGraph file opts res = case guiType opts of

NoGui -> return ()

UseGui ->

#ifdef UNI_PACKAGE

showGraph file opts res

#else

noUniPkg

#endif