;ELC ;;; Compiled ;;; in Emacs version 30.2 ;;; with all optimizations. #@730 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 TENEX C Shell itcsh Ian's TENEX C Shell rc Plan 9 Shell es Extensible Shell sh Bourne Shell ash Almquist Shell dash Debian Almquist 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 mksh MirOS BSD Korn Shell wksh Window Korn Shell zsh Z Shell oash SCO OA (curses) Shell posix IEEE 1003.2 Shell Standard wsh ? Shell#@2 #@389 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. Keys are regular expressions matched against the full path of the interpreter. (For backward compatibility, keys may also be symbols, which are matched against the interpreter's basename. The values are symbols naming the shell.#@58 The executable file name for the shell being programmed.#@65 Single argument string for the magic number. See `sh-feature'.#@123 Alist of regular expressions for recognizing shell function definitions. See `sh-feature' and `imenu-generic-expression'.#@94 Find the name of function or variable at point. For use in `add-log-current-defun-function'. (byte-code "\300\301!\210\300\302!\210\303\304\305\"\210\303\306\305\"\210\303\307\305\"\210\303\310\311\"\210\303\312\311\"\210\313\314\315\316\317\320%\210\313\321\315\322\323\324\317\314\325\326& \210\327\330\331\332\333DD\334\335\336\337\340\317\321& \210\327\341\331\332\342DD\343\335\344\317\321&\210\327\345\331\332\346DD\347\335\350\317\321&\210\327\351\331\332\352DD\353\335\354\317\321&\210\327\355\331\332\356DD\357\335\360\317\321\337\361& \207" [require executable treesit autoload comint-completion-at-point "comint" comint-filename-completion comint-send-string shell-command-completion "shell" shell-environment-variable-completion custom-declare-group sh nil "Shell programming utilities." :group languages sh-script "Shell script mode." :link (custom-group-link :tag "Font Lock Faces group" font-lock-faces) :prefix "sh-" custom-declare-variable sh-ancestor-alist funcall function #[0 "\300\207" [((ash . sh) (bash . jsh) (bash2 . jsh) (dash . ash) (dtksh . ksh) (es . rc) (itcsh . tcsh) (jcsh . csh) (jsh . sh) (ksh . ksh88) (ksh88 . jsh) (oash . sh) (pdksh . ksh88) (mksh . pdksh) (posix . sh) (tcsh . csh) (wksh . ksh88) (wsh . sh) (zsh . ksh88) (rpm . sh))] 1 (#$ . 817)] (#$ . 84) :type (repeat (cons symbol symbol)) :version "24.4" sh-alias-alist #[0 "\301\302=\205\303\304\"\207" [system-type append gnu/linux ((csh . tcsh) (ksh . pdksh)) ((ksh . ksh88) (bash2 . bash) (sh5 . sh) ("^/system/bin/sh$" . mksh))] 3 (#$ . 817)] (#$ . 824) (repeat (cons (radio (regexp :tag "Regular expression") (symbol :tag "Basename")) (symbol :tag "Shell"))) sh-shell-file #[0 "\301>\203&\302\303!\211\205\304!\203\211\227\305\235\203\306\207\307\227!\266\202\206-\302\303!\206-\306\207" [system-type (ms-dos windows-nt) getenv "SHELL" file-name-nondirectory ("command.com" "cmd.exe" "4dos.com" "ndos.com" "cmdproxy.exe") "/bin/sh" file-name-sans-extension] 5 (#$ . 817)] (#$ . 1217) string sh-shell-arg #[0 "\300\207" [((bash) (csh . "-f") (pdksh) (ksh88) (rc . "-p") (wksh) (zsh . "-f"))] 1 (#$ . 817)] (#$ . 1279) (repeat (cons (symbol :tag "Shell") (choice (const :tag "No Arguments" nil) (string :tag "Arguments") (sexp :format "Evaluate: %v")))) sh-imenu-generic-expression #[0 "\300\301\302\303\304BB\302\305\306BBED\207" [(sh (nil "^\\s-*function\\s-+\\([[:alpha:]_][[:alnum:]_]*\\)\\s-*\\(?:()\\)?" 1) (nil "^\\s-*\\([[:alpha:]_][[:alnum:]_]*\\)\\s-*()" 1)) mksh nil "^\\s-*function\\s-+\\([^] \n \"-$&-*/;-?[\\`|]+\\)\\s-*\\(?:()\\)?" (1) "^\\s-*\\([^] \n \"-$&-*/;-?[\\`|]+\\)\\s-*()" (1)] 6 (#$ . 817)] (#$ . 1349) (alist :key-type (symbol :tag "Shell") :value-type (alist :key-type (choice :tag "Title" string (const :tag "None" nil)) :value-type (repeat :tag "Regexp, index..." sexp))) "29.1"] 10) (defalias 'sh-current-defun-name #[0 "\212\300\210\301\302\300\303#\205\304\305!\206\304\306!\206\304\307!)\207" [nil re-search-backward "\\(?:^\\s-*function\\s-+\\([[:alpha:]_][[:alnum:]_]*\\)\\s-*\\(?:()\\)?\\)\\|\\(?:^\\s-*\\([[:alpha:]_][[:alnum:]_]*\\)\\s-*()\\)\\|\\(?:^\\([[:alpha:]_][[:alnum:]_]*\\)=\\)" t match-string-no-properties 1 2 3] 4 (#$ . 1476)])#@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 (#$ . 4687))#@49 Non-nil if `sh-shell-variables' is initialized. (defvar sh-shell-variables-initialized nil (#$ . 4981))#@150 Convert a shell name SHELL to the one we should handle it as. SHELL is a full path to the shell interpreter; return a shell name symbol. (fn SHELL) (defalias 'sh-canonicalize-shell #[257 "\301\302\"\203\211\303\211\224O\202\211\304\305!!\306\211\307\306:\203`@\262\211A\262\242\262;\203A\301\"\203A\210\306\211\262\202B\307\203`=\203U\210\306\211\262\202V\307\203`A\262\202\203f\207\207" [sh-alias-alist string-match "\\.exe\\'" 0 intern file-name-nondirectory nil t] 11 (#$ . 5091)])#@62 The shell being programmed. This is set by \[sh-set-shell]. (defvar sh-shell (sh-canonicalize-shell sh-shell-file) (#$ . 5621))#@95 Copy TABLE and set syntax for successive CHARs according to strings S. (fn TABLE &rest LIST) (define-abbrev-table 'sh-mode-abbrev-table nil) (defalias 'sh-mode-syntax-table #[385 "\300!\262\211\203\301\211A\262\242\211A\262\242#\210\202\207" [copy-syntax-table modify-syntax-entry] 6 (#$ . 5755)])#@91 The syntax table to use for Shell-Script mode. This is buffer-local in every such buffer. (defvar sh-mode-syntax-table (sh-mode-syntax-table nil 35 "<" 10 ">#" 34 "\"\"" 39 "\"'" 96 "\"`" 36 "'" 33 #1="_" 37 #1# 58 #1# 46 #1# 94 #1# 126 #1# 44 #1# 61 #2="." 47 #2# 59 #2# 124 #2# 38 #2# 60 #2# 62 #2#) (#$ . 6071))#@60 Syntax-table used in Shell-Script mode. See `sh-feature'. (defvar sh-mode-syntax-table-input (byte-code "\301\302\303BBD\207" [sh-mode-syntax-table (sh) rpm (39 ".")] 4) (#$ . 6391))#@35 Keymap used in Shell-Script mode. (defvar sh-mode-map (byte-code "\300\301\302\303\304\305\306\307\310\311\312\313\314\315\316\317\320\321\322\323\324\325\326\327\330\331\332\333\332\334\335\336\337\340\341\342\343\344\345\346\347\350\351\352\353\354\355\356\357\360\361\362\363&4\207" [define-keymap "C-c (" sh-function "C-c C-w" sh-while "C-c C-u" sh-until "C-c C-t" sh-tmp-file "C-c C-s" sh-select "C-c C-r" sh-repeat "C-c C-o" sh-while-getopts "C-c C-l" sh-indexed-loop "C-c C-i" sh-if "C-c C-f" sh-for "C-c C-c" sh-case "C-c ?" smie-config-show-indent "C-c =" smie-config-set-indent "C-c <" "C-c >" smie-config-guess "C-c C-\\" sh-backslash-region "C-c +" sh-add "C-M-x" sh-execute-region "C-c C-x" executable-interpret "C-c C-n" sh-send-line-or-region-and-step "C-c C-d" sh-cd-here "C-c C-z" sh-show-shell "C-c :" sh-set-shell " " backward-delete-char-untabify " " sh-beginning-of-command " " sh-end-of-command] 53) (#$ . 6581))#@29 Menu for Shell-Script mode. (defvar sh-mode-menu nil (#$ . 7601))#@70 Value to use for `skeleton-pair-default-alist' in Shell-Script mode. (easy-menu-do-define 'sh-mode-menu sh-mode-map "Menu for Shell-Script mode." '("Sh-Script" ["Backslash region" sh-backslash-region :help "Insert, align, or delete end-of-line backslashes on the lines in the region"] ["Set shell type..." sh-set-shell :help "Set this buffer's shell to SHELL (a string)"] ["Execute script..." executable-interpret :help "Run script with user-specified args, and collect output in a buffer"] ["Execute region" sh-execute-region :help "Pass optional header and region to a subshell for noninteractive execution"] "---" ["Case Statement" sh-case :help "Insert a case/switch statement"] ["For Loop" sh-for :help "Insert a for loop"] ["If Statement" sh-if :help "Insert an if statement"] ["Select Statement" sh-select :help "Insert a select statement "] ["Indexed Loop" sh-indexed-loop :help "Insert an indexed loop from 1 to n"] ["Options Loop" sh-while-getopts :help "Insert a while getopts loop."] ["While Loop" sh-while :help "Insert a while loop"] ["Repeat Loop" sh-repeat :help "Insert a repeat loop definition"] ["Until Loop" sh-until :help "Insert an until loop"] ["Addition..." sh-add :help "Insert an addition of VAR and prefix DELTA for Bourne (type) shell"] ["Function..." sh-function :help "Insert a function definition"] "---" ["Insert braces and quotes in pairs" electric-pair-mode :style toggle :selected (bound-and-true-p electric-pair-mode) :help "Inserting a brace or quote automatically inserts the matching pair"] ["Set indentation" smie-config-set-indent :help "Set the indentation for the current line"] ["Show indentation" smie-config-show-indent :help "Show the how the current line would be indented"] ["Learn buffer indentation" smie-config-guess :help "Learn how to indent the buffer the way it currently is"])) (defvar sh-skeleton-pair-default-alist '((40 _ 41) (41) (91 32 _ 32 93) (93) (123 _ 125) (125)) (#$ . 7672))#@45 Functions for doing TAB dynamic completion.#@172 Regexp for the variable name and what may follow in an assignment. First grouping matches the variable name. This is up to and including the `=' sign. See `sh-feature'.#@70 Don't remember variables less than this length for completing reads.#@128 When non-nil is the end of header for prepending by \[sh-execute-region]. That command is also used for setting this variable. (byte-code "\300\301\302\303\304DD\305\306\307\310\311&\210\300\312\302\303\313DD\314\306\315\310\311&\210\316\317\320\321#\210\322\211\203D\211@\317N\203?\320N\204?\323\320\317N#\210\210A\202%\210\324\317\320\325#\210\323\317\326\327#\210\300\330\302\303\331DD\332\306\333\310\311&\207" [custom-declare-variable sh-dynamic-complete-functions funcall function #[0 "\300\207" [(shell-environment-variable-completion shell-command-completion comint-filename-completion)] 1 (#$ . 817)] (#$ . 9621) :type (repeat function) :group sh-script sh-assignment-regexp #[0 "\300\301\302B\303BB\207" [(csh . "\\<\\([[:alnum:]_]+\\)\\(\\[.+\\]\\)?[ ]*[-+*/%^]?=") ksh88 "\\<\\([[:alnum:]_]+\\)\\(\\[.+\\]\\)?[ ]*\\(?:[-+*/%&|~^]\\|<<\\|>>\\)?=" ((bash . "\\<\\([[:alnum:]_]+\\)\\(\\[.+\\]\\)?\\+?=") (rc . "\\<\\([[:alnum:]_*]+\\)[ ]*=") (sh . "\\<\\([[:alnum:]_]+\\)="))] 3 (#$ . 817)] (#$ . 9671) (repeat (cons (symbol :tag "Shell") (choice regexp (sexp :format "Evaluate: %v")))) defvaralias sh-indentation sh-basic-offset nil (saved-value saved-variable-comment) put make-obsolete-variable "26.1" safe-local-variable integerp sh-remember-variable-min #[0 "\300\207" [3] 1 (#$ . 817)] (#$ . 9847) integer] 8) (defvar sh-header-marker nil (#$ . 9922))#@126 Regexp to determine the beginning of a shell command. The actual command starts at the beginning of the second \(grouping\).#@111 Regexp to determine the end of a shell command. The actual command ends at the end of the first \(grouping\).#@707 Word to delimit here documents. If the first character of this string is "-", this is taken as part of the redirection operator, rather than part of the word (that is, "<<-" instead of "<<"). This is a feature used by some shells (for example Bash) to indicate that leading tabs inside the here document should be ignored. In this case, Emacs indents the initial body and end of the here document with tabs, to the same level as the start (note that apart from this there is no support for indentation of here documents). This will only work correctly if `sh-basic-offset' is a multiple of `tab-width'. Any quote characters or leading whitespace in the word are removed when closing the here document.#@75 Initial input in Bourne if, while and until skeletons. See `sh-feature'. (byte-code "\300\301!\210\302\303\304\305\306DD\307\310\311\312\313&\210\302\314\304\305\315DD\316\310\311\312\313&\210\302\317\304\305\320DD\321\310\322\312\313&\207" [make-variable-buffer-local sh-header-marker custom-declare-variable sh-beginning-of-command funcall function #[0 "\300\207" ["\\([;({`|&]\\|\\`\\|[^\\]\n\\)[ ]*\\([/~[:alnum:]:]\\)"] 1 (#$ . 817)] (#$ . 11309) :type regexp :group sh-script sh-end-of-command #[0 "\300\207" ["\\([/~[:alnum:]:]\\)[ ]*\\([;#)}`|&]\\|$\\)"] 1 (#$ . 817)] (#$ . 11440) sh-here-document-word #[0 "\300\207" ["EOF"] 1 (#$ . 817)] (#$ . 11556) string] 8) (defvar sh-test '((sh "[ ]" . 3) (ksh88 "[[ ]]" . 4)) (#$ . 12267))#@179 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'.#@154 How to indent statements following && in Shell-Script mode. If t, indent to align with &&. If nil, indent to align with the previous line's indentation.#@270 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'.#@66 List of keywords not in `sh-leading-keywords'. See `sh-feature'.#@78 List of all shell variables available for completing read. See `sh-feature'. (byte-code "\300\301\302\303\304DD\305\306\307\310\311\312\313& \210\300\314\302\303\315DD\316\306\317\310\320&\210\300\321\302\303\322DD\323\306\324\312\313&\210\300\325\302\303\326DD\327\306\330\312\313&\207" [custom-declare-variable sh-builtins funcall function #[0 "\300\207" [((bash sh-append posix "." "alias" "bg" "bind" "builtin" "caller" "compgen" "complete" "declare" "dirs" "disown" "enable" "fc" "fg" "help" "history" "jobs" "kill" "let" "local" "popd" "printf" "pushd" "shopt" "source" "suspend" "typeset" "unalias" "mapfile" "readarray" "coproc") (bourne sh-append shell "eval" "export" "getopts" "newgrp" "pwd" "read" "readonly" "times" "ulimit") (csh sh-append shell "alias" "chdir" "glob" "history" "limit" "nice" "nohup" "rehash" "setenv" "source" "time" "unalias" "unhash") (dtksh sh-append wksh) (es "access" "apids" "cd" "echo" "eval" "false" "let" "limit" "local" "newpgrp" "result" "time" "umask" "var" "vars" "wait" "whatis") (jsh sh-append sh "bg" "fg" "jobs" "kill" "stop" "suspend") (jcsh sh-append csh "bg" "fg" "jobs" "kill" "notify" "stop" "suspend") (ksh88 sh-append bourne "alias" "bg" "false" "fc" "fg" "jobs" "kill" "let" "print" "time" "typeset" "unalias" "whence") (oash 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 sh-append ksh88 "bind") (posix sh-append sh "command") (rc "builtin" "cd" "echo" "eval" "limit" "newpgrp" "shift" "umask" "wait" "whatis") (sh sh-append bourne "hash" "test" "type") (shell "cd" "echo" "eval" "set" "shift" "umask" "unset" "wait") (wksh sh-append ksh88) (zsh sh-append ksh88 "autoload" "always" "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"))] 1 (#$ . 817)] (#$ . 13022) :type (repeat (cons (symbol :tag "Shell") (choice (repeat string) (sexp :format "Evaluate: %v")))) :version "24.4" :group sh-script sh-indent-statement-after-and #[0 "\300\207" [t] 1 (#$ . 817)] (#$ . 13206) boolean "29.1" sh-leading-keywords #[0 "\300\207" [((bash sh-append sh "time") (csh "else") (es "true" "unwind-protect" "whatis") (rc "else") (sh "!" "do" "elif" "else" "if" "then" "trap" "type" "until" "while"))] 1 (#$ . 817)] (#$ . 13365) (repeat (cons (symbol :tag "Shell") (choice (repeat string) (sexp :format "Evaluate: %v")))) sh-other-keywords #[0 "\300\207" [((bash sh-append bourne "bye" "logout" "select") (bourne sh-append sh "function") (csh 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 sh-append bourne "select") (rc "break" "case" "exec" "exit" "fn" "for" "if" "in" "return" "switch" "while") (sh sh-append shell "done" "esac" "fi" "for" "in" "return") (shell "break" "case" "continue" "exec" "exit") (zsh sh-append bash "select" "foreach"))] 1 (#$ . 817)] (#$ . 13639) (repeat (cons (symbol :tag "Shell") (choice (repeat string) (sexp :format "Evaluate: %v"))))] 10) (defvar sh-variables '((bash sh-append sh "allow_null_glob_expansion" "auto_resume" "BASH" "BASH_ENV" "BASH_VERSINFO" "BASH_VERSION" "cdable_vars" "COMP_CWORD" "COMP_LINE" "COMP_POINT" "COMP_WORDS" "COMPREPLY" "DIRSTACK" "ENV" "EUID" "FCEDIT" "FIGNORE" "FUNCNAME" "glob_dot_filenames" "GLOBIGNORE" "GROUPS" "histchars" "HISTCMD" "HISTCONTROL" "HISTFILE" "HISTFILESIZE" "HISTIGNORE" "history_control" "HISTSIZE" "hostname_completion_file" "HOSTFILE" "HOSTTYPE" "IGNOREEOF" "ignoreeof" "INPUTRC" "LINENO" "MACHTYPE" "MAIL_WARNING" "noclobber" "nolinks" "notify" "no_exit_on_failed_exec" "NO_PROMPT_VARS" "OLDPWD" "OPTERR" "OSTYPE" "PIPESTATUS" "PPID" "POSIXLY_CORRECT" "PROMPT_COMMAND" "PS3" "PS4" "pushd_silent" "PWD" "RANDOM" "REPLY" "SECONDS" "SHELLOPTS" "SHLVL" "TIMEFORMAT" "TMOUT" "UID") (csh sh-append shell "argv" "cdpath" "child" "echo" "histchars" "history" "home" "ignoreeof" "mail" "noclobber" "noglob" "nonomatch" "path" "prompt" "shell" "status" "time" "verbose") (es sh-append shell "apid" "cdpath" "CDPATH" "history" "home" "ifs" "noexport" "path" "pid" "prompt" "signals") (jcsh sh-append csh "notify") (ksh88 sh-append sh "ENV" "ERRNO" "FCEDIT" "FPATH" "HISTFILE" "HISTSIZE" "LINENO" "OLDPWD" "PPID" "PS3" "PS4" "PWD" "RANDOM" "REPLY" "SECONDS" "TMOUT") (oash sh-append sh "FIELD" "FIELD_MAX" "LAST_KEY" "OALIB" "PP_ITEM" "PP_NUM") (rc sh-append shell "apid" "apids" "cdpath" "CDPATH" "history" "home" "ifs" "path" "pid" "prompt" "status") (sh 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 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 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")) (#$ . 13709))#@31 Face to show a here-document. (custom-declare-face 'sh-heredoc '((((min-colors 88) (class color) (background dark)) (:foreground "yellow1" :weight bold)) (((class color) (background dark)) (:foreground "yellow" :weight bold)) (((class color) (background light)) (:foreground "tan1")) (t (:weight bold))) '(#$ . 19921) :group 'sh-indentation)#@46 Face to show quoted execs like \=`blabla\=`. (custom-declare-face 'sh-quoted-exec '((((class color) (background dark)) (:foreground "salmon")) (((class color) (background light)) (:foreground "magenta")) (t (:weight bold))) '(#$ . 20268) :group 'sh-indentation)#@78 Face used for (non-escaped) backslash at end of a line in Shell-script mode. (custom-declare-face 'sh-escaped-newline '((t :inherit font-lock-string-face)) '(#$ . 20535) :group 'sh-script :version "22.1")#@76 Default expressions to highlight in Shell Script modes. See `sh-feature'. (defvar sh-font-lock-keywords-var '((csh sh-append shell ("\\${?[#?]?\\([[:alpha:]_][[:alnum:]_]*\\|0\\)" 1 font-lock-variable-name-face)) (es sh-append executable-font-lock-keywords ("\\$#?\\([[:alpha:]_][[:alnum:]_]*\\|[0-9]+\\)" 1 font-lock-variable-name-face)) (rc sh-append es) (bash sh-append sh ("\\$(\\([^)\n]+\\)" (1 'sh-quoted-exec t))) (sh sh-append shell ("\\$\\({#?\\)?\\([[:alpha:]_][[:alnum:]_]*\\|[-#?@!]\\)" 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)) ("\\(?:^\\s *\\|[[();&|]\\s *\\|\\(?:\\s +-[ao]\\|if\\|else\\|then\\|while\\|do\\)\\s +\\)\\(!\\)" 1 font-lock-negation-char-face)) (shell ("\\(^\\|[^\\]\\)\\(\\\\\\\\\\)*\\(\\\\\\)$" 3 'sh-escaped-newline) ("\\\\[^[:alnum:]]" 0 font-lock-string-face) ("\\${?\\([[:alpha:]_][[:alnum:]_]*\\|[0-9]+\\|[$*_]\\)" 1 font-lock-variable-name-face)) (rpm sh-append rpm2 ("^\\s-*%\\(\\sw+\\)" 1 font-lock-keyword-face) ("%{?\\([!?]*[[:alpha:]_][[:alnum:]_]*\\|[0-9]+\\|[%*#]\\*?\\|!?-[[:alpha:]]\\*?\\)" 1 font-lock-variable-name-face)) (rpm2 sh-append shell ("^Summary:\\(.*\\)$" (1 font-lock-doc-face t)) ("^\\(\\sw+\\)\\((\\(\\sw+\\))\\)?:" (1 font-lock-variable-name-face) (3 font-lock-string-face nil t)))) (#$ . 20745))#@52 Subdued level highlighting for Shell Script modes. (defvar sh-font-lock-keywords-var-1 '((sh "[ ]\\(in\\|do\\)\\>")) (#$ . 22161))#@50 Gaudy level highlighting for Shell Script modes. (defvar sh-font-lock-keywords-var-2 nil (#$ . 22298)) (defconst sh-st-punc '(1)) (defconst sh-here-doc-syntax '(15)) (defconst sh-escaped-line-re "\\(?:\\(?:.*[^\\\n]\\)?\\(?:\\\\\\\\\\)*\\\\\n\\)*.*") (defconst sh-here-doc-open-re (concat "[^<]<<-?\\s-*\\\\?\\(\\(?:['\"][^'\"]+['\"]\\|\\sw\\|[-/~._@]\\)+\\)" sh-escaped-line-re "\\(\n\\)"))#@12 (fn POS) (defalias 'sh--inside-noncommand-expression #[257 "\212\300!\211A@\2054\211A@b\210\301f\211\302\267\210\202,`Sf\303=\262\202-`Sf\304=\262\202-\301\2064\305`S!)\207" [syntax-ppss nil #s(hash-table test eq purecopy t data (40 24 91 34 123 34)) 40 36 sh--inside-noncommand-expression] 5 (#$ . 22695)])#@330 Determine the syntax of the \n after a <\206\302!\206\303!?\205X\304\305\306#\212\307!)\3108\2031\311S\312\313$\210\3148\204@\315\"\316V\203H\311T\317\320$\210\311\211T\321$\210\322\\b\210\266\202\207" [sh-here-doc-syntax (60 62) sh-in-comment-or-string sh--inside-noncommand-expression replace-regexp-in-string "['\"]" "" syntax-ppss 4 put-text-property syntax-table (12) 5 count-lines 1 syntax-multiline t sh-here-doc-marker 2] 10 (#$ . 23019)])#@12 (fn END) (defalias 'sh-syntax-propertize-here-doc #[257 "\302 \3038\304=\205-\305\3068\307\"\310\311\312\313!\314Q\315#\205*\316\224\317\211T\320 $\262)\262\207" [case-fold-search sh-here-doc-syntax syntax-ppss 3 t get-text-property 8 sh-here-doc-marker nil re-search-forward "^\\([ ]*\\)" regexp-quote "\\(\n\\)" move 2 put-text-property syntax-table] 9 (#$ . 23844)])#@152 Search for a subshell embedded in a string. Find all the unescaped " characters within said subshell, remembering that subshells can nest. (fn LIMIT) (defalias 'sh-font-lock-quoted-subshell #[257 "\300\301 8\302=\205`Sf\303=\203\304\202\305`\306\203\357\307w\210`W\203\357\310f\211\311\267\202\344\312=\204\350\313u\210`\314w\210\212`b\210\315\316\317#\203U\320``S\321\322$\210\202B)\266\202\351\313u\266\202\351\312=\203s\211A\262\242\262\202{B\262\312\262\203\350\320``T\321\323$\266\202\351\304=\203\235\211A\262\242\262\210\202\351B\262\304\262\210\202\351`Tf\324=\203\350\313u\210B\262\305\262\210\202\351\312=\204\350B\262\305\262\210\202\351\312=\204\350\211A\262\242\262\210\202\351\325\326!\210\210\313u\210\202\327 W\205\320`\330\317$\210\331\332\333\310\317$\266\203\207" [3 syntax-ppss 34 96 backquote code (double-quote) "^'\\\\\"`$()" nil #s(hash-table test eq purecopy t data (39 46 92 91 34 98 96 139 36 169 40 192 41 210)) double-quote 1 "^'" search-forward "\"" t put-text-property syntax-table (1) (1) 40 error "Internal error in sh-font-lock-quoted-subshell" line-beginning-position syntax-multiline add-hook syntax-propertize-extend-region-functions syntax-propertize-multiline] 12 (#$ . 24233)]) (defalias 'sh-is-quoted-p #[257 "\211\206`Sf\300=\205\301S!?\207" [92 sh-is-quoted-p] 3 (#$ . 22695)])#@14 (fn START) (defalias 'sh-font-lock-paren #[257 "\301\302 8?\205\305\212\303b\210\304d[!\210l\203\"\305`!\203\"\306u\210\202 \307\310!\311U\203\"\312\303x\311U\203\"\305`S!\203@`\313Zb\204\"`Sf\314>\203Z\3151U\316\317!\210\3200\202W\210\303\204\"`Sf\321=\203g\306u\266`\304d[!\210\305`!\203x\306u\210\202g`Sf\322=\203\217`SSf\323=\204\217\306u\210\202 `eTV\205\302\324u\210\325 V\203\250\326`T\327\320$\210\330\331!\205\302\330\332!?\205\302\211\203\301\326\211T\333$\210)\262\207" [sh-st-punc 8 syntax-ppss nil forward-comment sh-is-quoted-p -1 skip-syntax-backward "w_" 0 "-$=?[]*@/\\\\" 2 (34 39 125) (error) backward-sexp 1 t 40 124 59 -2 line-end-position put-text-property syntax-multiline looking-at ";\\(?:;&?\\|[&|]\\)\\|\\_(`\\\"' \n]\\|\\${\\|\\(?:[^\\]\\|^\\)\\\\\\(?:\\\\\\\\\\)*.\\)\\(#+\\)\\|[^|&;<>(`\\\"' \n](\\(#+\\)\\|(\\(#\\)[^)]+?)[^|&;<>)`\\\"' \n]\\|\\(\\\\\\)'\\|\\$\\([?@]\\)\\|\\()\\)\\|\"\\(?:[^\\\"]\\|\\\\.\\)*?\\(\\$(\\|`\\)" t 2 sh-font-lock-open-heredoc 0 match-string 1 put-text-property syntax-table 3 match-data ints 8 set-match-data 4 (3) 5 6 7 14 sh-font-lock-backslash-quote 9 20 sh-font-lock-paren 10 syntax-ppss sh-font-lock-quoted-subshell] 11 (#$ . 26600)])#@14 (fn STATE) (defalias 'sh-font-lock-syntactic-face-function #[257 "\3028\211\203\303!\203\211\304=\203\305\207\207\306\207 \207" [font-lock-string-face font-lock-comment-face 3 characterp 96 sh-quoted-exec sh-heredoc] 4 (#$ . 28187)])#@29 Hook run by `sh-set-shell'.#@24 Hook run by `sh-mode'.#@141 Controls when `smie-config-guess' pops the `*indent*' buffer. If t it is always shown. If nil, it is shown only when there are conflicts.#@152 The indentation of the first non-blank non-comment line. Usually 0 meaning first column. Can be set to a number, or to nil which means leave it as is.#@111 The default indentation increment. This value is used for the `+' and `-' symbols in an indentation variable.#@224 How a comment line is to be indented. nil means leave it as it is; t means indent it as a normal line, aligning it to previous non-blank non-comment line; a number means align to that column, e.g. 0 means first column.#@68 Enable lots of debug messages - if function `sh-debug' is enabled. (byte-code "\300\301\302\303\304\305%\210\306\307\310\311\312DD\313\314\315\304\305&\210\306\316\310\311\317DD\320\314\315\321\322\304\305& \210\306\323\310\311\324DD\325\314\326\304\301&\210\306\327\310\311\330DD\331\314\332\304\301&\210\306\333\310\311\334DD\335\314\336\337\340\304\301& \210\306\341\310\311\342DD\343\314\344\345\346\304\301& \207" [custom-declare-group sh-indentation nil "Variables controlling indentation in shell scripts.\n\nNote: customizing these variables will not affect existing buffers if\n`sh-make-vars-local' is non-nil. See the documentation for\nvariable `sh-make-vars-local', command `sh-make-vars-local'\nand command `sh-reset-indent-vars-to-global-values'." :group sh-script custom-declare-variable sh-set-shell-hook funcall function #[0 "\300\207" [nil] 1 (#$ . 817)] (#$ . 28437) :type hook sh-mode-hook #[0 "\300\207" [(sh-electric-here-document-mode)] 1 (#$ . 817)] (#$ . 28470) :options (sh-electric-here-document-mode) sh-popup-occur-buffer #[0 "\300\207" [nil] 1 (#$ . 817)] (#$ . 28499) (choice (const :tag "Only when there are conflicts." nil) (const :tag "Always" t)) sh-first-lines-indent #[0 "\300\207" [0] 1 (#$ . 817)] (#$ . 28645) (choice (const :tag "Leave as is" nil) (integer :tag "Column number" :menu-tag "Indent to this col (0 means first col)")) sh-basic-offset #[0 "\300\207" [4] 1 (#$ . 817)] (#$ . 28802) integer :safe integerp sh-indent-comment #[0 "\300\207" [t] 1 (#$ . 817)] (#$ . 28918) (choice (const :tag "Leave as is." nil) (const :tag "Indent as a normal line." t) (integer :menu-tag "Indent to this col (0 means first col)." :tag "Indent to column number.")) :version "24.3"] 10) (defvar sh-debug nil (#$ . 29146))#@19 (fn &rest ARGS) (defalias 'sh-debug '(macro . #[128 "\300\207" [nil] 2 (#$ . 30909)])) (defconst sh-symbol-list '((const :tag "+ " :value + :menu-tag "+ Indent right by sh-basic-offset") (const :tag "- " :value - :menu-tag "- Indent left by sh-basic-offset") (const :tag "++" :value ++ :menu-tag "++ Indent right twice sh-basic-offset") (const :tag "--" :value -- :menu-tag "-- Indent left twice sh-basic-offset") (const :tag "* " :value * :menu-tag "* Indent right half sh-basic-offset") (const :tag "/ " :value / :menu-tag "/ Indent left half sh-basic-offset")))#@64 How much to indent an `else' relative to its `if'. Usually 0. (byte-code "\301\302\303\304\305DD\306\307\310\311\312BBB\313\314&\207" [sh-symbol-list custom-declare-variable sh-indent-for-else funcall function #[0 "\300\207" [0] 1 (#$ . 817)] (#$ . 31494) :type choice (integer :menu-tag "A number (positive=>indent right)" :tag "A number") (const :tag "--") :group sh-indentation] 9) (defconst sh-number-or-symbol-list (append '((integer :menu-tag "A number (positive=>indent right)" :tag "A number") (const :tag "--")) sh-symbol-list))#@61 How much to indent a `fi' relative to its `if'. Usually 0.#@72 How much to indent a `done' relative to its matching stmt. Usually 0.#@59 How much to indent a statement after an `else' statement.#@188 How much to indent a statement after an `if' statement. This includes lines after `else' and `elif' statements, too, but does not affect the `else', `elif' or `fi' statements themselves.#@51 How much to indent a `then' relative to its `if'.#@158 How much to indent a `do' statement. This is relative to the statement before the `do', typically a `while', `until', `for', `repeat' or `select' statement.#@229 How much to indent a line after a `do' statement. This is used when the `do' is the first word of the line. This is relative to the statement before the `do', typically a `while', `until', `for', `repeat' or `select' statement.#@257 How much to indent a statement after a loop construct. This variable is used when the keyword `do' is on the same line as the loop statement (e.g., `until', `while' or `for'). If the `do' is on a line by itself, then `sh-indent-after-do' is used instead.#@250 How much to indent a statement after a `done' keyword. Normally this is 0, which aligns the `done' to the matching looping construct line. Setting it non-zero allows you to have the `do' statement on a line by itself and align the done under to do.#@106 How much to indent a case label statement. This is relative to the line containing the `case' statement.#@115 How much to indent statements after the case label. This is relative to the line containing the `case' statement.#@50 How much to indent for a continuation statement.#@143 How much to indent after a line with an opening parenthesis or brace. For an open paren after a function, `sh-indent-after-function' is used.#@43 How much to indent after a function line.#@101 How much to indent a `case' statement relative to the `switch' statement. This is for the rc shell.#@92 How much to indent a statement relative to the `case' statement. This is for the rc shell.#@60 Column in which `sh-backslash-region' inserts backslashes.#@59 If non-nil, `sh-backslash-region' will align backslashes.#@150 Make a regexp which matches WORD as a word. This specifically excludes an occurrence of WORD followed by punctuation characters like `-'. (fn WORD) (byte-code "\301\302\303\304\305DD\306\307\310B\311\312&\210\301\313\303\304\314DD\315\307\310B\311\312&\210\301\316\303\304\317DD\320\307\310B\311\312&\210\301\321\303\304\322DD\323\307\310B\311\312&\210\301\324\303\304\325DD\326\307\310B\311\312&\210\301\327\303\304\330DD\331\307\310B\311\312&\210\301\332\303\304\333DD\334\307\310B\311\312&\210\301\335\303\304\336DD\337\307\310B\311\312&\210\301\340\303\304\341DD\342\307\310B\311\312&\210\301\343\303\304\344DD\345\307\310B\311\312&\210\301\346\303\304\347DD\350\307\310B\311\312&\210\301\351\303\304\352DD\353\307\310B\311\312&\210\301\354\303\304\355DD\356\307\310B\311\312&\210\301\357\303\304\360DD\361\307\310B\311\312&\210\301\362\303\304\363DD\364\307\310B\311\312&\210\301\365\303\304\366DD\367\307\310B\311\312&\210\301\370\303\304\371DD\372\307\373\311\374&\210\301\375\303\304\376DD\377\307\201@\311\374&\207" [sh-number-or-symbol-list custom-declare-variable sh-indent-for-fi funcall function #[0 "\300\207" [0] 1 (#$ . 817)] (#$ . 32040) :type choice :group sh-indentation sh-indent-for-done #[0 "\300\207" [0] 1 (#$ . 817)] (#$ . 32105) sh-indent-after-else #[0 "\300\207" [+] 1 (#$ . 817)] (#$ . 32181) sh-indent-after-if #[0 "\300\207" [+] 1 (#$ . 817)] (#$ . 32245) sh-indent-for-then #[0 "\300\207" [0] 1 (#$ . 817)] (#$ . 32437) sh-indent-for-do #[0 "\300\207" [0] 1 (#$ . 817)] (#$ . 32493) sh-indent-after-do #[0 "\300\207" [+] 1 (#$ . 817)] (#$ . 32656) sh-indent-after-loop-construct #[0 "\300\207" [+] 1 (#$ . 817)] (#$ . 32890) sh-indent-after-done #[0 "\300\207" [0] 1 (#$ . 817)] (#$ . 33152) sh-indent-for-case-label #[0 "\300\207" [+] 1 (#$ . 817)] (#$ . 33407) sh-indent-for-case-alt #[0 "\300\207" [++] 1 (#$ . 817)] (#$ . 33518) sh-indent-for-continuation #[0 "\300\207" [+] 1 (#$ . 817)] (#$ . 33637) sh-indent-after-open #[0 "\300\207" [+] 1 (#$ . 817)] (#$ . 33692) sh-indent-after-function #[0 "\300\207" [+] 1 (#$ . 817)] (#$ . 33839) sh-indent-after-switch #[0 "\300\207" [+] 1 (#$ . 817)] (#$ . 33887) sh-indent-after-case #[0 "\300\207" [+] 1 (#$ . 817)] (#$ . 33992) sh-backslash-column #[0 "\300\207" [48] 1 (#$ . 817)] (#$ . 34088) integer sh sh-backslash-align #[0 "\300\207" [t] 1 (#$ . 817)] (#$ . 34152) boolean] 8) (defalias 'sh-mkword-regexpr #[257 "\211\300P\207" ["\\([^-[:alnum:]_]\\|$\\)"] 3 (#$ . 34216)]) (defconst sh-re-done (sh-mkword-regexpr "done"))#@57 Which keywords can match the word `done' in this shell. (defconst sh-kws-for-done '((sh "while" "until" "for") (bash "while" "until" "for" "select") (ksh88 "while" "until" "for" "select") (zsh "while" "until" "for" "repeat" "select")) (#$ . 36770))#@50 Indentation rule set to use for each shell type. (defconst sh-indent-supported '((sh . sh) (csh) (rc . rc)) (#$ . 37024))#@72 Non-nil if we support indentation for the current buffer's shell type. (defvar sh-indent-supported-here nil (#$ . 37151))#@198 A list of variables used by script mode to control indentation. This list is used when switching between buffer-local and global values of variables, and for the commands using indentation styles. (defconst sh-var-list '(sh-basic-offset sh-first-lines-indent sh-indent-after-case sh-indent-after-do sh-indent-after-done sh-indent-after-else sh-indent-after-if sh-indent-after-loop-construct sh-indent-after-open sh-indent-comment sh-indent-for-case-alt sh-indent-for-case-label sh-indent-for-continuation sh-indent-for-do sh-indent-for-done sh-indent-for-else sh-indent-for-fi sh-indent-for-then) (#$ . 37279))#@340 Controls whether indentation variables are local to the buffer. If non-nil, indentation variables are made local initially. If nil, you can later make the variables local by invoking command `sh-make-vars-local'. The default is t because I assume that in one Emacs session one is frequently editing existing scripts with different styles. (defvar sh-make-vars-local t (#$ . 37896))#@45 The inferior shell process for interaction. (defvar sh-shell-process nil (#$ . 38283))#@104 Get a shell process for interaction. If FORCE is non-nil and no process found, create one. (fn FORCE) (make-variable-buffer-local 'sh-shell-process) (defalias 'sh-shell-process #[257 "\305!\203\207\306\211\307 \2049\211\2039\305\211A\262\242\211\262!\2039\310!\2039 \311\310!@!\230\203\f\262\202\f\206K\205K\312\n\313r\314 +!\266\203\211\207" [sh-shell-process sh-shell sh-shell-file display-buffer-overriding-action explicit-shell-file-name process-live-p nil process-list process-command file-name-nondirectory get-buffer-process (nil (inhibit-same-window . t)) shell] 8 (#$ . 38376)])#@35 Pop the shell interaction buffer. (defalias 'sh-show-shell #[0 "\301\302\303\304!!\"\207" [display-comint-buffer-action pop-to-buffer process-buffer sh-shell-process t] 4 (#$ . 38995) nil])#@45 Send TEXT to `sh-shell-process'. (fn TEXT) (defalias 'sh-send-text #[257 "\300\301\302!\303P\"\207" [comint-send-string sh-shell-process t "\n"] 5 (#$ . 39191)])#@71 Change directory in the current interaction shell to the current one. (defalias 'sh-cd-here #[0 "\301\302P!\207" [default-directory sh-send-text "cd "] 3 (#$ . 39360) nil])#@124 Send the current line to the inferior shell and step to the next line. When the region is active, send the region instead. (defalias 'sh-send-line-or-region-and-step #[0 "\300\211\211\301 \203\302 \262\303 \266\202\211\202\304 \262\305 \266\202\211T\306\307\"!\210\211b\207" [nil use-region-p region-beginning region-end line-beginning-position line-end-position sh-send-text buffer-substring-no-properties] 7 (#$ . 39540) nil]) (defalias 'sh-after-hack-local-variables #[0 "\301\236\205\302 9\203\303 !\202 !\207" [file-local-variables-alist sh-shell sh-set-shell symbol-name] 3])#@103 Guess the shell used in the current buffer. Return the name of the shell suitable for `sh-set-shell'. (defalias 'sh--guess-shell #[0 "\212eb\210\303!)\203\304\305!\207 \204\n\207\306\307 \"\203\310\207\306\311 \"\203'\312\207\306\313 \"\2030\314\207\306\315 \"\2039\316\207\306\317 \"\203B\320\207\306\321 \"\203K\322\207\306\323 \"\203T\324\207\325 !\326\232\203^\312\207\325 !\327\232\203h\314\207\n\207" [auto-mode-interpreter-regexp buffer-file-name sh-shell-file looking-at match-string 2 string-match "\\.m?spec\\'" "rpm" "[.]sh\\>" "sh" "[.]bash\\(rc\\)?\\>" "bash" "[.]ksh\\>" "ksh" "[.]mkshrc\\>" "mksh" "[.]t?csh\\(rc\\)?\\>" "csh" "[.]zsh\\(rc\\|env\\)?\\>" "zsh" file-name-nondirectory ".profile" "PKGBUILD"] 3 (#$ . 40143)]) (defvar sh-base-mode-hook nil) (byte-code "\300\301N\204\f\302\300\301\303#\210\304\305!\204\302\305\306\307#\210\300\207" [sh-base-mode-hook variable-documentation put "Hook run after entering `sh-base-mode'.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it. (This is true for all hook variables.)" boundp sh-base-mode-map definition-name sh-base-mode] 4) (defvar sh-base-mode-map (make-sparse-keymap))#@379 Generic major mode for editing shell scripts. This is a generic major mode intended to be inherited by concrete implementations. Currently there are two: `sh-mode' and `bash-ts-mode'. In addition to any hooks its parent mode `prog-mode' might have run, this mode runs the hook `sh-base-mode-hook', as the final or penultimate step during initialization. \{sh-base-mode-map}#@19 (fn TERMINATOR) (byte-code "\301\302N\204\303\301\302\304\305!#\210\306\307!\204*\303\307\310\311#\210\312\307\306\307!\203&\313\202(\314 \"\210\307\302N\2048\303\307\302\304\315!#\210\306\300!\204X\303\300\310\311#\210\312\300\306\300!\203P\313\202V\316\300\313\"\210\"\210\300\302N\204f\303\300\302\304\317!#\210\320\321!\203t\321\311\322\"\210\202z\303\311\323\322#\210\313\207" [sh-base-mode-abbrev-table sh-base-mode-map variable-documentation put purecopy "Keymap for `sh-base-mode'." boundp sh-base-mode-syntax-table definition-name sh-base-mode defvar-1 nil make-syntax-table "Syntax table for `sh-base-mode'." define-abbrev-table "Abbrev table for `sh-base-mode'." fboundp derived-mode-set-parent prog-mode derived-mode-parent] 5) (defalias 'sh-base-mode #[0 "\306\300!\210\307\310 \210\311\312\310\313N\203\314\311\313\310\313N#\210\315 !\204'\316 \317 \"\210\320\f!\211\2035\211\321 =\203;\322\f\323 \"\210\210\324 \325\"\204R $=\204R\326 \325$C#\210\327 !\210\330\f!\210 $\306\331!\210\306\332!\210\306\333!\210@\306\334!\210A\335P\306\336!\210\337P\306\340!\210\341 \306\342!\210\343\"\306\344!\210B$\306\345!\210C%\346\347\350\351\307$\210\306\352!\210\353*\306\354!\210\351,\306\355!\210\356-\346\357\360\361\362$\210\306\363!\210\3643\306\365!\210\3665\306\367!\210\3707\306\371!\210\3729\306\373!\210\307;\306\374!\210\375<\306\376!\210\377>\346\347\201F\351\307$\210\306\201D!\210\201GD\306\201E!\210\201HE)\201I\201J!\207" [delay-mode-hooks major-mode mode-name sh-base-mode-map sh-base-mode-syntax-table sh-base-mode-abbrev-table make-local-variable t prog-mode sh-base-mode "Shell-script" mode-class put keymap-parent set-keymap-parent current-local-map char-table-parent standard-syntax-table set-char-table-parent syntax-table abbrev-table-get :parents abbrev-table-put use-local-map set-syntax-table sh-shell-file sh-shell skeleton-pair-default-alist paragraph-start "\\|$" paragraph-separate "\\|#!/" comment-start "# " comment-start-skip "#+[ ]*" local-abbrev-table comint-dynamic-complete-functions add-hook completion-at-point-functions comint-completion-at-point nil comint-prompt-regexp "^[ ]*" imenu-case-fold-search syntax-propertize-function sh-syntax-propertize-function syntax-propertize-extend-region-functions syntax-propertize-multiline append local skeleton-pair-alist ((96 _ 96)) skeleton-pair-filter-function sh-quoted-p skeleton-further-elements ((< '(- (min sh-basic-offset (current-column))))) skeleton-filter-function sh-feature skeleton-newline-indent-rigidly defun-prompt-regexp "^\\(\\(function[ ]\\)?[ ]*[[:alnum:]_]+[ ]*([ ]*)\\|function[ ]+[[:alnum:]_]+[ ]*\\(([ ]*)\\)?\\)[ ]*" add-log-current-defun-function sh-current-defun-name sh-skeleton-pair-default-alist page-delimiter sh-mode-abbrev-table sh-dynamic-complete-functions outline-regexp escaped-string-quote sh-completion-at-point-function "###" #[257 "\211\300=\203\301\207\302\207" [39 "'\\'" "\\"] 3 (#$ . 41730)] run-mode-hooks sh-base-mode-hook] 5 (#$ . 41347) nil]) (defvar sh-mode-hook nil) (byte-code "\300\301N\204\f\302\300\301\303#\210\304\305!\204\302\305\306\307#\210\300\207" [sh-mode-hook variable-documentation put "Hook run after entering `sh-mode'.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it. (This is true for all hook variables.)" boundp sh-mode-map definition-name sh-mode] 4) (defvar sh-mode-map (make-sparse-keymap))#@2416 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. Shell script files can use the `sh-shell' local variable to indicate the shell variant to be used for the file. 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 For sh and rc shells indentation commands are: \[smie-config-show-indent] Show the rules controlling this line's indentation. \[smie-config-set-indent] Change the rules controlling this line's indentation. \[smie-config-guess] Try to tweak the indentation rules so the buffer indents as it currently is indented. \[backward-delete-char-untabify] Delete backward one position, even if it was a tab. \[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-electric-here-document-mode' controls whether insertion of two unquoted < insert a here document. You can control this behavior by modifying `sh-mode-hook'. 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. (byte-code "\301\302N\204\303\301\302\304\305!#\210\306\307!\204*\303\307\310\311#\210\312\307\306\307!\203&\313\202(\314 \"\210\307\302N\2048\303\307\302\304\315!#\210\306\300!\204X\303\300\310\311#\210\312\300\306\300!\203P\313\202V\316\300\313\"\210\"\210\300\302N\204f\303\300\302\304\317!#\210\320\321!\203t\321\311\322\"\210\202z\303\311\323\322#\210\313\207" [sh-mode-abbrev-table sh-mode-map variable-documentation put purecopy "Keymap for `sh-mode'." boundp sh-mode-syntax-table definition-name sh-mode defvar-1 nil make-syntax-table "Syntax table for `sh-mode'." define-abbrev-table "Abbrev table for `sh-mode'." fboundp derived-mode-set-parent sh-base-mode derived-mode-parent] 5) (defalias 'sh-mode #[0 "\306\300!\210\307\310 \210\311\312\310\313N\203\314\311\313\310\313N#\210\315 !\204'\316 \317 \"\210\320\f!\211\2035\211\321 =\203;\322\f\323 \"\210\210\324 \325\"\204R '=\204R\326 \325'C#\210\327 !\210\330\f!\210 '\331\332\211\333\332\334\335B\257(\336\337 \332\211#\210\340\341\342\332\307$\210\340\343\344\332\307$)\210\345\346!\207" [delay-mode-hooks major-mode mode-name sh-mode-map sh-mode-syntax-table sh-mode-abbrev-table make-local-variable t sh-base-mode sh-mode "Shell-script" mode-class put keymap-parent set-keymap-parent current-local-map char-table-parent standard-syntax-table set-char-table-parent syntax-table abbrev-table-get :parents abbrev-table-put use-local-map set-syntax-table (sh-font-lock-keywords sh-font-lock-keywords-1 sh-font-lock-keywords-2) nil ((47 . "w") (126 . "w") (46 . "w") (45 . "w") (95 . "w")) font-lock-syntactic-face-function sh-font-lock-syntactic-face-function sh-set-shell sh--guess-shell add-hook flymake-diagnostic-functions sh-shellcheck-flymake hack-local-variables-hook sh-after-hack-local-variables run-mode-hooks sh-mode-hook local-abbrev-table font-lock-defaults] 7 (#$ . 45207) nil]) (defalias 'shell-script-mode 'sh-mode) (defvar bash-ts-mode-hook nil) (byte-code "\300\301N\204\f\302\300\301\303#\210\304\305!\204\302\305\306\307#\210\300\207" [bash-ts-mode-hook variable-documentation put "Hook run after entering `bash-ts-mode'.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it. (This is true for all hook variables.)" boundp bash-ts-mode-map definition-name bash-ts-mode] 4) (defvar bash-ts-mode-map (make-sparse-keymap))#@331 Major mode for editing Bash shell scripts. This mode automatically falls back to `sh-mode' if the buffer is not written in Bash or sh. In addition to any hooks its parent mode `sh-base-mode' might have run, this mode runs the hook `bash-ts-mode-hook', as the final or penultimate step during initialization. \{bash-ts-mode-map} (byte-code "\301\302N\204\303\301\302\304\305!#\210\306\300!\204.\303\300\307\310#\210\311\300\306\300!\203&\312\202,\313\300\312\"\210\"\210\300\302N\204<\303\300\302\304\314!#\210\315\316!\203J\316\310\317\"\210\202P\303\310\320\317#\210\312\207" [bash-ts-mode-abbrev-table bash-ts-mode-map variable-documentation put purecopy "Keymap for `bash-ts-mode'." boundp definition-name bash-ts-mode defvar-1 nil define-abbrev-table "Abbrev table for `bash-ts-mode'." fboundp derived-mode-set-parent sh-base-mode derived-mode-parent] 5) (defalias 'bash-ts-mode #[0 "\306\300!\210\307\310 \210\311\312\310\313N\203\314\311\313\310\313N#\210\315 !\204'\316 \317 \"\210\320\f\321\"\204;\f =\204;\322\f\321 C#\210\323 !\210\324+!\210\f\325\326!\203\211\327\330\331\211#\210\332\333\334\331\307$\210\332\335\336\331\307$\210\337\326!\210\306\340!\210\341 \306\342!\210,\"\306\343!\210\326\344\345DDC#\306\346!\210\347&\350 \210)\351\352!\207" [delay-mode-hooks major-mode mode-name bash-ts-mode-map bash-ts-mode-abbrev-table local-abbrev-table make-local-variable t sh-base-mode bash-ts-mode "Bash" mode-class put keymap-parent set-keymap-parent current-local-map abbrev-table-get :parents abbrev-table-put use-local-map set-syntax-table treesit-ready-p bash sh-set-shell "bash" nil add-hook flymake-diagnostic-functions sh-shellcheck-flymake hack-local-variables-hook sh-after-hack-local-variables treesit-parser-create treesit-font-lock-feature-list ((comment function) (command declaration-command keyword string) (builtin-variable constant heredoc number string-interpolation variable) (bracket delimiter misc-punctuation operator)) treesit-font-lock-settings treesit-thing-settings sentence "\\(?:comment\\|heredoc_\\(?:body\\|start\\)\\)" treesit-defun-type-regexp "function_definition" treesit-major-mode-setup run-mode-hooks bash-ts-mode-hook sh-mode-syntax-table sh-mode--treesit-settings] 5 (#$ . 49996) nil]) (byte-code "\300\301\302\"\210\303\301\304\305\306$\207" [derived-mode-add-parents bash-ts-mode (sh-mode) advice-add :around sh--redirect-bash-ts-mode ((depth . 50))] 5) (defvar sh--redirect-recursing nil)#@117 Redirect to `sh-mode' if the current file is not written in Bash or sh. OLDFN should be `bash-ts-mode'. (fn OLDFN) (defalias 'sh--redirect-bash-ts-mode #[257 " \204\n\203\211\202\302\303\304 !\305\235\203\211\202\306 )\207" [sh--redirect-recursing delay-mode-hooks t file-name-base sh--guess-shell ("bash" "sh") sh-mode] 3 (#$ . 52472)])#@143 Function to get simple fontification based on `sh-font-lock-keywords'. This adds rules for comments and assignments. (fn &optional KEYWORDS)#@13 (fn LIST) (defalias 'sh-font-lock-keywords #[256 "\302\302 !;\205 \303\304\"\"\207" [sh-font-lock-keywords-var sh-assignment-regexp sh-feature make-closure #[257 "\303 !\304B\305\300\n#B\207" [V0 sh-assignment-regexp executable-font-lock-keywords sh-feature (1 font-lock-variable-name-face) append] 6 (#$ . 52977)]] 6 (#$ . 52830)])#@83 Function to get better fontification including keywords. (fn &optional BUILTINS) (defalias 'sh-font-lock-keywords-1 #[256 "\305\306\307!\310\"\311\306\312\307!\307 !\"\310\"R\313\312\205*\311\306\307\n!\310\"\314R\315B\307 !B\316P\317BC\307\f!#!\207" [sh-leading-keywords sh-other-keywords sh-builtins sh-font-lock-keywords-var-2 sh-font-lock-keywords-var-1 "\\([;(){}`|&]\\|^\\)[ ]*\\(\\(" regexp-opt sh-feature t "[ ]+\\)?" append sh-font-lock-keywords "\\>" ((2 font-lock-keyword-face nil t) (6 font-lock-builtin-face)) "\\)\\>" (2 font-lock-keyword-face)] 9 (#$ . 53321)])#@71 Function to get better fontification including keywords and builtins. (defalias 'sh-font-lock-keywords-2 #[0 "\300\301!\207" [sh-font-lock-keywords-1 t] 2 (#$ . 53912)]) (defvar sh--completion-keywords '("if" "while" "until" "for" "then")) (defalias 'sh--vars-before-point #[0 "\212\300\301\302\300\303#\203\304\305!B\262\202)\207" [nil re-search-backward "^[ ]*\\([[:alnum:]_]+\\)=" t match-string 1] 5])#@15 (fn STRING)#@10 (fn V) (defalias 'sh--cmd-completion-table-gen #[257 "\303\304\305!\205\306\307\3101\305 0\202\210\311\"\306\312\313 \"\314 \311\315%\n$\207" [exec-path exec-suffixes sh--completion-keywords append fboundp imenu--make-index-alist mapcar car (imenu-unavailable) nil #[257 "\211\300P\207" ["="] 3 (#$ . 54349)] sh--vars-before-point locate-file-completion-table t] 10 (#$ . 54330)])#@10 (fn _)#@10 (fn S) (defalias 'sh-completion-at-point-function #[0 "\212\300\301w\210`\300\301x\210\301``Sf\302=\203\211\303 \304\305\257\202-\306 \205-\211\307\310!\304\311\257)\207" ["[:alnum:]_" nil 36 sh--vars-before-point :company-kind #[257 "\300\207" [variable] 2 (#$ . 54746)] sh-smie--keyword-p completion-table-with-cache sh--cmd-completion-table-gen #[257 "\211\235\203\301\207\302\303\"\203\304\207\305\207" [sh--completion-keywords keyword string-suffix-p "=" variable function] 4 (#$ . 54760)]] 8])#@152 Non-nil if we're at a keyword position. A keyword position is one where if we're looking at something that looks like a keyword, then it is a keyword. (require 'smie) (defalias 'sh-smie--keyword-p #[0 " \211G\302U\203\303\304`S\"\207\305 \"\207" [smie-backward-token-function smie-grammar 0 looking-back "\\`\\|\\s(" assoc] 4 (#$ . 55282)])#@409 Return non-nil if a newline should be treated as a semi-colon. Here we assume that a newline should be treated as a semi-colon unless it comes right after a special keyword. This function does not pay attention to line-continuations. If TOK is nil, point should be before the newline; otherwise, TOK is the token before the newline and in that case point should be just before the token. (fn &optional TOK) (defalias 'sh-smie--newline-semi-p #[256 "\212\211\204  \262\211G\302U\205\303\304`S\"?\205!\305\306 \"8\247?)\207" [smie-backward-token-function smie-grammar 0 looking-back "\\s(" 2 assoc] 5 (#$ . 55633)]) (defconst sh-smie-sh-grammar '((:smie-closer-alist (#1="case" . #13="esac") (#1# . #14="in") (#2="if" . "fi") (#2# . #11="then") ("if" . #10="else") ("if" . #9="elif") (#3="while" . "done") (#3# . #8="do") (#4="until" . "done") (#4# . "do") (#5="for" . "done") (#5# . "do") (#5# . "in") (#6="select" . "done") (#6# . "do") (#6# . "in") (#7="repeat" . #12="done") (#7# . "do")) (#8# 0 1) (#9# 3 2) (#10# 3 3) (#11# 2 3) (#3# (71) 0) (#4# (72) 0) ("for" (73) 0) (#6# (74) 0) (#7# (75) 0) (#2# (76) 2) ("&" 38 38) (";" 38 38) ("||" 49 49) ("&&" 49 49) ("|&" 60 60) ("always" 77 78) (#12# 1 (79)) ("fi" 3 (80)) (#13# 0 (81)) (";;" 14 14) (";&" 14 14) (";;&" 14 14) (";|" 14 14) ("case-)" 26 25) ("case-(" (82) 37) ("|" 60 60) (#14# 0 0) (#1# (83) 0)))#@10 (fn X) (defconst sh-smie--sh-operators (byte-code "\301\302\303\304\"\"\207" [sh-smie-sh-grammar delq nil mapcar #[257 "@\211;\205\300\301\"?\205\211\207" [string-match "\\`[a-z]"] 4 (#$ . 57008)]] 5)) (defconst sh-smie--sh-operators-re (regexp-opt sh-smie--sh-operators)) (defconst sh-smie--sh-operators-back-re (concat "\\(?:^\\|[^\\]\\)\\(?:\\\\\\\\\\)*\\(" sh-smie--sh-operators-re "\\)"))#@108 When looking at TOK (either "in" or "do"), non-nil if TOK is a keyword. Does not preserve point. (fn TOK) (defalias 'sh-smie--sh-keyword-in/do-p #[257 "\303\211\211\211\211\204\232 \262\211G\304U\203H\203(\204\"\305\306!\210\307\262\202o\2032\307\262\202\310\262\3111A\312\313!0\210\202\210\314\262\202\211\315\232\203^\203X\310\262\202\316\262\202\211\317\230\203j\320\202k\321\235\203u\316\262\202\322\n\"\203\202\307\262\202\203\224\204\216\305\306!\210\307\262\202\310\262\202\316=)\207" [forward-sexp-function smie-backward-token-function smie-grammar nil 0 cl--assertion-failed words word t (scan-error) forward-sexp -1 unknown ";" keyword "in" ("case" "for" "select") ("for" "select") assoc] 9 (#$ . 57416)])#@72 Non-nil if TOK (at which we're looking) really is a keyword. (fn TOK) (defalias 'sh-smie--sh-keyword-p #[257 "\300\301!\203\302\207\211\303\235\203\304!\207\305 \207" [looking-at "[[:alnum:]_]+=" nil ("in" "do") sh-smie--sh-keyword-in/do-p sh-smie--keyword-p] 3 (#$ . 58196)]) (defalias 'sh-smie--default-forward-token #[0 "\300d!\210\301`\302\303!\304U\203\302\305!\210\306\307!\203\310u\210\202`\"\207" [forward-comment buffer-substring-no-properties skip-syntax-forward "." 0 "w_'" looking-at "\\\\" 2] 4]) (defalias 'sh-smie--default-backward-token #[0 "\300`[!\210`\301\302!\211\303U\204+\211\304=\203k`\301\305!\306\246\304=\203$\210\202+\211b\266\202k\301\307!\303U\204A`Sf\310=\204A\301\302!\204+\301\305!\303U\203+`SSf\311=\203t`\304u\210\301\305!\306\246\304=\203d\210\202+\211b\266\202t`\301\305!\306\246Zb\210\312`\"\207" [forward-comment skip-syntax-backward "." 0 -1 "\\" 2 "w_'" 59 92 buffer-substring-no-properties] 5]) (defalias 'sh-smie-sh-forward-token #[0 "\303\304!\203=\212\305\306x\210n)\204=\307\225\203$\310\311 8\204$\306\312\307!)\313\207m?\205<\314 \307y\210\211\2046m\2038\313\207\315 \262\207\316d!\210\303\317!\203M\307y\210\315 \207\303 !\203n\320\225b\210\321\320!\211GSH\322>\203\234\303\323!\203\234\307y\210\207`\324 \211\325\267\202{\326\207\327\207\211\203\232\330\331\"\203\232\332\n\"\203\232\212b\210\333!)\204\232\334\207\266\201\207" [forward-sexp-function sh-smie--sh-operators-re smie-grammar looking-at "[ ]*\\(?:#\\|\\(\\s|\\)\\|$\\)" " " nil 1 3 syntax-ppss forward-sexp ";" sh-smie--newline-semi-p sh-smie-sh-forward-token forward-comment "\\\\\n" 0 match-string-no-properties (59 38 124) "[ ]*\\(?:#\\|$\\)" sh-smie--default-forward-token #s(hash-table test equal purecopy t data (")" 119 "(" 121)) "case-)" "case-(" string-match "\\`[a-z]" assoc sh-smie--sh-keyword-p " word "] 6]) (defalias 'sh-smie--looking-back-at-continuation-p #[0 "\212`Sf\300=\203\301u\210\202l\205\302\303\304 \")\207" [10 -1 looking-back "\\(?:^\\|[^\\]\\)\\(?:\\\\\\\\\\)*\\\\" line-beginning-position] 3]) (defalias 'sh-smie-sh-backward-token #[0 "\304 \305`[!\210n\203'o\204'\306`S!\307\232\203'\310\311 8\204'\312\313\314!)\315\207`W\203B\316 \2038\314u\210 \207\317 \203?\315\207 \207\320\n\304 \321#\203S\322\224b\210\323\322!\207\324 \211\325\267\202_\326\207\327\207\211\203{\330\331\"\203{\332 \"\203{\212\333!)\204{\334\207\207" [forward-sexp-function smie-backward-token-function sh-smie--sh-operators-back-re smie-grammar line-beginning-position forward-comment syntax-after (15) 3 syntax-ppss nil forward-sexp -1 ";" sh-smie--looking-back-at-continuation-p sh-smie--newline-semi-p looking-back greedy 1 match-string-no-properties sh-smie--default-backward-token #s(hash-table test equal purecopy t data (")" 91 "(" 93)) "case-)" "case-(" string-match "\\`[a-z]" assoc sh-smie--sh-keyword-p " word "] 6])#@567 If non-nil, indent relative to the continued line's beginning. Continued lines can either be indented as "one long wrapped line" without paying attention to the actual syntactic structure, as in: for f \ in a; do \ toto; \ done or as lines that just don't have implicit semi-colons between them, as in: for f \ in a; do \ toto; \ done With `always' you get the former behavior whereas with nil you get the latter. With t, you get the latter as long as that would indent the continuation line deeper than the initial line.#@116 Return the initial indentation of a continued line. May return nil if the line should not be treated as continued. (byte-code "\300\301\302\303\304DD\305\306\307\310\311\312\313& \207" [custom-declare-variable sh-indent-after-continuation funcall function #[0 "\300\207" [t] 1 (#$ . 817)] (#$ . 61126) :version "25.1" :type (choice (const :value nil :tag "Never") (const :value t :tag "Only if needed to make it deeper") (const :value always :tag "Always")) :group sh-indentation] 10) (defalias 'sh-smie--continuation-start-indent #[0 "\212\300y\210\301 ?\205\f\302 )\207" [-1 sh-smie--looking-back-at-continuation-p current-indentation] 1 (#$ . 61698)]) (defalias 'sh-smie--indent-continuation #[0 "\203\212\3021\303\304x\210\305 0\202\210\304)\204\304\207\306=\2037\212\307y\210\305 \203/\310 \2025\310 \311\312!\\)\207\212\304\313 ) \247\204G\202w\307y\210\310 \211W\203V\210\202v\305 \203h^\262\211V\262\202s\211\311\312!\\^\262\210\304\204G)\207" [sh-indent-after-continuation most-positive-fixnum (error) " " nil sh-smie--looking-back-at-continuation-p always -1 current-indentation sh-var-value sh-indent-for-continuation smie-indent-calculate] 6])#@19 (fn KIND TOKEN) (defalias 'sh-smie-sh-rules #[514 "B\211\304\267\202\207\305\306!\305\307!Z\207\211:\205\211\242\211\310\267\210\202\243\211\311\267\202\257\312\232\203F\313\314\315\"\203F\316\317!\3208\321\235\205E\322\323 B\207\324\325\326\327#\204V\330 \205\260\331 \207\332 ?\205j\320\316\333!8\327\232\204\\\322\323 B\207\332 \203|\334\335!\203|\322\336\337!B\207\340!\207\313!?\205\260\325\232\203\221 \205\260\316!\210\322\n\341\342\"\323 \\B\207\305\343!\207\305\344!\207\305\345!\207\305\346!\207\347\207\243\211\350\267\266\202\3511\340\316!\210\322\332 \204\327\212 \352\235\205\323\332 )\203\333i\202\335\353 B0\207\354\355\"\347\207\305\356!\207\305\357!\207\305\330 \203\370\360\202\371\361!\207\305\307!\207\334\362!\204 \305\363!\207\364\225Sb\210\322iB\207\347\207\347\207" [sh-basic-offset sh-indent-statement-after-and smie-rules-function smie-backward-token-function #s(hash-table test equal purecopy t data ((:elem . basic) 9 (:after . "case-)") 11)) sh-var-value sh-indent-for-case-alt sh-indent-for-case-label #s(hash-table test eq purecopy t data (:before 33 :after 177)) #s(hash-table test equal purecopy t data ("case" 41 "for" 41 "if" 41 "while" 41 "[" 41 "{" 41 "(" 41 ";|" 107 ";;&" 107 ";&" 107 ";;" 107 "||" 128 "&&" 128 "|" 128 "fi" 159 "done" 163 "then" 167 "do" 171)) "{" smie-rule-parent-p "for" "case" smie-backward-sexp "in" 2 ("for" "case") column smie-indent-virtual smie-rule-prev-p "&&" "||" "|" smie-rule-hanging-p smie-rule-parent smie-rule-bolp halfexp looking-at ";\\(?:;&?\\|[&|]\\)?[ ]*\\(#\\|$\\)" smie-indent-keyword ";" smie-rule-separator :elem basic sh-indent-for-fi sh-indent-for-done sh-indent-for-then sh-indent-for-do nil #s(hash-table test equal purecopy t data (";|" 187 ";;&" 187 ";&" 187 ";;" 187 "else" 230 "if" 234 "do" 238 "in" 251 "[" 255 "{" 255 "(" 255)) (debug error) ("in" ";;") smie-indent-calculate message "SMIE rule error: %S" sh-indent-after-else sh-indent-after-if sh-indent-after-loop-construct sh-indent-after-do ".[ ]*[^\n #]" sh-indent-after-open 0] 10 (#$ . 62893)]) (defconst sh-smie-rc-grammar '((";&" 0 0) (";;&" 0 0) (";|" 0 0) ("case-)" 12 11) (";;" 0 0) ("if" (67) 68) ("switch" (69) 70) ("for" (71) 72) ("while" (73) 74) ("|" 56 56) ("|&" 56 56) ("&&" 45 45) ("||" 45 45) (";" 34 34) ("case" 23 23) ("&" 34 34)))#@134 Check if we're after the first arg of an if/while/for/... construct. Returns the construct's token and moves point before it, if so. (defalias 'sh-smie--rc-after-special-arg-p #[0 "\302`[!\210\303\304`\305Z\"\205\"\3061 \307\310\311!\210 \312\235@)0\207\210\307\207" [forward-sexp-function smie-backward-token-function forward-comment looking-back ")\\|\\_\203f\305@A@\306!)AA#\262\203q!\262)\266\203\207" [sh-shell sh-ancestor-alist nil sh (sh-append sh-modify) apply sh-feature] 11 (#$ . 71118)])#@104 Return list composed of first argument (a list) physically appended to rest. (fn ANCESTOR &rest LIST) (defalias 'sh-append #[385 "\211\244\207" [] 4 (#$ . 72432)])#@99 Modify a copy of SKELETON by replacing I1 with REPL1, I2 with REPL2 ... (fn SKELETON &rest LIST) (defalias 'sh-modify #[385 "\300!\262\211\203\211@\233\206\301\302@\"A@\240\210AA\202\207" [copy-sequence error "Index %d out of bounds"] 5 (#$ . 72603)])#@180 Indent a line for Sh mode (shell script mode). Indent as far as preceding non-empty line, then by steps of `sh-basic-offset'. Lines containing only comments are considered empty. (defalias 'sh-basic-indent-line #[0 "\212\303 \210o\204\304y\210\305 \210l\204g\306=\204i)\307\212\310=\204, \2030\311=\2030\202di\305 \210i\211\262W\203Hl\203D\202d\312\202d`\303 \210`|\210l\203^\n\245T\n_]\202d\211\n\245T\n_j)\210i\313 W\205q\314\307w\207" [this-command electric-indent-mode sh-basic-offset beginning-of-line -1 back-to-indentation 35 nil newline-and-indent newline 0 current-indentation " "] 5 (#$ . 72874) nil])#@472 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. The executed subshell is `sh-shell-file'. 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. (fn START END &optional FLAG) (defalias 'sh-execute-region #[770 "\211\203\304!\305V\205\306 \211\207 \2038\212\307b\210\310p#\210\311eZ\\\211\262 #\210|*\202?\311 \312P#)\207" [sh-header-marker sh-shell-file shell-file-name buffer-undo-list prefix-numeric-value 0 point-marker nil append-to-buffer shell-command-on-region " -"] 8 (#$ . 73517) "r\nP"])#@79 Make VARIABLE available for future completing reads in this buffer. (fn VAR) (defalias 'sh-remember-variable #[257 "\211GW\204\302!\204\303 \"\204\211B B\207" [sh-remember-variable-min sh-shell-variables getenv assoc] 4 (#$ . 74339)])#@52 Is point preceded by an odd number of backslashes? (defalias 'sh-quoted-p #[0 "\212\300\301x)\302\246\303=\207" ["\\\\" nil 2 -1] 2 (#$ . 74591)])#@278 Make the indentation variables local to this buffer. Normally they already are local. This command is provided in case variable `sh-make-vars-local' has been set to nil. To revert all these variables to the global values, use command `sh-reset-indent-vars-to-global-values'. (defalias 'sh-make-vars-local #[0 "\301\302\"\210\303\304!\207" [sh-var-list mapc make-local-variable message "Indentation variables are now local."] 3 (#$ . 74744) nil])#@125 Reset local indentation variables to the global values. Then, if variable `sh-make-vars-local' is non-nil, make them local. (defalias 'sh-reset-indent-vars-to-global-values #[0 "\302\303\"\210 \205 \304\305\"\207" [sh-var-list sh-make-vars-local mapc kill-local-variable mapcar make-local-variable] 3 (#$ . 75199) nil])#@64 Return non-nil if START is in a comment or string. (fn START) (defalias 'sh-in-comment-or-string #[257 "\212\300!\3018\206 \3028)\207" [syntax-ppss 3 4] 4 (#$ . 75527)])#@214 Return the value of variable VAR, interpreting symbols. It can also return t or nil. If an invalid value is found, throw an error unless Optional argument IGNORE-ERROR is non-nil. (fn VAR &optional IGNORE-ERROR) (defalias 'sh-var-value #[513 "J\211\247\203\207\211\301\267\202'\207\207\207[\207\302_\207[\302_\207\302\245\207[\302\245\207\203/\303\2020\304\305#\306\207" [sh-basic-offset #s(hash-table test eq purecopy t data (t 14 nil 15 + 16 - 18 ++ 21 -- 25 * 30 / 34)) 2 message error "Don't know how to handle %s's value of %s" 0] 8 (#$ . 75708)])#@47 A list of all known shell indentation styles. (byte-code "\300\301\302\303#\210\304\301\302\305#\210\300\306\307\303#\210\304\306\307\305#\210\300\310\307\303#\210\304\310\307\305#\210\300\311\312\303#\210\304\311\312\305#\207" [defalias sh-show-indent smie-config-show-indent nil make-obsolete "28.1" sh-set-indent smie-config-set-indent sh-learn-line-indent sh-learn-buffer-indent smie-config-guess] 4) (defvar sh-styles-alist nil (#$ . 76282))#@312 Name the current indentation settings as a style called NAME. If this name exists, the command will prompt whether it should be overwritten if - - it was called interactively with a prefix argument, or - - called non-interactively with optional CONFIRM-OVERWRITE non-nil. (fn NAME &optional CONFIRM-OVERWRITE)#@12 (fn VAR) (defalias 'sh-name-style #[513 "\302\303\"B\304 \"\211\203'\203\305\306!\204\307\310\"\207\307\311\"\210\211A\241\207\307\312\"\210 B\211\207" [sh-var-list sh-styles-alist mapcar #[257 "\211JB\207" [] 3 (#$ . 77051)] assoc y-or-n-p "This style exists. Overwrite it? " message "Not changing style %s" "Updating style %s" "Creating new style %s"] 7 (#$ . 76735) (byte-code "\301\302!?D\207" [current-prefix-arg read-from-minibuffer "Name for this style? "] 2)])#@83 Set shell indentation values for this buffer from those in style NAME. (fn NAME) (defalias 'sh-load-style #[257 "\301\"\211\204 \302\303\"\207\211A\211\205 \211@\211@AL\266A\202\207" [sh-styles-alist assoc error "sh-load-style: Style %s not known"] 6 (#$ . 77545) (byte-code "\301\302\303\304$C\207" [sh-styles-alist completing-read "Which style to use for this buffer? " nil t] 5)])#@108 Save all current styles in elisp to buffer BUFF. This is always added to the end of the buffer. (fn BUFF) (defalias 'sh-save-styles-to-buffer #[257 "r\301!q\210db\210\302c\210\303\304\300\305DEp\")\207" [sh-styles-alist get-buffer-create "\n" pp setq quote] 6 (#$ . 77946) (byte-code "\300\301\302\"C\207" [read-from-minibuffer "Buffer to save styles in? " "*scratch*"] 3)]) (defconst sh-non-closing-paren (propertize ")" 'syntax-table sh-st-punc 'rear-nonsticky t))#@579 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. (fn &optional STR ARG) (put 'sh-case 'no-self-insert t) (defalias 'sh-case #[512 "\304 \305\211\305C\306\307#\216\310!\210\311\312#\313\240,\210\207" [most-positive-fixnum undo-strong-limit undo-limit undo-outer-limit prepare-change-group nil make-closure #[0 "\300\242\203 \302\301!\207\303\301!\207" [V0 V1 accept-change-group cancel-change-group] 2] activate-change-group 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" n) (es) (rc "expression: " > "switch( " str " ) {" n > "case " (read-string "pattern: ") n > _ n ("other pattern, %s: " "case " str > n > _ n) "case *" > n > _ n resume: 125 > n) (sh "expression: " > "case " str " in" n ("pattern, %s: " > str sh-non-closing-paren n > _ n ";;" n) > "*" sh-non-closing-paren n > _ n resume: "esac" > n)) t] 11 (#$ . 78422) "*P\nP"])#@566 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. (fn &optional STR ARG) (put 'sh-for 'no-self-insert t) (defalias 'sh-for #[512 "\304 \305\211\305C\306\307#\216\310!\210\311\312#\313\240,\210\207" [most-positive-fixnum undo-strong-limit undo-limit undo-outer-limit prepare-change-group nil make-closure #[0 "\300\242\203 \302\301!\207\303\301!\207" [V0 V1 accept-change-group cancel-change-group] 2] activate-change-group skeleton-proxy-new ((csh sh-modify sh 1 "" 2 "foreach " 4 " ( " 6 " )" 15 '< 16 "end") (es sh-modify rc 4 " = ") (rc sh-modify sh 2 "for( " 6 " ) {" 15 125) (sh "Index variable: " > "for " str " in " _ "; do" n > _ | 36 & (sh-remember-variable str) n "done" > n)) t] 11 (#$ . 79963) "*P\nP"])#@583 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. (fn &optional STR ARG) (put 'sh-indexed-loop 'no-self-insert t) (defalias 'sh-indexed-loop #[512 "\304 \305\211\305C\306\307#\216\310!\210\311\312#\313\240,\210\207" [most-positive-fixnum undo-strong-limit undo-limit undo-outer-limit prepare-change-group nil make-closure #[0 "\300\242\203 \302\301!\207\303\301!\207" [V0 V1 accept-change-group cancel-change-group] 2] activate-change-group skeleton-proxy-new ((bash sh-modify posix) (csh "Index variable: " "@ " str " = 1" n "while( $" str " <= " (read-string "upper limit: ") " )" n > _ 36 str n "@ " str "++" n < "end" n) (es sh-modify rc 4 " =") (ksh88 "Index variable: " > "integer " str "=0" n > "while (( ( " str " += 1 ) <= " (read-string "upper limit: ") " )); do" n > _ 36 (sh-remember-variable str) > n "done" > n) (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" > n) (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 > n) (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" > n)) t] 11 (#$ . 81194) "*P\nP"])#@88 Scan the buffer for variable assignments. Add these variables to `sh-shell-variables'. (defalias 'sh-shell-initialize-variables #[0 "\301\302\303 \"\210\212eb\210\304\305\306\307\304#\203\310 \210\202\f)\311\312\310\307\304$\210\301\313\303 \"\207" [sh-shell-variables-initialized message "Scanning buffer `%s' for variable assignments..." buffer-name t search-forward "=" nil sh--assignment-collect add-hook post-self-insert-hook "Scanning buffer `%s' for variable assignments...done"] 5 (#$ . 83111)])#@575 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. (fn STRING PREDICATE CODE) (defalias 'sh-add-completer #[771 "rq\210 \204 \304 \210\305\306\n\" \244)\307$\207" [sh-add-buffer sh-shell-variables-initialized process-environment sh-shell-variables sh-shell-initialize-variables mapcar #[257 "\211\300\301\302\"O\207" [0 string-search "="] 6 (#$ . 77051)] complete-with-action] 9 (#$ . 83625)])#@85 Insert an addition of VAR and prefix DELTA for Bourne (type) shell. (fn VAR DELTA) (defalias 'sh-add #[514 "\300\301!\302!\303W\203\304\202\305\306\307!!\300\310!\261\207" [sh-feature ((bash . "$(( ") (ksh88 . "$(( ") (posix . "$(( ") (rc . "`{expr $") (sh . "`expr $") (zsh . "$[ ")) sh-remember-variable 0 " - " " + " number-to-string abs ((bash . " ))") (ksh88 . " ))") (posix . " ))") (rc . "}") (sh . "`") (zsh . " ]"))] 8 (#$ . 84529) (byte-code "p\302\303\304\"\305 !)D\207" [sh-add-buffer current-prefix-arg completing-read "Variable: " sh-add-completer prefix-numeric-value] 3)])#@577 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. (fn &optional STR ARG) (put 'sh-function 'no-self-insert t) (defalias 'sh-function #[512 "\304 \305\211\305C\306\307#\216\310!\210\311\312#\313\240,\210\207" [most-positive-fixnum undo-strong-limit undo-limit undo-outer-limit prepare-change-group nil make-closure #[0 "\300\242\203 \302\301!\207\303\301!\207" [V0 V1 accept-change-group cancel-change-group] 2] activate-change-group skeleton-proxy-new ((bash sh-modify ksh88 3 "() {") (ksh88 "name: " "function " str " {" n > _ n < "}" n) (rc sh-modify ksh88 1 "fn ") (sh nil "() {" n > _ n < "}" n)) t] 11 (#$ . 85134) "*P\nP"])#@571 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. (fn &optional STR ARG) (put 'sh-if 'no-self-insert t) (defalias 'sh-if #[512 "\304 \305\211\305C\306\307#\216\310!\210\311\312#\313\240,\210\207" [most-positive-fixnum undo-strong-limit undo-limit undo-outer-limit prepare-change-group nil make-closure #[0 "\300\242\203 \302\301!\207\303\301!\207" [V0 V1 accept-change-group cancel-change-group] 2] activate-change-group skeleton-proxy-new ((csh "condition: " "if( " str " ) then" n > _ n ("other condition, %s: " < "else if( " str " ) then" n > _ n) < "else" n > _ n resume: < "endif" n) (es "condition: " > "if { " str " } {" n > _ n ("other condition, %s: " "} { " str " } {" > n > _ n) "} {" > n > _ n resume: 125 > n) (rc "condition: " > "if( " str " ) {" n > _ n ("other condition, %s: " "} else if( " str " ) {" > n > _ n) "} else {" > n > _ n resume: 125 > n) (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" > n)) t] 11 (#$ . 86290) "*P\nP"])#@580 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. (fn &optional STR ARG) (put 'sh-repeat 'no-self-insert t) (defalias 'sh-repeat #[512 "\304 \305\211\305C\306\307#\216\310!\210\311\312#\313\240,\210\207" [most-positive-fixnum undo-strong-limit undo-limit undo-outer-limit prepare-change-group nil make-closure #[0 "\300\242\203 \302\301!\207\303\301!\207" [V0 V1 accept-change-group cancel-change-group] 2] activate-change-group skeleton-proxy-new ((es nil > "forever {" n > _ n 125 > n) (zsh "factor: " > "repeat " str "; do" > n > n "done" > n)) t] 11 (#$ . 87880) "*P\nP"])#@574 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. (fn &optional STR ARG) (put 'sh-select 'no-self-insert t) (defalias 'sh-select #[512 "\304 \305\211\305C\306\307#\216\310!\210\311\312#\313\240,\210\207" [most-positive-fixnum undo-strong-limit undo-limit undo-outer-limit prepare-change-group nil make-closure #[0 "\300\242\203 \302\301!\207\303\301!\207" [V0 V1 accept-change-group cancel-change-group] 2] activate-change-group skeleton-proxy-new ((ksh88 "Index variable: " > "select " str " in " _ "; do" n > 36 str n "done" > n) (bash sh-append ksh88)) t] 11 (#$ . 88986) "*P\nP"])#@593 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. (fn &optional STR ARG) (put 'sh-tmp-file 'no-self-insert t) (defalias 'sh-tmp-file #[512 "\304 \305\211\305C\306\307#\216\310!\210\311\312#\313\240,\210\207" [most-positive-fixnum undo-strong-limit undo-limit undo-outer-limit prepare-change-group nil make-closure #[0 "\300\242\203 \302\301!\207\303\301!\207" [V0 V1 accept-change-group cancel-change-group] 2] activate-change-group skeleton-proxy-new ((bash sh-append ksh88) (csh (file-name-nondirectory (buffer-file-name)) "set tmp = `mktemp -t " str ".XXXXXX`" n "onintr exit" n _ (and (goto-char (point-max)) (not (bolp)) 10) "exit:\n" "rm $tmp* >&" null-device > n) (es (file-name-nondirectory (buffer-file-name)) > "local( signals = $signals sighup sigint;" n > "tmp = `{ mktemp -t " str ".XXXXXX } ) {" n > "catch @ e {" n > "rm $tmp^* >[2]" null-device n "throw $e" n "} {" > n _ n 125 > n 125 > n) (ksh88 sh-modify sh 7 "EXIT") (rc (file-name-nondirectory (buffer-file-name)) > "tmp = `{ mktemp -t " str ".XXXXXX }" n "fn sigexit { rm $tmp^* >[2]" null-device " }" n) (sh (file-name-nondirectory (buffer-file-name)) > "TMP=`mktemp -t " str ".XXXXXX`" n "trap \"rm $TMP* 2>" null-device "\" " 48 n)) t] 11 (#$ . 90094) "*P\nP"])#@569 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. (fn &optional STR ARG) (put 'sh-until 'no-self-insert t) (defalias 'sh-until #[512 "\304 \305\211\305C\306\307#\216\310!\210\311\312#\313\240,\210\207" [most-positive-fixnum undo-strong-limit undo-limit undo-outer-limit prepare-change-group nil make-closure #[0 "\300\242\203 \302\301!\207\303\301!\207" [V0 V1 accept-change-group cancel-change-group] 2] activate-change-group skeleton-proxy-new ((sh "condition: " '(setq input (sh-feature sh-test)) > "until " str "; do" n > _ n "done" > n)) t] 11 (#$ . 91873) "*P\nP"])#@568 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. (fn &optional STR ARG) (put 'sh-while 'no-self-insert t) (defalias 'sh-while #[512 "\304 \305\211\305C\306\307#\216\310!\210\311\312#\313\240,\210\207" [most-positive-fixnum undo-strong-limit undo-limit undo-outer-limit prepare-change-group nil make-closure #[0 "\300\242\203 \302\301!\207\303\301!\207" [V0 V1 accept-change-group cancel-change-group] 2] activate-change-group skeleton-proxy-new ((csh sh-modify sh 2 "" 3 "while( " 5 " )" 10 '< 11 "end") (es sh-modify sh 3 "while { " 5 " } {" 10 125) (rc sh-modify sh 3 "while( " 5 " ) {" 10 125) (sh "condition: " '(setq input (sh-feature sh-test)) > "while " str "; do" n > _ n "done" > n)) t] 11 (#$ . 92963) "*P\nP"])#@718 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. (fn &optional STR ARG) (put 'sh-while-getopts 'no-self-insert t) (defalias 'sh-while-getopts #[512 "\304 \305\211\305C\306\307#\216\310!\210\311\312#\313\240,\210\207" [most-positive-fixnum undo-strong-limit undo-limit undo-outer-limit prepare-change-group nil make-closure #[0 "\300\242\203 \302\301!\207\303\301!\207" [V0 V1 accept-change-group cancel-change-group] 2] activate-change-group skeleton-proxy-new ((bash 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" n) (ksh88 sh-modify sh 16 "print" 18 "${0##*/}" 37 "OPTIND-1") (posix 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 sh-non-closing-paren n > _ v2 n > ";;" n) > "*" sh-non-closing-paren 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) (if (and (sequencep v1) (length v1)) "] " "} ") "[--] ARGS...\"" n "exit 2" > n "esac" > n "done" > n "shift " (sh-add "OPTIND" -1) n "OPTIND=1" n)) t] 11 (#$ . 94203) "*P\nP"])#@83 Remember preceding identifier for future completion and do self-insert. (fn ARG) (put 'sh-assignment 'delete-selection t) (defalias 'sh-assignment #[257 "\300!\210\301 \207" [self-insert-command sh--assignment-collect] 3 (#$ . 96577) "p"]) (make-obsolete 'sh-assignment nil "27.1") (defalias 'sh--assignment-collect #[0 "\301`Sf\302=\205\212\303\304!`\305\306!\210\307#\205\310\306!)!\207" [sh-assignment-regexp sh-remember-variable 61 re-search-forward sh-feature beginning-of-line 1 t match-string] 6]) (defalias 'sh--maybe-here-document #[0 "\302\303\304 \"\205r\212\305u\210\306 \206\307`!)?\205r\310\311 8?\205r\312\313\"\2032\314\315 \245\316\"\2023\317\320\321\317#h\322U\204B\323\324!\210c\210l\204R\325\326!\204R\327c\210\330\210\306 \203`\331\210\202U\332\261\210\212\332\320\333\317#\261)\266\202\207" [sh-here-document-word tab-width looking-back "[^<]<<[ E-]" line-beginning-position -2 sh-quoted-p sh--inside-noncommand-expression 8 syntax-ppss string-match "\\`-" make-string current-indentation 9 "" replace-regexp-in-string "['\"]" 45 delete-char -1 looking-at "[ ]" 32 1 2 10 "\\`-?[ ]*"] 8])#@129 Non-nil if Sh-Electric-Here-Document mode is enabled. Use the command `sh-electric-here-document-mode' to change this variable. (defvar sh-electric-here-document-mode nil (#$ . 97726))#@640 Make << insert a here document skeleton. This is a minor mode. If called interactively, toggle the `Sh-Electric-Here-Document mode' mode. If the prefix argument is positive, enable the mode, and if it is zero or negative, disable the mode. If called from Lisp, toggle the mode if ARG is `toggle'. Enable the mode if ARG is nil, omitted, or is a positive number. Disable the mode if ARG is a negative number. To check whether the minor mode is enabled in the current buffer, evaluate the variable `sh-electric-here-document-mode'. The mode's hook is called both when the mode is enabled and when it is disabled. (fn &optional ARG) (make-variable-buffer-local 'sh-electric-here-document-mode) (defalias 'sh-electric-here-document-mode #[256 "\302 \303=\203 ?\202\247\203\304W\203\305\202\306\307\301!\2031\310\300 \"\2031\300 B\203?\311\312\313\305\306$\210\202E\314\312\313\306#\210\315\316\203O\317\202P\320\"\210\321\322!\203s\302 \203d\211\302 \232\203s\323\324\325\203o\326\202p\327\330$\210\210\331 \207" [sh-electric-here-document-mode local-minor-modes current-message toggle 1 nil t boundp delq add-hook post-self-insert-hook sh--maybe-here-document remove-hook run-hooks sh-electric-here-document-mode-hook sh-electric-here-document-mode-on-hook sh-electric-here-document-mode-off-hook called-interactively-p any message "%s %sabled%s" "Sh-Electric-Here-Document mode" "en" "dis" " in current buffer" force-mode-line-update] 8 (#$ . 97917) (byte-code "\203\n\301!\202 \302C\207" [current-prefix-arg prefix-numeric-value toggle] 2)]) (defvar sh-electric-here-document-mode-hook nil)#@50 Move point to successive beginnings of commands. (byte-code "\301\302N\204\f\303\301\302\304#\210\303\301\305\306#\210\303\301\307\310C#\210\311\312\310\313\300!\205#\310\211%\207" [sh-electric-here-document-mode-map sh-electric-here-document-mode-hook variable-documentation put "Hook run after entering or leaving `sh-electric-here-document-mode'.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it. (This is true for all hook variables.)" custom-type hook standard-value nil add-minor-mode sh-electric-here-document-mode boundp] 6) (defalias 'sh-beginning-of-command #[0 "\301\302\303#\205 \304\224b\207" [sh-beginning-of-command re-search-backward nil t 2] 4 (#$ . 99557) nil])#@44 Move point to successive ends of commands. (defalias 'sh-end-of-command #[0 "\301\302\303#\205 \304\225b\207" [sh-end-of-command re-search-forward nil t 1] 4 (#$ . 100285) nil])#@490 Insert, align, or delete end-of-line backslashes on the lines in the region. With no argument, inserts backslashes and aligns existing backslashes. With an argument, deletes the backslashes. This function does not modify the last line of the region if the region ends right at the start of the following line; it does not modify blank lines at the start of the region. So you can put the region around an entire shell command and conveniently use this command. (fn FROM TO DELETE-FLAG) (defalias 'sh-backslash-region #[771 "\212b\210\303 \211\304\223\210 \203Q\2046`W\2036\304\210h\305U\203*\306u\210\307\304x\210iT]\262\310y\210\202\n\246\311V\203Q\n\\S\n\245\n_\211\312 W\203P\211\262\210b\210`W\203dl\203d\310y\210\202T`W\203\211\212\310y\210`W)\203\211\204\200\313!\210\202\203\314 \210\310y\210\202d\211\304\211\223)\207" [sh-backslash-column sh-backslash-align tab-width make-marker nil 92 -1 " " 1 0 window-width sh-append-backslash sh-delete-backslash] 8 (#$ . 100471) "r\nP"])#@15 (fn COLUMN) (defalias 'sh-append-backslash #[257 "\301\210h\302U\203\303u\210\304 \210\305?\205\306\"\207\305?\205!\306\"\210\307c\207" [sh-backslash-align nil 92 -1 delete-horizontal-space indent-to 1 "\\"] 4 (#$ . 101499)]) (defalias 'sh-delete-backslash #[0 "\300\210n\206\301u\210\302\303!\205`T\304\300x\210`|\207" [nil -1 looking-at "\\\\" " "] 3])#@36 Name of the shellcheck executable.#@49 Additional arguments to the shellcheck program. (byte-code "\300\301\302\303\304DD\305\306\307\310\311&\210\300\312\302\303\313DD\314\306\315\310\311&\207" [custom-declare-variable sh-shellcheck-program funcall function #[0 "\300\207" ["shellcheck"] 1 (#$ . 817)] (#$ . 101877) :type string :version "29.1" sh-shellcheck-arguments #[0 "\300\207" [nil] 1 (#$ . 817)] (#$ . 101917) (repeat string)] 8) (defvar sh--shellcheck-process nil)#@181 Flymake backend using the shellcheck program. Takes a Flymake callback REPORT-FN as argument, as expected of a member of `flymake-diagnostic-functions'. (fn REPORT-FN &rest ARGS)#@19 (fn PROC EVENT)#@13 (fn ITEM) (make-variable-buffer-local 'sh--shellcheck-process) (defalias 'sh-shellcheck-flymake #[385 "\305!\203\n\306!\210p \307\211\310\267\202\"\311!\266\203\2024\266\312\2024\205-\313\n\"\262\314\262\204 \262\315\316#\204C\317\320 \"\210\321\322\323\324\325\326\327\330\331\332!\333 \334\335\336\f\337\"BBBB\340\f&\f\214~\210\341ed#\210\342!)\207" [sh--shellcheck-process sh-shell sh-ancestor-alist sh-shellcheck-program sh-shellcheck-arguments process-live-p kill-process nil #s(hash-table test eq purecopy t data (sh 20 dash 20 bash 20 ksh88 28)) symbol-name "ksh" alist-get :recurse make-closure #[514 "\303!\304>\205>\305\306\"\216r\300q\210\n=)\204!\307\310\311\312$\202=r\313!q\210eb\210\301\314\305\315\300\"\316\317\320\321\322\323\324\"\"\"\"!))\207" [V0 V1 sh--shellcheck-process process-status (exit signal) make-closure #[0 "\301\302\300!!\207" [V0 kill-buffer process-buffer] 3] flymake--log-1 :warning sh-script "Canceling obsolete check %s" process-buffer mapcar #[257 "\301\236A\302\236A\303\236A\304\236A\305\236A\306\236A\307\236A\310\300B =\2052=?\205;B\311\267\202J\312\202K\313\202K\314\315\316#%\207" [V0 line column endLine endColumn level code message flymake-make-diagnostic #s(hash-table test equal purecopy t data ("error" 66 "warning" 70)) :error :warning :note format "SC%s: %s"] 17 (#$ . 102569)] seq-filter #[257 "\300\236A\211\301\230\207" [file "-"] 4 (#$ . 102569)] alist-get comments json-parse-buffer :object-type alist] 12 (#$ . 102546)] error "`sh-shellcheck-flymake' is not suitable for shell type `%s'" make-process :name "shellcheck" :noquery t :connection-type pipe :buffer generate-new-buffer " *flymake-shellcheck*" :command "--format=json1" "-s" append ("-") :sentinel process-send-region process-send-eof] 22 (#$ . 102361)])#@43 A list of `sh-mode' operators to fontify. (defvar sh-mode--treesit-operators '("|" "|&" "||" "&&" ">" ">>" "<" "<<" "<<-" "<<<" "==" "!=" ";&" ";;&") (#$ . 104422))#@268 Minimal list of keywords that belong to tree-sitter-bash's grammar. Some reserved words are not recognize to keep the grammar simpler. Those are identified with regex-based filtered queries. (See `sh-mode--treesit-other-keywords' and `sh-mode--treesit-settings'). (defvar sh-mode--treesit-keywords '("case" "do" "done" "elif" "else" "esac" "export" "fi" "for" "function" "if" "in" "unset" "while" "then") (#$ . 104593))#@223 Return a list `others' of key/reserved words. These words are fontified with regex-based queries as they are not part of tree-sitter-bash's grammar. See `sh-mode--treesit-other-keywords' and `sh-mode--treesit-settings'). (defalias 'sh-mode--treesit-other-keywords #[0 "\303\304 !\304\n!\"\305\211\203!\211@\211\235\204\211B\262\210A\202 \210\207" [sh-mode--treesit-keywords sh-leading-keywords sh-other-keywords append sh-feature nil] 7 (#$ . 105022)])#@35 Keywords in declaration commands. (defvar sh-mode--treesit-declaration-commands '("declare" "typeset" "export" "readonly" "local") (#$ . 105490))#@47 Tree-sitter font-lock settings for `sh-mode'. (defvar sh-mode--treesit-settings (byte-code "\305\306\307\310\311\312\306\313\310\311\314\306\315\310\311\316\306\317\310\311\320\321\322\306\323\310\311\324\306\325\310\311\326\306\327\310\311\330!\331\332\333\331\334\335\336\337\340\341 B\342BBB!\343BBEDE\306\344\310\311\345\332\346\347\334\350 !\335\336\337\340B\351BBB!\262\352BBEDD\306\353\310\311\330\n!\354B\306\355\310\311\356\306\357\310\311\330 !\360B\306\361\310\311\362\347\334\350\f!\335\336\337\340B\363BBB!\262\364BBEC\306\365\310\311\366\306\367\310\311\370\306\371\310\311\372\306\373\310\311\374&R\207" [sh-mode--treesit-keywords sh-builtins sh-mode--treesit-declaration-commands sh-mode--treesit-operators sh-variables treesit-font-lock-rules :feature comment :language bash ((comment) @font-lock-comment-face) function ((function_definition name: (word) @font-lock-function-name-face)) string ([(string) (raw_string)] @font-lock-string-face) string-interpolation :override t ((command_substitution) @sh-quoted-exec (string (expansion (variable_name) @font-lock-variable-use-face))) heredoc ([(heredoc_start) (heredoc_body)] @sh-heredoc) variable ((variable_name) @font-lock-variable-name-face) keyword vconcat @font-lock-keyword-face command_name (word) :match rx-to-string seq bol or sh-mode--treesit-other-keywords (eol) (@font-lock-keyword-face) command (command_name (word) @font-lock-function-name-face) (word) @font-lock-builtin-face sh-feature (eol) (@font-lock-builtin-face) declaration-command (@font-lock-keyword-face) constant ((case_item value: (word) @font-lock-constant-face) (file_descriptor) @font-lock-constant-face) operator (@font-lock-operator-face) builtin-variable (special_variable_name) (eol) (@font-lock-builtin-face) number (((word) @font-lock-number-face (:match "\\`[0-9]+\\'" @font-lock-number-face))) bracket ((["(" ")" "((" "))" "[" "]" "[[" "]]" "{" "}"]) @font-lock-bracket-face) delimiter (([";" ";;"]) @font-lock-delimiter-face) misc-punctuation ((["$"]) @font-lock-misc-punctuation-face)] 83) (#$ . 105641)) (provide 'sh-script)