RISC DISC 2/RISC_DISC_2.iso/pd_share/program/code/pari/other/pari_elc

Text File | 1991-11-13 | 12.9 KB | 256 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.")

(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 "Üb" (quote gp-meta-b))

(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 "ÇÈ!ŶÈq⇦db⇦c⇦ÉÈ!⇦ÇÊ!ŶËÊ!⇦Ì
!    Ŷ(Ë    !)⇦Ì!    Ŷ5Ë    !)⇦Í!ŶGÎÏP!⇦ÐÑ\"⇦Æ⇨" [msg b gp-chap3 gp-menu gp-temp-file gp-process nil get-buffer "*PARI*" delete-windows-on "*gp-help*" kill-buffer get-file-buffer file-exists-p shell-command "rm " message "Removing %s"] 13))

(defun gpman nil "\
Start up xdvi with the gp manual." (interactive) (byte-code "Á⇦ÅÆ!⇦ÇÈ!q⇦◰Áŵ-ÉÊ
ËR!⇦ÌÍÈÎÏ
ËR%⇨⇦ÐÑ\"" [gp-man-process nil gp-dvi-preview gp-man-dvi shell-file-name run-hooks gp-mode-hook get-buffer-create "*GP-MAN*" message "Starting " " " start-process "gp-man" "-c" "exec " set-process-sentinel gp-man-sentinel] 12))

(defun gp-man-sentinel (proc msg) "\
Sentinel for the gp-man-process in buffer *GP-MAN*." (byte-code "Å    !ŶÆ!)⇦ÇÈ
P!⇦Ä⇨" [buf proc msg gp-man-process nil process-buffer kill-buffer message "gpman: "] 5))

(defun gp-copy-input nil "\
Copy expression around point to the end of the buffer.
   (Unless this is already the last expression.)" (interactive) (byte-code "É⇦Ê!⇦ËÌ!Í ⇦Î!⇦`⇨⇦    b)⇦ÎÏÐQdÄ#◰,ÑÌ!ŵ-d
b⇦ÒÓ!◰;Ôŵ<ÕÎ
Ö#⇨⇦`⇨⇦Ŷjdb⇦×
\"c⇦◰dÉŵjØ ⇦ÙÚ!)))" [gp-prompt-pattern p gp-input-start nlast t limit end-expression gp-complete-expression gp-input-end nil re-search-backward match-end 0 beginning-of-line re-search-forward "[
 ]*\\(" "\\|%[0-9]+ =\\|\\*\\*\\*\\|unused characters\\|time\\)" match-beginning looking-at " *{" "}$" "[^\\]$" 1 buffer-substring ding message "Incomplete expression."] 12))

(setq gp-temp-file (make-temp-name "/usr/tmp/gp_"))

(defun gp-send-input nil "\
Send input to gp. Does not send incomplete expressions
   ie those starting with {, without a matching }, or those
   ending with \\ .
   Use a temporary file (and \\r ) for large expressions" (interactive) (byte-code "Å⇦Æ ⇦Çc⇦◰8
ZÈV◰$É
    #⇦ÊËÇQ\"ŵ.Ì
    #⇦ÊÇ\"⇦ÍÎ!`\"ŵ;ÏÐ!" [gp-complete-expression gp-input-end gp-input-start gp-temp-file gp-process nil gp-copy-input "
" 255 write-region process-send-string "\\r " process-send-region set-marker process-mark message "Incomplete expression: Not sent to gp."] 9))

(defun gp-interrupt nil "\
Interrupt gp.
   This is identical to interrupt-shell-subjob in shell-mode." (interactive) (byte-code "À⇦ÂÀÁ\"" [nil t interrupt-process] 3))

(defun gp-set-prompt (p) "\
Set new gp prompt (and tell emacs that you have done so).
   Do not put spaces in the argument, or emacs and gp will
   have a different idea about what the prompt is." (interactive "sNew prompt: ") (byte-code "Â⇦Ã    !ÄQ⇨⇦Åq⇦db⇦Æ    Pc⇦Ç " [gp-prompt-pattern p nil regexp-quote "[
     ]*\\|" "*PARI*" "\\prompt=" gp-send-input] 4))

(defun gp-replace (a b) "\
Replace the regexp a by the string b everywhere in the current buffer" (byte-code "eb⇦ÃdÁ#ŶÄ
ÁÁ#⇦ŵ" [a t b re-search-forward replace-match] 6))

(defun gp-get-man-entry (fn) "\
Obtains the description of fn from chapter 3 of the manual.
  Strips off some (not all) of the TeX syntax, and displays the result
  in a new window.
  If there is no entry for fn in the manual, sends ?fn to gp." (interactive "sFunction: ") (byte-code "Á⇦ÁÈ
!q)⇦ÉÊ\"◰Ëŵ·ÉÌ\"◰ Íŵ·ÉÎ\"◰+Ïŵ·ÉÐ\"◰6Ñŵ·ÉÒ\"◰AÓŵ·ÉÔ\"◰LÕŵ·ÉÖ\"◰W×ŵ·ÉØ\"◰bÙŵ·ÉÚ\"◰mÛŵ·ÉÜ\"◰xÝŵ·ÉÞ\"ŷ­Éß\"ŷ­Éà\"ŷ­Éá\"ŷ­Éâ\"ŷ­Éã\"ŷ­Éä\"ŷ­Éå\"◰´æŵ·ç!eb⇦èéêQdÅ#◰
ëì!b⇦í`èîdÅ#⇦ïð!\"ñ òóô!!⇦õ ⇦c⇦ö÷Ô\"⇦öøù\"⇦öËÊ\"⇦öúÌ\"⇦öûü\"⇦eb⇦ý!*ŵ
þq⇦ÿŴ@P!)" [auto-mode-alist nil gp-chap3 qfn fn t copy wind find-file-noselect equal "\\" "\\\\backslash" "^" "\\\\hat{}" "!" "fact" "~" "trans" "_" "conj" "-" "\\+" "%" "\\\\%" "min" "max" "log" "ln" "det2" "det" "<=" "<" ">=" ">" "==" "!=" "||" "&&" "comparison and \\\\ref{boolean operators}" regexp-quote re-search-forward "\\(subsec[\\\\{ref]*[\\${]\\)" "[}\\$]" match-end 1 buffer-substring "[tT]he library\\|\\\\[sub]*sec" match-beginning 0 selected-window switch-to-buffer-other-window get-buffer-create "*gp-help*" erase-buffer gp-replace "\\$-" "\\$" " " "\\\\hat" "\\\\smallskip\\|\\\\sref{[ a-z]*}\\|\\\\bf\\|\\\\ref\\|\\\\Bbb\\|\\\\text\\|\\\\tt\\|{\\|}" "" select-window "*PARI*" gp-meta-command "?"] 39))

(defun gp-meta-command (command) "\
Send command to gp, and display output in help buffer" (byte-code "db⇦`Å Æ
ÇP\"⇦È ⇦Éd\"Êd\"⇦ËÌÍ!!⇦Î ⇦c⇦Ï ⇦Ê`d\"⇦eb⇦Ð    !)*" [temp wind gp-process command copy selected-window process-send-string "
" gp-wait-for-output buffer-substring delete-region switch-to-buffer-other-window get-buffer-create "*gp-help*" erase-buffer beginning-of-line select-window] 12))

(defun gp-wait-for-output nil "\
Hang around until the prompt appears." (byte-code "Á⇨⇦Ŷ,ÅÆ!⇦`Ç ⇦È!◰!ÉÊ!⇦Ä⇨ŵ$ÉË!⇦
b)⇦ŵ" [ndone t p gp-prompt-pattern nil accept-process-output "*PARI*" beginning-of-line looking-at message "done" "Waiting for gp output ..."] 7))

(defun gp-meta-d nil "\
Sends \\d to gp, then displays output in the help buffer.
  Prints the gp defaults." (interactive) (byte-code "À⇦ÁÂ!" [nil gp-meta-command "\\d"] 2))

(defun gp-meta-t nil "\
Sends \\t to gp, then displays output in the help buffer.
  Prints the longword format of PARI types." (interactive) (byte-code "À⇦ÁÂ!" [nil gp-meta-command "\\t"] 2))

(defun gp-meta-r (file) "\
Sends a \\r <file name> comand to gp.
   Reads in gp commands from a file.
   See gp-meta-r" (interactive "fRead from file: ") (byte-code "Á⇦db⇦ÂÃ!Pc⇦Ä " [file nil "\\r " expand-file-name gp-send-input] 3))

(defun gp-meta-w (file num) "\
Sends a \\w<num> <file name> comand to gp.
  Writes gp object %<num> to <file name>." (interactive "FWrite to file:
sObject number %%") (byte-code "Â⇦db⇦ÃÄÅ    !Rc⇦Æ " [num file nil "\\w" " " expand-file-name gp-send-input] 5))

(defun gp-meta-x nil "\
Sends \\x to gp, then displays output in the help buffer.
  Prints tree of addresses and contents of last object." (interactive) (byte-code "À⇦ÁÂ!" [nil gp-meta-command "\\x"] 2))

(defun gp-meta-v nil "\
Sends \\v to gp, then displays output in the help buffer.
  Prints the version number of this implementation of pari-gp." (interactive) (byte-code "À⇦ÁÂ!" [nil gp-meta-command "\\v"] 2))

(defun gp-meta-s (num) "\
Sends \\s or \\s(num) to gp, then displays output in the help buffer.
  Prints the state of the pari stack." (interactive "sNumber of longwords (default 0) ") (byte-code "Á⇦ÂÃ\"◰ÄÅ!ŵÄÆÇQ!" [num nil equal "" gp-meta-command "\\s" "\\s(" ")"] 6))

(defun gp-meta-b (num) "\
Sends \\b or \\b<num> to gp, then displays output in the help buffer.
  Prints object %<num> in pretty format (unless \\p set)." (interactive "sPrint object (default last) %%") (byte-code "Á⇦ÂÃ\"◰ÄÅ!ŵÄÅP!" [num nil equal "" gp-meta-command "\\b"] 5))

(defun gp-meta-k nil "\
Sends \\k to gp.
  Prompts for confirmation before
  re-initialising gp and clearing the buffer." (interactive) (byte-code "Á⇦ÂÃ!Ŷ%Äq⇦db⇦Åc⇦ÆÇ!`\"⇦ÂÈ!Ŷ É ⇦ÊÅ\"⇦ËÌ!" [gp-process nil y-or-n-p "Re-initialise gp ? " "*PARI*" "\\k
" set-marker process-mark "Clear *PARI* buffer ? " erase-buffer process-send-string message ""] 8))

(defun gp-meta-q nil "\
Sends \\q to gp.
  Prompts for confirmation before quiting." (interactive) (byte-code "Á⇦ÂÃ!ŶÄq⇦db⇦ÅÆ\"⇦ÇÈ!" [gp-process nil y-or-n-p "Quit gp ? " "*PARI*" process-send-string "\\q
" message ""] 4))

(defun gp-break-long-line nil "\
gp will not accept lines longer than 256.
   gp-break-long-lines breaks current line
   inserting \\ every 100 chars." (interactive) (byte-code "À⇦Á ⇦ÂÃ!⇦ÄÅ!?ŶÆc⇦ÂÃ!⇦ŵ    " [nil beginning-of-line move-to-column 100 looking-at "$" "\\
"] 6))

(defun gp-menu nil "\
Major-mode for the gp menu buffer.
The available commands are
\\{gp-menu-map}" (interactive) (byte-code "Æ⇦Ç!⇦Â⇨⇦È ⇦À⇨⇦É⇨⇦Ê
!⇦Ë " [gp-menu buffer-read-only t major-mode mode-name gp-menu-map nil find-file-other-window kill-all-local-variables "GP MENU" use-local-map gp-menu-main] 5))

(defun gp-menu-info nil (byte-code "ÀÁ!" [message "SPC=next DEL=previous RET=select m=main-menu q=quit s=scroll-help"] 2))

(defun gp-menu-next nil "\
Move down one line of the gp help menu. (Go to top if at the end.)" (interactive) (byte-code "À⇦Á ⇦ÂÃ!⇦mŶÄ ⇦eb" [nil gp-menu-info forward-line 1 ding] 4))

(defun gp-menu-previous nil "\
Move up one line of the gp help menu. (Go to bottom if at the top.)" (interactive) (byte-code "À⇦Á ⇦o◰Â ⇦db⇦Ã ŵÄÅ!" [nil gp-menu-info ding beginning-of-line forward-line -1] 5))

(defun gp-menu-quit nil "\
Switch the *PARI* buffer if it exists, or (other-buffer) if it does not." (interactive) (byte-code "Ã⇦ÄÅ!ÆÅ!◰Ç ⇦È!ŵ%    ◰!É    !ŵ%ÉÊ !*" [w b t nil get-buffer-window "*PARI*" get-buffer delete-window select-window switch-to-buffer other-buffer] 8))

(defun gp-menu-select nil "\
Select a subject from the main menu, or a manual entry from a subject menu." (interactive) (byte-code "Á⇦◰3Á⇨⇦Ã ⇦Ä ⇦Å`Æ ⇦`\"ÇÈÉ
P!⇦ÊË!⇦`ÈÌ!⇦ÍÎ!\")⇦ebŵ?Ä ⇦ÏÅ`Æ ⇦`\"!⇦Ð " [main-menu nil sect widen beginning-of-line buffer-substring end-of-line narrow-to-region re-search-forward "^###" forward-line 1 "
###" match-beginning 0 gp-get-man-entry gp-menu-info] 15))

(defun gp-menu-main nil "\
Display the main menu." (interactive) (byte-code "Á⇦Ä ⇦Å ⇦eb⇦Æ`ÇÈ!⇦ÉÊ!\"⇦eb⇦Á⇨⇦Ã⇨" [done nil main-menu t gp-menu-info widen narrow-to-region re-search-forward "
###" match-beginning 0] 7))

(defun gp-menu-scroll nil "\
Scroll the gp help window if it is visible" (interactive) (byte-code "Á⇦Â ⇦ÃÄ!Ŷ$Å ÆÄ!⇦Çd!◰ebŵÈ ⇦É!)" [wind nil gp-menu-info get-buffer-window "*gp-help*" selected-window switch-to-buffer-other-window pos-visible-in-window-p scroll-up select-window] 8))

(defvar gp-menu-map (make-sparse-keymap) "\
Local keymap used in gp menu buffer.")

(define-key gp-menu-map " " (quote gp-menu-next))

(define-key gp-menu-map "" (quote gp-menu-previous))

(define-key gp-menu-map "
" (quote gp-menu-select))

(define-key gp-menu-map "q" (quote gp-menu-quit))

(define-key gp-menu-map "m" (quote gp-menu-main))

(define-key gp-menu-map "s" (quote gp-menu-scroll))