;ELC ;;; Compiled by rms@psilocin.ai.mit.edu on Tue Jul 21 20:54:02 1998 ;;; from file /gd/gnu/emacs/lisp/progmodes/sh-script.el ;;; in Emacs version 20.2.97.5 ;;; with bytecomp version 2.48 ;;; 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 "`sh-script.el' was compiled for Emacs 19.29 or later")) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (require 'executable) #@25 *Hook run by `sh-mode'. (defvar sh-mode-hook nil (#$ . -638)) #@30 *Hook run by `sh-set-shell'. (defvar sh-set-shell-hook nil (#$ . -706)) (byte-code "\302\303\304\305\306\307&\210\302\310\304\311\303 \312&\207" [:group :prefix custom-declare-group sh nil "Shell programming utilities" unix languages sh-script "Shell script mode" "sh-"] 8) #@656 *Alist showing the direct ancestor of various shells. This is the basis for `sh-feature'. See also `sh-alias-alist'. By default we have the following three hierarchies: csh C Shell jcsh C Shell with Job Control tcsh Toronto C Shell itcsh ? Toronto C Shell rc Plan 9 Shell es Extensible Shell sh Bourne Shell ash ? Shell jsh Bourne Shell with Job Control bash GNU Bourne Again Shell ksh88 Korn Shell '88 ksh Korn Shell '93 dtksh CDE Desktop Korn Shell pdksh Public Domain Korn Shell wksh Window Korn Shell zsh Z Shell oash SCO OA (curses) Shell posix IEEE 1003.2 Shell Standard wsh ? Shell (custom-declare-variable 'sh-ancestor-alist ''((ash . sh) (bash . jsh) (dtksh . ksh) (es . rc) (itcsh . tcsh) (jcsh . csh) (jsh . sh) (ksh . ksh88) (ksh88 . jsh) (oash . sh) (pdksh . ksh88) (posix . sh) (tcsh . csh) (wksh . ksh88) (wsh . sh) (zsh . ksh88)) '(#$ . -992) :type '(repeat (cons symbol symbol)) :group 'sh-script) #@158 *Alist for transforming shell names to what they really are. Use this where the name of the executable doesn't correspond to the type of shell it really is. (custom-declare-variable 'sh-alias-alist '(nconc (if (eq system-type 'gnu/linux) '((csh . tcsh) (ksh . pdksh))) '((ksh . ksh88) (sh5 . sh))) '(#$ . -1980) :type '(repeat (cons symbol symbol)) :group 'sh-script) #@59 *The executable file name for the shell being programmed. (custom-declare-variable 'sh-shell-file '(or (and (memq system-type '(ms-dos windows-nt)) (let* ((shell (getenv "SHELL")) (shell-base (and shell (file-name-nondirectory shell)))) (if (or (null shell) (member (downcase shell-base) '("command.com" "cmd.exe" "4dos.com" "ndos.com" "cmdproxy.exe"))) "/bin/sh" (file-name-sans-extension (downcase shell))))) (getenv "SHELL") "/bin/sh") '(#$ . -2354) :type 'string :group 'sh-script) #@66 *Single argument string for the magic number. See `sh-feature'. (custom-declare-variable 'sh-shell-arg ''((bash) (csh . "-f") (pdksh) (ksh88) (rc . "-p") (wksh) (zsh . "-f")) '(#$ . -2846) :type '(repeat (cons (symbol :tag "Shell") (choice (const :tag "No Arguments" nil) (string :tag "Arguments") (cons :format "Evaluate: %v" (const :format "" eval) sexp)))) :group 'sh-script) #@83 *Regular expression for recognizing shell function definitions. See `sh-feature'. (custom-declare-variable 'sh-imenu-generic-expression '(list (cons 'sh (concat "\\(^\\s-*function\\s-+[A-Za-z_][A-Za-z_0-9]*\\)" "\\|" "\\(^\\s-*[A-Za-z_][A-Za-z_0-9]*\\s-*()\\)"))) '(#$ . -3232) :type '(repeat (cons (symbol :tag "Shell") regexp)) :group 'sh-script :version "20.3") #@246 Alist of shell variable names that should be included in completion. These are used for completion in addition to all the variables named in `process-environment'. Each element looks like (VAR . VAR), where the car and cdr are the same symbol. (defvar sh-shell-variables nil (#$ . 3604)) #@49 Non-nil if `sh-shell-variables' is initialized. (defvar sh-shell-variables-initialized nil (#$ . 3899)) #@63 Convert a shell name SHELL to the one we should handle it as. (defalias 'sh-canonicalize-shell #[(shell) "9\204 \302! \236A\206\207" [shell sh-alias-alist intern] 2 (#$ . 4009)]) #@62 The shell being programmed. This is set by \[sh-set-shell]. (defvar sh-shell (byte-code "\301\302!!\207" [sh-shell-file sh-canonicalize-shell file-name-nondirectory] 3) (#$ . 4202)) #@60 Syntax-table used in Shell-Script mode. See `sh-feature'. (defvar sh-mode-syntax-table '((sh eval sh-mode-syntax-table nil 35 "<" 12 ">#" 10 ">#" 34 "\"\"" 39 "\"'" 96 "\"`" 33 "_" 37 "_" 58 "_" 46 "_" 94 "_" 126 "_") (csh eval identity sh) (rc eval identity sh)) (#$ . 4392)) #@35 Keymap used in Shell-Script mode. (defvar sh-mode-map (byte-code "\302 \302\303!\304 \305\306#\210\304 \307\310#\210\304 \311\312#\210\304 \313\314#\210\304 \315\316#\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\346#\210\304 \350\346#\210\304 \351\346#\210\304 \352\346#\210\304 \353\346#\210\304 \354\355#\210\356\357\360 \361 $\210\356\362\363 \361 $\210\356\364\365 \361 $\210\304 \366\367#\210\356\370\371 \361 $\210\356\372\373 \361 $\210\356\374\375 \361 $\210\304 \376\303B#\210\304\377\201@#\210\304\201A\201B#\210\304\201C\201D#\210\304\201E\201F#\210\304\201G\201H#\210\304\201I\201J#\210\304\201K\201L#\210\304\201M\201N#\210\304\201O\201P#\210\304\201Q\201R#\210 *\207" [menu-map map make-sparse-keymap "Insert" define-key "(" sh-function "" sh-while "" sh-until "" sh-tmp-file "" sh-select "" sh-repeat "" sh-while-getopts "\f" sh-indexed-loop " " sh-if "" sh-for "" sh-case "=" sh-assignment "+" sh-add "\230" sh-execute-region "" executable-interpret "<" sh-maybe-here-document "(" skeleton-pair-insert-maybe "{" "[" "'" "`" "\"" " " sh-indent-line substitute-key-definition complete-tag comint-dynamic-complete current-global-map newline-and-indent sh-newline-and-indent delete-backward-char backward-delete-char-untabify ":" sh-set-shell beginning-of-defun sh-beginning-of-compound-command backward-sentence sh-beginning-of-command forward-sentence sh-end-of-command [menu-bar insert] [sh-while] ("While Loop" . sh-while) [sh-until] ("Until Loop" . sh-until) [sh-tmp-file] ("Temporary File" . sh-tmp-file) [sh-select] ("Select Statement" . sh-select) [sh-repeat] ("Repeat Loop" . sh-repeat) [sh-while-getopts] ("Options Loop" . sh-while-getopts) [sh-indexed-loop] ("Indexed Loop" . sh-indexed-loop) [sh-if] ("If Statement" . sh-if) [sh-for] ("For Loop" . sh-for) [sh-case] ("Case Statement" . sh-case)] 5) (#$ . 4676)) #@46 *Functions for doing TAB dynamic completion. (custom-declare-variable 'sh-dynamic-complete-functions ''(shell-dynamic-complete-environment-variable shell-dynamic-complete-command comint-dynamic-complete-filename) '(#$ . -6757) :type '(repeat function) :group 'sh-script) #@83 *Value of `require-final-newline' in Shell-Script mode buffers. See `sh-feature'. (custom-declare-variable 'sh-require-final-newline ''((csh . t) (pdksh . t) (rc eval . require-final-newline) (sh eval . require-final-newline)) '(#$ . -7034) :type '(repeat (cons (symbol :tag "Shell") (choice (const :tag "require" t) (cons :format "Evaluate: %v" (const :format "" eval) sexp)))) :group 'sh-script) #@172 *Regexp for the variable name and what may follow in an assignment. First grouping matches the variable name. This is upto and including the `=' sign. See `sh-feature'. (custom-declare-variable 'sh-assignment-regexp ''((csh . "\\<\\([a-zA-Z0-9_]+\\)\\(\\[.+\\]\\)?[ ]*[-+*/%^]?=") (ksh88 . "\\<\\([a-zA-Z0-9_]+\\)\\(\\[.+\\]\\)?[ ]*\\([-+*/%&|~^]\\|<<\\|>>\\)?=") (rc . "\\<\\([a-zA-Z0-9_*]+\\)[ ]*=") (sh . "\\<\\([a-zA-Z0-9_]+\\)=")) '(#$ . -7439) :type '(repeat (cons (symbol :tag "Shell") (choice regexp (cons :format "Evaluate: %v" (const :format "" eval) sexp)))) :group 'sh-script) #@57 The width for further indentation in Shell-Script mode. (custom-declare-variable 'sh-indentation '4 '(#$ . 8039) :type 'integer :group 'sh-script) #@71 *Don't remember variables less than this length for completing reads. (custom-declare-variable 'sh-remember-variable-min '3 '(#$ . -8192) :type 'integer :group 'sh-script) #@130 When non-`nil' is the end of header for prepending by \[sh-execute-region]. That command is also used for setting this variable. (defvar sh-header-marker nil (#$ . 8371)) #@127 *Regexp to determine the beginning of a shell command. The actual command starts at the beginning of the second \(grouping\). (custom-declare-variable 'sh-beginning-of-command '"\\([;({`|&]\\|\\`\\|[^\\]\n\\)[ ]*\\([/~a-zA-Z0-9:]\\)" '(#$ . -8549) :type 'regexp :group 'sh-script) #@112 *Regexp to determine the end of a shell command. The actual command ends at the end of the first \(grouping\). (custom-declare-variable 'sh-end-of-command '"\\([/~a-zA-Z0-9:]\\)[ ]*\\([;#)}`|&]\\|$\\)" '(#$ . -8838) :type 'regexp :group 'sh-script) #@33 Word to delimit here documents. (defvar sh-here-document-word "EOF" (#$ . 9094)) #@75 Initial input in Bourne if, while and until skeletons. See `sh-feature'. (defvar sh-test '((sh "[ ]" . 3) (ksh88 "[[ ]]" . 4)) (#$ . 9181)) #@180 *List of all shell builtins for completing read and fontification. Note that on some systems not all builtins are available or some are implemented as aliases. See `sh-feature'. (custom-declare-variable 'sh-builtins ''((bash eval sh-append posix "alias" "bg" "bind" "builtin" "declare" "dirs" "enable" "fc" "fg" "help" "history" "jobs" "kill" "let" "local" "popd" "pushd" "source" "suspend" "typeset" "unalias") (bourne eval sh-append shell "eval" "export" "getopts" "newgrp" "pwd" "read" "readonly" "times" "ulimit") (csh eval sh-append shell "alias" "chdir" "glob" "history" "limit" "nice" "nohup" "rehash" "setenv" "source" "time" "unalias" "unhash") (dtksh eval identity wksh) (es "access" "apids" "cd" "echo" "eval" "false" "let" "limit" "local" "newpgrp" "result" "time" "umask" "var" "vars" "wait" "whatis") (jsh eval sh-append sh "bg" "fg" "jobs" "kill" "stop" "suspend") (jcsh eval sh-append csh "bg" "fg" "jobs" "kill" "notify" "stop" "suspend") (ksh88 eval sh-append bourne "alias" "bg" "false" "fc" "fg" "jobs" "kill" "let" "print" "time" "typeset" "unalias" "whence") (oash eval sh-append sh "checkwin" "dateline" "error" "form" "menu" "newwin" "oadeinit" "oaed" "oahelp" "oainit" "pp" "ppfile" "scan" "scrollok" "wattr" "wclear" "werase" "win" "wmclose" "wmmessage" "wmopen" "wmove" "wmtitle" "wrefresh") (pdksh eval sh-append ksh88 "bind") (posix eval sh-append sh "command") (rc "builtin" "cd" "echo" "eval" "limit" "newpgrp" "shift" "umask" "wait" "whatis") (sh eval sh-append bourne "hash" "test" "type") (shell "cd" "echo" "eval" "set" "shift" "umask" "unset" "wait") (wksh eval sh-append ksh88 "Xt[A-Z][A-Za-z]*") (zsh eval sh-append ksh88 "autoload" "bindkey" "builtin" "chdir" "compctl" "declare" "dirs" "disable" "disown" "echotc" "enable" "functions" "getln" "hash" "history" "integer" "limit" "local" "log" "popd" "pushd" "r" "readonly" "rehash" "sched" "setopt" "source" "suspend" "true" "ttyctl" "type" "unfunction" "unhash" "unlimit" "unsetopt" "vared" "which")) '(#$ . -9331) :type '(repeat (cons (symbol :tag "Shell") (choice (repeat string) (cons :format "Evaluate: %v" (const :format "" eval) sexp)))) :group 'sh-script) #@271 *List of keywords that may be immediately followed by a builtin or keyword. Given some confusion between keywords and builtins depending on shell and system, the distinction here has been based on whether they influence the flow of control or syntax. See `sh-feature'. (custom-declare-variable 'sh-leading-keywords ''((csh "else") (es "true" "unwind-protect" "whatis") (rc "else") (sh "do" "elif" "else" "if" "then" "trap" "type" "until" "while")) '(#$ . -11492) :type '(repeat (cons (symbol :tag "Shell") (choice (repeat string) (cons :format "Evaluate: %v" (const :format "" eval) sexp)))) :group 'sh-script) #@67 *List of keywords not in `sh-leading-keywords'. See `sh-feature'. (custom-declare-variable 'sh-other-keywords ''((bash eval sh-append bourne "bye" "logout") (bourne eval sh-append sh "function") (csh eval sh-append shell "breaksw" "default" "end" "endif" "endsw" "foreach" "goto" "if" "logout" "onintr" "repeat" "switch" "then" "while") (es "break" "catch" "exec" "exit" "fn" "for" "forever" "fork" "if" "return" "throw" "while") (ksh88 eval sh-append bourne "select") (rc "break" "case" "exec" "exit" "fn" "for" "if" "in" "return" "switch" "while") (sh eval sh-append shell "done" "esac" "fi" "for" "in" "return") (shell "break" "case" "continue" "exec" "exit") (zsh eval sh-append bash "select")) '(#$ . -12110) :type '(repeat (cons (symbol :tag "Shell") (choice (repeat string) (cons :format "Evaluate: %v" (const :format "" eval) sexp)))) :group 'sh-script) #@78 List of all shell variables available for completing read. See `sh-feature'. (defvar sh-variables '((bash eval sh-append sh "allow_null_glob_expansion" "auto_resume" "BASH" "BASH_VERSION" "cdable_vars" "ENV" "EUID" "FCEDIT" "FIGNORE" "glob_dot_filenames" "histchars" "HISTFILE" "HISTFILESIZE" "history_control" "HISTSIZE" "hostname_completion_file" "HOSTTYPE" "IGNOREEOF" "ignoreeof" "LINENO" "MAIL_WARNING" "noclobber" "nolinks" "notify" "no_exit_on_failed_exec" "NO_PROMPT_VARS" "OLDPWD" "OPTERR" "PPID" "PROMPT_COMMAND" "PS4" "pushd_silent" "PWD" "RANDOM" "REPLY" "SECONDS" "SHLVL" "TMOUT" "UID") (csh eval sh-append shell "argv" "cdpath" "child" "echo" "histchars" "history" "home" "ignoreeof" "mail" "noclobber" "noglob" "nonomatch" "path" "prompt" "shell" "status" "time" "verbose") (es eval sh-append shell "apid" "cdpath" "CDPATH" "history" "home" "ifs" "noexport" "path" "pid" "prompt" "signals") (jcsh eval sh-append csh "notify") (ksh88 eval sh-append sh "ENV" "ERRNO" "FCEDIT" "FPATH" "HISTFILE" "HISTSIZE" "LINENO" "OLDPWD" "PPID" "PS3" "PS4" "PWD" "RANDOM" "REPLY" "SECONDS" "TMOUT") (oash eval sh-append sh "FIELD" "FIELD_MAX" "LAST_KEY" "OALIB" "PP_ITEM" "PP_NUM") (rc eval sh-append shell "apid" "apids" "cdpath" "CDPATH" "history" "home" "ifs" "path" "pid" "prompt" "status") (sh eval sh-append shell "CDPATH" "IFS" "OPTARG" "OPTIND" "PS1" "PS2") (shell "COLUMNS" "EDITOR" "HOME" "HUSHLOGIN" "LANG" "LC_COLLATE" "LC_CTYPE" "LC_MESSAGES" "LC_MONETARY" "LC_NUMERIC" "LC_TIME" "LINES" "LOGNAME" "MAIL" "MAILCHECK" "MAILPATH" "PAGER" "PATH" "SHELL" "TERM" "TERMCAP" "TERMINFO" "VISUAL") (tcsh eval sh-append csh "addsuffix" "ampm" "autocorrect" "autoexpand" "autolist" "autologout" "chase_symlinks" "correct" "dextract" "edit" "el" "fignore" "gid" "histlit" "HOST" "HOSTTYPE" "HPATH" "ignore_symlinks" "listjobs" "listlinks" "listmax" "matchbeep" "nobeep" "NOREBIND" "oid" "printexitvalue" "prompt2" "prompt3" "pushdsilent" "pushdtohome" "recexact" "recognize_only_executables" "rmstar" "savehist" "SHLVL" "showdots" "sl" "SYSTYPE" "tcsh" "term" "tperiod" "tty" "uid" "version" "visiblebell" "watch" "who" "wordchars") (zsh eval sh-append ksh88 "BAUD" "bindcmds" "cdpath" "DIRSTACKSIZE" "fignore" "FIGNORE" "fpath" "HISTCHARS" "hostcmds" "hosts" "HOSTS" "LISTMAX" "LITHISTSIZE" "LOGCHECK" "mailpath" "manpath" "NULLCMD" "optcmds" "path" "POSTEDIT" "prompt" "PROMPT" "PROMPT2" "PROMPT3" "PROMPT4" "psvar" "PSVAR" "READNULLCMD" "REPORTTIME" "RPROMPT" "RPS1" "SAVEHIST" "SPROMPT" "STTY" "TIMEFMT" "TMOUT" "TMPPREFIX" "varcmds" "watch" "WATCH" "WATCHFMT" "WORDCHARS" "ZDOTDIR")) (#$ . 12978)) #@76 Default expressions to highlight in Shell Script modes. See `sh-feature'. (defvar sh-font-lock-keywords '((csh eval sh-append shell '("\\${?[#?]?\\([A-Za-z_][A-Za-z0-9_]*\\|0\\)" 1 font-lock-variable-name-face)) (es eval sh-append executable-font-lock-keywords '("\\$#?\\([A-Za-z_][A-Za-z0-9_]*\\|[0-9]+\\)" 1 font-lock-variable-name-face)) (rc eval identity es) (sh eval sh-append shell '("\\$\\({#?\\)?\\([A-Za-z_][A-Za-z0-9_]*\\|[-#?@!]\\)" 2 font-lock-variable-name-face) '("^\\(\\sw+\\)[ ]*(" 1 font-lock-function-name-face) '("\\<\\(function\\)\\>[ ]*\\(\\sw+\\)?" (1 font-lock-keyword-face) (2 font-lock-function-name-face nil t))) (shell eval sh-append executable-font-lock-keywords '("\\\\[^A-Za-z0-9]" 0 font-lock-string-face) '("\\${?\\([A-Za-z_][A-Za-z0-9_]*\\|[0-9]+\\|[$*_]\\)" 1 font-lock-variable-name-face))) (#$ . 15587)) #@52 Subdued level highlighting for Shell Script modes. (defvar sh-font-lock-keywords-1 '((sh "[ ]in\\>")) (#$ . 16436)) #@50 Gaudy level highlighting for Shell Script modes. (defvar sh-font-lock-keywords-2 nil (#$ . 16559)) (byte-code "\302\300 B\303\304\305\306#\207" [sh-font-lock-syntactic-keywords current-load-list (("\\${?[^}#\n ]*\\(##?\\)" 1 (1))) put sh-mode mode-class special] 4) #@2071 Major mode for editing shell scripts. This mode works for many shells, since they all have roughly the same syntax, as far as commands, arguments, variables, pipes, comments etc. are concerned. Unless the file's magic number indicates the shell, your usual shell is assumed. Since filenames rarely give a clue, they are not further analyzed. This mode adapts to the variations between shells (see `sh-set-shell') by means of an inheritance based feature lookup (see `sh-feature'). This mechanism applies to all variables (including skeletons) that pertain to shell-specific features. The default style of this mode is that of Rosenblatt's Korn shell book. The syntax of the statements varies with the shell being used. The following commands are available, based on the current shell's syntax: \[sh-case] case statement \[sh-for] for loop \[sh-function] function definition \[sh-if] if statement \[sh-indexed-loop] indexed loop from 1 to n \[sh-while-getopts] while getopts loop \[sh-repeat] repeat loop \[sh-select] select loop \[sh-until] until loop \[sh-while] while loop \[backward-delete-char-untabify] Delete backward one position, even if it was a tab. \[sh-newline-and-indent] Delete unquoted space and indent new line same as this one. \[sh-end-of-command] Go to end of successive commands. \[sh-beginning-of-command] Go to beginning of successive commands. \[sh-set-shell] Set this buffer's shell, and maybe its magic number. \[sh-execute-region] Have optional header and region be executed in a subshell. \[sh-maybe-here-document] Without prefix, following an unquoted < inserts here document. {, (, [, ', ", ` Unless quoted with \, insert the pairs {}, (), [], or '', "", ``. If you generally program a shell different from your login shell you can set `sh-shell-file' accordingly. If your shell's file name doesn't correctly indicate what shell it is use `sh-alias-alist' to translate. If your shell gives error messages with line numbers, you can use \[executable-interpret] with your script for an edit-interpret-debug cycle. (defalias 'sh-mode #[nil "\306 \210\307!\210\310\303!\210\310\304!\210\310\305!\210\310\311!\210\310\312!\210\310\313!\210\310\314!\210\310\315!\210\310\316!\210\310\317!\210\310\320!\210\310\321!\210\310\322!\210\310\323!\210\310\324!\210\310\325!\210\310\326!\210\310\327!\210\310\330!\210\310\331!\210\310\332!\210\333\334\335\336\3374\340P\211 \n\341 5\342\343\344\345\3466\347\350\310\351!\210\350)\212eb\210\352\353!\205\236\354\355!)\2117\203\257\3567\357\211#\210\202\271\360\3478!!\210\361\f)\362\363!\207" [sh-mode-map major-mode mode-name indent-line-function indent-region-function skeleton-end-hook kill-all-local-variables use-local-map make-local-variable paragraph-start paragraph-separate comment-start comment-start-skip require-final-newline sh-header-marker sh-shell-file sh-shell skeleton-pair-alist skeleton-pair-filter comint-dynamic-complete-functions comint-prompt-regexp font-lock-defaults skeleton-filter skeleton-newline-indent-rigidly sh-shell-variables sh-shell-variables-initialized imenu-generic-expression sh-mode "Shell-script" sh-indent-line #[(b e) "\212b\210\303\304!\210` b\210\303\304!\210\305`\n#)\207" [b e sh-indentation skip-syntax-backward "-" indent-rigidly] 4] #[nil "l\206 \300 \206 \301 \207" [newline indent-relative] 1] "\\|$" "# " "^[ ]*" ((sh-font-lock-keywords sh-font-lock-keywords-1 sh-font-lock-keywords-2) nil nil ((47 . "w") (126 . "w") (46 . "w") (45 . "w") (95 . "w")) nil (font-lock-syntactic-keywords . sh-font-lock-syntactic-keywords)) ((96 _ 96)) sh-quoted-p ((< '(- (min sh-indentation (current-column))))) sh-feature t parse-sexp-ignore-comments looking-at "#![ ]?\\([^ \n]*/bin/env[ ]\\)?\\([^ \n]+\\)" match-string 2 sh-set-shell nil set-syntax-table "#+[ ]*" run-hooks sh-mode-hook page-delimiter sh-dynamic-complete-functions skeleton-further-elements interpreter sh-mode-syntax-table] 5 (#$ . 16836) nil]) (defalias 'shell-script-mode 'sh-mode) #@118 Function to get simple fontification based on `sh-font-lock-keywords'. This adds rules for comments and assignments. (defalias 'sh-font-lock-keywords #[(&optional keywords) "\301\302\"\207" [sh-font-lock-keywords sh-feature #[(list) "\303!\304B\305 \n\"B\207" [sh-assignment-regexp keywords list sh-feature (1 font-lock-variable-name-face) append] 4]] 3 (#$ . 20874)]) #@58 Function to get better fontification including keywords. (defalias 'sh-font-lock-keywords-1 #[(&optional builtins) "\306\307\310\311!\312#\313\307\310\314\311!\311 !\"\312#\315\260\316\314 \2050\n\317\307\310\311\f!\312#\320R\321B\311 !B\n\320P\322BC\311!#!)\207" [sh-leading-keywords sh-other-keywords keywords builtins sh-builtins sh-font-lock-keywords-2 "\\([;(){}`|&]\\|^\\)[ ]*\\(\\(\\(" mapconcat identity sh-feature "\\|" "\\)[ ]+\\)?\\(" append "\\)" sh-font-lock-keywords "[ ]+\\)?\\(" "\\)\\>" ((2 font-lock-keyword-face nil t) (6 font-lock-builtin-face)) (2 font-lock-keyword-face) sh-font-lock-keywords-1] 9 (#$ . 21251)]) #@71 Function to get better fontification including keywords and builtins. (defalias 'sh-font-lock-keywords-2 #[nil "\300\301!\207" [sh-font-lock-keywords-1 t] 2 (#$ . 21902)]) #@218 Set this buffer's shell to SHELL (a string). Makes this script executable via `executable-set-magic', and sets up the proper starting #!-line, if INSERT-FLAG is non-nil. Calls the value of `sh-set-shell-hook' if set. (defalias 'sh-set-shell #[(shell &optional no-query-flag insert-flag) "\306\307!!\211\n\236A\206  \203\310\311\f! $\311!\312\313\314 \"\315\315\311!\315\311!\316\311!\206J\317 !\210\203\\\320@!\210A\211\204P\321\322!\207" [shell sh-shell sh-alias-alist insert-flag sh-shell-arg no-query-flag intern file-name-nondirectory executable-set-magic sh-feature "#+[ ]*" format "[%s]" nil set-syntax-table standard-syntax-table sh-remember-variable run-hooks sh-set-shell-hook sh-shell-file sh-require-final-newline require-final-newline comment-start-skip mode-line-process sh-shell-variables sh-shell-variables-initialized sh-imenu-generic-expression imenu-generic-expression imenu-case-fold-search sh-variables sh-mode-syntax-table] 6 (#$ . 22081) (list (completing-read "Name or path of shell: " interpreter-mode-alist (lambda (x) (eq (cdr x) 'sh-mode))) (eq executable-query 'function) t)]) #@892 Index ALIST by the current shell. If ALIST isn't a list where every element is a cons, it is returned as is. Else indexing follows an inheritance logic which works in two ways: - Fall back on successive ancestors (see `sh-ancestor-alist') as long as the alist contains no value for the current shell. - If the value thus looked up is a list starting with `eval' its `cdr' is first evaluated. If that is also a list and the first argument is a symbol in ALIST it is not evaluated, but rather recursively looked up in ALIST to allow the function called to define the value for one shell to be derived from another shell. While calling the function, is the car of the alist element is the current shell. The value thus determined is physically replaced into the alist. Optional FUNCTION is applied to the determined value and the result is cached in ALIST. (defalias 'sh-feature #[(list &optional function) ":\203!\211\203 @:\203 A\211\204 \205)\206\233\n\2031\306 \nB\211\"A\206\233 \307\211\211\203M \236\211\204M  \236A\211\204; A\211:\203\206\f@\310=\203\206 \310\fA\211:\203\200\fA@\307\211\236\203{\fA\311\312!D\240\210\f*\202\201\f!\211\241\210\n\203\231\n\211@\nA\f!\211BC\244\210\f+\207" [list l function sh-shell val elt assoc nil eval quote sh-feature sh-ancestor-alist] 7 (#$ . 23235)]) #@72 Copy TABLE and set syntax for successive CHARs according to strings S. (defalias 'sh-mode-syntax-table #[(table &rest list) "\302! \203\303 @ A@#\210 AA\211\204\207" [table list copy-syntax-table modify-syntax-entry] 5 (#$ . 24619)]) #@78 Return list composed of first argument (a list) physically appended to rest. (defalias 'sh-append #[(ancestor &rest list) " \244\207" [list ancestor] 2 (#$ . 24868)]) #@73 Modify a copy of SKELETON by replacing I1 with REPL1, I2 with REPL2 ... (defalias 'sh-modify #[(skeleton &rest list) "\302! \203! @\233\206\303\304 @\" A@\240\210 AA\211\204\207" [skeleton list copy-sequence error "Index %d out of bounds"] 4 (#$ . 25042)]) #@179 Indent a line for Sh mode (shell script mode). Indent as far as preceding non-empty line, then by steps of `sh-indentation'. Lines containing only comments are considered empty. (defalias 'sh-indent-line #[nil "\212\304y\210o\204\305y\210\306 \210l\204g\307=\204i)\310\212\n\311=\203( \202[i\306 \210i\211W\203?l\203; \202[\304\202[`\304y\210`|\210l\203U  \245T _]\202[ \245T _j\210)i\312 W\205h\313\310w*\207" [current previous this-command sh-indentation 0 -1 back-to-indentation 35 nil newline-and-indent current-indentation " "] 3 (#$ . 25316) nil]) #@398 Pass optional header and region to a subshell for noninteractive execution. The working directory is that of the buffer, and only environment variables are already set which is why you can mark a header within the script. With a positive prefix ARG, instead of sending region, define header from beginning of buffer to point. With a negative prefix ARG, instead of sending region, clear header. (defalias 'sh-execute-region #[(start end &optional flag) "\203\306!\307V\205\310 \211\207 \2032\212\311 b\210\312p \f#\210\313e \f Z\\\211 #\210 \f|*\207\313 \f \314P#\207" [flag sh-header-marker buffer-undo-list start end sh-shell-file prefix-numeric-value 0 point-marker nil append-to-buffer shell-command-on-region " -"] 5 (#$ . 25898) "r\nP"]) #@69 Make VARIABLE available for future completing reads in this buffer. (defalias 'sh-remember-variable #[(var) "G W\204\303!\204\304\n\"\204\211B\nB\207" [var sh-remember-variable-min sh-shell-variables getenv assoc] 3 (#$ . 26660)]) #@52 Is point preceded by an odd number of backslashes? (defalias 'sh-quoted-p #[nil "\212\300\301x)\302\246\303=\207" ["\\\\" nil 2 -1] 2 (#$ . 26909)]) #@555 Insert a case/switch statement. See `sh-feature'. This is a skeleton command (see `skeleton-insert'). Normally the skeleton text is inserted at point, with nothing "inside". If there is a highlighted region, the skeleton text is wrapped around the region text. A prefix argument ARG says to wrap the skeleton around the next ARG words. A prefix argument of -1 says to wrap around region, even if not highlighted. A prefix argument of zero says to wrap around zero words---that is, nothing. This is a way of overriding the use of a highlighted region. (defalias 'sh-case #[(&optional str arg) "\302\303 #\207" [str arg skeleton-proxy-new ((csh "expression: " "switch( " str " )" n > "case " (read-string "pattern: ") 58 n > _ n "breaksw" n ("other pattern, %s: " < "case " str 58 n > _ n "breaksw" n) < "default:" n > _ n resume: < < "endsw") (es) (rc "expression: " "switch( " str " ) {" n > "case " (read-string "pattern: ") n > _ n ("other pattern, %s: " < "case " str n > _ n) < "case *" n > _ n resume: < < 125) (sh "expression: " "case " str " in" n > (read-string "pattern: ") 41 n > _ n ";;" n ("other pattern, %s: " < str 41 n > _ n ";;" n) < "*)" n > _ n resume: < < "esac"))] 4 (#$ . 27065) "*P\nP"]) #@542 Insert a for loop. See `sh-feature'. This is a skeleton command (see `skeleton-insert'). Normally the skeleton text is inserted at point, with nothing "inside". If there is a highlighted region, the skeleton text is wrapped around the region text. A prefix argument ARG says to wrap the skeleton around the next ARG words. A prefix argument of -1 says to wrap around region, even if not highlighted. A prefix argument of zero says to wrap around zero words---that is, nothing. This is a way of overriding the use of a highlighted region. (defalias 'sh-for #[(&optional str arg) "\302\303 #\207" [str arg skeleton-proxy-new ((csh eval sh-modify sh 1 "foreach " 3 " ( " 5 " )" 15 "end") (es eval sh-modify rc 3 " = ") (rc eval sh-modify sh 1 "for( " 5 " ) {" 15 125) (sh "Index variable: " "for " str " in " _ "; do" n > _ | 36 & (sh-remember-variable str) n < "done"))] 4 (#$ . 28287) "*P\nP"]) #@559 Insert an indexed loop from 1 to n. See `sh-feature'. This is a skeleton command (see `skeleton-insert'). Normally the skeleton text is inserted at point, with nothing "inside". If there is a highlighted region, the skeleton text is wrapped around the region text. A prefix argument ARG says to wrap the skeleton around the next ARG words. A prefix argument of -1 says to wrap around region, even if not highlighted. A prefix argument of zero says to wrap around zero words---that is, nothing. This is a way of overriding the use of a highlighted region. (defalias 'sh-indexed-loop #[(&optional str arg) "\302\303 #\207" [str arg skeleton-proxy-new ((bash eval identity posix) (csh "Index variable: " "@ " str " = 1" n "while( $" str " <= " (read-string "upper limit: ") " )" n > _ 36 str n "@ " str "++" n < "end") (es eval sh-modify rc 3 " =") (ksh88 "Index variable: " "integer " str "=0" n "while (( ( " str " += 1 ) <= " (read-string "upper limit: ") " )); do" n > _ 36 (sh-remember-variable str) n < "done") (posix "Index variable: " str "=1" n "while [ $" str " -le " (read-string "upper limit: ") " ]; do" n > _ 36 str n str 61 (sh-add (sh-remember-variable str) 1) n < "done") (rc "Index variable: " "for( " str " in" " `{awk 'BEGIN { for( i=1; i<=" (read-string "upper limit: ") "; i++ ) print i }'}) {" n > _ 36 (sh-remember-variable str) n < 125) (sh "Index variable: " "for " str " in `awk 'BEGIN { for( i=1; i<=" (read-string "upper limit: ") "; i++ ) print i }'`; do" n > _ 36 (sh-remember-variable str) n < "done"))] 4 (#$ . 29192) "*P\nP"]) #@88 Scan the buffer for variable assignments. Add these variables to `sh-shell-variables'. (defalias 'sh-shell-initialize-variables #[nil "\301\302\303 \"\210\212eb\210\304\305\306\307\304#\203\310\311!\210\202\f)\301\312\303 \"\207" [sh-shell-variables-initialized message "Scanning buffer `%s' for variable assignments..." buffer-name t search-forward "=" nil sh-assignment 0 "Scanning buffer `%s' for variable assignments...done"] 4 (#$ . 30760)]) (byte-code "\301B\301\207" [current-load-list sh-add-buffer] 2) #@547 Do completion using `sh-shell-variables', but initialize it first. This function is designed for use as the "completion table", so it takes three arguments: STRING, the current buffer contents; PREDICATE, the predicate for filtering possible matches; CODE, which says what kind of things to do. CODE can be nil, t or `lambda'. nil means to return the best completion of STRING, or nil if there is none. t means to return a list of all possible completions of STRING. `lambda' means to return t if STRING is a valid completion as it stands. (defalias 'sh-add-completer #[(string predicate code) "\212q\210 \204 \306 \210\307\310\n\" \244)\f\204 \311 #\2029\f\312=\203/\313 #\2029\f\314=\2059\315 \")\207" [sh-add-buffer sh-shell-variables-initialized process-environment sh-shell-variables code string sh-shell-initialize-variables mapcar #[(var) "\301\302\303\"O\211B\207" [var 0 string-match "="] 6] try-completion t all-completions lambda assoc predicate] 4 (#$ . 31284)]) #@69 Insert an addition of VAR and prefix DELTA for Bourne (type) shell. (defalias 'sh-add #[(var delta) "\302\303!\304! \305W\203\306\202\307\310\311 !!\302\312!\261\207" [var delta sh-feature ((bash . "$[ ") (ksh88 . "$(( ") (posix . "$(( ") (rc . "`{expr $") (sh . "`expr $") (zsh . "$[ ")) sh-remember-variable 0 " - " " + " number-to-string abs ((bash . " ]") (ksh88 . " ))") (posix . " ))") (rc . "}") (sh . "`") (zsh . " ]"))] 6 (#$ . 32288) (let ((sh-add-buffer (current-buffer))) (list (completing-read "Variable: " 'sh-add-completer) (prefix-numeric-value current-prefix-arg)))]) #@553 Insert a function definition. See `sh-feature'. This is a skeleton command (see `skeleton-insert'). Normally the skeleton text is inserted at point, with nothing "inside". If there is a highlighted region, the skeleton text is wrapped around the region text. A prefix argument ARG says to wrap the skeleton around the next ARG words. A prefix argument of -1 says to wrap around region, even if not highlighted. A prefix argument of zero says to wrap around zero words---that is, nothing. This is a way of overriding the use of a highlighted region. (defalias 'sh-function #[(&optional str arg) "\302\303 #\207" [str arg skeleton-proxy-new ((bash eval sh-modify ksh88 3 "() {") (ksh88 "name: " "function " str " {" n > _ n < "}") (rc eval sh-modify ksh88 1 "fn ") (sh nil "() {" n > _ n < "}"))] 4 (#$ . 32886) "*P\nP"]) #@547 Insert an if statement. See `sh-feature'. This is a skeleton command (see `skeleton-insert'). Normally the skeleton text is inserted at point, with nothing "inside". If there is a highlighted region, the skeleton text is wrapped around the region text. A prefix argument ARG says to wrap the skeleton around the next ARG words. A prefix argument of -1 says to wrap around region, even if not highlighted. A prefix argument of zero says to wrap around zero words---that is, nothing. This is a way of overriding the use of a highlighted region. (defalias 'sh-if #[(&optional str arg) "\302\303 #\207" [str arg skeleton-proxy-new ((csh "condition: " "if( " str " ) then" n > _ n ("other condition, %s: " < "else if( " str " ) then" n > _ n) < "else" n > _ n resume: < "endif") (es "condition: " "if { " str " } {" n > _ n ("other condition, %s: " < "} { " str " } {" n > _ n) < "} {" n > _ n resume: < 125) (rc eval sh-modify csh 3 " ) {" 8 '("other condition, %s: " < "} else if( " str " ) {" n > _ n) 10 "} else {" 17 125) (sh "condition: " '(setq input (sh-feature sh-test)) "if " str "; then" n > _ n ("other condition, %s: " < "elif " str "; then" n > _ n) < "else" n > _ n resume: < "fi"))] 4 (#$ . 33717) "*P\nP"]) #@556 Insert a repeat loop definition. See `sh-feature'. This is a skeleton command (see `skeleton-insert'). Normally the skeleton text is inserted at point, with nothing "inside". If there is a highlighted region, the skeleton text is wrapped around the region text. A prefix argument ARG says to wrap the skeleton around the next ARG words. A prefix argument of -1 says to wrap around region, even if not highlighted. A prefix argument of zero says to wrap around zero words---that is, nothing. This is a way of overriding the use of a highlighted region. (defalias 'sh-repeat #[(&optional str arg) "\302\303 #\207" [str arg skeleton-proxy-new ((es nil "forever {" n > _ n < 125) (zsh "factor: " "repeat " str "; do" n > _ n < "done"))] 4 (#$ . 34947) "*P\nP"]) #@550 Insert a select statement. See `sh-feature'. This is a skeleton command (see `skeleton-insert'). Normally the skeleton text is inserted at point, with nothing "inside". If there is a highlighted region, the skeleton text is wrapped around the region text. A prefix argument ARG says to wrap the skeleton around the next ARG words. A prefix argument of -1 says to wrap around region, even if not highlighted. A prefix argument of zero says to wrap around zero words---that is, nothing. This is a way of overriding the use of a highlighted region. (defalias 'sh-select #[(&optional str arg) "\302\303 #\207" [str arg skeleton-proxy-new ((ksh88 "Index variable: " "select " str " in " _ "; do" n > 36 str n < "done"))] 4 (#$ . 35716) "*P\nP"]) #@569 Insert code to setup temporary file handling. See `sh-feature'. This is a skeleton command (see `skeleton-insert'). Normally the skeleton text is inserted at point, with nothing "inside". If there is a highlighted region, the skeleton text is wrapped around the region text. A prefix argument ARG says to wrap the skeleton around the next ARG words. A prefix argument of -1 says to wrap around region, even if not highlighted. A prefix argument of zero says to wrap around zero words---that is, nothing. This is a way of overriding the use of a highlighted region. (defalias 'sh-tmp-file #[(&optional str arg) "\302\303 #\207" [str arg skeleton-proxy-new ((bash eval identity ksh88) (csh (file-name-nondirectory (buffer-file-name)) "set tmp = /tmp/" str ".$$" n "onintr exit" n _ (and (goto-char (point-max)) (not (bolp)) 10) "exit:\n" "rm $tmp* >&/dev/null" >) (es (file-name-nondirectory (buffer-file-name)) "local( signals = $signals sighup sigint; tmp = /tmp/" str ".$pid ) {" n > "catch @ e {" n > "rm $tmp^* >[2]/dev/null" n "throw $e" n < "} {" n > _ n < 125 n < 125) (ksh88 eval sh-modify sh 6 "EXIT") (rc (file-name-nondirectory (buffer-file-name)) "tmp = /tmp/" str ".$pid" n "fn sigexit { rm $tmp^* >[2]/dev/null }") (sh (file-name-nondirectory (buffer-file-name)) "TMP=/tmp/" str ".$$" n "trap \"rm $TMP* 2>/dev/null\" " 48))] 4 (#$ . 36468) "*P\nP"]) #@545 Insert an until loop. See `sh-feature'. This is a skeleton command (see `skeleton-insert'). Normally the skeleton text is inserted at point, with nothing "inside". If there is a highlighted region, the skeleton text is wrapped around the region text. A prefix argument ARG says to wrap the skeleton around the next ARG words. A prefix argument of -1 says to wrap around region, even if not highlighted. A prefix argument of zero says to wrap around zero words---that is, nothing. This is a way of overriding the use of a highlighted region. (defalias 'sh-until #[(&optional str arg) "\302\303 #\207" [str arg skeleton-proxy-new ((sh "condition: " '(setq input (sh-feature sh-test)) "until " str "; do" n > _ n < "done"))] 4 (#$ . 37843) "*P\nP"]) #@544 Insert a while loop. See `sh-feature'. This is a skeleton command (see `skeleton-insert'). Normally the skeleton text is inserted at point, with nothing "inside". If there is a highlighted region, the skeleton text is wrapped around the region text. A prefix argument ARG says to wrap the skeleton around the next ARG words. A prefix argument of -1 says to wrap around region, even if not highlighted. A prefix argument of zero says to wrap around zero words---that is, nothing. This is a way of overriding the use of a highlighted region. (defalias 'sh-while #[(&optional str arg) "\302\303 #\207" [str arg skeleton-proxy-new ((csh eval sh-modify sh 2 "while( " 4 " )" 10 "end") (es eval sh-modify rc 2 "while { " 4 " } {") (rc eval sh-modify csh 4 " ) {" 10 125) (sh "condition: " '(setq input (sh-feature sh-test)) "while " str "; do" n > _ n < "done"))] 4 (#$ . 38601) "*P\nP"]) #@694 Insert a while getopts loop. See `sh-feature'. Prompts for an options string which consists of letters for each recognized option followed by a colon `:' if the option accepts an argument. This is a skeleton command (see `skeleton-insert'). Normally the skeleton text is inserted at point, with nothing "inside". If there is a highlighted region, the skeleton text is wrapped around the region text. A prefix argument ARG says to wrap the skeleton around the next ARG words. A prefix argument of -1 says to wrap around region, even if not highlighted. A prefix argument of zero says to wrap around zero words---that is, nothing. This is a way of overriding the use of a highlighted region. (defalias 'sh-while-getopts #[(&optional str arg) "\302\303 #\207" [str arg skeleton-proxy-new ((bash eval sh-modify sh 18 "${0##*/}") (csh nil "while( 1 )" n > "switch( \"$1\" )" n '(setq input '("- x" . 2)) > > ("option, %s: " < "case " '(eval str) '(if (string-match " +" str) (setq v1 (substring str (match-end 0)) str (substring str 0 (match-beginning 0))) (setq v1 nil)) str 58 n > "set " v1 & " = $2" | -4 & _ n (if v1 "shift") & n "breaksw" n) < "case --:" n > "shift" n < "default:" n > "break" n resume: < < "endsw" n "shift" n < "end") (ksh88 eval sh-modify sh 16 "print" 18 "${0##*/}" 36 "OPTIND-1") (posix eval sh-modify sh 18 "$(basename $0)") (sh "optstring: " "while getopts :" str " OPT; do" n > "case $OPT in" n > > '(setq v1 (append (vconcat str) nil)) ((prog1 (if v1 (char-to-string (car v1))) (if (eq (nth 1 v1) 58) (setq v1 (nthcdr 2 v1) v2 "\"$OPTARG\"") (setq v1 (cdr v1) v2 nil))) < str "|+" str 41 n > _ v2 n ";;" n) < "*)" n > "echo" " \"usage: " "`basename $0`" " [+-" '(setq v1 (point)) str '(save-excursion (while (search-backward ":" v1 t) (replace-match " ARG] [+-" t t))) (if (eq (preceding-char) 45) -5) "] [--] ARGS...\"" n "exit 2" n < < "esac" n < "done" n "shift " (sh-add "OPTIND" -1)))] 4 (#$ . 39495) "*P\nP"]) #@73 Remember preceding identifier for future completion and do self-insert. (defalias 'sh-assignment #[(arg) "\302!\210\303X\205\304\212\305\306 !`\307y\210\310#\205\311\303!)!\207" [arg sh-assignment-regexp self-insert-command 1 sh-remember-variable re-search-forward sh-feature 0 t match-string] 5 (#$ . 41447) "p"]) #@130 Inserts self. Without prefix, following unquoted `<' inserts here document. The document is bounded by `sh-here-document-word'. (defalias 'sh-maybe-here-document #[(arg) "\303\304!!\210\206F`\305Zf =?\206F\212\306\305!\210\307 )\206F\nc\210l\204/\310\311!\204/\312c\210\313\210\307 \203=\305\210\2022\314 \210\212\315\n\261)\207" [arg last-command-char sh-here-document-word self-insert-command prefix-numeric-value 2 backward-char sh-quoted-p looking-at "[ ]" 32 1 newline 10] 3 (#$ . 41775) "*P"]) #@42 Dynamically perform completion at point. (autoload 'comint-dynamic-complete "comint" '(#$ . 42295) t) #@44 Dynamically complete the command at point. (autoload 'shell-dynamic-complete-command "shell" '(#$ . 42403) t) #@45 Dynamically complete the filename at point. (autoload 'comint-dynamic-complete-filename "comint" '(#$ . 42519) t) #@57 Dynamically complete the environment variable at point. (autoload 'shell-dynamic-complete-environment-variable "shell" '(#$ . 42639) t) #@74 Strip unquoted whitespace, insert newline, and indent like current line. (defalias 'sh-newline-and-indent #[nil "\300 `\301\302\303x!\204\304 \203\303u\210`|\210\305 \210j\207" [current-indentation zerop " " nil sh-quoted-p newline] 5 (#$ . 42781) "*"]) #@50 Move point to successive beginnings of commands. (defalias 'sh-beginning-of-command #[nil "\301\302\303#\205 \304\224b\207" [sh-beginning-of-command re-search-backward nil t 2] 4 (#$ . 43046) nil]) #@44 Move point to successive ends of commands. (defalias 'sh-end-of-command #[nil "\301\302\303#\205 \304\225b\207" [sh-end-of-command re-search-forward nil t 1] 4 (#$ . 43252) nil]) (provide 'sh-script)