gvti-0.1.1.0: Main.hs

{-|
Module      : Main
Description : The "glue" between spreadsheets and GraphViz
Copyright   : (c) OleksandrZhabenko, 2017-2022
License     : MIT
Maintainer  : olexandr543@yahoo.com
Stability   : Experimental

A program @mmsyn4@ converts a specially formated @.csv@ file with a colon as a field separator obtained from the electronic table 
into a visualized by GraphViz graph in the one of the supported by GraphViz format. The proper GraphViz installation is required.
-}

module Main where

import GVTI (process2)
import System.Environment (getArgs)
import System.Directory
import Data.List (isPrefixOf)
import Data.Char (isLetter, isDigit) 
import Formatting (formatLines)

main :: IO ()
main = do 
  args00 <- getArgs
  let args = filter (/= "-g") args00
      arg0 = concat . take 1 $ args
      arggs = drop 1 args
      xxs = concatMap (take 1 . drop 2) . filter ("-c" `isPrefixOf`) $ arggs
      yys = concatMap (take 2 . drop 2) . filter ("-f" `isPrefixOf`) $ arggs
      bnames = concatMap (drop 2) . filter ("-b" `isPrefixOf`) $ arggs
      splines = concatMap (take 1 . drop 2) . filter ("-s" `isPrefixOf`) $ arggs
      remAts = concatMap (take 1 . drop 1) . filter ("-y" `isPrefixOf`) $ arggs
      gvti = any (== "-g") args00
  exI <- doesFileExist arg0
  if exI 
    then do 
      text2 <- readFile arg0
      let txt 
           | gvti = unlines  . formatLines ':' . filter (any (\x -> isLetter x || isDigit x)) . lines $ text2
	   | otherwise =  unlines . filter (any (\x -> isLetter x || isDigit x)) . lines $ text2
      process2 txt xxs yys bnames splines remAts
    else putStrLn "No file specified exists in the current directory! "