;ELC ;;; Compiled by pdox@mit.edu on Fri Oct 3 15:34:21 2003 ;;; from file /afs/sipb.mit.edu/project/pari-gp/src/i386_rh9/pari-2.1.5/emacs/pari.el ;;; in Emacs version 21.1.1 ;;; with bytecomp version 2.85 ;;; with all optimizations. ;;; This file uses dynamic docstrings, first added in Emacs 19.29. (if (and (boundp 'emacs-version) (< (aref emacs-version (1- (length emacs-version))) ?A) (or (and (boundp 'epoch::version) epoch::version) (string-lessp emacs-version "19.29"))) (error "`pari.el' was compiled for Emacs 19.29 or later")) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (byte-code "\302\303!\210\304\305!\210\301B\306\302\207" [current-load-list gp-version provide pari require backquote "2.1.5"] 2) #@43 The directory where gphelp is to be found (defconst gp-gphelp-dir "/afs/sipb.mit.edu/project/pari-gp/src/i386_rh9/build/bin/" (#$ . 760)) #@41 The file name of the gp executable file (defconst gp-file-name "/afs/sipb.mit.edu/project/pari-gp/src/i386_rh9/build/bin/gp" (#$ . 904)) (byte-code "\301B\303\301!\204\f\304\212\305q\210`\306\304!\210\nb\210\307\310\311\304#\203+\312\313\314!\231?\202-\304* \203>\315\316M\210\317\320M\210\321\322M\210\311\207" [current-load-list old-emacs-versionp pt boundp t "*Messages*" emacs-version re-search-forward "\\(GNU Emacs\\|\\) \\([^ ]*\\) " nil "20.3" match-string 2 defgroup #[(a b c &rest d) "\300\207" [nil] 1 ""] custom-declare-variable #[(a b c &rest d) "\300\207" [nil] 1 ""] frame-parameter #[(a b) "\300\207" [nil] 1 ""]] 4) #@94 If emacs-version is larger than 20, then customization of the variables is allowed, else no. (defalias 'gp-defcustom '(macro . #[(symbol value doc &rest args) "\304\305\306 \307\n\310EF\311\312D\312 D\nF \244F\207" [symbol value doc args if old-emacs-versionp defvar substring 1 custom-declare-variable quote] 8 (#$ . 1553)])) (byte-code "\204\f\306\307\310\311\312\313%\210\203(\302 B\314\302\315\316\317\310O#\210\320\302!\2043\321\2023\322\302\321\316\323\324\312\307&\210\203U\304 B\314\304\315\325\317\310O#\210\320\304!\204`\326\327 \330P!!\202`\322\304\331\325\323\332\312\307&\210\203|\305 B\314\305\315\333\317\310O#\210\320\305!\204\207\334\202\207\322\305\334\333\323\332\312\307&\210\203\244\335 B\314\335\315\336\317\310O#\210\320\335!\204\257\321\202\257\322\335\321\336\323\324\312\307&\210\310\207" [old-emacs-versionp current-load-list gp-readline-enabledp gp-gphelp-dir pari-colors gp-additional-cpl-file custom-declare-group gp nil "Major mode for editing GP source in Emacs" :group languages put variable-documentation "*t if readline is enabled. Emacs will try to set it properly\nwhenever a gp-session is started." 1 boundp t custom-declare-variable :type boolean "*Where the choice of colors is stored" eval expand-file-name "pari-colors.el" (eval (expand-file-name (concat gp-gphelp-dir "pari-colors.el"))) file "*A name (string) of a completion file used in supplement for completion.\nThis file should have the format of 'gp-menu files." "" gp-tutorial-requiredp "*T if comments should be given for some functions."] 8) #@29 dvi previewer (and options) (defconst gp-dvi-preview "xdvi -s 3" (#$ . 3138)) (byte-code "\203\302 B\306\302\307\310\311\312O#\210\313\302!\204'\312\202'\314\302\312\310\315\316\317\320&\210\203C\303 B\306\303\307\321\311\312O#\210\313\303!\204N\312\202N\314\303\312\321\315\316\317\320&\210\203j\304 B\306\304\307\322\311\312O#\210\313\304!\204u\312\202u\314\304\312\322\315\316\317\320&\210\203\221\305 B\306\305\307\323\311\312O#\210\313\305!\204\234\324\202\234\314\305\324\323\315\316\317\320&\210\312\207" [old-emacs-versionp current-load-list gp-no-menu-bar gp-no-color-item gp-no-hilit gp-no-separate-window-for-mistakes put variable-documentation "*A non nil value means that we do not want any menu-bar" 1 nil boundp custom-declare-variable :type boolean :group gp "*T means remove the menu-bar item [GP/Colors]" "*If this variable is non-nil don't highlight GP scripts and *PARI* buffer.\nNote however that any change of value will become effective only during\nnext session." "*T means errors under the gp calculator will not be\ndisplayed on a separate window." t] 8) #@48 *Directory in which to create temporary files. (defconst gp-temp-directory "/tmp/" (#$ . -4254)) #@62 Temporary file name used for text being sent as input to GP. (defvar gp-temp-file (byte-code "\301\302\303!P!\207" [gp-temp-directory expand-file-name make-temp-name "gp_#"] 4) (#$ . 4357)) #@65 Temporary file name used for text being sent as input to emacs. (defvar gp-el-temp-file (byte-code "\301\302\303!P!\207" [gp-temp-directory expand-file-name make-temp-name "gp_#.el"] 4) (#$ . 4554)) #@47 Maximal number of saved window configurations (defconst gp-max-saved-wind-conf 20 (#$ . 4760)) (byte-code "\203\302 B\306\302\307\310\311\312O#\210\313\302!\204'\314\202'\315\302\314\310\316\317\320\321&\210\203C\303 B\306\303\307\322\311\312O#\210\313\303!\204N\323\202N\315\303\323\322\316\317\320\321&\210\203j\304 B\306\304\307\324\311\312O#\210\313\304!\204u\312\202u\315\304\312\324\316\325\320\321&\210\203\221\305 B\306\305\307\326\311\312O#\210\313\305!\204\234\312\202\234\315\305\312\326\316\325\320\321&\210\203\271\327 B\306\327\307\330\311\312O#\210\313\327!\204\304\331\202\304\315\327\331\330\316\325\320\321&\210\312\207" [old-emacs-versionp current-load-list gp-stack-size gp-prime-limit gp-prompt-for-args gp-keep-PARI-buffer-when-quitting put variable-documentation "*Default stack size passed to gp." 1 nil boundp 10000000 custom-declare-variable :type integer :group gp "*Default prime limit passed to gp." 500000 "*A non-nil value makes M-x gp act like C-u M-x gp, \nie prompt for the command line arguments." boolean "*T means what it says..." gp-locked-modep "*t means you cannot write above the last prompt.\nIf you try to modify an earlier input, emacs will automatically copy\nit at the bottom of your file." t] 8) #@85 *Regexp used to match gp prompts. can be set with gp-set-prompt (bound to M-\ p) (defvar gp-prompt-pattern "^[?>][\n ]*" (#$ . -6046)) (defalias 'gp-print-if-compiling #[(messg) "\301\302!\205\212\302q\210\303\261)\207" [messg get-buffer "*Compile-Log*" "\n"] 2]) (put 'gp-print-if-compiling 'byte-optimizer 'byte-compile-inline-expand) (defalias 'gp-setup #[nil "\306\300\307\310#\210\311\312\313\314\315\316\317\320\321\322\323\324\325\326\327\330\257\331\332M\210\333\334!\204(\335\336\337\"\210\333\340!\2043\335\341\337\"\210\333\334!\204\342\343\344!\203K\212\344q\210 \345\261)\210)\346\302!\204T\347\346\303!\204\\\350\351\352\"\210\353\347M\210\354\347M\210\355\347M\210\356\347M\210\357\347M\210\360\347M\210\361\347M\210\337\333\340!\206\237\362\343\344!\203\227\212\344q\210 \345\261)\210)\363\347M\210\337\211\207" [gp-places-list messg hilit-face-translation-table hilit-background-mode gp-no-hilit gp-no-menu-bar put variable-documentation "List of symbolic-names of faces which are linked with patterns to\n be hilighted via 'gp-hilit-init and 'gp-tell-hilit-about-patterns" 'gp-error 'gp-history 'gp-prompt 'gp-output 'gp-input 'gp-help 'gp-timer 'gp-comment 'gp-string 'gp-control-statement 'gp-default-keywords 'gp-default-set 'gp-input-cmd 'gp-global-var 'gp-function-proto 'gp-function-args x-display-color-p #[(&optional DISPLAY) "\300\207" [t] 1] featurep hilit19 load "hilit19" t easymenu "easymenu" "No highlighting: hilit19.el not found." get-buffer "*Compile-Log*" "\n" boundp nil light mapcar #[(agpplace) "\301\302\301!\303E!\207" [agpplace eval defvar nil] 4] hilit-translate hilit-set-mode-patterns hilit-string-find hilit-rehighlight-region hilit-unhighlight-region hilit-rehighlight-buffer hilit-recenter "No menu-bar: easymenu.el not found." easy-menu-define] 16]) (byte-code "\306\307\310\311#\210\306\300\312\313#\210\314\315\316\317\320\321\322\323\324\325\326\327\330\331\332\333\257\334\335M\210\336\337!\204.\340\341\342\"\210\336\343!\2049\340\344\342\"\210\336\337!\204\205\345\346\347!\203Q\212\347q\210 \350\261)\210)\351\302!\204Z\352\351\303!\204b\353\354\355\"\210\356\352M\210\357\352M\210\360\352M\210\361\352M\210\362\352M\210\363\352M\210\364\352M\210\342\336\343!\206\245\365\346\347!\203\235\212\347q\210 \350\261)\210)\366\352M\210\342\211\207" [gp-places-list messg hilit-face-translation-table hilit-background-mode gp-no-hilit gp-no-menu-bar put gp-setup byte-optimizer byte-compile-inline-expand variable-documentation "List of symbolic-names of faces which are linked with patterns to\n be hilighted via 'gp-hilit-init and 'gp-tell-hilit-about-patterns" 'gp-error 'gp-history 'gp-prompt 'gp-output 'gp-input 'gp-help 'gp-timer 'gp-comment 'gp-string 'gp-control-statement 'gp-default-keywords 'gp-default-set 'gp-input-cmd 'gp-global-var 'gp-function-proto 'gp-function-args x-display-color-p #[(&optional DISPLAY) "\300\207" [t] 1] featurep hilit19 load "hilit19" t easymenu "easymenu" "No highlighting: hilit19.el not found." get-buffer "*Compile-Log*" "\n" boundp nil light mapcar #[(agpplace) "\301\302\301!\303E!\207" [agpplace eval defvar nil] 4] hilit-translate hilit-set-mode-patterns hilit-string-find hilit-rehighlight-region hilit-unhighlight-region hilit-rehighlight-buffer hilit-recenter "No menu-bar: easymenu.el not found." easy-menu-define] 16) #@30 Hook run in 'gp-input-filter (defvar gp-input-filter-hook nil (#$ . 9423)) #@46 obarray used for completing gp command names (defconst gp-c-array (make-vector 800 0) (#$ . 9504)) #@2  (defvar gp-can-hilit nil (#$ . 9608)) #@31 t if a GP process is running. (defvar gp-process nil (#$ . 9653)) #@58 Value of point at the beginning of the first menu-region (defvar gp-menu-start-simple 0 (#$ . 9725)) #@52 Value of point at the end of the first menu-region (defvar gp-menu-end-simple 0 (#$ . 9832)) (byte-code "\301B\303\301!\204\f\304\302B\303\302!\204\304\301\207" [current-load-list gp-menu-width gp-menu-nbcol boundp 1] 2) #@59 Value of point at the beginning of the second menu-region (defvar gp-menu-start-special 0 (#$ . 10068)) #@53 Value of point at the end of the second menu-region (defvar gp-menu-end-special 0 (#$ . 10178)) #@58 Value of point at the beginning of the third menu-region (defvar gp-menu-start-keywords 0 (#$ . 10280)) #@52 Value of point at the end of the third menu-region (defvar gp-menu-end-keywords 0 (#$ . 10390)) (mapcar 'make-variable-buffer-local '(gp-menu-start-simple gp-menu-end-simple gp-menu-start-special gp-menu-end-special gp-menu-start-keywords gp-menu-end-keywords)) #@66 Beginning of the expression to be send to GP. See gp-copy-input. (defvar gp-input-start nil (#$ . 10658)) #@60 End of the expression to be send to GP. See gp-copy-input. (defvar gp-input-end nil (#$ . 10770)) #@66 t if expression to be send to GP is complete. See gp-copy-input. (defvar gp-complete-expression nil (#$ . 10874)) #@51 t if expression to be send to GP starts with a {. (defvar gp-input-start-bracketp nil (#$ . 10994)) #@40 name of the buffer gp is interpreting. (defvar gp-reads-this-buffer nil (#$ . 11100)) #@148 Regexp matching latest execution error. It contains a grouping whose closing parenthesis corresponds to the point where gp has detected a mistake. (defvar gp-latest-error nil (#$ . 11193)) #@146 List of registers from 0 to (1- gp-max-saved-wind-conf) where window-configurations are stored. See gp-store-wind-conf and gp-restore-wind-conf. (defvar gp-registers-list nil (#$ . 11389)) #@132 t if gp should wait for output and hilit it in gp-send-input. Automatically reset to t after each input. See also gp-input-filter. (defvar gp-should-wait-for-outputp t (#$ . 11585)) #@48 t if the color of a gp-place has been modified (defvar pari-colors-modifiedp nil (#$ . 11773)) #@35 t is colors have been initialised (defvar pari-colors-initp nil (#$ . 11874)) #@54 t if the file gp-menu is already used for completion (defvar gp-menu-loadedp nil (#$ . 11958)) #@22 Set by 'gp-cpl-init. (defvar gp-main-menu-list nil (#$ . 12059)) (byte-code "\301B\302\301\207" [current-load-list gp-main-menu-keywords-list ("elliptic curve" "number field" "bnf")] 2) #@36 Keymap used in 'gp-browser-2-mode. (defvar gp-browser-2-map nil (#$ . 12254)) (byte-code "\301=\203!\302 \303\304\305#\210\303\306\307#\210\303\310\311#\210\303\312\313#\210\301\207" [gp-browser-2-map nil make-sparse-keymap define-key " " gp-browser-2-select [mouse-2] gp-browser-2-mouse-select [right] gp-menu-right [left] gp-menu-left] 4) #@36 Keymap used in 'gp-browser-1-mode. (defvar gp-browser-1-map nil (#$ . 12608)) (byte-code "\303=\203\304 \305\306\307#\210\305\310\311#\210\302 B\312\302!\204!\303\303\207" [gp-browser-1-map current-load-list gp-browser-main-alist nil make-sparse-keymap define-key " " gp-browser-1-select [mouse-2] gp-browser-1-mouse-select boundp] 4) #@122 The alist 'gp-browser-main-alist consists of conses (NUM . STRING). 'gp-browser-var is the length of the largest STRING. (defvar gp-browser-width 0 (#$ . 12959)) (byte-code "\301B\302\301!\204\f\303\303\207" [current-load-list gp-browser-follow-alist boundp nil] 2) #@28 The main frame if non nil. (defvar gp-main-frame nil (#$ . 13235)) #@30 GP-browser frame if non nil. (defvar gp-browser-frame nil (#$ . 13308)) #@50 A simple gp process opened to build the browser. (defvar gp-browser-process nil (#$ . 13386)) #@84 *Style for GP-browser. Three styles are possible, 1, 2 and 3. Best to try them on. (defvar gp-browser-style 3 (#$ . -13486)) #@197 List of the lists/arrays to be used for completion on top of the completion already delivered by readline if present and by the general 'gp-c-array which has to be the first element of this list. (defvar gp-cpl-lists-list '(gp-c-array) (#$ . 13618)) #@2  (defconst gp-separator (list "----------") (#$ . 13873)) #@56 Regexp matching the beginning of a function-definition (defconst gp-function-proto-pstart "\\(^ *\\|{\\)\\([a-zA-Z][_a-zA-Z0-9]*\\)([^)]*) *=[^=]" (#$ . 13937)) #@29 See 'gp-define-locked-keys. (defconst gp-letters-list '(97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 48 49 50 51 52 53 54 55 56 57 95 61 43 45 42 47 124 94 58 33 35 40 41 91 93 123 125 126 37 36 44 59 46 38 63 39 96 60 62 32 34 92) (#$ . 14104)) #@61 A list of symbolic-names of faces used + some default ones. (defvar gp-colors-list (list 'default 'red 'red3 'magenta3 'brown 'green3 'grey50 'grey40 'deepskyblue1 'hex-80a0ff 'blue3 'yellow 'hex-ffff60) (#$ . 14490)) #@33 List containing the color menu. (defvar gp-color-menu-list nil (#$ . 14714)) #@60 Syntax table in use in gp-mode and gp-script-mode buffers. (defvar gp-syntax-table nil (#$ . 14797)) (byte-code "\204\263\302 \303\304\305#\210\303\306\307#\210\303\310\311#\210\303\312\313#\210\303\314\315#\210\303\316\317#\210\303\320\321#\210\303\322\323#\210\303\324\323#\210\303\325\321#\210\303\326\321#\210\303\327\330#\210\303\331\332#\210\303\333\334#\210\303\335\336#\210\303\337\336#\210\340\341 \"\203}\303\342\343#\210\303\344\343#\210\202\211\303\342\345#\210\303\344\345#\210\303\346\321#\210\303\347\323#\210\303\350\321#\210\303\351\321#\210\303\352\336#\210\303\353\321#\210\303\354\336#\210\302\207" [gp-syntax-table emacs-version make-syntax-table modify-syntax-entry 40 "()" 41 ")(" 91 "(]" 93 ")[" 123 "(}" 125 "){" 35 "." 126 "_" 33 43 45 47 ". 14" 42 ". 23" 92 ". 12b" 46 "w" 39 string-match "XEmacs" 10 ">b" 13 "> b" 61 37 60 62 36 124 95] 4) (defalias 'gp-define-locked-keys #[nil "\303\304\"\210 \203\305\n\306\307#\210\305\n\310\311#\210\305\n\312\313#\207\305\n\314\315#\210\305\n\310\316#\210\305\n\312\317#\207" [gp-letters-list gp-locked-modep gp-map mapcar #[(achar) "\303\304 !\n\203 \305\202\306#\207" [gp-map achar gp-locked-modep define-key vector gp-locked-self-insert-command self-insert-command] 4] define-key [mouse-2] gp-locked-mouse-2 "" gp-locked-backward-delete-char-untabify "" gp-locked-yank [mouse-2] gmouse-yank-at-click backward-delete-char-untabify yank] 4]) #@37 Local keymap used in buffer *PARI*. (defvar gp-map nil (#$ . 16254)) (byte-code "\301=\203\300\302 \303 \210\304\305\306#\210\304\307\310#\210\304\311\312#\210\304\313\314#\210\304\315\314#\210\304\316\306#\210\304\317\320#\210\304\321\322#\210\304\323\324#\210\304\325\326#\210\304\327\330#\210\304\331\332#\210\304\333\334#\210\304\335\336#\210\304\337\340#\210\304\341\342#\210\304\343\344#\210\304\345\346#\210\304\347\350#\210\304\351\352#\210\304\353\354#\210\304\355\356#\210\304\357\360#\210\304\361\362#\210\304\363\364#\210\304\365\366#\210\304\367\370#\210\304\371\372#\210\304\373\374#\210\304\375\376#\210\301\207" [gp-map nil make-sparse-keymap gp-define-locked-keys define-key " " gp-complete " " gp-send-local-input "\343" gp-copy-input "\215" gp-C-j "\n" "\211" "" gp-interrupt "\334\\" gp-break-long-line "\334a" gp-meta-a "\334b" gp-meta-b "\334c" gp-menu "\334d" gp-meta-d "\334m" gp-meta-m "\334p" gp-set-prompt "\334q" gp-meta-q "\334r" gp-meta-r "\334s" gp-meta-s "\334t" gp-meta-t "\334v" gp-meta-v "\334w" gp-meta-w "\334x" gp-meta-x "\277" gp-get-man-entry "\310" gp-get-apropos "" previous-line "" next-line "\360" gp-previous-cmd "\356" gp-next-cmd "\363" gp-skip-to-error [C-kp-subtract] gp-remove-last-output [M-kp-subtract] gp-remove-last-action] 4) #@38 Local keymap used in gp-script-mode. (defvar gp-script-map nil (#$ . 17577)) (byte-code "\301=\203K\302 \303\304\305#\210\303\306\305#\210\303\307\310#\210\303\311\312#\210\303\313\314#\210\303\315\316#\210\303\317\320#\210\303\321\322#\210\303\323\324#\210\303\325\326#\210\303\327\330#\210\301\207" [gp-script-map nil make-sparse-keymap define-key " " gp-complete "\211" "\334\\" gp-break-long-line "\334d" gp-meta-d "\334c" gp-menu "\277" gp-get-man-entry "\310" gp-get-apropos "\334t" gp-meta-t "\334v" gp-meta-v "\334z" gp-run-in-region "\363" gp-skip-to-error] 4) #@38 Local keymap used in gp menu buffer. (defvar gp-menu-map nil (#$ . 18167)) (byte-code "\303=\203E\304 \305\306\307#\210\305\310\311#\210\305\312\313#\210\305\314\315#\210\305\316\317#\210\305\320\321#\210\305\322\323#\210\305\324\325#\210\305\326\327#\210\305\330\331#\210\305 \332\333#\210\305\n\334\335#\207" [gp-menu-map esc-map completion-list-mode-map nil make-sparse-keymap define-key "" gp-menu-next "" gp-menu-previous " " gp-menu-select [mouse-2] gp-menu-mouse-select "q" gp-menu-quit "s" gp-menu-survey "" gp-menu-C-v "\366" gp-menu-M-v [right] gp-menu-right [left] gp-menu-left "o" gp-restore-wind-conf [mouse-2] gp-mouse-2] 4) #@49 Keymap used for the menu-bar item GP in gp-mode (defvar GP-menu-map nil (#$ . 18828)) #@56 Keymap used for the menu-bar item GP in gp-script-mode (defvar GP-script-menu-map nil (#$ . 18920)) #@41 Patterns to be hilighted under gp-mode. (defalias 'gp-tell-hilit-about-patterns #[nil "\301\302\303B\304\305\306R\307B\310BB\"\207" [gp-prompt-pattern hilit-set-mode-patterns gp-mode (nil gp-prompt) "\\(" "\\)" "\\(.*$\\)" (2 gp-input) (("^ *%[0-9]* =" nil gp-history) ("time = \\([0-9][hmn,0-9 ]* ms.\\)" 1 gp-timer) ("^[a-zA-Z][a-zA-Z0-9_]*([^ )]*): " "^$" gp-help) ("\\*\\*\\*.*" nil gp-error) ("\\<\\(buffersize\\|colors\\|compatible\\|debug\\|debugmem\\|echo\\|format\\|help\\|histsize\\|logfile\\|output\\|parisize\\|path\\|primelimit\\|prompt\\|psfile\\|realprecision\\|seriesprecision\\|simplify\\|strictmatch\\|timer\\)\\>" nil gp-default-keywords) ("[\\<\\.]\\(log\\)[^\\w\\.(\"]" 1 gp-default-keywords) ("^ *\\\\[a-z].*$" nil gp-default-set) ("\\<\\(default\\)(" 2 gp-default-set) ("^ *%[0-9]* = \\(.*$\\)" 1 gp-output))] 7 (#$ . 19026)]) #@40 Enable highlighting in the PARI buffer (defalias 'gp-hilit-init #[nil "?\205 \304=\205 \305 \211\205* ?\205*\306\307 \210\310\311\312\"\205*\313 \205*\314 \207" [gp-no-hilit window-system gp-can-hilit pari-colors-initp x x-display-color-p t gp-tell-hilit-about-patterns hilit-set-mode-patterns gp-script-mode ((gp-find-comment nil gp-comment) ("\\<\\(return\\|next\\|if\\|until\\|while\\|\\|fordiv\\|forprime\\|forstep\\|forvec\\|for\\) *(" 1 gp-control-statement) ("\\<\\(break\\)[^a-zA-Z0-9_]" 1 gp-control-statement) ("\\<\\(default\\)(" 1 gp-default-set) ("\\[^a-zA-Z0-9_]" 0 gp-input-cmd) ("\\<\\(local\\)\\([ \n]*(\\)" 1 gp-input-cmd) (hilit-string-find 92 gp-string) (gp-find-global-var nil gp-global-var) ("\\(^\\|{[\n ]*\\) *\\([a-zA-Z]\\w*\\)([^)]*) *=[^=]" 2 gp-function-proto) ("\\(^\\|{[\n ]*\\) *[a-zA-Z]\\w*(\\([^)]*\\)) *=[^=]" 2 gp-function-args)) gp-hilit-translate gp-init-gp-colors-list] 3 (#$ . 19884)]) (byte-code "\203\302 B\304\302\305\306\307\310O#\210\311\302!\204'\312\202'\313\302\314\306\315\316\317\320&\210\303 B\321\310\207" [old-emacs-versionp current-load-list gp-language gp-messages-list put variable-documentation "*Any of 'francais 'english 'deutsch." 1 nil boundp francais custom-declare-variable 'francais :type (choice (const francais) (const english)) :group gp ((francais "Nous utilisons le choix par defaut pour la completion" "Elimination de %s" " Sauvegarde des couleurs ? " "M-o ou ESC-o pour oter la fenetre d'aide" "APPUYER SUR UNE TOUCHE POUR CONTINUER..." "termine." "En attente de la reponse de gp ..." "Impossible de lancer gp." "Expression incomplete." "Ce nouveau prompt peut conduire a une erreur. Mieux vaut le changer via M-\\p" "Version numero %s." "Mode Tutorat active" "Mode Tutorat desactive" "Echange les fonctions des touches C-p/M-p and C-n/M-n." "gp essaie de completer ..." "C-u M-o pour sortir de l'edition." "Lancement de " "SPC=suivant DEL=precedent RET=selectionner s=survey-menu q=quitter" "Il n'y a rien a selectionner ici" "Fonction inconnue : %s" "Fonction" "Variable utilisateur : %s" "Aucune occurence de \"%s\" n'a ete trouvee." "Chargement de pari-colors.el a partir de " "### Variables globales : (une par ligne)" "### Titres de chapitre :" "### Mots-cles interessants :" "D'humeur aventureuse ? Un nom de \"face\" s'ecrit:\n FaceCaractere/FaceDecors-[bold,italic]-[underline]\n ou simplement: FaceCaractere.\n\nFace[Caractere|Decors] appartient a la liste (non-exhaustive) suivante :\nblack blue brown cyan DarkGoldenrod dimgrey firebrick ForestGreen Goldenrod green grey40 grey50 hex-80a0ff hex-ffff60 lightblue magenta mocassin OliveDrab orange pink Plum purple red RoyalBlue tan yellow white.\n De plus, vous pouvez souvent ajouter un suffixe entier entre 1 et 4, comme dans green3. Vous pouvez essaye le tres voyant firebrick/yellow-bold. L'italique ne se voit pas sur l'ecran mais est utilise quand vous demandez une impression via le sous-item `Postcript Print Buffer' de l'item `Tools'. Il faut remarquer que nil n'est pas la couleur par defaut... puisque cette couleur est tout simplement `default' !" "Emacs utilise un fichier general contenant tous les noms des fonctions de PARI. En surplus, gp utilises un fichier appele nom-de-fichier.cpl des que nom-de-fichier est edite. Pour creer ce fichier, vous pouvez utilise l'item [GP Completion-File Edit-File...] de la barre de menu qui creera un fichier au format adequat contenant les noms des fonctions et des variables globales de votre programme. L'edition de ce fichier se fait via l'item [GP Completion-File Edit File...] de la barre de menu et vous pouvez aussi decider d'utiliser un autre fichier a l'aide de [GP Completion-File Use Also File...]." "Rend les noms de fonctions et ceux des variables globales du programme %s (tel qu'il existe en ce moment) utilisables pour la completion. Ils seront stockes dans `%s.cpl' des que ce fichier sera edite. Le fichier `%s.cpl' est au format d'un fichier de completion (i.e. format du fichier gp-menu) et est automatiquement utilise pour la completion lorsque %s est edite." "Fonctions/Sections dans la description desquelles \"%s\" apparait :" "Sujet" "Nom du fichier de completion : " "Erreur introuvable." "Probable typo." (concat "Aucune erreur a localiser ou buffer (" gp-reads-this-buffer ") absent") "Le guide est en construction..." "Mouse-2 ou Return pour selectionner un item." "Le fichier pariemacs.txt n'est pas dans votre load-path. Vous devriez decouvrir ou il se situe, disons dans le directory /usr/local/lib/pari/emacs/ et ajouter la ligne\n (setq load-path (concat load-path \"/usr/local/lib/pari/emacs/\"))\ndans votre fichier .emacs (creez-le si besoin est)." "Nouvelle couleur :" "Appele avec : %s\n\n" "Autre..." "Couleurs" "Mise a jour" "Sauvegarde" "Commutateur" "Tout recolorier" "MetaTouches" "Lire du Fichier..." "Ecrire sur le Fichier..." "Imprimer en..." "Nouveau Prompt" "Simple" "Avec l'heure" "Avec la date" "Avec un separateur" "Lancer GP" "Comme d'habitude" "Changer les parametres..." "GP evalue le fichier..." "GP evalue la region" "Quitter GP" "Aide sur ce mode" "Fichier de completion" "Utiliser aussi le fichier..." "Editter le fichier..." "Creer/Mettre a jour" "" "Nom du programme:" "+/- d'aide" "Disposition precedente" "Completer" "Aller a l'erreur" "Entree/Sortie..." "Recopier la derniere entree" "Oter le dernier resultat" "Oter la derniere action" "Basculer les touches") (english "Using default choice for completion" "Removing %s" " Save Colors ? " "M-o or ESC-o will remove the help window" "PRESS ANY KEY TO CONTINUE..." "done." "Waiting for gp output ..." "Could not start gp." "Incomplete expression : Not sent to gp." "New prompt may lead to an error. Better to set it interactively via M-\\p" "Version number %s." "Tutorial mode activated" "Tutorial mode desactivated" "Exchange the bindings of the keys C-p/M-p and C-n/M-n." "Waiting for gp completion ..." "C-u M-o to exit editing." "Starting " "SPC=next DEL=previous RET=select s=survey-menu q=quit" "Nothing to be selected here" "Unknown function: %s" "Function" "User Variable: %s" "No occurence of \"%s\" found." "Loading pari-colors.el from " "### Global Variables : (one per line)" "### Chapter Headings:" "### Interesting Keywords:" "Feeling adventurous ? A face name has the shape:\n FaceForForeground/FaceForBackground-[bold,italic]-[underline]\n or simply: FaceForForeground.\n\nFaceFor[Foreground|Background] can be chosen in the following (non-exhaustive) list:\nblack blue brown cyan DarkGoldenrod dimgrey firebrick ForestGreen Goldenrod green grey40 grey50 hex-80a0ff hex-ffff60 lightblue magenta mocassin OliveDrab orange pink Plum purple red RoyalBlue tan yellow white.\n In addition, you can usually add an integer suffix between 1 and 4, like in green3. For instance, you can try the flashy firebrick/yellow-bold. Italic fonts don't show on the screen but are used whenever you get a print-out via the item `Postcript Print Buffer' of the menu-item `Tools'. Finally note here that nil is not the default face... since this default face is simply called `default' !" "A general completion file containing the name of all the PARI functions is always used. In addition to this file, gp uses a file named your-file-name.cpl when you edit your-file-name. To create this file, you can use the menu-bar item [GP Completion-File Edit-File...] which will create the proper completion-file and introduce the names of the functions and of the global variables of your program. You edit the file by using the item \"Edit File...\" and you can decide to use another completion-file as well through the item \"Use Also File...\"." " Makes the names of functions and global variables of %s available for completion. They will be stored in `%s.cpl' as soon as this file is required for editing. The file `%s.cpl' has the format of a completion file (i.e. a gp-menu file) and is automatically used as a completion file when %s is edited." "Functions or Sections in whose description \"%s\" appears:" "Subject" "Name of the completion file: " "Could not locate the error." "Probable mistake." (concat "No error to be found or missing buffer (" gp-reads-this-buffer ")") "The browser is being build..." "Mouse-2 or Return to select an item." "The file pariemacs.txt is not in your load-path. You should discover where it is, say in the directory /usr/local/lib/pari/emacs/ and add the line\n (setq load-path (concat load-path \"/usr/local/lib/pari/emacs/\"))\nto your .emacs file (create it if it doesn't already exist)." "Use face:" "Called with: %s\n\n" "Other..." "Colors" "Update" "Save" "Hilit Switch" "Rehilit All" "Metakeys" "Read from File..." "Write to File..." "Print in..." "New Prompt" "Simple" "With Time" "With Date" "With Separator" "Start GP session" "As Usual" "Change Parameters..." "Run GP on file..." "Run GP in region" "Quit GP session" "Help on this mode" "Completion File" "Use Also File..." "Edit File..." "Make/Update" "" "Name of the GP programm: " "Tutorial Switch" "Previous Setting" "Complete" "Skip to error" "In/Out..." "Copy Last Input" "Remove Last Output" "Remove Last Action" "Exchange keys") (deutsch "Using default choice for completion" "Removing %s" " Save Colors ? " "M-o or ESC-o will remove the help window" "PRESS ANY KEY TO CONTINUE..." "done." "Waiting for gp output ..." "Could not start gp." "Incomplete expression : Not sent to gp." "New prompt may lead to an error. Better to set it interactively via M-\\p" "Version number %s." "Tutorial mode activated" "Tutorial mode desactivated" "Exchange the bindings of the keys C-p/M-p and C-n/M-n." "Waiting for gp completion ..." "C-u M-o to exit editing." "Starting " "SPC=next DEL=previous RET=select s=survey-menu q=quit" "Nothing to be selected here" "Unknown function: %s" "Function" "User Variable: %s" "No occurence of \"%s\" found." "Loading pari-colors.el from " "### Global Variables : (one per line)" "### Chapter Headings:" "### Interesting Keywords:" "Feeling adventurous ? A face name has the shape:\n FaceForForeground/FaceForBackground-[bold,italic]-[underline]\n or simply: FaceForForeground.\n\nFaceFor[Foreground|Background] can be chosen in the following (non-exhaustive) list:\nblack blue brown cyan DarkGoldenrod dimgrey firebrick ForestGreen Goldenrod green grey40 grey50 hex-80a0ff hex-ffff60 lightblue magenta mocassin OliveDrab orange pink Plum purple red RoyalBlue tan yellow white.\n In addition, you can usually add an integer suffix between 1 and 4, like in green3. For instance, you can try the flashy firebrick/yellow-bold. Italic fonts don't show on the screen but are used whenever you get a print-out via the item `Postcript Print Buffer' of the menu-item `Tools'. Finally note here that nil is not the default face... since this default face is simply called `default' !" "A general completion file containing the name of all the PARI functions is always used. In addition to this file, gp uses a file named your-file-name.cpl when you edit your-file-name. To create this file, you can use the menu-bar item [GP Completion-File Edit-File...] which will create the proper completion-file and introduce the names of the functions and of the global variables of your program. You edit the file by using the item \"Edit File...\" and you can decide to use another completion-file as well through the item \"Use Also File...\"." " Makes the names of functions and global variables of %s available for completion. They will be stored in `%s.cpl' as soon as this file is required for editing. The file `%s.cpl' has the format of a completion file (i.e. a gp-menu file) and is automatically used as a completion file when %s is edited." "Functions or Sections in whose description \"%s\" appears:" "Subject" "Name of the completion file: " "Could not locate the error." "Probable mistake." (concat "No error to be found or missing buffer (" gp-reads-this-buffer ")") "The browser is being build..." "Mouse-2 or Return to select an item." "The file pariemacs.txt is not in your load-path. You should discover where it is, say in the directory /usr/local/lib/pari/emacs/ and add the line\n (setq load-path (concat load-path \"/usr/local/lib/pari/emacs/\"))\nto your .emacs file (create it if it doesn't already exist)." "Use face:" "Called with: %s\n\n" "Other..." "Colors" "Update" "Save" "Hilit Switch" "Rehilit All" "Metakeys" "Read from File..." "Write to File..." "Print in..." "New Prompt" "Simple" "With Time" "With Date" "With Separator" "Start GP session" "As Usual" "Change Parameters..." "Run GP on file..." "Run GP in region" "Quit GP session" "Help on this mode" "Completion File" "Use Also File..." "Edit File..." "Make/Update" "" "Name of the GP programm: " "Tutorial Switch" "Previous Setting" "Complete" "Skip to error" "In/Out..." "Copy Last Input" "Remove Last Output" "Remove Last Action" "Exchange keys"))] 8) (defalias 'gp-messager #[(msg-number) "\303 \n\2368!\207" [msg-number gp-language gp-messages-list eval] 4]) (defalias 'file-really-exists-p #[(file) "\301\230?\205\n\302!\207" [file "" file-exists-p] 2]) (put 'file-really-exists-p 'byte-optimizer 'byte-compile-inline-expand) (defalias 'gp-kill-buffer-safely #[(abuffer) "\302!\211\205 \303 !)\207" [abuffer b get-buffer kill-buffer] 3]) (put 'gp-kill-buffer-safely 'byte-optimizer 'byte-compile-inline-expand) (defalias 'gp-get-beginning-of-line #[nil "\212\300 \210`)\207" [beginning-of-line] 1]) (put 'gp-get-beginning-of-line 'byte-optimizer 'byte-compile-inline-expand) (defalias 'gp-get-end-of-line #[nil "\212\300\210`)\207" [nil] 1]) (put 'gp-get-end-of-line 'byte-optimizer 'byte-compile-inline-expand) #@133 Try to see whether readline is enabled or not and select proper completion function. To be used when the buffer *PARI* is selected. (defalias 'gp-choose-complete #[nil "\212eb\210\301\302\303\304#\203\305u\210\306\307!\211\202\310\311\312!!)\207" [gp-readline-enabledp re-search-forward "readline .*\\(dis\\|en\\)abled" nil t -6 looking-at "n" message gp-messager 1] 4 (#$ . 33545)]) #@44 To teach emacs some elements of gp-syntax. (defalias 'gp-learn-sexp #[nil "\305\300!\210\306\307\305\302!\210\310\305\303!\210\311\305\304!\210\312\211\207" [parse-sexp-ignore-comments case-fold-search comment-start comment-end comment-start-skip make-local-variable t nil "\\\\" "" "\\\\\\\\.*$\\|/\\*\\([^\\*]\\|\\*[^/]\\)*\\*/"] 2 (#$ . 33940)]) (put 'gp-learn-sexp 'byte-optimizer 'byte-compile-inline-expand) #@45 Common part of 'gp-mode and 'gp-script-mode (defalias 'pari-mode #[nil "\306!\204\307\310 \210 \204\311 \210\312\313 \314P\211\315\230?\205#\316\n!)\203.\317\313 \314P!\210 \211\315\230?\205:\316\n!)\203B\317 !\210\320\304!\210\312\321\320\322!\210\323\320\324!\210\315\320\325!\210\326\327!\207" [pari-colors gp-menu-loadedp file gp-additional-cpl-file parse-sexp-ignore-comments case-fold-search file-writable-p "~/pari-colors.el" gp-hilit-init gp-cpl-init t buffer-name ".cpl" "" file-exists-p gp-cpl-file make-local-variable nil comment-start "\\\\" comment-end comment-start-skip "\\\\\\\\.*$\\|/\\*\\([^\\*]\\|\\*[^/]\\)*\\*/" set-syntax-table gp-syntax-table] 4 (#$ . 34365)]) #@96 Major mode for editing GP input files. The following bindings are available: \{gp-script-map} (defalias 'gp-script-mode #[nil "\303\304\305\306!\210\305\307!\210\310 \210\311\n!\210\312 \207" [major-mode mode-name gp-script-map gp-script-mode "GP script" run-hooks pari-mode-hook gp-script-mode-hook pari-mode use-local-map gp-init-script-menu-bar] 2 (#$ . 35078) nil]) #@87 Major mode for running a gp-process. The following bindings are available: \{gp-map} (defalias 'gp-mode #[nil "\303\304\305\306!\210\305\307!\210\310 \210\311\n!\210\312 \210\313 \207" [major-mode mode-name gp-map gp-mode "GP" run-hooks pari-mode-hook gp-mode-hook pari-mode use-local-map gp-choose-complete gp-init-menu-bar] 2 (#$ . 35457) nil]) #@51 Remove temporary files that may have been created (defalias 'gp-clear-temp-files #[nil "\302!\203\303!\210\304\305\306!\"\210\302 !\205!\303 !\210\304\305\306! \"\207" [gp-temp-file gp-el-temp-file file-exists-p delete-file message gp-messager 2] 3 (#$ . 35813)]) (put 'gp-clear-temp-files 'byte-optimizer 'byte-compile-inline-expand) #@81 Ask whether to save the choice of colors if need be and remove temporary files. (defalias 'gp-save-setting-kill-emacs #[nil "\203\303\304\305!!\203\306 \210\307 !\203 \310 !\210\311\304\312! \"\210\307\n!\2050\310\n!\210\311\304\312!\n\"\207" [pari-colors-modifiedp gp-temp-file gp-el-temp-file y-or-n-p gp-messager 3 gp-save-colors file-exists-p delete-file message 2] 3 (#$ . 36160)]) (byte-code "\301\300!\210\302\301\207" [kill-emacs-hook make-local-hook gp-save-setting-kill-emacs] 2) (defalias 'gp-displace-input #[nil "\212\302\303\304#)\2053\212\305\303\304#)\2053`\305\303\304#\210\306\225b\210 `Z\307 \210\305\303\304#\210 \306\225\\b)\207" [gp-prompt-pattern where re-search-forward nil t re-search-backward 0 gp-copy-input] 4]) (defalias 'gp-locked-self-insert-command #[nil "\301 \210\302\303\"\207" [last-command-char gp-displace-input insert-char 1] 3 nil nil]) (defalias 'gp-locked-mouse-2 #[(anevent) "\301!\210\302 \210\303 \207" [anevent mouse-set-point gp-displace-input yank] 2 nil "e"]) (defalias 'gp-locked-yank #[nil "\300 \210\301 \207" [gp-displace-input yank] 1 nil nil]) (defalias 'gp-locked-backward-delete-char-untabify #[nil "\300 \210\301\302!\207" [gp-displace-input backward-delete-char-untabify 1] 2 nil nil]) (defalias 'gp-depile-wind-conf #[nil "A\211\207" [gp-registers-list] 2]) (put 'gp-depile-wind-conf 'byte-optimizer 'byte-compile-inline-expand) #@49 Restore previously stored window configuration. (defalias 'gp-backward-wind-conf #[nil "\301\232?\205\302@!\210A\211\207" [gp-registers-list nil jump-to-register] 2 (#$ . 37575)]) (put 'gp-backward-wind-conf 'byte-optimizer 'byte-compile-inline-expand) #@176 Add a the current window configuration to the pile. If the pile has more than 'gp-max-saved-wind-conf items (0,1,...,(1- gp-max-saved-wind-conf)) then the first item is lost. (defalias 'gp-store-wind-conf #[nil "G U\203\f\237A\237\303\232\203\304\202%@ SU\203\"\304\202%@T\305\n!\210\nB\211)\207" [gp-registers-list gp-max-saved-wind-conf next nil 0 window-configuration-to-register] 2 (#$ . 37841)]) (put 'gp-store-wind-conf 'byte-optimizer 'byte-compile-inline-expand) #@198 Restore the previous window-configuration, killing the *gp-help* buffer if it was and is no more displayed. When called with prefix ^U, end the edition of the completion-file (if any were edited). (defalias 'gp-restore-wind-conf #[(&optional arg) "\203@\304U\203\305 \207\306\307!\205\310\307!\306\311!\205 \310\311! \312\232\2040\313 @!\210 A\n\203>\310\307!\204>\314\307!\210 \203L\310\311!\204L\314\311!\210*\315\316!\207" [arg had-message-windowp had-help-windowp gp-registers-list 4 gp-quit-cpl-edit get-buffer "*gp-help*" get-buffer-window "*gp-messages*" nil jump-to-register kill-buffer message ""] 3 (#$ . 38334) "P"]) (defalias 'gp-info-wind-conf #[nil "\300\301\302!!\207" [message gp-messager 4] 3]) (put 'gp-info-wind-conf 'byte-optimizer 'byte-compile-inline-expand) (defalias 'buffer-visiblep #[(abuffer-name) "\301!\205\302\207" [abuffer-name get-buffer-window t] 2]) #@49 Return the extension suffix of filename, if any (defalias 'name-extension #[(filename) "G\301!GV\203\301!GT\302O\207\303\207" [filename file-name-sans-extension nil ""] 3 (#$ . 39244)]) #@39 We replace the dots in filename by -. (defalias 'gp-proper-name #[(filename) "\303!\211G\304 \nW\203# H\305U\203 \306I\210 T\211\202\n*\207" [filename pos ll file-name-nondirectory 0 46 45] 4 (#$ . 39442)]) #@50 Return t if buffer abuffer is in gp-script-mode. (defalias 'gp-pgrmp #[(abuffer) "q\210 \302=\207" [abuffer major-mode gp-script-mode] 2 (#$ . 39667)]) (put 'gp-pgrmp 'byte-optimizer 'byte-compile-inline-expand) #@47 Try to guess the name of a likely gp-program. (defalias 'gp-possible-file-name #[nil "\301\302\303!\210\203@\202\304\305\306 \"\210\205@)\207" [pgrm nil walk-windows #[(wind) "\304!\211q\210\n)\305=\205\306\304!! B\211\207" [wind abuffer major-mode pgrm window-buffer gp-script-mode buffer-name] 4] mapcar #[(abuffer) "\211q\210 )\303=\205\304!\nB\211\207" [abuffer major-mode pgrm gp-script-mode buffer-name] 3] buffer-list] 3 (#$ . 39886)]) (put 'gp-possible-file-name 'byte-optimizer 'byte-compile-inline-expand) #@995 Takes care of the windows in gp-mode and gp-script-mode. Displays the buffer MY-BUFFER-NAME in a proper window. The variable OPTION is -- gp-beginning when we handle the beginning of a procedure. If a buffer already exists with this name, only store the wind-conf. -- gp-beginning-temp when we handle the beginning of a procedure. If a buffer already exists with this name, store it. -- gp-remove-help-now to remove help-window, -- gp-remove-help-old-config to wait and remove help-window without touching to the other windows. -- gp-remove-help-now-old-config to remove help-window without touching to the other windows. -- gp-show-help which is similar to gp-beginning for the help buffer except that we do not erase the content of this buffer. -- nil when it is the end of a call. The variable MY-BUFFER-NAME is one of "*PARI*" "*gp-help*" "*gp-menu*".  (defalias 'gp-window-manager #[(my-buffer-name option) "\306\230\203I \307=\203I\310\306!\203I\nG U\203\n\237A\237\n\311\232\203(\312\2027\n@ SU\2034\312\2027\n@T\313\f!\210\f\nB\211)\210\314\310\306!!\207\306\230\203\267 \307=\203\267\310\306!\204\267\315 \316U\203r\317 \320\230\204n\314\321 !\210\322\306!\207\nG U\203~\n\237A\237\n\311\232\203\210\312\202\227\n@ SU\203\224\312\202\227\n@T\313\f!\210\f\nB\211)\210\310\323!\203\263\314\310\323!!\210\322\306!\207\324\306!\207\306\230\203 \204\325\306!\203\315 \316V\203\325\326\306!\210\202\f\317\327 !\306\230\203\f\311\330\331!\210 \203\355 @\202\371\332\333\334 \"\210 \205\371 @)\2116\203\3226!\210\202 \335 \210)7\206W\336\306!\207\325!\203\261\337\235\203\261 \340=\203\261\310!\203\261\323\230\2049\325\323!\204?\335 \210\202c\341\230\203c\315 \342U\203`\325\323!\203`\nA\322\323!\210\343\316!\210\202c\335 \2108\3258!\2119\205t\3369!)\210)\344:\212\334 ;:\344\230\203\243;\203\243;@q\210<\345>\203\233\317 :;A;\202*:\344\230\206\257\322:!)\207\325!\203\326\346\235\203\326 \347>\203\326 \350=\203\322\351\352\353!!\210\354 \210\336!\207\323\230\203\367 \355>\203\367\310\323!\203\367\314\310\323!!\210 \356=\206W\357 \207\323\230\203C \360=\203C\310\323!\203C\nG U\203\n\237A\237\n\311\232\203\312\202.\n@ SU\203+\312\202.\n@T\313\f!\210\f\nB\211)\210\314\310\323!!\210\357 \207\325!\203h\361\235\203h \340=\203h8\3258!\2119\205f\3369!*\207\323\230\203\347 \362>\203\347\310\323!\204\347\nG U\203\206\n\237A\237\n\311\232\203\220\312\202\237\n@ SU\203\234\312\202\237\n@T\313\f!\210\f\nB\211)\210\315 \316U\203\276\314\321 !\210\322\323!\210\202\336\310\306!\203\332\310\306!\363 =\204\332\314\310\306!!\210\322\323!\210\202\336\324\323!\210 \356=\206W\357 \207\341\230\205W \307=\205W\325\341!\203\212\341q\210\364 \210)\nG U\203 \n\237A\237\n\311\232\203\312\202&\n@ SU\203#\312\202&\n@T\313\f!\210\f\nB\211)\210\310\323!\203H\314\310\323!!\210\322\365\341!!\210\336\323!\207\315 \316U\203R\321 \210\324\365\341!!\207" [my-buffer-name option gp-registers-list gp-max-saved-wind-conf next pgrm "*PARI*" gp-beginning get-buffer-window nil 0 window-configuration-to-register select-window count-windows 1 buffer-name "*scratch*" split-window-vertically switch-to-buffer "*gp-help*" switch-to-buffer-other-window get-buffer delete-windows-on window-buffer walk-windows #[(wind) "\304!\211q\210\n)\305=\205\306\304!! B\211\207" [wind abuffer major-mode pgrm window-buffer gp-script-mode buffer-name] 4] mapcar #[(abuffer) "\211q\210 )\303=\205\304!\nB\211\207" [abuffer major-mode pgrm gp-script-mode buffer-name] 3] buffer-list gp-restore-wind-conf kill-buffer ("*gp-help*" "*gp-menu*") gp-remove-help-now "*gp-menu*" 2 other-window "" (gp-script-mode gp-mode) ("*gp-help*" "*gp-menu*") (gp-remove-help-old-config gp-remove-help-now-old-config) gp-remove-help-old-config message gp-messager 5 read-event (gp-beginning gp-show-help) gp-show-help erase-buffer gp-beginning-temp ("*gp-help*" "*gp-menu*") (gp-beginning gp-beginning-temp gp-show-help) selected-window gp-menu-quit get-buffer-create next-buffer gp-keep-PARI-buffer-when-quitting abuffer b buffer-to-select abufferlist major-mode] 4 (#$ . 40432)]) #@113 Add regexp a-pattern at beginning of line and followed by any amount of space/tab/newline to gp-prompt-pattern. (defalias 'gp-make-gp-prompt-pattern #[(a-pattern) "\302\303 R\211\207" [a-pattern gp-prompt-pattern "^" "[\n ]*\\|"] 4 (#$ . 44774)]) (put 'gp-make-gp-prompt-pattern 'byte-optimizer 'byte-compile-inline-expand) (defalias 'gp-beginning-of-last-line #[nil "db\210\301!\210\302\225b\207" [gp-prompt-pattern re-search-backward 0] 2]) (put 'gp-beginning-of-last-line 'byte-optimizer 'byte-compile-inline-expand) #@71 Hang around until the prompt appears. PROCESS defaults to gp-process. (defalias 'gp-wait-for-output #[(point-init &optional nomessage process initialp) "\306 \204\n\203e\307 \310\311#\204\" `U\204\"\312 !\313=\204\f`\314 !\203C\312 !\313=\203C\212\315 \316\306#\205?\310\225dU)\203S\204N\317\320\321!!\210\316\202^\204^\317\320\322!!\210\fb\210)\202)\323\310!\207" [notdone process gp-process point-init p gp-prompt-pattern t accept-process-output 0 300 process-status run processp re-search-backward nil message gp-messager 6 7 sit-for nomessage] 4 (#$ . 45304)]) (put 'gp-wait-for-output 'byte-optimizer 'byte-compile-inline-expand) #@77 Explicit. Distinguishes bash/sh and [t]csh. Aimed at command gp+parameters. (defalias 'gp-get-shell #[(process-name process-buffer-name cmd) "\304!\305\235\203\306 \n\307\310\311\312 !\313 \314\260%\207\306 \n\307\315\311\312 !\316 R%\207" [shell-file-name process-name process-buffer-name cmd file-name-nondirectory ("bash" "sh") start-process "-c" "(TERM=emacs; LINES=1000; COLUMNS=" number-to-string window-width "; export TERM COLUMNS LINES; " ")" "stty -echo nl; env TERM=emacs LINES=1000 COLUMNS=" " "] 10 (#$ . 45969)]) #@45 Explicit. Distinguishes bash/sh and [t]csh. (defalias 'gp-call-gphelp #[(win-size word output-buffer opt) "\306!\307\235\203\310\311\312 !\313\n\314 \315\f\316\260 \"\207\310\317\312 !\313\n\314 \315\f\320\260 \"\207" [shell-file-name win-size gp-gphelp-dir opt word output-buffer file-name-nondirectory ("bash" "sh") shell-command "(export COLUMNS=" number-to-string ";" "gphelp " " \"" "\";)" "setenv COLUMNS " "\""] 10 (#$ . 46508)]) #@114 Same as 'gp except that it doesn't switch to the buffer `*PARI*'. The answer is t if success, and nil otherwise. (defalias 'gp-background '(macro . #[(flag) "\301\302\303\304\305\306\307\310\311\300\312\313BBD\314BB\315BB\316BBBBBBBD\207" [flag save-excursion if (and (processp gp-process) (eq 'run (process-status gp-process))) t (set-buffer (get-buffer-create "*PARI*")) (erase-buffer) (run-hooks 'pari-mode-hook 'gp-mode-hook) let* (process-connection-type t) or (gp-prompt-for-args) ((gp-cmd (concat (gp-read-input "Gp executable ?" gp-file-name "" flag) (gp-read-input "Stack size ?" (number-to-string gp-stack-size) " -s " flag) (gp-read-input "Prime limit ?" (number-to-string gp-prime-limit) " -p " flag) " -emacs"))) ((insert (format (gp-messager 41) gp-cmd)) (setq gp-process (gp-get-shell "pari" "*PARI*" gp-cmd)) (set-process-sentinel gp-process #'gp-sentinel)) ((run-hooks 'pari-mode-hook) (gp-wait-for-output (point-min)) (setq gp-input-start (point) gp-input-end (point)) (if (eq major-mode 'gp-mode) nil (gp-mode)) (setq mode-line-process '(": %s")) (if (memq (process-status gp-process) '(signal exit)) (setq gp-process nil) t))] 13 (#$ . 46957)])) #@296 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-prime-limit determine the command line that starts gp. To override the default settings, give gp a prefix argument. C-u M-x gp . (defalias 'gp #[(flag) "\212\306!\203\307!\310=\203\311\202\312\313!q\210\314 \210\315\316\317\"\210\311\n\206' \320\321\f\322\n$\320\323\324 !\325\n$\320\326\3240!\327\n$\330R1\331\332\333!1\"c\210\334\335\3131#\336\337\"\210+\315\316!\210e\340\211\2112345\31163\204t36\203\333\3413\342\343#\204\2225`U\204\222\3073!\310=\204y`7\3063!\203\267\3073!\310=\203\267\212\3448\340\311#\205\263\342\225dU)\203\3104\204\302\345\332\346!!\210\3406\202\3234\204\323\345\332\347!!\2107b\210)\202t)\350\342!\210,`9`:;\351=\204\361\351 \210\352<\307!\353>\203\340\211\202\311)\203\354\313\355\"\210db\210\356 \207\345\332\357!!\207" [gp-process process-connection-type flag gp-prompt-for-args gp-file-name gp-stack-size processp process-status run t get-buffer-create "*PARI*" erase-buffer run-hooks pari-mode-hook gp-mode-hook gp-read-input "Gp executable ?" "" "Stack size ?" number-to-string " -s " "Prime limit ?" " -p " " -emacs" format gp-messager 41 gp-get-shell "pari" set-process-sentinel gp-sentinel nil accept-process-output 0 300 re-search-backward message 6 7 sit-for gp-mode (": %s") (signal exit) gp-window-manager gp-beginning gp-update-hilit 8 gp-prime-limit gp-cmd initialp process nomessage point-init notdone p gp-prompt-pattern gp-input-start gp-input-end major-mode mode-line-process] 7 (#$ . 48131) "P"]) #@137 Run GP on the current region. A temporary file (gp-temp-file) is written in gp-temp-directory, but GP is run in the current directory. (defalias 'gp-run-in-region #[(beg end) "\n\306 \307 \210\310\n \311\211%\210\312\311!\210db\210\313!\210\314\225b\210\315 Pc\210\316!`\311\223\210\317 \207" [beg gp-input-start end gp-input-end gp-reads-this-buffer gp-temp-file buffer-name gp-input-filter write-region nil gp re-search-backward 0 "\\r " process-mark gp-send-input gp-prompt-pattern gp-process] 6 (#$ . 49812) "r"]) #@203 If flag is non-nil, reads string (if string is "" uses default). Else, if flag is nil, set string to default. If resulting string is not "" prepends sep. As a special case, if string is " ", return "". (defalias 'gp-read-input #[(prompt default sep flag) "\203\305 \306\n\307R!\202\n\211\310\232\203&\n\310\232\203 \310\2023\f\nP\2023 \311\232\2030\310\2023\f P)\207" [flag prompt default string sep read-input " (Default " ") " "" " "] 6 (#$ . 50347)]) #@47 Sentinel for the gp-process in buffer *PARI*. (defalias 'gp-sentinel #[(proc msg) "\305\306!\211\205 \307 !)\210)\310\311\312\"\210\310\313\314\"\210\315\n!\203+\316\n!\210\317\320\321!\n\"\210\315 !\203<\316 !\210\317\320\321! \"\210\314\211\207" [abuffer b gp-temp-file gp-el-temp-file gp-process "*gp-menu*" get-buffer kill-buffer gp-window-manager "*gp-help*" gp-remove-help-now "*PARI*" nil file-exists-p delete-file message gp-messager 2] 3 (#$ . 50819)]) (defalias 'gp-output-filter #[nil "\306 \212Tb\210\307\310!) \205{Tdb\210\311 \210\312\313x\210`{d|\210\fG U\2030\f\237A\237\f\313\232\203:\314\202I\f@ SU\203F\314\202I\f@T\315!\210\fB\211)\210\316\317!\210\320 \210\321\322\323!!\210\324 \210 c\210\325 \210eb\210\326\327\330!!\210\331\n!)*\207" [gp-input-end errp wind copy gp-registers-list gp-max-saved-wind-conf selected-window looking-at "^ \\*\\*\\* \\|^Unknown function" beginning-of-line " \n" nil 0 window-configuration-to-register other-window 1 split-window-vertically switch-to-buffer get-buffer-create "*gp-messages*" erase-buffer shrink-window-if-larger-than-buffer message gp-messager 4 select-window next] 3]) (defalias 'gp-frame-parameter #[(frame parameter) "\203& \304=\203\f\305\207 \306=\203\307\207 \310=\203$\311\312\311\313\n\"\"A@\207\314\207\315 \"\207" [old-emacs-versionp parameter x-fixed-font-alist frame cursor-color "black" background-color "blue" font assoc "Default" "Misc" nil frame-parameter] 5]) (put 'gp-frame-parameter 'byte-optimizer 'byte-compile-inline-expand) (defalias 'gp-special-output-filter #[nil "\212Tb\210\306\307!\206 \306\310!\206 \306\311!\206 \306\312!\206 \306\313!)\211\205v\314\225b\210`\315\210`{\316\nG\317\320!\315\210`Z\\\321\322\n\314\316O!P \nGW\203i \323\322\n \211T\211O!Q \fU\203H \324P\202H\325\326!!\210eb\210\327 +)\207" [gp-input-end errp astring place which-char gp-latest-error looking-at "^ \\*\\*\\* unexpected character: \\.\\.\\." "^ \\*\\*\\* expected character: [^\n]*\n \\*\\*\\* instead of: " "^ \\*\\*\\* expected character: [^\n]*\n \\*\\*\\* instead of:\n \\*\\*\\* \\.\\.\\." "^ \\*\\*\\* unknown function or error in formal parameters:\n \\*\\*\\* \\.\\.\\." "^ \\*\\*\\* unexpected character: " 0 nil 1 search-forward "^" "\\(" regexp-quote "[ \n]*\\(\\(/\\*[^\\*]*\\*/\\|\\\\\\.*$\\)[ \n]*\\)*" "\\)" select-window get-buffer-window gp-skip-to-error gp-reads-this-buffer] 8]) (defalias 'gp-skip-to-error #[nil "\203 \203\306\307!!\203\310 \230\204\311!\210eb\210\312 \313\314#\203\375\315\225Sb\210\316\317\320!!\210\313\321\f\203c\n\321=\203C\322\202g\n\323=\203M\324\202g\n\325=\203_\326\327\326\330 \"\"A@\202g\313\202g\331 \n\"*\313\323\f\203\232\n\321=\203z\322\202\236\n\323=\203\204\324\202\236\n\325=\203\226\326\327\326\330 \"\"A@\202\236\313\202\236\331 \n\"*\332\333\334\313#$%&'()\335=\203\302$#%$#%\324'&\336V\203\353\337'!\210\340\336$\"\210\337(!\210\340\336%\"\210&S\211&\202\307\337'!\210\340\336$\"\210\337(!.\207\316\317\341!!\207\316\317\342!!\207" [gp-reads-this-buffer gp-latest-error parameter frame old-emacs-versionp x-fixed-font-alist buffer-live-p get-buffer buffer-name switch-to-buffer re-search-forward nil t 1 message gp-messager 35 cursor-color "black" background-color "blue" font assoc "Default" "Misc" frame-parameter 6 50 70 dark 0 set-cursor-color sit-for 34 36 aux how-long-light how-long-dark how-many other-color old-color hilit-background-mode] 7 nil nil]) #@21 Start a GP session. (defalias 'gp-usual-start #[nil "\300\301!\207" [gp nil] 2 (#$ . 54371) nil]) #@21 Start a GP session. (defalias 'gp-start-with-parameters #[nil "\300\301!\207" [gp t] 2 (#$ . 54475) nil]) #@34 Sends a file to be run under GP. (defalias 'run-gp #[nil "\306\307\310!\311\312\313!\210\203@\202\314\315\316 \"\210\205@)\317\320$\321 !\203L\212 q\210 \322 \2038\323 \210ed\324 \210\325 \322 \203K\323\326!\210)\327\311!\210db\210\330 !\210\326\225b\210\331 Pc\210\332!`\311\223\210\333 )\207" [pgrm gp-pgrm gp-reads-this-buffer gp-input-start gp-input-end gp-prompt-pattern gp-read-input gp-messager 69 nil walk-windows #[(wind) "\304!\211q\210\n)\305=\205\306\304!! B\211\207" [wind abuffer major-mode pgrm window-buffer gp-script-mode buffer-name] 4] mapcar #[(abuffer) "\211q\210 )\303=\205\304!\nB\211\207" [abuffer major-mode pgrm gp-script-mode buffer-name] 3] buffer-list "" t get-buffer buffer-modified-p save-buffer gp-input-filter buffer-file-name 0 gp re-search-backward "\\r " process-mark gp-send-input gp-process] 5 (#$ . 54587) nil]) (defalias 'gp-C-j #[nil "\300\301\302\"\210\303`S`\304\305$\207" [insert-char 10 1 put-text-property gp-virtual-newline t] 5 nil nil]) (defalias 'gp-is-virtual #[(where) "\301\302\"\207" [where get-text-property gp-virtual-newline] 3]) (put 'gp-is-virtual 'byte-optimizer 'byte-compile-inline-expand) (defalias 'gp-end-of-inputp #[nil "\212\301u\210\302\303!\205`\304\305\")?\205+\302\303!\205#\212\301u\210\302\306!)?\205+\302\306!?)\207" [where -1 looking-at "\n" get-text-property gp-virtual-newline "\\\\"] 3]) (put 'gp-end-of-inputp 'byte-optimizer 'byte-compile-inline-expand) #@58 Gives the position of next end-of-input and nil if none. (defalias 'gp-find-end-of-input #[(end) "\212\302\303\304#\2038\212\305u\210\306\303!\205`\307 \310\")?\2054\306\303!\205,\212\305u\210\306\311!)?\2054\306\311!?)\203\312`Sf\313\"\203t\212\305u\210\306\303!\205R`\307 \310\")?\205l\306\303!\205d\212\305u\210\306\311!)?\205l\306\311!?)\203t`\202\247db\210\212\305u\210\306\303!\205\210`\307 \310\")?\205\242\306\303!\205\232\212\305u\210\306\311!)?\205\242\306\311!?)\205\247`)\207" [end where re-search-forward "\n" t -1 looking-at get-text-property gp-virtual-newline "\\\\" char-equal 10] 4 (#$ . 56068)]) #@252 Copy expression around point to the end of the buffer. (Unless this is already the last expression.) If NOCONTROL is non nil, then 'gp-complete-expression is automatically set to t and emacs will not check whether the expression is complete or not. (defalias 'gp-copy-input #[(&optional nocontrol) "\306!\210\307\225\211b\210\310\311!\312\n\203^\212\313\314\315\312#\203\"`\202$\315)\313\315\312#?\211\204;\f\203;\307\224\fW\204?\f\204^ \203Y b\210\316\317\315\312#\203\\\320`S`\321\312$\210\202F\307\224\315\n\203g\312\2022\322d!\211\203t\312\202\250db\210d\212\323u\210\310\317!\205\214`\"\324\"\321\")?\205\246\310\317!\205\236\212\323u\210\310\325!)?\205\246\310\325!?)\fd\232\211\204\263\fS\326\fSf\327\"\203\fb\210\306\330 \312#\210\331\224\211b\210\320``T\321\315$\210\212\323u\210\310\317!\205\346`\"\324\"\321\")?\205\310\317!\205\370\212\323u\210\310\325!)?\205\310\325!?)\332 \f\"\315#$%\2060 \2050$@\307\232\2050\333$8?\2050\334$8?\2060\335$8*db\210 ?\205L \f{c\210 ?\205L\336 \210\337\340\341!!)\207" [gp-prompt-pattern gp-input-start gp-input-start-bracketp lastp gp-input-end gp-complete-expression re-search-backward 0 looking-at "[ ]*{" t re-search-forward "}" nil search-forward "\n" put-text-property gp-virtual-newline gp-find-end-of-input -1 get-text-property "\\\\" char-equal 10 "[^\n]\\(\n\\)" 1 parse-partial-sexp 3 4 7 ding message gp-messager 9 where a-pt ans nocontrol] 6 (#$ . 56714) nil]) #@533 Look at buffer between gp-input-start and gp-input-end. -- If it finds a string `default(prompt,foo)', and foo is a gp-string, try to set gp-prompt-pattern correctly. If foo is not a string, warn the user that something wrong may happen. -- If a line `\@' is found, set variable 'gp-should-wait-for-ouputp to nil. -- If a comment `/* */' starts by a @, the content is understood as a Lisp command and appended to the file gp-el-temp-file. This file is empty at the beginning. This file is loaded before execution of the gp program. (defalias 'gp-input-filter #[nil "\212b\210\306\307\310\n\306#\2035 \203\311\312 !\203\313 !\210\314\315\224\315\225 \306$\210\314\316\311 \306$\210\317\225b\210\202 \204=\320 !\210*\321\322!\210\212b\210\307\323\n\306#\203\207\317\225b\210\317\225T\324\325!\203y\307\326\n\306#\203y\327\f\317\225\330Z{!\331 \332&R&)\202\203\333\334\335!!\210\336\330!\210)\202Fb\210\307\337\n\306#\203\225\311'b\210\307\340\n\306#\205\276`S(\341(\342\")\203\230\343\344\306\211\311\315%\210\345u\210\nT\202\230)\207" [gp-input-start first-time gp-input-end gp-el-temp-file start a-pattern t re-search-forward "/\\*@\\(\\([^\\*]\\|\\*[^/]\\)*\\)\\*/" nil file-exists-p delete-file write-region 1 "\n" 0 load-file run-hooks gp-input-filter-hook "default(prompt," looking-at "[ ]*\"" "\")" gp-make-prompt-pattern 2 "^" "[\n ]*\\|" message gp-messager 10 sit-for "^\\\\\\\\@$" "[^\\\\]\\(\n\\)" get-text-property gp-virtual-newline replace-match "\\\n" -1 gp-prompt-pattern gp-should-wait-for-outputp where] 6 (#$ . 58208) nil]) (defalias 'gp-treat-special-inputp #[nil "\212\304 \210\305\306!\203\307\310\210``\307\2020\305\311 \312Q!\203/\307\310\210`\313Z`\307\2020\310)\207" [gp-complete-expression gp-input-start gp-input-end gp-prompt-pattern beginning-of-line looking-at "---- (type return to continue) ----" t nil "\\(" "\\)\\?\\\\" 2] 4]) #@682 Sends input to gp. Does not send incomplete expressions ie those starting with {, without a matching }, or those ending with \ . Uses a temporary file (and \r ) for large expressions. If LOCALP is non nil, then it is assumed the input comes from the *PARI* buffer, in which case if this input was a ` '-command, sends the output to 'gp-output-filter. If LOCALP is nil, then if a file is being read which is currently being displayed, sends the output to 'gp-special-output-filter. Sub-functions are 'gp-treat-special-inputp and 'gp-copy-input with whom it shares the variables: 'gp-input-start 'gp-input-end 'gp-complete-expression 'gp-input-start-backetp 'gp-reads-this-buffer. (defalias 'gp-send-input #[(&optional localp) "\306 \204\307 \210\203\310c\210\311 \210 \nZ\312V\203+\313\n #\210\314\f\315 \310Q\"\210\202M \2038\316\f\n #\210\202H\314\f\317\"\210\316\f\n #\210\314\f\320\"\210\314\f\310\"\210\321\f!`\322\223\210(\203\343 \322\211\211)*+,\323-*\204p\f*-\203\327\324*\325\326#\204\216,`U\204\216\327*!\330=\204u`.\331*!\203\263\327*!\330=\203\263\212\332/\322\323#\205\257\325\225dU)\203\304+\204\276\333\334\335!!\210\322-\202\317+\204\317\333\334\336!!\210.b\210)\202p)\337\325!\210,\340 \210\202\346\323(0\203\212\nb\210\341\342 \323#?0)0\2051?\205\343 \2072;\205\3442!\205\345 \207\346 \210\333\334\347!!\207" [gp-complete-expression gp-input-end gp-input-start gp-temp-file gp-process gp-input-start-bracketp gp-treat-special-inputp gp-copy-input "\n" gp-input-filter 1023 write-region process-send-string "\\r " process-send-region "{" "}" process-mark nil t accept-process-output 0 300 process-status run processp re-search-backward message gp-messager 6 7 sit-for gp-update-hilit re-search-forward "\\\\r +" gp-output-filter buffer-visiblep gp-special-output-filter gp-C-j 9 gp-should-wait-for-outputp initialp process nomessage point-init notdone p gp-prompt-pattern localp gp-no-separate-window-for-mistakes gp-reads-this-buffer] 5 (#$ . 60121)]) #@72 An input is declared to be `local' if it comes from the *PARI* buffer. (defalias 'gp-send-local-input #[nil "\300\301!\207" [gp-send-input t] 2 (#$ . 62161) nil]) #@75 Interrupts gp. This is identical to interrupt-shell-subjob in shell-mode. (defalias 'gp-interrupt #[nil "\300\301\302\"\207" [interrupt-process nil t] 3 (#$ . 62330) nil]) #@95 With 'gp-beginning for window-option, it is 'gp-meta-cmd. With nil, it is 'gp-quiet-meta-cmd. (defalias 'gp-meta-cmd-general '(macro . #[(cmd window-option) "\302\303\304\305\306\307\310\311\312\313BBE\314\306\315\316\317\320 \321BB\322\323 E\324BBB\325BBBB\257\257\207" [cmd window-option progn (set-buffer "*PARI*") (goto-char (point-max)) (set-marker (process-mark gp-process) (point)) let ((temp (point))) process-send-string gp-process concat ("\n") (gp-wait-for-output temp) ((copy (buffer-substring temp (point-max)))) (delete-region temp (point-max)) if eq ('gp-beginning) gp-window-manager "*gp-help*" ((set-buffer (get-buffer-create "*gp-help*")) (erase-buffer)) ((insert copy) (beginning-of-line) (delete-region (point) (point-max)) (goto-char (point-min)))] 16 (#$ . 62508)])) #@51 Send cmd to gp, and display output in help buffer (defalias 'gp-meta-cmd #[(cmd) "\212\306 \307q\210db\210\310 !`\311\223\210`\312 \313P\"\210\n\311\211\211 \314! \204- !\203\220\315 \316\317#\204I `U\204I\320 !\321=\2042`\"\322 !\203l\320 !\321=\203l\212\323#\311\314#\205h\316\225dU)\203}\204w\324\325\326!!\210\311!\202\210\204\210\324\325\327!!\210\"b\210)\202-)\330\316!\210,\nd{$\nd|\210\331\332\333\"\210$c\210\334 \210`d|\210eb\210*\335!\210)\324\325\336!!)\207" [wind gp-process temp cmd initialp process selected-window "*PARI*" process-mark nil process-send-string "\n" t accept-process-output 0 300 process-status run processp re-search-backward message gp-messager 6 7 sit-for gp-window-manager "*gp-help*" gp-beginning beginning-of-line select-window 4 nomessage point-init notdone p gp-prompt-pattern copy] 4 (#$ . 63306)]) #@70 Send cmd to gp, and copy output in help buffer without displaying it (defalias 'gp-quiet-meta-cmd #[(cmd) "\212\306q\210db\210\307!`\310\223\210`\311\n\312P\"\210 \310\211\211\313\f\204)\203\212\314\f\315\316#\204E`U\204E\317\f!\320=\204.`\321\f!\203h\317\f!\320=\203h\212\322\310\313#\205d\315\225dU)\203x \204r\323\324\325!!\210\310\202\202 \204\202\323\324\326!!\210b\210)\202))\327\315!\210, d{ d|\210\330\331!q\210\332 \210 c\210\333 \210`d|\210eb+\207" [gp-process temp cmd initialp process nomessage "*PARI*" process-mark nil process-send-string "\n" t accept-process-output 0 300 process-status run processp re-search-backward message gp-messager 6 7 sit-for get-buffer-create "*gp-help*" erase-buffer beginning-of-line point-init notdone p gp-prompt-pattern copy] 4 (#$ . 64187)]) #@71 Set new gp prompt (and tell both gp and emacs that you have done so). (defalias 'gp-set-prompt #[(p) "\306 \307\310q\210d\211b\210\311\n!\312 \313\fR)\314 \210\315\n\316Qc\210\317 \315\n\316Q\"\210\320 !`\307\223\210\307\211\211 !\"#\321$!\204G !$\203\253\322!\323\324#\204e#`U\204e\325!!\326=\204L`\327!!\203\210\325!!\326=\203\210\212\330\f\307\321#\205\204\323\225dU)\203\231\"\204\223\331\332\333!!\210\307$\202\244\"\204\244\331\332\334!!\210\nb\210)\202G)\335\323!\210,\336 \210\331\337!\210 q*\207" [temp my-buffer p a-pattern gp-prompt-pattern gp-process buffer-name nil "*PARI*" gp-make-prompt-pattern "^" "[\n ]*\\|" gp-tell-hilit-about-patterns "default(prompt,\"" "\");\n" process-send-string process-mark t accept-process-output 0 300 process-status run processp re-search-backward message gp-messager 6 7 sit-for gp-update-hilit "" initialp process nomessage point-init notdone] 5 (#$ . 65023) "sNew prompt: "]) #@44 Make the regexp that matches the prompt p. (defalias 'gp-make-prompt-pattern #[(p) "\212\303q\210db\210\304\261\210\305 \210`\306\307l\204\201\310\311\306\312#\203s\313\n\314\224{!`S`{` \315\230\2039\315\202n \316\235\203C\317\202n \320\235\203M\321\202n \322\230\203W\323\202n \324\235\203a\325\202n \326\230\203k\304\202n\315 PQ\202db\210\313\nd{!P\202*\305 \210\327u\210`d|\210)\207" [p a-char where "*Messages*" "\n" beginning-of-line nil "" re-search-forward "%[a-zA-Z%]" t regexp-quote 0 "%" ("C" "d" "e" "H" "I" "k" "l" "m" "M" "S" "U" "V" "W" "y") "[0-9][0-9]" ("D" "T") "[0-9][0-9]/[0-9][0-9]/[0-9][0-9]" "R" "[0-9][0-9]:[0-9][0-9]" ("a" "A" "b" "B") "[A-Z][a-z]*" "n" -1] 4 (#$ . 65992)]) #@25 Set the prompt to "? ". (defalias 'gp-set-simple-prompt #[nil "\300\301!\207" [gp-set-prompt "? "] 2 (#$ . 66727) nil]) #@35 Set a prompt that gives the time. (defalias 'gp-set-time-prompt #[nil "\300\301!\207" [gp-set-prompt "(%H:%M)> "] 2 (#$ . 66853) nil]) #@35 Set a prompt that gives the date. (defalias 'gp-set-date-prompt #[nil "\300\301!\207" [gp-set-prompt "%d %b %y >> "] 2 (#$ . 66994) nil]) #@32 Set a prompt with a separator  (defalias 'gp-set-separator-prompt #[nil "\300\301!\207" [gp-set-prompt "-------------------------%n(%H:%M)> "] 2 (#$ . 67138) nil]) #@79 Send \d to gp, then display output in the help buffer. Print the gp defaults. (defalias 'gp-meta-d #[nil "\300\301!\207" [gp-meta-cmd "\\d"] 2 (#$ . 67308) nil]) #@97 Send \t to gp, then display output in the help buffer. Print the longword format of PARI types. (defalias 'gp-meta-t #[nil "\300\301!\207" [gp-meta-cmd "\\t"] 2 (#$ . 67476) nil]) #@71 Send a \r command to gp. Read in gp commands from a file. (defalias 'gp-meta-r #[(file) "db\210\301\302!Pc\210\303 \207" [file "\\r " expand-file-name gp-send-input] 3 (#$ . 67662) "fRead from file: "]) #@82 Send a \w command to gp. Writesgp object % to . (defalias 'gp-meta-w #[(file num) "db\210\302\303\304 !Rc\210\305 \207" [num file "\\w" " " expand-file-name gp-send-input] 5 (#$ . 67884) "FWrite to file: \nsObject number %%"]) #@109 Send \x to gp, then display output in the help buffer. Print tree of addresses and contents of last object. (defalias 'gp-meta-x #[nil "\300\301!\207" [gp-meta-cmd "\\x"] 2 (#$ . 68152) nil]) #@134 If gp is running, send \v to gp, then display output in the help buffer. Print the version number of this implementation of pari-gp. (defalias 'gp-meta-v #[nil "\302!\203\n\303\304!\207\305\306\307! \"\207" [gp-process gp-version processp gp-meta-cmd "\\v" message gp-messager 11] 3 (#$ . 68351) nil]) #@102 Send \s or \s(num) to gp, then display output in the help buffer. Print the state of the pari stack. (defalias 'gp-meta-s #[(num) "\301\232\203\n\302\303!\207\302\304\305Q!\207" [num "" gp-meta-cmd "\\s" "\\s(" ")"] 4 (#$ . 68662) "sNumber of longwords (default 0) "]) #@102 Send \a or \a to gp, then display output in the help buffer. Print object % in raw format. (defalias 'gp-meta-a #[(num) "\301\302P!\207" [num gp-meta-cmd "\\a"] 3 (#$ . 68941) "sPrint object (default last) %%"]) #@105 Send \b or \b to gp, then display output in the help buffer. Print object % in pretty format. (defalias 'gp-meta-b #[(num) "\301\302P!\207" [num gp-meta-cmd "\\b"] 3 (#$ . 69171) "sPrint object (default last) %%"]) #@111 Send \m or \m to gp, then display output in the help buffer. Prins object % in prettymatrix format. (defalias 'gp-meta-m #[(num) "\301\302P!\207" [num gp-meta-cmd "\\m"] 3 (#$ . 69404) "sPrint object (default last) %%"]) #@56 Send \q to gp. Prompt for confirmation before quiting. (defalias 'gp-meta-q #[nil "\301\302!\203\303q\210db\210\304\305\"\210\306\307\310!\207" [gp-process y-or-n-p "Quit gp ? " "*PARI*" process-send-string "\\q\n" nil message ""] 3 (#$ . 69642) nil]) #@125 gp will not accept lines longer than 1024. gp-break-long-line breaks current line inserting \ every (frame-width)-5 chars. (defalias 'gp-break-long-line #[nil "\301 \302Z\303^\304!\210\305\306!?\205\307c\210\304!\210\202 )\207" [length frame-width 5 250 move-to-column looking-at "$" "\\\n"] 2 (#$ . 69905) nil]) (defalias 'gp-hilit-switch #[nil "?\301 \207" [gp-can-hilit gp-update-hilit-buffers] 1 nil nil]) (defalias 'gp-tutorial-switch #[nil "?\211\203 \301\302\303!!\207\301\302\304!!\207" [gp-tutorial-requiredp message gp-messager 12 13] 3 nil nil]) (defalias 'gp-copy-last-input #[nil "\212db\210\301\302\303\304$\205\305\225b\210\306 )\207" [gp-prompt-pattern re-search-backward nil t 2 0 gp-copy-input] 5 nil nil]) #@29 Recall previous gp command. (defalias 'gp-previous-cmd #[nil "\300\301!\207" [gp-relative-cmd -1] 2 (#$ . 70651) nil]) #@31 Step to gp next command line. (defalias 'gp-next-cmd #[nil "\300\301!\207" [gp-relative-cmd 1] 2 (#$ . 70776) nil]) #@86 Step to previous or next command line according to the first argument being 1 or -1. (defalias 'gp-relative-cmd #[(dir) "y\302U\203\303 !\204\303\304!\204\305\207" [dir gp-prompt-pattern 0 looking-at "^" nil] 2 (#$ . 70898)]) #@109 Change C-p/M-p C-n/M-n from previous-line and next-line to gp-previous-cmd and gp-next-cmd and reciprocally (defalias 'gp-toggle-previous-next-behavior #[nil "\301\302!\303\232\203 \304\305\303#\210\304\306\307#\210\304\302\310#\210\304\311\312#\207\304\302\303#\210\304\311\307#\210\304\305\310#\210\304\306\312#\207" [gp-map key-binding "" previous-line define-key "\360" "\356" next-line gp-previous-cmd "" gp-next-cmd] 4 (#$ . 71139) nil]) #@56 Change some keys. See gp-toggle-previous-next-behavior (defalias 'gp-toggle #[nil "\300 \210\301\302\303!!\207" [gp-toggle-previous-next-behavior message gp-messager 14] 3 (#$ . 71600) nil]) (defalias 'gp-remove-last-output #[nil "\212db\210\302\303\304#\205 d|)\207" [gp-prompt-pattern gp-input-end re-search-backward nil t] 4 nil nil]) (defalias 'gp-remove-last-action #[nil "\212db\210\302\303\304#\205`S\302\303\304#\205`S |))\207" [gp-prompt-pattern where re-search-backward nil t] 4 nil nil]) #@46 A kind of hook for 'mouse-choose-completion. (defalias 'gp-mouse-2 #[(event) "\301!\210\302 \210\303v\207" [event mouse-choose-completion gp-restore-wind-conf 1] 2 (#$ . 72115) "e"]) #@35 Remove the lists `("")' from LST. (defalias 'gp-clear-list #[(lst) "\302\303\304 \"\210)\207" [newlist lst nil mapcar #[(liststring) "@\302\230\206\f B\211\207" [liststring newlist ""] 2]] 3 (#$ . 72305)]) #@34 Remove the empty words from LST. (defalias 'gp-clear-list2 #[(lst) "\302\303\304 \"\210)\207" [newlist lst nil mapcar #[(astring) "\302\230\206  B\211\207" [astring newlist ""] 2]] 3 (#$ . 72523)]) #@356 Take a buffer in the format of pari.menu, and create the list whose name is the concatenation of "gp-cpl-" and the buffer-name and which contains all the non-commented lines of the buffer. The file must have at least one comment line, starting with #, All lines before the first comment line are IGNORED. Finally add this list name to 'gp-cpl-lists-list. (defalias 'gp-make-cpl-list #[(abuffer) "\212\305\211\211 q\210\214~\210eb\210\306\307!\210m\2041\310y\210\311\307!\204\312\302`\212\305\210`){C\"\210\202\313\314\315 !P\316!\210\317!\320\n!L\210\317!C\211\fA\241\210\f \241\210\321 !-\207" [astring lst-aux lst abuffer gp-cpl-lists-list nil re-search-forward "#" 1 looking-at add-to-list "gp-cpl-" gp-proper-name buffer-name make-symbol intern gp-clear-list kill-buffer] 5 (#$ . 72734)]) #@61 Same as 'gp-make-cpl-list except that we start with a file. (defalias 'gp-cpl-file #[(afile) "\301\302!!\207" [afile gp-make-cpl-list find-file-noselect] 3 (#$ . 73547) "fFile of command names: "]) #@56 Add a name to the obarray, if it is not already there. (defalias 'gp-add-symbol #[(name) "\302!\210\303 \"\207" [name gp-c-array make-symbol intern] 3 (#$ . 73752)]) (put 'gp-add-symbol 'byte-optimizer 'byte-compile-inline-expand) #@81 Add all the commands listed by gphelp -k "" to the obarray used for completion. (defalias 'gp-cpl-init #[nil "\212\302\303!q\210\304 \210\305\306\307\310\311$\210\312\313\314\"\210\315 \316\317@\"\210A@)\320\303!)\207" [adoublelist gp-main-menu-list get-buffer-create "*gp-menu*" erase-buffer gp-call-gphelp 100 " " t "-k -raw" gp-replace "\\[.?m" "" gp-buffer-to-double-list mapcar gp-add-symbol kill-buffer] 5 (#$ . 73991)]) (defalias 'gp-find-word-to-complete #[nil "\212`\301h\302\"\203 \303u\210n\204&\303u\210\304\305!\203#\306u\210\303v\210\202&\306u\210h\307U\203/\303u\210`U\2039\310\202<`{*\207" [pt char-equal 40 -1 looking-at "\\w" 1 92 " "] 3]) #@109 ASTRING is a succession of gp-words separated by spaces or newlines. The answer is the list of these words. (defalias 'gp-string-to-list #[(astring) "\304\305\306 GX\2036 SH\307\235\203/ SU\204&\n SOC\244T\211\202T\211\202 SU\204F\n SOC\244\n+\207" [end beg lst astring nil 0 1 (32 10)] 5 (#$ . 74671)]) #@103 Take two lists of strings and build the list of all their elements with no repetition and sorted out. (defalias 'gp-sort-and-minimise #[(list1 list2) "\303\304\305 \"\244\306\"\211@\307\230\203\nA\202\n)\207" [list1 list2 lst sort mapcar #[(elt) " \235\203\302\207\207" [elt list1 ""] 2] string-lessp ""] 6 (#$ . 75009)]) #@38 If WORD has a final "()", remove it. (defalias 'gp-make-standard-word #[(word) "G\301V\203\211G\302Z\303O\304\230\203\305G\302ZO\207\207" [word 1 2 nil "()" 0] 4 (#$ . 75347)]) (defalias 'standard-string= #[(word1 word2) "\302!\302 !\230\207" [word1 word2 gp-make-standard-word] 3]) (put 'standard-string= 'byte-optimizer 'byte-compile-inline-expand) (defalias 'gp-standard-lst #[(word comp) "@\302\230\203A@\204\302C\207A@\204 @PC\207A@\207" [comp word ""] 2]) (put 'gp-standard-lst 'byte-optimizer 'byte-compile-inline-expand) (defalias 'gp-merge-cpls #[(word comp1 comp2) " \n@\306\230\203\nA@\204\306C\202'\nA@\204$\n@PC\202'\nA@*\f\n@\306\230\203?\nA@\204?\306C\202P\nA@\204M\n@PC\202P\nA@*\307\310\311 \"\" \312\313\"+\207" [word comp1 comp lst1 comp2 lst2 "" mapcar list gp-sort-and-minimise gp-ask-cpl-via-list a-local-cpl-list] 5]) #@131 Careful! LST is a symbol whose value is a list of completion type, ie a list of lists whose cars are strings used for completion. (defalias 'gp-ask-cpl-via-list #[(word lst) "J\305 \"\306\211\211\306\232\203\307\306D\202_\f\310\232\203$\307\306D\202_\fG GV\203J\f G\306O\311\f\"\211G\312W\203D \306D\202_ \nD\202_\311\f\"\211G\312W\203\\\307\306D\202_\307\nD+\207" [lst word fun-list to-insert comp try-completion nil "" t all-completions 2] 4 (#$ . 76241)]) (defalias 'gp-ask-cpl-via-readline #[(context) "\306\307\212\310\n!\203\311\n!\312=\203\313\202\314\315!q\210\316 \210\317\320\321\"\210\313\f\322\3236\307 $\322\324\3257!\326 $\322\327\3258!\330 $\331R9\332\333\334!9\"c\210\335\336\3159#\337\n\340\"\210+\317\320!\210e\306\211\211:;<=\313>;\204v\n;>\203\335\341;\342\343#\204\224=`U\204\224\311;!\312=\204{`?\310;!\203\271\311;!\312=\203\271\212\344@\306\313#\205\265\342\225dU)\203\312<\204\304\345\333\346!!\210\306>\202\325<\204\325\345\333\347!!\210?b\210)\202v)\350\342!\210,`A`BC\351=\204\363\351 \210\352D\311\n!\353>\203\306\211\202\313)\203\220\212\315q\210db\210\354\n!`\306\223\210`\306EF\355\nG\356P\"\210\313>>\203i\341\n!\210`?\310\n!\203L\311\n!\312=\203L\357\360FT\313#\203[\345\333\346!!\210\306>`E\202e\345\333\361!!\210?b\210)\202()\357\362\306\313#\210F`{\363u\210`EW\203\205`ES{Fd|\210\355\n\364\"\210+ \365!*D\207" [fun-list to-insert gp-process process-connection-type gp-prompt-for-args flag nil "" processp process-status run t get-buffer-create "*PARI*" erase-buffer run-hooks pari-mode-hook gp-mode-hook gp-read-input "Gp executable ?" "Stack size ?" number-to-string " -s " "Prime limit ?" " -p " " -emacs" format gp-messager 41 gp-get-shell "pari" set-process-sentinel gp-sentinel accept-process-output 0 300 re-search-backward message 6 7 sit-for gp-mode (": %s") (signal exit) process-mark process-send-string " " search-backward "@E_N_D" 15 "@" 1 " " gp-string-to-list gp-file-name gp-stack-size gp-prime-limit gp-cmd initialp process nomessage point-init notdone p gp-prompt-pattern gp-input-start gp-input-end major-mode mode-line-process last temp context] 7]) #@110 Answer a list whose car is an extension of WORD, and whose cdr is a list of list of possible matching words. (defalias 'gp-general-complete #[(completion-function word) " !\211@\306\230\204\n@c\210\307h\310\"\203\311u\210\nA@\312\232\203O\313\314!\205\233\315\314!\205\233\316 \210\317v\210`f\203C\307`f\320\"\203C\317u\210\307h\310\"\205\233\311u\202\233\n@\306\230\205\233\313\314!\203b\315\314!\204\223 G\fU\203n \237A\237 \312\232\203x\321\202\207 @\fSU\203\204\321\202\207 @T\322 !\210 B\211)\210\314\220\323\nA@!\221)\207" [completion-function word ans gp-registers-list gp-max-saved-wind-conf next "" char-equal 41 -1 nil get-buffer "*Completions*" get-buffer-window gp-restore-wind-conf 1 40 0 window-configuration-to-register display-completion-list] 4 (#$ . 78461)]) (defalias 'gp-ask-cpl-via-readline-and-emacs #[(word) "\203\n \306\230\204\203\n\203\307\n!p\232\203\310\202#\311 @\"\312\313 A\"\210\203[\n\203[\307\n!p\232\203[\212\314 \315\316#\203J\317\225\202Me)\320 \f\321`{!#\202q\203p\320 \f\321\212\322 \210`)`{!#\202q\f)\207" [gp-readline-enabledp word gp-process gp-cpl-lists-list lst gp-prompt-pattern "" process-buffer ("" nil) gp-ask-cpl-via-list mapcar #[(a-cpl-list) "\303\304 \"\n#\211\207" [word a-cpl-list lst gp-merge-cpls gp-ask-cpl-via-list] 5] re-search-backward nil t 0 gp-merge-cpls gp-ask-cpl-via-readline beginning-of-line gp-input-start] 6 nil nil]) (defalias 'gp-complete #[nil "\300\301\302 \"\207" [gp-general-complete gp-ask-cpl-via-readline-and-emacs gp-find-word-to-complete] 3 nil nil]) #@42 Put a completion-file-stamp on a buffer. (defalias 'gp-cpl-stamp #[(my-cpl-file) "\301\302\"c\210\303\304\305 \306\307\310 \311\312\305 \306\303\313\261\f\207" [my-cpl-file format "\nCompletion File Name: %s\n\n" "----------------------------------------------------------------\n" " Created: " current-time-string "\n" " By: " user-full-name "\n\n" " Last Modification: " "\n### Function Names : (one per line)\n"] 12 (#$ . 80057)]) (put 'gp-cpl-stamp 'byte-optimizer 'byte-compile-inline-expand) #@50 Actualise the completion-file-stamp of a buffer. (defalias 'gp-actualise-stamp #[nil "eb\210\301\302\303\304#\205\303\305u\210\306 \210\307\310 \261)\207" [kill-whole-line re-search-forward "Last Modification: " nil t -1 kill-line " " current-time-string] 4 (#$ . 80627)]) (put 'gp-actualise-stamp 'byte-optimizer 'byte-compile-inline-expand) #@19 Edit my-cpl-file. (defalias 'gp-edit-cpl-file #[(my-cpl-file) "G U\203\f\237A\237\304\232\203\305\202%@ SU\203\"\305\202%@T\306\n!\210\nB\211)\210\307\310 !!\204=\311\312!\210\313\314 !!\210eb\210m\203h \315\316 \"c\210\317\320\321 \322\323\324 \325\326\321 \322\317\327\261\f\210)\202\330\331\304\312#\210\305\225b\210m\203|\322c\210\202\332u\210\333\334\335!!\207" [gp-registers-list gp-max-saved-wind-conf next my-cpl-file nil 0 window-configuration-to-register file-exists-p expand-file-name gp-prepare-cpl-file t switch-to-buffer-other-window find-file-noselect format "\nCompletion File Name: %s\n\n" "----------------------------------------------------------------\n" " Created: " current-time-string "\n" " By: " user-full-name "\n\n" " Last Modification: " "\n### Function Names : (one per line)\n" re-search-forward "#.*$" 1 message gp-messager 16] 12 (#$ . 80980) (list (gp-read-input (gp-messager 33) (concat (gp-possible-file-name) ".cpl") "" t))]) (defalias 'gp-cpl-bufferp #[(abuffer) "\301!\302\230\207" [abuffer name-extension "cpl"] 2]) (put 'gp-cpl-bufferp 'byte-optimizer 'byte-compile-inline-expand) (defalias 'gp-quit-cpl-edit #[nil "\303 \304!\305\230)\205:eb\210\306\307\310\311#\203&\310\312u\210\313 \210\314\315 \261)\210\316\317!\210\n\310\232?\205:\320\n@!\210\nA\211\207" [abuffer kill-whole-line gp-registers-list buffer-name name-extension "cpl" re-search-forward "Last Modification: " nil t -1 kill-line " " current-time-string save-buffer 0 jump-to-register] 4 nil nil]) (defalias 'gp-make-cpl-help #[(file) "\205!\303 \304\305\306\"\210\307\310\311!\n\211\211\211%c\210\312ed\313#\210\314 !)\207" [gp-tutorial-requiredp wind file selected-window gp-window-manager "*gp-help*" gp-beginning-temp format gp-messager 30 fill-region left select-window] 6]) (put 'gp-make-cpl-help 'byte-optimizer 'byte-compile-inline-expand) (defalias 'gp-show-help #[(astring) "\302\303\304\"\210c\210\305\306\303!!S\307ed\310#\210\302\303\311\"\210\312 \207" [astring fill-column gp-window-manager "*gp-help*" gp-beginning-temp window-width get-buffer-window fill-individual-paragraphs left gp-remove-help-old-config gp-restore-wind-conf] 4]) (put 'gp-show-help 'byte-optimizer 'byte-compile-inline-expand) (defalias 'gp-cpl-file-info #[nil "\302\303!\304\305\306\"\210c\210\307\310\305!!S\311ed\312#\210\304\305\313\"\210\314 )\207" [astring fill-column gp-messager 29 gp-window-manager "*gp-help*" gp-beginning-temp window-width get-buffer-window fill-individual-paragraphs left gp-remove-help-old-config gp-restore-wind-conf] 4 nil nil]) #@154 t if the edited completion file has the string ASTRING at a beginning of line followed by or a space or a #. Also t when ASTRING is the empty string. (defalias 'gp-cpl-file-has '(macro . #[(astring) "\301\302\303BB\304\305\306\307\310\301\311\312\313\314\315\316\317D\320BBB\321BB\257\257F\207" [astring if string= ("") t save-excursion (goto-char (point-min)) (re-search-forward "#") (end-of-line) (eobp) nil (forward-line 1) re-search-forward concat "^" regexp-quote ("[\n| |#]") (nil t)] 16 (#$ . 83649)])) #@283 Write in the file `buffername.cpl' which has the format of a completion file (i.e. a gp-menu file) the names of the functions and of the global variables of the visited file. OPTION is t means save the buffer on file, nil means don't do that if the file wasn't existing already. (defalias 'gp-prepare-cpl-file #[(option) "\306 \211\307P\n\2040 \203/\310 \311\312\313\"\210\314\315\316!\211\211\211%c\210\317ed\320#\210\321\f!)\210)\212\n\204=\322\323 !!\203E\324 !q\210\202J\325 !q\210\322\323 !!\203s\326\327\330\331#\210\330\210m\203e\332c\210\202\230\333y\210\334 \210\335`d\"\210\202\230\n\203\225 \314\336 \"c\210\337\340\341 \332\342\343 \344\345\341 \332\337\346\261\f\210)\202\230\346c\210q\210eb\210\330\326;\330\331#\203\263\347\305\350\351!\"\210\202\240\352 \353\" q\210\354\355\356 !\"\210)\315\357!\332\261\210q\210eb\210\330\211<\360\330!\211<\203\354\347\305<@ nil 30 2 0 floor 100 window-height 1 window-width beginning-of-line #[(astring) "G \nZX\203,c\210\305`GZ`\306\307$\210 \fW\203' T\310\311 GZ\"\207\312\313c\207 \fW\203[c\210\305`GZ`\306\307$\210 \fSW\203V \314\\\310\311 \211\\\315\\GZ\"\207\312\313c\207\313\261\210\312\305`GZ`\306\307$\210 \fSW\203\203 \314\\\310\311 \211\\\315\\GZ\"\207\312\313c\207" [astring gp-menu-main-width gp-menu-spaces wherex gp-menu-nbcol put-text-property mouse-face highlight insert-char 32 1 "\n" 2 0] 5] "\n" message gp-messager 38 gp-menu-spaces where gp-menu-nbcol gp-menu-start-simple wherex gp-menu-end-simple] 5 (#$ . 89298)]) #@78 Major-mode for the gp menu buffer. The available commands are \{gp-menu-map} (defalias 'gp-menu #[nil "\204\304 \210\305\306\307\"\210\310\311\312 !\210\313 \207" [gp-main-menu-list major-mode mode-name gp-menu-map gp-cpl-init gp-window-manager "*gp-menu*" gp-beginning gp-menu "GP MENU" use-local-map gp-menu-survey] 3 (#$ . 90633) nil]) (defalias 'gp-menu-info #[nil "\300\301\302!!\207" [message gp-messager 18] 3]) (put 'gp-menu-info 'byte-optimizer 'byte-compile-inline-expand) #@68 Move down one line of the gp help menu. (Go to top if at the end.) (defalias 'gp-menu-next #[nil "\300\301\302!!\210\303y\210m\205\304 \210eb\210\305\306\307\310#\207" [message gp-messager 18 1 ding re-search-forward "###\n" nil t] 4 (#$ . 91127) nil]) #@69 Move up one line of the gp help menu. (Go to bottom if at the top.) (defalias 'gp-menu-previous #[nil "\300\301\302!!\210\303y\210o\204\304\305!\205\306 \210db\210\307 \207" [message gp-messager 18 -1 looking-at "###\n" ding beginning-of-line] 3 (#$ . 91388) nil]) (defalias 'gp-menu-C-v #[nil "\300 \210\301\302\303!!\207" [scroll-up message gp-messager 18] 3 nil nil]) (defalias 'gp-menu-M-v #[nil "\300 \210\301\302\303!!\207" [scroll-down message gp-messager 18] 3 nil nil]) (defalias 'gp-menu-right #[nil "`SV\203` W\203\302\303\304\305#\205\306u\207\307u\207" [gp-menu-start-simple gp-menu-end-simple re-search-forward "[\n ][a-zA-Z]" nil t -1 1] 4 nil nil]) (defalias 'gp-menu-left #[nil "`SV\203` W\203\302\303\304\305#\205\306\224b\207\307u\207" [gp-menu-start-simple gp-menu-end-simple re-search-backward "\\([\n ]\\|^\\)\\([a-zA-Z]+\\)[\n ]" nil t 2 -1] 4 nil nil]) #@74 Switch the *PARI* buffer if it exists, or (other-buffer) if it does not. (defalias 'gp-menu-quit #[nil "\300\301\302\"\210\303\304!\205\305\306\307!!\210\310 \304\230\205\311\312\313!!\207" [gp-window-manager "*gp-menu*" gp-remove-help-now get-buffer-window "*gp-help*" message gp-messager 4 buffer-name select-window other-window 1] 3 (#$ . 92292) nil]) (defalias 'gp-menu-get-beg #[nil "\212\300\301\302\303#\210\304\225)\207" [re-search-backward "\\`\\|[ \n]" nil t 0] 4]) (put 'gp-menu-get-beg 'byte-optimizer 'byte-compile-inline-expand) (defalias 'gp-menu-get-end #[nil "\212\300\301\302\303#\210\304\224)\207" [re-search-forward "\\'\\|[ \n]" nil t 0] 4]) (put 'gp-menu-get-end 'byte-optimizer 'byte-compile-inline-expand) #@77 Select a subject from the main menu, or a manual entry from a subject menu. (defalias 'gp-menu-select #[nil "`SV\203%` W\203%\306\212\307\310\311\312#\210\313\225)\212\314\315\311\312#\210\313\224){!\207`\nSV\203B` W\203B\306\212\316 \210`)\212\311\210`){!\207`\fSV\203_` W\203_\317\212\316 \210`)\212\311\210`){!\207\320\321\322!!\207" [gp-menu-start-simple gp-menu-end-simple gp-menu-start-special gp-menu-end-special gp-menu-start-keywords gp-menu-end-keywords gp-get-man-entry re-search-backward "\\`\\|[ \n]" nil t 0 re-search-forward "\\'\\|[ \n]" beginning-of-line gp-get-apropos message gp-messager 19] 6 (#$ . 93032) nil]) (defalias 'gp-menu-mouse-select #[(event) "\301!\210\302 \207" [event mouse-set-point gp-menu-select] 2 nil "e"]) #@24 Display the main menu. (defalias 'gp-menu-survey #[nil "\306\307 \210\212\310\311\312!\310\261\210 \313\n\314\315#\210)db\210\311\316!\310\261\210 \313\n\317\320#\210*\321\322\322\323\311\324!!\207" [buffer-read-only gp-main-menu-list lst gp-main-menu-keywords-list gp-menu-start-simple gp-menu-end-simple nil erase-buffer "\n" gp-messager 26 gp-display-raw-menu gp-menu-start-special gp-menu-end-special 27 gp-menu-start-keywords gp-menu-end-keywords t 0 message 18] 4 (#$ . 93794) nil]) (defalias 'gp-browser-cmd #[(cmd to-buffer &optional nomessage slow-down) "\306q\210db\210\307!`\310\223\210`\311\n\312P\"\210 \310\313 \204)\203\212\314 \315\316#\204E`U\204E\317 !\320=\204.`\321 !\203h\317 !\320=\203h\212\322\310\313#\205d\315\225dU)\203x \204r\323\324\325!!\210\310\202\202 \204\202\323\324\326!!\210b\210)\202))\327\315!\210, \203\233\327\315 \"\210 d{! d|\210\330\"!q\210\331 \210!c\210\332 \210`d|\210eb*\207" [gp-browser-process temp cmd nomessage initialp process "*Simple PARI*" process-mark nil process-send-string "\n" t accept-process-output 0 300 process-status run processp re-search-backward message gp-messager 6 7 sit-for get-buffer-create erase-buffer beginning-of-line point-init notdone gp-process p gp-prompt-pattern slow-down copy to-buffer] 4]) #@2  (defalias 'gp-browser-1-mode #[nil "\302\303 !\207" [major-mode gp-browser-1-map gp-browser-1 use-local-map] 2 (#$ . 95127) nil]) #@2  (defalias 'gp-browser-2-mode #[nil "\303e\304\n!\207" [major-mode gp-menu-start-simple gp-browser-2-map gp-browser-2 use-local-map] 2 (#$ . 95264) nil]) (defalias 'gp-browser-1-select #[nil "\301ed\302#\210\303\212\304 \210`)\212\305\210`)\306\307$\210\310`\311\"\211\247\205$\312!)\207" [prop remove-text-properties (face) put-text-property beginning-of-line nil face underline get-text-property follow gp-browser-follow] 6 nil nil]) (defalias 'gp-browser-1-mouse-select #[(event) "\301!\210\302 \207" [event mouse-set-point gp-browser-1-select] 2 nil "e"]) (defalias 'gp-browser-2-select #[nil "m\204\n\300\301!\203\302\303x\210\304\305\306\307!!\310\311!\307\312$\210\307q\210\313\314\315\"\207" [looking-at "[ \n ]+" " \n " nil gp-call-gphelp window-width get-buffer-window "*gp-function description*" thing-at-point word "-detex" gp-replace "\\[.?m" ""] 5 nil nil]) (defalias 'gp-browser-2-mouse-select #[(event) "\301!\210\302 \207" [event mouse-set-point gp-browser-2-select] 2 nil "e"]) (defalias 'gp-browser-follow #[(num) "\303q\210\304\305\303!!\210\306 \210\307 \236A!\210d\211\207" [num gp-browser-follow-alist gp-menu-end-simple "*gp-functions list*" select-window get-buffer-window erase-buffer gp-display-simple-menu] 3]) (defalias 'gp-browser-main #[nil "\302\303\304 \"\210eb\207" [major-mode gp-browser-main-alist gp-browser-1-mode mapcar #[(acons) "` Ac\210\302`\303 @$\210\302`\304\305$\210\306c)\207" [temp acons put-text-property follow mouse-face highlight "\n"] 5]] 3]) (defalias 'gp-browser #[nil "\204\306 \210\307 \n\310U\203J\311\312\313\314 !BD!\315 !\210\316\317!\210\320 \210\321 \210\322\323GT\"\210\324\310!\210\316\325!\210\326 \210\322\323\327\"\210\324\310!\210\316\330!\210\202\332\n\331U\203\226\311\332\313\314 !\333\\BD!\315 !\210\316\317!\210\320 \210\321 \210\322\323G\334\\\"\210\324\310!\210\316\330!\210\335\336\317!!\210\322\323\f\337\\\340#\210\324\310!\210\316\325!\210\326 \210\202\332\n\341U\203\332\311\342\313\314 !BD!\315 !\210\316\317!\210\320 \210\321 \210\322\323\f\337\\\340#\210\324\310!\210\316\325!\210\326 \210\324\343!\210\322\323GT\"\210\324\310!\210\316\330!\210\317q\210\335\336\317!!\210\344 \210\345 \346/0\203 \347=\203\373\350\202! \351=\203\352\202! \346=\203\353\354\353\3551\"\"A@\202!\323\202!\356/ \"*!\210\315 !\207" [gp-browser-main-alist gp-main-frame gp-browser-style gp-browser-frame gp-browser-width parameter gp-make-browser selected-frame 1 make-frame (name . "gp-browser") width frame-width select-frame switch-to-buffer "*gp-browser*" gp-browser-1-mode erase-buffer split-window nil other-window "*gp-functions list*" gp-browser-2-mode 12 "*gp-function description*" 2 (name . "gp-browser") 10 5 select-window get-buffer-window 4 t 3 (name . "gp-browser") -1 gp-browser-main set-default-font font cursor-color "black" background-color "blue" assoc "Default" "Misc" frame-parameter frame old-emacs-versionp x-fixed-font-alist] 6 nil nil]) (defalias 'gp-split-to-strings #[(to) "\302\303\304 \305#\203\306\307!C\244\202)\207" [res to nil re-search-forward "\\([^ \n ]+\\)\\( \\|\n\\| \\)" t match-string 1] 4]) (put 'gp-split-to-strings 'byte-optimizer 'byte-compile-inline-expand) (defalias 'gp-make-browser #[nil "\306\307\310!!\210\311\312!\210\312q\210\313\314\312\315P#\316\317!\210\320\321 \322\321* \204++*\203\213\323 \324\325#\204F `U\204F\326 !\327=\2040`,\330 !\203i\326 !\327=\203i\212\331-\322\321#\205e\324\225dU)\203y\f\204s\306\307\332!!\210\322*\202\203\f\204\203\306\307\333!!\210,b\210)\202+)\334\324!\210,\335\336\337\321#\210eb\210\340y\210\341\342\322\321#\203\300.\343\344\320!!\344\340!BC\244./\344\340!G]/\202\235.\237A\237.\345\346\345\347.\"\"0\335\350\337\321#\210\351\312!\210\306\307\332!!\207" [gp-file-name gp-browser-process initialp process nomessage point-init message gp-messager 37 get-buffer-create "*Simple PARI*" gp-get-shell "simple-pari" " -s 1000 -p 10 -emacs" run-hooks pari-mode-hook 1 t nil accept-process-output 0 300 process-status run processp re-search-backward 6 7 sit-for gp-browser-cmd "?" "*gp-browser*" 2 re-search-forward " +\\([1-90]+\\): \\([^\n]*\\)\n" string-to-number match-string mapcar #[(num) "\303 \210\304\305\306!P\307\310\311$\210d\312\313\314 \310#\203%\n\315\316!C\244\202\n*B\207" [num to res erase-buffer gp-browser-cmd "?" number-to-string "*gp-browser*" t 300 nil re-search-forward "\\([^ \n ]+\\)\\( \\|\n\\| \\)" match-string 1] 5] car "q" kill-buffer notdone gp-process p gp-prompt-pattern gp-browser-main-alist gp-browser-width gp-browser-follow-alist] 5]) #@71 Replace the regexp a by the string b everywhere in the current buffer (defalias 'gp-replace #[(a b) "\212eb\210\302\303\304#\205\305\306 !\304\211#\210\202)\207" [a b re-search-forward nil t replace-match eval] 4 (#$ . 99891)]) #@68 Ask in the minibuffer for a "this-type" name and provide a default (defalias 'gp-ask-name-wisely '(macro . #[(this-type) "\301\302\303\304\305\306\307\310\311BB\312BBEDD\313BBD\207" [this-type list let* (word (gp-find-word-to-complete)) arg progn (define-key minibuffer-local-completion-map " " 'self-insert-command) completing-read concat ((if (intern-soft word gp-c-array) (concat " [Default " word "]")) ": ") (gp-c-array) ((define-key minibuffer-local-completion-map " " 'minibuffer-complete-word) (if (equal arg "") (if (intern-soft word gp-c-array) word " ") arg))] 10 (#$ . 100130)])) #@28 Similar to `??fn' under GP (defalias 'gp-get-TeX-man-entry #[(fn) "\301\302 \303\304$\210\305\306\307!!\2039\212\307q\210\310\311!\203 \312\303!\2027\212d\313Zb\210\310\314!)\2057\312\303!\210\315\316\317!\")\207\315\304!\207" [fn gp-call-gphelp window-width nil "" buffer-live-p get-buffer "*Shell Command Output*" looking-at "\n" kill-buffer 13 " not found !" message gp-messager 20] 5 (#$ . 100729) (byte-code "\304 \305 \306\307#\210\310\311\312!\313\n\"\205\314\315Q\316Q\n\"\305 \306\317#\210 \320\232\2038\313\n\"\2034\2029\306\2029 *C\207" [word minibuffer-local-completion-map gp-c-array arg gp-find-word-to-complete define-key " " self-insert-command completing-read gp-messager 21 intern-soft " [Default " "]" ": " minibuffer-complete-word ""] 5)]) #@237 Get the description of fn from chapter 3 of the manual via gphelp, and display the result in a new window. If there is no entry for fn in the manual, send ?fn to gp. If a definition is found, add fn to the array of possible completions (defalias 'gp-get-man-entry #[(fn) "\306 \307\310!q\210\311 \210\312\313\314\310!! \315\316$\210\317\320\321\"\210eb\210\212d\322Zb\210\323\324!)\203D\212\325\n!\203>\326\n!\327=\203>\315\202,\307\330!q\210\311 \210\331\332\333\"\210\315\f\334\335@\321 $\334\336\337A!\340 $\334\341\337B!\342 $\343RC\344\345\346!C\"c\210\347\350\330C#\351\n\352\"\210+\331\332!\210e\353\211\211DEFG\315HE\204\235\nEH\203\354E\355\356#\204\273G`U\204\273\326E!\327=\204\242`I\325E!\203\340\326E!\327=\203\340\212\357J\353\315#\205\334\355\225dU)\203\361F\204\353\360\345\361!!\210\353H\202\374F\204\374\360\345\362!!\210Ib\210)\202\235)\363\355!\210,`K`LM\364=\204\364 \210\365N\326\n!\366>\203+\353\211\202,\315)\203S\330q\210db\210\367\n!`\353\223\210`O\370\n\371 P\372P\"\210O\353\211\211DEFG\315HE\204a\nEH\203\310\354E\355\356#\204G`U\204\326E!\327=\204f`I\325E!\203\244\326E!\327=\203\244\212\357J\353\315#\205\240\355\225dU)\203\265F\204\257\360\345\361!!\210\353H\202\300F\204\300\360\345\362!!\210Ib\210)\202a)\363\355!\210,Od{POd|\210\307\310!q\210\311 \210Pc\210\373 \210`d|\210eb\210*\323\374!\203\375\310\376\"\210\360\345\377! \"\210\202S\323\201S!\203\375\310\376\"\210\360\345\201T! \"\210\202S\375\310\201U\"\210\360\345\201V!!\210 Q\201WQ!\210\201XQR\"\210)\202S\375\310\201U\"\210\360\345\201V!!\210\201Y!)\207" [wind fn gp-process process-connection-type gp-prompt-for-args flag selected-window get-buffer-create "*gp-help*" erase-buffer gp-call-gphelp window-width get-buffer-window t "-detex" gp-replace "\\[.?m" "" 13 looking-at " not found !" processp process-status run "*PARI*" run-hooks pari-mode-hook gp-mode-hook gp-read-input "Gp executable ?" "Stack size ?" number-to-string " -s " "Prime limit ?" " -p " " -emacs" format gp-messager 41 gp-get-shell "pari" set-process-sentinel gp-sentinel nil accept-process-output 0 300 re-search-backward message 6 7 sit-for gp-mode (": %s") (signal exit) process-mark process-send-string "?" "\n" beginning-of-line " *\\*\\*\\* *unknown identifier" gp-window-manager gp-remove-help-now 20 gp-file-name gp-stack-size gp-prime-limit gp-cmd initialp process nomessage point-init notdone p gp-prompt-pattern gp-input-start gp-input-end major-mode mode-line-process temp copy name gp-c-array " *\\*\\*\\* *user defined variable" 22 gp-show-help 4 make-symbol intern select-window] 7 (#$ . 101514) (byte-code "\304 \305 \306\307#\210\310\311\312\n\"\205\313\314Q\315Q\n\"\305 \306\316#\210 \317\232\2036\312\n\"\2032\2027\306\2027 *C\207" [word minibuffer-local-completion-map gp-c-array arg gp-find-word-to-complete define-key " " self-insert-command completing-read "Function" intern-soft " [Default " "]" ": " minibuffer-complete-word ""] 5)]) (defalias 'gp-buffer-to-double-list #[nil "\301\212m\204\302\300\212\303 \210`)\212\301\210`){\"\210\304y\210\202)`d|\210\305!)\207" [lst nil add-to-list beginning-of-line 1 gp-split-menu] 4]) #@125 Show in gp-menu-mode the functions or sections in whose description the expression EXP appears. Similar to "??? exp" in gp. (defalias 'gp-get-apropos #[(exp) "\306\307\310\"\210\311\312\313\314!\312Q\"c\210\315c\210\316\317\320\321$\210\322\323\324\"\210\325\315!\210\326u\210m\203C\327\307!\210 \330\232\204<\331 @!\210 A\332\313\333!\"\207\307q\210\334 \335\n@!\210db\210\n@\203Y\312c\210\nA@\336 \337\340#\210*\341\341\342'\343(\344)!\210\320*eb\210\345\315!\210\332\313\346!!\207" [exp gp-registers-list adoublelist lst gp-menu-start-keywords gp-menu-end-keywords gp-window-manager "*gp-menu*" gp-beginning format "\n" gp-messager 31 "\n###\n" gp-call-gphelp 50 t "-k -raw" gp-replace "\\[.?m" "" search-backward 5 kill-buffer nil jump-to-register message 23 gp-buffer-to-double-list gp-display-simple-menu gp-display-raw-menu gp-menu-start-special gp-menu-end-special 0 gp-menu "GP MENU" use-local-map search-forward 18 major-mode mode-name gp-menu-map buffer-read-only] 5 (#$ . 104780) (byte-code "\304 \305 \306\307#\210\310\311\312!\313\n\"\205\314\315Q\316Q\n\"\305 \306\317#\210 \320\232\2038\313\n\"\2034\2029\306\2029 *C\207" [word minibuffer-local-completion-map gp-c-array arg gp-find-word-to-complete define-key " " self-insert-command completing-read gp-messager 32 intern-soft " [Default " "]" ": " minibuffer-complete-word ""] 5)]) (defalias 'gp-place-to-name #[(gp-place) " \236A\207" [gp-place hilit-face-translation-table] 2]) (put 'gp-place-to-name 'byte-optimizer 'byte-compile-inline-expand) (defalias 'gp-add-to-gp-colors-list #[(asymbolic-name) " >?\205\f B\211\207" [asymbolic-name gp-colors-list] 2]) (defalias 'gp-init-gp-colors-list #[nil "\301\302\303\"\304\"\207" [gp-places-list sort mapcar #[(quoted-gp-place) "\303\304!\211\n\236A)!\207" [quoted-gp-place gp-place hilit-face-translation-table gp-add-to-gp-colors-list eval] 4] #[(p q) "\304\211\n\236A)!\304 \211\n\236A)!\231\207" [p gp-place hilit-face-translation-table q symbol-name] 5]] 4]) (defalias 'gp-save-acolor '(macro . #[(gp-place) "\301\302\303D\304\305\306\303\307DD\310BB\311\303\307DDF\312BBBBB\207" [gp-place insert "(hilit-translate " symbol-name " '" if string= gp-place-to-name ("nil") "default" (")\n")] 10])) #@72 Store the colors of the gp-places in the file specified by pari-colors (defalias 'gp-save-colors #[nil "\212\303\304!q\210\305!\210\306\307 \"\210\310!\203\311\312!\210\202 \313!\210\314\315\304!)\207" [pari-colors gp-places-list pari-colors-modifiedp get-buffer-create "pari-colors.el" set-visited-file-name mapcar #[(quoted-gp-place) "\303\304\305!!\306\304\305!\211\n\236A)!\307\230\203\310\202&\304\305!\211\n\236A)!\311\261\207" [quoted-gp-place gp-place hilit-face-translation-table "(hilit-translate " symbol-name eval " '" "nil" "default" ")\n"] 7] file-exists-p save-buffer 0 write-file nil kill-buffer] 3 (#$ . 107044) nil]) #@160 translate symbolic highlight group names to actual colors. If you work with a dark background, set hilit-background-mode to 'dark before calling this function (defalias 'gp-hilit-translate #[nil "\302!\203\303\304\305!\306!\307Q!\210\310!\207 \311=\203{\312\313\314\315#\210\312\313\316\317#\210\312\313\320\321#\210\312\313\322\323#\210\312\313\324\315#\210\312\313\325\315#\210\312\313\326\327#\210\312\313\330\327#\210\312\313\331\332#\210\312\313\333\315#\210\312\313\334\327#\210\312\313\335\336#\210\312\313\337\332#\210\312\313\340\336#\210\312\313\341\342#\210\312\313\343\344#\207\312\313\314\315#\210\312\313\316\317#\210\312\313\320\321#\210\312\313\322\323#\210\312\313\324\315#\210\312\313\325\315#\210\312\313\326\327#\210\312\313\330\345#\210\312\313\331\346#\210\312\313\333\315#\210\312\313\334\327#\210\312\313\335\336#\210\312\313\337\345#\210\312\313\340\347#\210\312\313\341\342#\210\312\313\343\344#\207" [pari-colors hilit-background-mode file-exists-p message gp-messager 24 file-name-directory "..." load-file light hilit-associate hilit-face-translation-table gp-function-args green3 gp-function-proto deepskyblue1 gp-global-var deepskyblue1-underline gp-string grey50 gp-input-cmd gp-default-set gp-default-keywords red3 gp-control-statement gp-comment blue3 gp-timer gp-help gp-input default gp-output gp-prompt gp-history magenta3 gp-error red hex-ffff60 hex-80a0ff brown] 4 (#$ . 107702) nil]) #@493 A parser to find global variables. Called on a gp-program outside a function-definition, gives position via (cons start end) of next global-variable-definition not surrounded by {} and set the point at the end of the line. Answer nil if no global-variable is found. The end delimiter of a function definition surrounded by {} is '} ' and the same holds with function definitions of the style 'fun(var)={foo}'. DUMMY is not used, but introduced for compatibility with 'hilit-set-mode-patterns (defalias 'gp-find-global-var #[(dummy) "\302\303 \304P!\203\305\225b\210\202\303\306!\203!\307\224\307\225B\305\225b\210)\207" [answer comment-start-skip nil looking-at "\\|[ \\| \\|\n]\\|{\\([^}]\\|}[^\n]\\)*}\n\\|\\<[a-zA-Z]\\w*([^)]*) *={\\([^}]\\|}[^\n]\\)*}\n\\|\\<[a-zA-Z]\\w*([^)]*) *=\\([^=\\\\\"]\\|\\\\[ ]*\\(\\\\\\\\.*$\\|/\\*\\([^\\*]\\|\\*[^/]\\)*\\*/\\)?\n\\|\"\\([^\"]*\\|\\\\\"\\)*\"\\)\\([^\\\\\n\"]\\|\"\\([^\"]*\\|\\\\\"\\)*\"\\|\\\\[ ]*\\(\\\\\\\\.*$\\|/\\*\\([^\\*]\\|\\*[^/]\\)*\\*/\\)?\n\\)*\n\\|\\<[a-zA-Z]\\w*([^)]*)[;\n]" 0 "\\<\\([a-zA-Z]\\w*\\)=[^=].*$" 1] 3 (#$ . 109139)]) #@125 Give the position of next " preceded by an even number of \ . Move point after this point. Nil if no such place before lim. (defalias 'gp-search-forward-string-delimiter #[(lim) "\302\303\304 \305#\211\203\212\306u\210\307\302x\310\246\311U)\203)\207" [p lim nil search-forward "\"" t -1 "\\\\" 2 0] 4 (#$ . 110252)]) (put 'gp-search-forward-string-delimiter 'byte-optimizer 'byte-compile-inline-expand) #@291 A parser to find comments in gp. Called on a gp-program outside a string or a comment, gives position via (cons start end) of next comment and set point at the end of line. Answer nil if no comment is found. DUMMY is not used, but introduced for compatibility with 'hilit-set-mode-patterns (defalias 'gp-find-comment #[(dummy) "\306\307\203\240`\310\311\306\307#\211b\210\n\203\232\nS\306\312\313\f\307#\211\2035\212\314u\210\315\306x\316\246\317U)\203 *\203\207\nS\306\312\313\f\307#\211\203X\212\314u\210\315\306x\316\246\317U)\203? *\204\234d\306\312\313\f\307#\211\203z\212\314u\210\315\306x\316\246\317U)\203a *\204\234\306db\210\202\234\306\310\320\306\307#\203\234\317\224\317\225B\202\234\306*\202 *\207" [not-done answer p-comment p-start lim p nil t re-search-forward "\\\\\\\\\\|/\\*" search-forward "\"" -1 "\\\\" 2 0 "\\\\\\\\.*$\\|/\\*\\([^\\*]\\|\\*[^/]\\)*\\*/"] 6 (#$ . 110670)]) #@15 Update hilit. (defalias 'gp-update-hilit #[nil "\205\f\301\302 \303 d^\"\207" [gp-can-hilit hilit-rehighlight-region window-start window-end] 4 (#$ . 111608) nil]) #@93 Update hilighting/unhilighting on all the buffers that are in gp-mode or in gp-script-mode. (defalias 'gp-update-hilit-buffers #[nil "\212\300\301\302 \"\210\303\304!)\207" [mapcar #[(abuffer) "q\210 \303>\205\n\203\304 \207\305ed\"\207" [abuffer major-mode gp-can-hilit (gp-script-mode gp-mode) hilit-rehighlight-buffer hilit-unhighlight-region] 3] buffer-list message ""] 3 (#$ . 111780) nil]) (defalias 'gp-color-help #[nil "?\206&\303\304!\305\306\307\"\210 c\210\310\311\306!!S\312ed\313#\210\305\306\314\"\210\315 )\207" [gp-tutorial-requiredp astring fill-column gp-messager 28 gp-window-manager "*gp-help*" gp-beginning-temp window-width get-buffer-window fill-individual-paragraphs left gp-remove-help-old-config gp-restore-wind-conf] 4]) #@68 Build the command to paint gp-place according to a read face-name. (defalias 'gp-cmd2-to-paint '(macro . #[(gp-place) "\301\211\302\303\304\305\306\301\307\310\311\301\312\313\301\314\315BBB\301\316\317BBB\257\320BBBBB\257D\207" [gp-place list 'lambda nil '(interactive) (list #'gp-store-wind-conf) (list #'gp-color-help) 'let (list (list 'temp-name (list #'read-from-minibuffer (gp-messager 40))) (list 'a-face-name nil)) (list 'setq 'a-face-name (list 'intern (list 'if (list 'string= 'temp-name "") '"default" 'temp-name))) 'if (list 'string= 'a-face-name "default") #'hilit-translate (nil) #'hilit-translate ('a-face-name) ((list #'setq 'pari-colors-modifiedp t) (list #'gp-update-hilit-buffers) (list #'gp-add-to-gp-colors-list 'a-face-name) (list 'if 'gp-tutorial-requiredp (list 'progn (list #'gp-window-manager "*gp-help*" ''gp-remove-help-now-old-config) (list #'gp-restore-wind-conf))))] 19 (#$ . 112543)])) #@48 Build the command to paint gp-place to acolor. (defalias 'gp-cmd-to-paint '(macro . #[(acolor gp-place) "\302\211\303\304\305\302\306\302\307 EF\310BBBBBD\207" [gp-place acolor list 'lambda nil '(interactive) #'hilit-translate 'quote ((list #'setq 'pari-colors-modifiedp t) (list #'gp-update-hilit-buffers) (list #'message ""))] 11 (#$ . 113471)])) #@165 Build the command that enable acolor to be chosen in the menu item [GP gp-place]. A color is enabled if it is not already the one that is being used for this item. (defalias 'gp-cmd-to-enable #[(acolor gp-place) "\302\303\304\305\306D\307\306 DDEDE\207" [acolor gp-place and gp-can-hilit not eq quote gp-place-to-name] 8 (#$ . 113828)]) (put 'gp-cmd-to-enable 'byte-optimizer 'byte-compile-inline-expand) #@87 Build the Colors submenu. The colors proposed are the one of the list 'gp-colors-list (defalias 'gp-build-color-submenu #[(gp-place) "\302\303\304\"\305C\306\307\310!\311\312\313\314C\315C\316\317\320\307\321!DD\322\312DD\323\322\324\325\326\317\327E\330\317FDE\325\326\322\330E\331 \312E\331 \322EF\323\332\333E\334C\335\322D\325\336\337\340\341\342E\343CEE\257\257C\333#C#\207" [gp-colors-list gp-place append mapcar #[(acolor) "\302\303!\304\305\306\307 \310DE\311\312\313E\314C\315\316D\257C \317\320\321\322\310D\323\310 DDEDE*\324\305%\207" [acolor gp-place vector symbol-name lambda nil (interactive) hilit-translate quote setq pari-colors-modifiedp t gp-update-hilit-buffers message "" and gp-can-hilit not eq gp-place-to-name :key-sequence] 11] "----------------" vector gp-messager 42 lambda nil (interactive) gp-store-wind-conf gp-color-help let temp-name read-from-minibuffer 40 a-face-name setq intern if string= "" "default" hilit-translate pari-colors-modifiedp t gp-update-hilit-buffers gp-add-to-gp-colors-list gp-tutorial-requiredp progn gp-window-manager "*gp-help*" 'gp-remove-help-now-old-config gp-restore-wind-conf] 23 (#$ . 114240)]) (put 'gp-build-color-submenu 'byte-optimizer 'byte-compile-inline-expand) #@23 Build the Colors menu (defalias 'gp-build-color-menu #[nil "?\205G \305=\205G\306 \205G\n\307=\204\n\207\310\311\312!C\313\311\314!\315\316#C \317\320\f\"\321\313\311\322!\323\324#\313\311\325!\326\316\327\307%\313\311\330!\331\316#F%C\211\207" [gp-no-color-item window-system gp-color-menu-list gp-separator gp-places-list x x-display-color-p nil append gp-messager 43 vector 44 hilit-recenter t mapcar #[(quoted-gp-place) "\303\304\305!!!\306\307O\305!\310\311\312\n\"\313C\314\315\316!\317\307\320\321C\322C\323\324\325\315\326!DD\327\307DD\330\327\331\332\333\324\334E\335\324FDE\332\333\327\335E\336 \307E\336 \327EF\330\337\340E\341C\342\327D\332\343\344\345\346\347E\350CEE\257\257C\340#C#)B\207" [quoted-gp-place gp-place gp-colors-list upcase-initials symbol-name eval 3 nil append mapcar #[(acolor) "\302\303!\304\305\306\307 \310DE\311\312\313E\314C\315\316D\257C \317\320\321\322\310D\323\310 DDEDE*\324\305%\207" [acolor gp-place vector symbol-name lambda nil (interactive) hilit-translate quote setq pari-colors-modifiedp t gp-update-hilit-buffers message "" and gp-can-hilit not eq gp-place-to-name :key-sequence] 11] "----------------" vector gp-messager 42 lambda (interactive) gp-store-wind-conf gp-color-help let temp-name read-from-minibuffer 40 a-face-name setq intern if string= "" "default" hilit-translate pari-colors-modifiedp t gp-update-hilit-buffers gp-add-to-gp-colors-list gp-tutorial-requiredp progn gp-window-manager "*gp-help*" 'gp-remove-help-now-old-config gp-restore-wind-conf] 24] "------------------------------------------" 45 gp-save-colors pari-colors-modifiedp 46 gp-hilit-switch :key-sequence 47 gp-update-hilit-buffers] 13 (#$ . 115488)]) (byte-code "\303\304\305\306#\210\301B\307\310!\311\307\312!\313\314#\311\307\315!\316\317#\320\307\321!\322\323\324\325\257\307\326!\311\307\327!\330\331\332\333%\311\307\334!\335\336\332\333%\311\307\337!\340\341\332\333%\311\307\342!\343\344\332\333%\311\307\345!\346\347#\257\320\350\351\352\353\257 C\302B\307\310!\354\355\356FC\333\207" [current-load-list gp-metakeys-gp-mode-menu gp-metakeys-gp-script-mode-menu put gp-build-color-menu byte-optimizer byte-compile-inline-expand gp-messager 48 vector 49 gp-meta-r (processp gp-process) 50 gp-meta-w (processp gp-process) "------------------------------------------------" 51 ["Pretty Format" gp-meta-b (processp gp-process)] ["Matrix Pretty Format" gp-meta-m (processp gp-process)] ["Raw Format" gp-meta-a (processp gp-process)] ["Inner Structure" gp-meta-x (processp gp-process)] 52 53 gp-set-simple-prompt (processp gp-process) :key-sequence nil 54 gp-set-time-prompt (processp gp-process) 55 gp-set-date-prompt (processp gp-process) 56 gp-set-separator-prompt (processp gp-process) 42 gp-set-prompt (processp gp-process) ["PARI Types" gp-meta-t (processp gp-process)] ["Default" gp-meta-d (processp gp-process)] ["Version Number" gp-meta-v (processp gp-process)] ["Stack Info" gp-meta-s (processp gp-process)] ["PARI Types" gp-meta-t (processp gp-process)] ["Default" gp-meta-d (processp gp-process)] ["Version Number" gp-meta-v t]] 15) #@2  (defalias 'gp-build-main-cmds-menu #[nil "\301\232\205\302\303!\304\302\305!\306\307#\304\302\310!\311\312#EC\304\302\313!\314\307#C\244\301\232\2054\304\302\315!\316\317\320\321\322&C\244\304\302\323!\324\325\321\322%C\244\207" [major-mode gp-script-mode gp-messager 57 vector 58 gp-usual-start t 59 gp-start-with-parameters (not (processp gp-process)) 60 run-gp 61 gp-run-in-region :enable mark-active :key-sequence nil 62 gp-meta-q (processp gp-process)] 8 (#$ . 118599)]) (byte-code "\303\304\305\306#\210\302B \307=\205\310C\311\312\313\314\315\316\317\314\320\321\322!\323\324\325\326%\257 \244\326\207" [current-load-list window-system gp-manual-menu put gp-build-main-cmds-menu byte-optimizer byte-compile-inline-expand x ["Browser" gp-browser (eq window-system 'x) :key-sequence nil] ["Info Survey" gp-menu t] ["TeX Manual" gpman t :key-sequence nil] ["Tutorial" gp-tutorial t :key-sequence nil] "-------------------------" ["Info on Function..." gp-get-man-entry t] ["Info on Subject..." gp-get-apropos t] ["TeX Info on ..." gp-get-TeX-man-entry t :key-sequence nil] vector gp-messager 63 gp-show-pariemacs t :key-sequence nil] 15) #@2  (defalias 'gp-build-cpl-file-menu #[nil "\301\302!\303\301\304!\305\306\307\310\311&\303\301\312!\313\306\307\310\311&E\314\232\205-\303\301\315!\316\306\307\310\311&\317D\244C\207" [major-mode gp-messager 64 vector 65 gp-cpl-file :enable t :key-sequence nil 66 gp-edit-cpl-file gp-script-mode 67 gp-make-cpl-file ["Info" gp-cpl-file-info :enable t :key-sequence nil]] 9 (#$ . 119758)]) (put 'gp-build-cpl-file-menu 'byte-optimizer 'byte-compile-inline-expand) #@2  (defalias 'gp-build-utilities-menu #[nil "\301\302\303!\304\305#C\301\302\306!\307\305#C\244\310\232\2051\302\311!\301\302\312!\313\314#\301\302\315!\316\305#\301\302\317!\320\305#FC\244\310\232\205@\301\302\321!\322\305#C\244\207" [major-mode vector gp-messager 72 gp-complete t 73 gp-skip-to-error gp-mode 74 75 gp-copy-last-input (processp gp-process) 76 gp-remove-last-output 77 gp-remove-last-action 78 gp-toggle] 8 (#$ . 120230)]) (put 'gp-build-utilities-menu 'byte-optimizer 'byte-compile-inline-expand) #@46 Add menu-bar item GP if wanted and possible. (defalias 'gp-init-script-menu-bar #[nil "\306\307!\205]?\205] \310=\205]\311\301\312\313#\210\314\301!\204\310\315\301\n\313\316\317C \320\232\205?\321\322!\323\321\324!\325\326#\323\321\327!\330\331#EC\323\321\332!\333\326#C\244 \320\232\205Z\323\321\334!\335\336\337\340\310&C\244\323\321\341!\342\343\340\310%C\244\f \f@A?\205\272B\344=\205\272\345 \205\272C\310=\204\211C\202\272\316\321\346!C\323\321\347!\350\326#C\f\351\352D\"\353\323\321\354!\355\356#\323\321\357!\360\326\340\310%\323\321\361!\362\326#F%C\211C\323\321\363!\364\326#C\f\323\321\365!\366\326#C\323\321\367!\370\326#C\244 \371\232\205\370\321\372!\323\321\373!\374\375#\323\321\376!\377\326#\323\321\201E!\201F\326#FC\244 \371\232\205 \323\321\201G!\201H\326#C\244\f\321\201I!\323\321\201J!\201K\336\326\340\310&\323\321\201L!\201M\336\326\340\310&E \320\232\205J\323\321\201N!\201O\336\326\340\310&\201PD\244C\323\321\201Q!\201R\201S#C& $\207" [gp-no-menu-bar GP-script-menu-map gp-script-map major-mode gp-separator gp-manual-menu featurep easymenu nil put variable-documentation "Menu-bar item used under gp-script-mode." boundp easy-menu-do-define append "GP" gp-script-mode gp-messager 57 vector 58 gp-usual-start t 59 gp-start-with-parameters (not (processp gp-process)) 60 run-gp 61 gp-run-in-region :enable mark-active :key-sequence 62 gp-meta-q (processp gp-process) x x-display-color-p 43 44 hilit-recenter mapcar #[(quoted-gp-place) "\303\304\305!!!\306\307O\305!\310\311\312\n\"\313C\314\315\316!\317\307\320\321C\322C\323\324\325\315\326!DD\327\307DD\330\327\331\332\333\324\334E\335\324FDE\332\333\327\335E\336 \307E\336 \327EF\330\337\340E\341C\342\327D\332\343\344\345\346\347E\350CEE\257\257C\340#C#)B\207" [quoted-gp-place gp-place gp-colors-list upcase-initials symbol-name eval 3 nil append mapcar #[(acolor) "\302\303!\304\305\306\307 \310DE\311\312\313E\314C\315\316D\257C \317\320\321\322\310D\323\310 DDEDE*\324\305%\207" [acolor gp-place vector symbol-name lambda nil (interactive) hilit-translate quote setq pari-colors-modifiedp t gp-update-hilit-buffers message "" and gp-can-hilit not eq gp-place-to-name :key-sequence] 11] "----------------" vector gp-messager 42 lambda (interactive) gp-store-wind-conf gp-color-help let temp-name read-from-minibuffer 40 a-face-name setq intern if string= "" "default" hilit-translate pari-colors-modifiedp t gp-update-hilit-buffers gp-add-to-gp-colors-list gp-tutorial-requiredp progn gp-window-manager "*gp-help*" 'gp-remove-help-now-old-config gp-restore-wind-conf] 24] "------------------------------------------" 45 gp-save-colors pari-colors-modifiedp 46 gp-hilit-switch 47 gp-update-hilit-buffers 70 gp-tutorial-switch 72 gp-complete 73 gp-skip-to-error gp-mode 74 75 gp-copy-last-input (processp gp-process) 76 gp-remove-last-output gp-metakeys-gp-script-mode-menu gp-no-color-item window-system gp-color-menu-list gp-places-list 77 gp-remove-last-action 78 gp-toggle 64 65 gp-cpl-file 66 gp-edit-cpl-file 67 gp-make-cpl-file ["Info" gp-cpl-file-info :enable t :key-sequence nil] 71 gp-restore-wind-conf gp-registers-list] 25 (#$ . 120753)]) #@46 Add menu-bar item GP if wanted and possible. (defalias 'gp-init-menu-bar #[nil "\306\307!\205]?\205] \310=\205]\311\301\312\313#\210\314\301!\204\310\315\301\n\313\316\317C \320\232\205?\321\322!\323\321\324!\325\326#\323\321\327!\330\331#EC\323\321\332!\333\326#C\244 \320\232\205Z\323\321\334!\335\336\337\340\310&C\244\323\321\341!\342\343\340\310%C\244\f \f@A?\205\272B\344=\205\272\345 \205\272C\310=\204\211C\202\272\316\321\346!C\323\321\347!\350\326#C\f\351\352D\"\353\323\321\354!\355\356#\323\321\357!\360\326\340\310%\323\321\361!\362\326#F%C\211C\323\321\363!\364\326#C\f\323\321\365!\366\326#C\323\321\367!\370\326#C\244 \371\232\205\370\321\372!\323\321\373!\374\375#\323\321\376!\377\326#\323\321\201E!\201F\326#FC\244 \371\232\205 \323\321\201G!\201H\326#C\244\f\321\201I!\323\321\201J!\201K\336\326\340\310&\323\321\201L!\201M\336\326\340\310&E \320\232\205J\323\321\201N!\201O\336\326\340\310&\201PD\244C\323\321\201Q!\201R\201S#C& $\207" [gp-no-menu-bar GP-menu-map gp-map major-mode gp-separator gp-manual-menu featurep easymenu nil put variable-documentation "Menu-bar item used under gp-mode." boundp easy-menu-do-define append "GP" gp-script-mode gp-messager 57 vector 58 gp-usual-start t 59 gp-start-with-parameters (not (processp gp-process)) 60 run-gp 61 gp-run-in-region :enable mark-active :key-sequence 62 gp-meta-q (processp gp-process) x x-display-color-p 43 44 hilit-recenter mapcar #[(quoted-gp-place) "\303\304\305!!!\306\307O\305!\310\311\312\n\"\313C\314\315\316!\317\307\320\321C\322C\323\324\325\315\326!DD\327\307DD\330\327\331\332\333\324\334E\335\324FDE\332\333\327\335E\336 \307E\336 \327EF\330\337\340E\341C\342\327D\332\343\344\345\346\347E\350CEE\257\257C\340#C#)B\207" [quoted-gp-place gp-place gp-colors-list upcase-initials symbol-name eval 3 nil append mapcar #[(acolor) "\302\303!\304\305\306\307 \310DE\311\312\313E\314C\315\316D\257C \317\320\321\322\310D\323\310 DDEDE*\324\305%\207" [acolor gp-place vector symbol-name lambda nil (interactive) hilit-translate quote setq pari-colors-modifiedp t gp-update-hilit-buffers message "" and gp-can-hilit not eq gp-place-to-name :key-sequence] 11] "----------------" vector gp-messager 42 lambda (interactive) gp-store-wind-conf gp-color-help let temp-name read-from-minibuffer 40 a-face-name setq intern if string= "" "default" hilit-translate pari-colors-modifiedp t gp-update-hilit-buffers gp-add-to-gp-colors-list gp-tutorial-requiredp progn gp-window-manager "*gp-help*" 'gp-remove-help-now-old-config gp-restore-wind-conf] 24] "------------------------------------------" 45 gp-save-colors pari-colors-modifiedp 46 gp-hilit-switch 47 gp-update-hilit-buffers 70 gp-tutorial-switch 72 gp-complete 73 gp-skip-to-error gp-mode 74 75 gp-copy-last-input (processp gp-process) 76 gp-remove-last-output gp-metakeys-gp-mode-menu gp-no-color-item window-system gp-color-menu-list gp-places-list 77 gp-remove-last-action 78 gp-toggle 64 65 gp-cpl-file 66 gp-edit-cpl-file 67 gp-make-cpl-file ["Info" gp-cpl-file-info :enable t :key-sequence nil] 71 gp-restore-wind-conf gp-registers-list] 25 (#$ . 123948)])