Return to gnuplot.el CVS log

Up to [local] / OpenXM_contrib / gnuplot

Annotation of OpenXM_contrib/gnuplot/gnuplot.el, Revision 1.1.1.2

1.1       maekawa     1: ;;
1.1.1.2 ! maekawa     2: ;; $Id: gnuplot.el,v 1.1.1.1 1998/04/15 19:16:29 lhecking Exp $
1.1       maekawa     3: ;;
                      4: ;;
                      5: ;
                      6: ; gnu-plot.el - Definitions of GNU-PLOT mode for emacs editor.
                      7: ;
                      8: ; Author:      Gershon Elber
                      9: ;              Computer Science Dept.
                     10: ;              University of Utah
                     11: ; Date:        Tue May 14 1991
                     12: ; Copyright (c) 1991, 1992, Gershon Elber
                     13: ;
                     14: ; This file defines an environment to run edit and execute GNU-PLOT programs.
                     15: ; Such a program should have a '.gp' extension in order it to be in
                     16: ; gnu-plot-mode major mode. Two new functions are provided to communicate
                     17: ; between the editted file and the plotting program:
                     18: ; 1. send-line-to-gnu-plot - sends a single line to the plotting program for
                     19: ;    execution. The line sent is the line the cursor is on,
                     20: ;    Bounded to Meta-E by default.
                     21: ; 2. send-region-to-gnu-plot - sends the region from the current mark
                     22: ;    (mark-marker) to current position (point-marker) to the plotting program.
                     23: ;    This function is convenient for sending a large block of commands.
                     24: ;    Bounded to Meta-R by default.
                     25: ; Both functions checks for existance of a buffer named gnu-plot-program
                     26: ; and a process named "gnu-plot" hooked to it, and will restart a new process
                     27: ; or buffer if none exists. The program to execute as process "gnu-plot" is
                     28: ; defined by the gnu-plot-program constant below.
                     29: ;
                     30:
                     31: (defvar gnu-plot-program "gnuplot"
                     32:   "*The executable to run for gnu-plot-program buffer.")
                     33:
                     34: (defvar gnu-plot-echo-program t
                     35:   "*Control echo of executed commands to gnu-plot-program buffer.")
                     36:
                     37: (defvar gnu-plot-mode-map nil "")
                     38: (if gnu-plot-mode-map
                     39:     ()
                     40:   (setq gnu-plot-mode-map (make-sparse-keymap))
                     41:   (define-key gnu-plot-mode-map "\M-e" 'send-line-to-gnu-plot)
                     42:   (define-key gnu-plot-mode-map "\M-r" 'send-region-to-gnu-plot))
                     43:
                     44: ;;;
                     45: ;;; Define the gnu-plot-mode
                     46: ;;;
                     47: (defun gnu-plot-mode ()
                     48:   "Major mode for editing and executing GNU-PLOT files.
                     49:
                     50: see send-line-to-gnu-plot and send-region-to-gnu-plot for more."
                     51:   (interactive)
                     52:   (use-local-map gnu-plot-mode-map)
                     53:   (setq major-mode 'gnu-plot-mode)
                     54:   (setq mode-name "Gnu-Plot")
                     55:   (run-hooks 'gnu-plot-mode-hook))
                     56:
                     57: ;;;
                     58: ;;; Define send-line-to-gnu-plot - send from current cursor position to next
                     59: ;;; semicolin detected.
                     60: ;;;
                     61: (defun send-line-to-gnu-plot ()
                     62:   "Sends one line of code from current buffer to the GNU-PLOT program.
                     63:
                     64: Use to execute a line in the GNU-PLOT plotting program. The line sent is
                     65: the line the cursor (point) is on.
                     66:
                     67: The GNU-PLOT plotting program buffer name is gnu-plot-program and the
                     68: process name is 'gnu-plot'. If none exists, a new one is created.
                     69:
                     70: The name of the gnu-plot program program to execute is stored in
                     71: gnu-plot-program variable and may be changed."
                     72:   (interactive)
                     73:   (if (equal major-mode 'gnu-plot-mode)
                     74:     (progn
                     75:       (make-gnu-plot-buffer)        ; In case we should start a new one.
                     76:       (beginning-of-line)
                     77:       (let ((start-mark (point-marker)))
                     78:        (next-line 1)
                     79:        (let* ((crnt-buffer (buffer-name))
                     80:               (end-mark (point-marker))
                     81:               (string-copy (buffer-substring start-mark end-mark)))
                     82:          (switch-to-buffer-other-window (get-buffer "gnu-plot-program"))
                     83:          (end-of-buffer)
                     84:          (if gnu-plot-echo-program
                     85:            (insert string-copy))
                     86:          (set-marker (process-mark (get-process "gnu-plot")) (point-marker))
                     87:          (if (not (pos-visible-in-window-p))
                     88:            (recenter 3))
                     89:          (switch-to-buffer-other-window (get-buffer crnt-buffer))
                     90:          (process-send-region "gnu-plot" start-mark end-mark)
                     91:          (goto-char end-mark))))
                     92:     (message "Should be invoked in gnu-plot-mode only.")))
                     93:
                     94: ;;;
                     95: ;;; Define send-region-to-gnu-plot - send from current cursor position to
                     96: ;;; current marker.
                     97: ;;;
                     98: (defun send-region-to-gnu-plot ()
                     99:   "Sends a region of code from current buffer to the GNU-PLOT program.
                    100:
                    101: When this function is invoked on an GNU-PLOT file it send the region
                    102: from current point to current mark to the gnu-plot plotting program.
                    103:
                    104: The GNU-PLOT plotting program buffer name is gnu-plot-program and the
                    105: process name is 'gnu-plot'. If none exists, a new one is created.
                    106:
                    107: The name of the gnu-plot program program to execute is stored in
                    108: gnu-plot-program variable and may be changed."
                    109:   (interactive)
                    110:   (if (equal major-mode 'gnu-plot-mode)
                    111:     (progn
                    112:       (make-gnu-plot-buffer)     ; In case we should start a new one.
                    113:       (copy-region-as-kill (mark-marker) (point-marker))
                    114:       (let ((crnt-buffer (buffer-name)))
                    115:        (switch-to-buffer-other-window (get-buffer "gnu-plot-program"))
                    116:        (end-of-buffer)
                    117:        (if gnu-plot-echo-program
                    118:          (yank))
                    119:        (set-marker (process-mark (get-process "gnu-plot")) (point-marker))
                    120:        (if (not (pos-visible-in-window-p))
                    121:          (recenter 3))
                    122:        (switch-to-buffer-other-window (get-buffer crnt-buffer))
                    123:        (process-send-region "gnu-plot" (mark-marker) (point-marker))))
                    124:     (message "Should be invoked in gnu-plot-mode only.")))
                    125:
                    126: ;;;
                    127: ;;; Switch to "gnu-plot-program" buffer if exists. If not, creates one and
                    128: ;;; execute the program defined by gnu-plot-program.
                    129: ;;;
                    130: (defun make-gnu-plot-buffer ()
                    131:   "Switch to gnu-plot-program buffer or create one if none exists"
                    132:   (interactive)
                    133:   (if (get-buffer "gnu-plot-program")
                    134:     (if (not (get-process "gnu-plot"))
                    135:       (progn
                    136:        (message "Starting GNU-PLOT plotting program...")
                    137:        (start-process "gnu-plot" "gnu-plot-program" gnu-plot-program)
                    138:        (process-send-string "gnu-plot" "\n")
                    139:        (message "Done.")))
                    140:     (progn
                    141:       (message "Starting GNU-PLOT plotting program...")
                    142:       (start-process "gnu-plot" "gnu-plot-program" gnu-plot-program)
                    143:       (process-send-string "gnu-plot" "\n")
                    144:       (message "Done."))))
                    145:
                    146: ;;;
                    147: ;;; Autoload gnu-plot-mode on any file with gp extension.
                    148: ;;;
                    149: (setq auto-mode-alist (append '(("\\.gp$" . gnu-plot-mode))
                    150:                              auto-mode-alist))