[Emacs-diffs] emacs/lisp/calc calc-graph.el

[Eli Zaretskii]

CVSROOT:        /cvsroot/emacs
Module name:    emacs
Changes by:     Eli Zaretskii <eliz>    09/08/07 14:53:46

Modified files:
        lisp/calc      : calc-graph.el 

Log message:
        (calc-graph-plot): Set calc-graph-last-device to "windows" when 
"pgnuplot"
        is used.
        (calc-graph-command, calc-gnuplot-command, calc-graph-init): Don't call
        accept-process-output if "pgnuplot" is used.
        (calc-graph-init): Don't send -display and -geometry to "pgnuplot".  If
        "pgnuplot" is used, glean gnuplot version by running "pgnuplot -V" with
        shell-command-to-string.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/calc/calc-graph.el?cvsroot=emacs&r1=1.31&r2=1.32

Patches:
Index: calc-graph.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/calc/calc-graph.el,v
retrieving revision 1.31
retrieving revision 1.32
diff -u -b -r1.31 -r1.32
--- calc-graph.el       23 Jun 2009 07:28:21 -0000      1.31
+++ calc-graph.el       7 Aug 2009 14:53:46 -0000       1.32
@@ -375,12 +375,19 @@
               (setq output (car (read-from-string output)))
             (setq output calc-gnuplot-default-output)))
         (if (or (equal device "") (equal device "default"))
-            (setq device (if printing
-                             "postscript"
-                           (if (or (eq window-system 'x) (getenv "DISPLAY"))
-                               "x11"
-                             (if (>= calc-gnuplot-version 3)
-                                 "dumb" "postscript")))))
+            (setq device
+                  (cond
+                   (printing "postscript")
+                   ;; Check MS-Windows before X, in case they have
+                   ;; $DISPLAY set for some reason (e.g., Cygwin or
+                   ;; whatever)
+                   ((string= calc-gnuplot-name "pgnuplot")
+                    "windows")
+                   ((or (eq window-system 'x) (getenv "DISPLAY"))
+                    "x11")
+                   ((>= calc-gnuplot-version 3)
+                    "dumb")
+                   (t "postscript"))))
         (if (equal device "dumb")
             (setq device (format "dumb %d %d"
                                  (1- (frame-width)) (1- (frame-height)))))
@@ -1324,8 +1331,10 @@
    (calc-graph-init)
    (calc-graph-view-trail)
    (calc-gnuplot-command cmd)
+   (or (string= calc-gnuplot-name "pgnuplot")
+       (progn
    (accept-process-output)
-   (calc-graph-view-trail)))
+        (calc-graph-view-trail)))))
 
 (defun calc-graph-kill (&optional no-view)
   (interactive)
@@ -1407,7 +1416,8 @@
 (defun calc-gnuplot-command (&rest args)
   (calc-graph-init)
   (let ((cmd (concat (mapconcat 'identity args " ") "\n")))
-    (accept-process-output)
+    (or (string= calc-gnuplot-name "pgnuplot")
+       (accept-process-output))
     (save-excursion
       (set-buffer calc-gnuplot-buffer)
       (calc-gnuplot-check-for-errors)
@@ -1419,8 +1429,9 @@
       (process-send-string calc-gnuplot-process cmd)
       (if (get-buffer-window calc-gnuplot-buffer)
          (calc-graph-view-trail))
+      (or (string= calc-gnuplot-name "pgnuplot")
       (accept-process-output (and (not calc-graph-no-wait)
-                                 calc-gnuplot-process))
+                                     calc-gnuplot-process)))
       (calc-gnuplot-check-for-errors)
       (if (get-buffer-window calc-gnuplot-buffer)
          (calc-graph-view-trail)))))
@@ -1448,13 +1459,23 @@
          (setq origin (point)))
        (setq calc-graph-last-device nil)
        (setq calc-graph-last-output nil)
+       (if (string= calc-gnuplot-name "pgnuplot")
+           (let ((version-str (shell-command-to-string "pgnuplot -V")))
+             (if (string-match "gnuplot \\([0-9]+\\)\\." version-str)
+                 (setq calc-gnuplot-version (string-to-number
+                                             (substring version-str
+                                                        (match-beginning 1)
+                                                        (match-end 1))))
+               (setq calc-gnuplot-version 1))))
        (condition-case err
            (let ((args (append (and calc-gnuplot-display
                                     (not (equal calc-gnuplot-display
                                                 (getenv "DISPLAY")))
+                                    (not (string= calc-gnuplot-name 
"pgnuplot"))
                                     (list "-display"
                                           calc-gnuplot-display))
                                (and calc-gnuplot-geometry
+                                    (not (string= calc-gnuplot-name 
"pgnuplot"))
                                     (list "-geometry"
                                           calc-gnuplot-geometry)))))
              (setq calc-gnuplot-process
@@ -1469,21 +1490,24 @@
                  calc-gnuplot-name)))
        (save-excursion
          (set-buffer calc-gnuplot-buffer)
-         (while (and (not (save-excursion
+         (while (and (not (string= calc-gnuplot-name "pgnuplot"))
+                     (not (save-excursion
                             (goto-char origin)
                             (search-forward "gnuplot> " nil t)))
                      (memq (process-status calc-gnuplot-process) '(run stop)))
            (accept-process-output calc-gnuplot-process))
          (or (memq (process-status calc-gnuplot-process) '(run stop))
              (error "Unable to start GNUPLOT process"))
+         (if (not (string= calc-gnuplot-name "pgnuplot"))
          (if (save-excursion
                (goto-char origin)
                (re-search-forward
                 "G N U P L O T.*\n.*version \\([0-9]+\\)\\." nil t))
-             (setq calc-gnuplot-version (string-to-number (buffer-substring
+                 (setq calc-gnuplot-version
+                       (string-to-number (buffer-substring
                                                         (match-beginning 1)
                                                         (match-end 1))))
-           (setq calc-gnuplot-version 1))
+               (setq calc-gnuplot-version 1)))
          (goto-char (point-max)))))
   (save-excursion
     (set-buffer calc-gnuplot-input)