gnuplot-0.2: execute/shell/Graphics/Gnuplot/Execute.hs

module Graphics.Gnuplot.Execute where

import System.Exit (ExitCode, )
import System.Cmd (system, )
import Graphics.Gnuplot.Utility
   (quote, semiColonConcat, )


simple ::
      [String] {-^ The lines of the gnuplot script to be piped into gnuplot -}
   -> [String] {-^ Options for gnuplot -}
   -> IO ExitCode
simple program options =
   let cmd =
          "sh -c 'echo " ++ quote (escape (semiColonConcat program)) ++
                 " | gnuplot " ++ unwords options ++ "'"
   in  do --putStrLn cmd
          system cmd

escape :: String -> String
escape ('\"':xs) = '\\' : '\"' : escape xs
escape (x:xs)    = x : escape xs
escape [] = []