home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
OS/2 Professional
/
OS2PRO194.ISO
/
os2
/
progs
/
pari
/
pari_137
/
pari.elc
< prev
next >
Wrap
Text File
|
1992-05-20
|
14KB
|
268 lines
(provide (quote gp))
(defconst gp-chap3 "~pari/PARISOURCES/tex/usersch3.tex" "\
The TeX source for chapter 3 of the PARI-GP manual")
(defconst gp-file-name "/usr/local/bin/gp" "\
The file name of the gp executable file")
(defconst gp-man-dvi "~pari/SPARC/tex/users.dvi" "\
dvi version of the manual")
(defconst gp-menu "~pari/PARISOURCES/pari.menu" "\
menu file")
(defconst gp-dvi-preview "xdvi -s 3" "\
dvi previewer (and options)")
(defvar gp-stack-size "4000000" "\
Default stack size: passed to the progam gp.")
(defvar gp-buffer-size "30000" "\
Default buffer size: passed to the progam gp.")
(defvar gp-prime-limit "500000" "\
Default prime limit: passed to the progam gp.")
(defvar gp-prompt-for-args nil "\
A non-nil value makes M-x gp act like C-u M-x gp,
ie prompt for the command line arguments.")
(setq gp-temp-file (make-temp-name "/usr/tmp/gp_"))
(defvar gp-prompt-pattern "---- (type return to continue) ----\\|\\?[
]*" "Regexp used to match gp prompts.
can be set with gp-set-prompt (bound to M-\\ p)")
(defvar gp-map (make-sparse-keymap) "\
Local keymap used in buffer *PARI*.")
(define-key gp-map "" (quote gp-send-input))
(define-key gp-map "ì" (quote gp-copy-input))
(define-key gp-map "▄p" (quote gp-set-prompt))
(define-key gp-map "▄t" (quote gp-meta-t))
(define-key gp-map "▄d" (quote gp-meta-d))
(define-key gp-map "▄r" (quote gp-meta-r))
(define-key gp-map "▄w" (quote gp-meta-w))
(define-key gp-map "▄v" (quote gp-meta-v))
(define-key gp-map "▄x" (quote gp-meta-x))
(define-key gp-map "▄s" (quote gp-meta-s))
(define-key gp-map "▄a" (quote gp-meta-a))
(define-key gp-map "▄b" (quote gp-meta-b))
(define-key gp-map "▄m" (quote gp-meta-m))
(define-key gp-map "▄k" (quote gp-meta-k))
(define-key gp-map "▄q" (quote gp-meta-q))
(define-key gp-map "┐" (quote gp-get-man-entry))
(define-key gp-map "▄c" (quote gp-menu))
(define-key gp-map "▄\\" (quote gp-break-long-line))
(define-key gp-map "" (quote gp-interrupt))
(defvar gp-process nil "\
")
(defvar gp-man-process nil "\
")
(defun gp (flag) "\
Open a buffer and a window for the execution of gp.
The following bindings are available:
\\{gp-map}
The variables
gp-file-name gp-stack-size gp-buffer-size gp-prime-limit
determine the command line that starts gp.
To override the default settings, give gp a prefix argument.
C-u M-x gp ." (interactive "P") (byte-code "┴ê╬╧!êdbêâ ┴én ╨ ê╤ëê╥ëê╙╘!ê╒!ê╓ëêå/ ╫╪ ┘$╫┌
█$╫▄▌$╫▐▀$RααQcêßΓ╧πΣP%ë*êσµ\"ç" [gp-process nil major-mode mode-name gp-map mode-line-process flag gp-prompt-for-args gp-command gp-file-name gp-stack-size gp-buffer-size gp-prime-limit shell-file-name switch-to-buffer "*PARI*" kill-all-local-variables gp "GP" run-hooks gp-mode-hook use-local-map (": %s") gp-read-input "Gp executable ?" "" "Stack size ?" " -s " "Buffer size ?" " -b " "Prime limit ?" " -p " "
" start-process "pari" "-c" "stty nl; exec " set-process-sentinel gp-sentinel] 15))
(defun gp-read-input (prompt default sep flag) "\
If flag is non-nil, reads string then if string is \"\" uses default.
If flag is nil then string is the default.
If resulting string is not \"\" prepends sep.
As a special case, if string is a space, return \"\"." (byte-code " â ┼
╞╟R!é ╚╔\"â( ╚╔\"â\" ╔é% Pé6 ╚╩\"â3 ╔é6 P)ç" [string flag prompt default sep read-input " (Default " ") " equal "" " "] 6))
(defun gp-sentinel (proc msg) "\
Sentinel for the gp-process in buffer *PARI*." (byte-code "╩╦!à