root/hiersort/sim/RunProcSys.hs

-- | RunProcSys.hs
-- Parse command line, configure DFL system and run program with it.
--
-- Copytight (C) 2007, 2008 Serguey Zefirov
--
-- This program is free software; you can redistribute it and/or modify
-- it under the terms of the GNU General Public License as published by
-- the Free Software Foundation; either version 3, or (at your option)
-- any later version.
-- See file COPYING or visit http://www.gnu.org/licenses for details.

-- A program supplied as a matcher function in taskConfig parameter.


module RunProcSys(runProcSys) where

import Config
import HierProc
import DFLSystem

import System.Environment

runProcSys taskConfig = do
        cfg <- parseCommandLine
        args <- getArgs
        putStrLn $ "Command line options: "++show args
        let
                        (dflsysparams,_) = taskConfig cfg
                        proc = hierProc cfg
                in do
                        dflSystemRunner cfg proc dflsysparams
                        return ()