  cl - ana is a Common Lisp data analysis library .
  Copyright 2013 , 2014  
;;;; 
  This file is part of cl - ana .
;;;; 
;;;; cl-ana 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 of the License , or
;;;; (at your option) any later version.
;;;; 
;;;; cl-ana is distributed in the hope that it will be useful, but
;;;; WITHOUT ANY WARRANTY; without even the implied warranty of
;;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
;;;; General Public License for more details.
;;;; 
  You should have received a copy of the GNU General Public License
;;;; along with cl-ana.  If not, see </>.
;;;;
  You may contact   ( me ! ) via email at
;;;; 

(in-package :cl-ana.gnuplot-interface)

(defun gnuplot-init ()
  (let ((session
         (start "gnuplot"
                ()
                :input :stream
                :output :stream
                :error :output
                :external-format :utf-8)))
    session))

(defun gnuplot-close (session)
  (close (process-input-stream session)))

(defun gnuplot-cmd (session command-string)
  (let ((input-stream (process-input-stream session)))
    (format input-stream
            "~a~%"
            command-string)
    (finish-output input-stream)))

 
 
 cl-ana is free software: you can redistribute it and/or modify it
 (at your option) any later version.
 
 cl-ana is distributed in the hope that it will be useful, but
 WITHOUT ANY WARRANTY; without even the implied warranty of
 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
 General Public License for more details.
 
 along with cl-ana.  If not, see </>.

 
  cl - ana is a Common Lisp data analysis library .
  Copyright 2013 , 2014  
  This file is part of cl - ana .
  under the terms of the GNU General Public License as published by
  the Free Software Foundation , either version 3 of the License , or
  You should have received a copy of the GNU General Public License
  You may contact   ( me ! ) via email at

(in-package :cl-ana.gnuplot-interface)

(defun gnuplot-init ()
  (let ((session
         (start "gnuplot"
                ()
                :input :stream
                :output :stream
                :error :output
                :external-format :utf-8)))
    session))

(defun gnuplot-close (session)
  (close (process-input-stream session)))

(defun gnuplot-cmd (session command-string)
  (let ((input-stream (process-input-stream session)))
    (format input-stream
            "~a~%"
            command-string)
    (finish-output input-stream)))
