;ELC ;;; compiled by dgilbert@jaywon.pci.on.ca on Wed Jan 4 22:45:49 1995 ;;; from file five:CWork/emacs-19.25/lisp/amiga-init.el ;;; emacs version 19.25.1. ;;; bytecomp version FSF 2.10 ;;; optimization is on. ;;; this file uses opcodes which do not exist in Emacs 18. (if (and (boundp 'emacs-version) (or (and (boundp 'epoch::version) epoch::version) (string-lessp emacs-version "19"))) (error "`five:CWork/emacs-19.25/lisp/amiga-init.el' was compiled for Emacs 19")) (byte-code "\" \f\"! # # # # # # # # # # # # # %\f%#%#%#%#%#%#%#%#%#%#%#%#%#%#%#%@#%AB#%CD#%EF#%GH#%IJ#" [global-set-key "" amiga-iconify make-keymap amiga-map "" load "amiga-mouse" define-key global-map [help] info [S-left] [prior] [S-right] [next] [S-down] scroll-up [S-up] scroll-down [C-left] forward-sexp [C-right] backward-sexp [C-down] scroll-down-1 [C-up] scroll-up-1 [M-up] [begin] [M-down] [end] [M-left] beginning-of-line [M-right] end-of-line make-sparse-keymap amiga-keypad-map "K" "[" "]" "{" "}" "/" [kp-divide] "*" [kp-multiply] "-" [kp-subtract] "+" [kp-add] "." [kp-decimal] [RET] [kp-enter] [0] [kp-0] [1] [kp-1] [2] [kp-2] [3] [kp-3] [4] [kp-4] [5] [kp-5] [6] [kp-6] [7] [kp-7] [8] [kp-8] [9] [kp-9]] 4) (defalias 'scroll-down-1 #[nil "!" [scroll-down 1] 2 "\ Move up one line on screen." nil]) (defalias 'scroll-up-1 #[nil "!" [scroll-up 1] 2 "\ Move down one line on screen." nil]) (defun unfocus-frame nil "\ A dummy, used by general mouse.el." (interactive)) (defalias 'window-frame #[(w) " " [selected-frame] 1 "\ Return the frame object that window WINDOW is on." nil]) (byte-code "" [nil amiga-arexx-processing amiga-arexx-errors] 1) (defvar amiga-arexx-failat 5 "\ Return level from which arexx commands returns cause errors") (defalias (quote amiga-arexx-process) #[nil "?ď‰" [amiga-arexx-processing t nil (byte-code " ȏ \f\"*)" [nil arexxcmd amiga-arexx-get-next-msg 0 result rc err (byte-code " !@\n!!)" [read-from-string arexxcmd expr prin1-to-string eval result] 3) ((error (byte-code " !" [20 rc prin1-to-string err result] 2))) amiga-arexx-reply] 3) ((error))] 3 nil nil]) (defalias 'amiga-arexx-wait-command #[(id) " \n! \n!" [amiga-arexx-process amiga-arexx-check-command id amiga-arexx-wait amiga-arexx-get-msg-results] 2 "\ Waits for a pending ARexx commands (MSGID) to complete. Also processes any pending ARexx requests during this interval. returns the result list associated with this id, which takes the form: (msgid result-code error-or-string) ``error-or-string'' depends on ``result-code''. if ``result-code'' is 0 the command finished successfully and ``error-or-string'' will be a string or nil, otherwise the command returned with an error and ``error-or-string'' will be an interger that is the secondary error code of the arexx command."]) (defconst amiga-arexx-error-messages ["No cause" "Program not found" "Execution halted" "Insufficient memory" "Invalid character" "Unmatched quote" "Unterminated comment" "Clause too long" "Invalid token" "Symbol or string too long" "Invalid message packet" "Command string error" "Error return from function" "Host environment not found" "Requested library not found" "Function not found" "Function did not return value" "Wrong number of arguments" "Invalid argument to function" "Invalid PROCEDURE" "Unexpected THEN or WHEN" "Unexpected ELSE or OTHERWISE" "Unexpected BREAK, LEAVE or ITERATE" "Invalid statement in SELECT" "Missing or multiple THEN" "Missing OTHERWISE" "Missing or unexpected END" "Symbol mismatch" "Invalid DO syntax" "Incomplete IF or SELECT" "Label not found" "Symbol expected" "Symbol or string expected" "Invalid keyword" "Required keyword missing" "Extraneous characters" "Keyword conflict" "Invalid template" "Invalid TRACE request" "Unitialized variable" "Invalid variable name" "Invalid expression" "Unbalanced parentheses" "Nesting limit exceeded" "Invalid expression result" "Expression required" "Boolean value not 0 or 1" "Arithmetic conversion error" "Invalid operand"] "\ The arexx error messages, sorted by number") (defalias 'amiga-arexx-do-command #[(str as-file) " \n\"!O !A@8 \nVL \fGW6\f H< #\n#)N +)" [amiga-arexx-send-command str as-file id error "Failed to send arexx command." amiga-arexx-wait-command reslist 2 second rc 0 amiga-arexx-error-messages format nil "Unknown error %d" error-message "Arexx command failed, level %d, cause %s"] 5 "\ Sends ARexx command STR (like amiga-arexx-send-command). If AS-FILE is true, STR is an arexx command, otherwise it is a file name. Waits for the command to return. If the arexx command fails an error will be caused. If you would like to get result strings and errors (ie. not cause a lisp error) use: (amiga-arexx-do-command-with-results)" "sARexx command:\nP"]) (defalias 'amiga-arexx-do-command-with-results #[(str as-file) " \n\"!5 !A@8 \n2\nV2\n D4 +)" [amiga-arexx-send-command str as-file id error "Failed to send arexx command." amiga-arexx-wait-command reslist 2 second rc 0] 4 "\ Sends ARexx command STR (like amiga-arexx-do-command). If AS-FILE is true, STR is an arexx command, otherwise it is a file name. Waits for the command to return. The return value is one of three things: - the command executed succesfully: nil or a result string. - the command failed: a list of the form (RC ERROR-CODE) where RC is the severity and ERROR-CODE is the secondary error." "sARexx command:\nP"]) (byte-code " #" [define-key amiga-map "X" amiga-arexx-process t amiga-arexx-initialized] 4) (defalias 'amiga-wb-process #[nil "Ï)" [nil file (byte-code "!ŏ" [amiga-get-wb-event t file nil (find-file file) ((error))] 3) ((error))] 3 "\ Process all pending workbench events, ie load all files requested" nil]) (byte-code " #" [define-key amiga-map "W" amiga-wb-process t amiga-wb-initialized completion-ignore-case never version-control] 4) (defalias 'safe-amiga-paste #[nil "" [nil (amiga-paste) ((error))] 3 "\ Paste from the amiga clipboard, trapping any errors."]) (defalias 'check-clipboard #[nil "\n \f\f!) )" [nil added amiga-new-clip safe-amiga-paste str kill-add t kill-ring kill-ring-yank-pointer] 2 "\ If there is anything new in the clipboard, add it to the emacs kill ring. Returns t if there was something added, nil otherwise."]) (byte-code "\"" [defalias update-clipboard #[(str &optional dummy) " !‰" [amiga-cut str nil amiga-new-clip] 2] interprogram-cut-function safe-amiga-paste interprogram-paste-function] 3)