;ELC ;;; Compiled by pot@pot.cnuce.cnr.it on Tue Mar 18 15:48:51 2003 ;;; from file /home/pot/gnu/emacs-pretest.new/lisp/net/rcompile.el ;;; in Emacs version 21.3 ;;; with bytecomp version 2.85.4.1 ;;; 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 "`rcompile.el' was compiled for Emacs 19.29 or later")) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (byte-code "\300\301!\210\302\303!\210\304\305\306\307\310\311\310\312&\207" [provide rcompile require compile custom-declare-group remote-compile nil "Run a compilation on a remote machine" :group processes tools] 8) #@32 *Host for remote compilations. (custom-declare-variable 'remote-compile-host 'nil '(#$ . -841) :type '(choice string (const nil)) :group 'remote-compile) #@87 User for remote compilations. nil means use the value returned by \[user-login-name]. (custom-declare-variable 'remote-compile-user 'nil '(#$ . 1001) :type '(choice string (const nil)) :group 'remote-compile) #@239 *Command to run before compilation. This can be used for setting up environment variables, since rsh does not invoke the shell as a login shell and files like .login (tcsh) and .bash_profile (bash) are not run. nil means run no commands. (custom-declare-variable 'remote-compile-run-before 'nil '(#$ . -1217) :type '(choice string (const nil)) :group 'remote-compile) #@64 *Non-nil means prompt for host if not available from filename. (custom-declare-variable 'remote-compile-prompt-for-host 'nil '(#$ . -1591) :type 'boolean :group 'remote-compile) #@64 *Non-nil means prompt for user if not available from filename. (custom-declare-variable 'remote-compile-prompt-for-user 'nil '(#$ . -1775) :type 'boolean :group 'remote-compile) (byte-code "\301B\303\301!\204\f\304\302B\303\302!\204\304\304\207" [current-load-list remote-compile-host-history remote-compile-user-history boundp nil] 2) #@82 Compile the current buffer's directory on HOST. Log in as USER. See \[compile]. (defalias 'remote-compile #[(host user command) "\n\203 \n\202 \204\306 \307\310!\205\311\f!\312\313 \203/\314P\2020\315 \203:\316 8\202;\f &\317\320\211\"\210\321 \322\"\210rq\210\323\324!\325\326QL+\207" [command compile-command user remote-compile-user default-directory parsed user-login-name featurep ange-ftp ange-ftp-ftp-name format "%s %s -l %s \"(%scd %s; %s)\"" "; " "" 2 save-some-buffers nil compile-internal "No more errors" make-local-variable comint-file-name-prefix "/" ":" remote-shell-program host remote-compile-run-before remote-compile-host compilation-last-buffer] 8 (#$ . 2126) (let ((parsed (or (and (featurep 'ange-ftp) (ange-ftp-ftp-name default-directory)))) host user command prompt) (if parsed (setq host (nth 0 parsed) user (nth 1 parsed)) (setq prompt (if (stringp remote-compile-host) (format "Compile on host (default %s): " remote-compile-host) "Compile on host: ") host (if (or remote-compile-prompt-for-host (null remote-compile-host)) (read-from-minibuffer prompt "" nil nil 'remote-compile-host-history) remote-compile-host) user (if remote-compile-prompt-for-user (read-from-minibuffer (format "Compile by user (default %s)" (or remote-compile-user (user-login-name))) "" nil nil 'remote-compile-user-history) remote-compile-user))) (setq command (read-from-minibuffer "Compile command: " compile-command nil nil '(compile-history . 1))) (list (if (string= host "") remote-compile-host host) (if (string= user "") remote-compile-user user) command))])