| Current Path : /usr/share/emacs/24.3/lisp/progmodes/ |
Linux gator3171.hostgator.com 4.19.286-203.ELK.el7.x86_64 #1 SMP Wed Jun 14 04:33:55 CDT 2023 x86_64 |
| Current File : //usr/share/emacs/24.3/lisp/progmodes/dcl-mode.elc |
;ELC
;;; Compiled by mockbuild@buildfarm06-new.corp.cloudlinux.com on Fri Oct 11 10:09:22 2024
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/progmodes/dcl-mode.el
;;; in Emacs version 24.3.1
;;; with all optimizations.
;;; This file uses dynamic docstrings, first added in Emacs 19.29.
;;; This file does not contain utf-8 non-ASCII characters,
;;; and so can be loaded in Emacs versions earlier than 23.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(require 'tempo)
#@116 Font lock keyword specification for DCL mode.
Presently this includes some syntax, .OP.erators, and "f$" lexicals.
(defvar dcl-font-lock-keywords '(("\\<\\(if\\|then\\|else\\|endif\\)\\>" 1 font-lock-keyword-face) ("\\<f[$][a-z_]+\\>" 0 font-lock-builtin-face) ("[.]\\(eq\\|not\\|or\\|and\\|lt\\|gt\\|le\\|ge\\|eqs\\|nes\\)[.]" 0 font-lock-builtin-face)) (#$ . 579))
#@39 Font lock specification for DCL mode.
(defvar dcl-font-lock-defaults '(dcl-font-lock-keywords nil) (#$ . 952))
(byte-code "\300\301\302\303\304\305\306\307&\210\310\311\312\313\314\315\306\301&\210\310\316\317\320\314\315\306\301&\210\310\321\322\323\314\315\306\301&\210\310\324\325\326\314\315\306\301&\210\310\327\330\331\314\332\306\301&\210\310\333\334\335\314\332\306\301&\210\310\336\337\340\314\332\306\301&\210\310\341\302\342\314\343\306\301&\210\310\344\345\346\314\347\306\301&\210\310\350\351\352\314\353\306\301&\210\310\354\351\355\314\353\306\301&\210\310\356\357\360\314\361\306\301&\210\310\362\363\364\314\361\306\301&\210\310\365\366\367\314\361\306\301&\210\310\370\371\372\314\361\306\301&\210\310\373\374\375\314\361\306\301&\210\310\376\377\201@ \314\361\306\301&\210\310\201A \201B \201C \314\361\306\301&\210\310\201D \201E \201F \314\201G \306\301&\210\310\201H \302\201I \314\201J \306\301&\207" [custom-declare-group dcl nil "Major mode for editing DCL command files." :link (custom-group-link :tag "Font Lock Faces group" font-lock-faces) :group languages custom-declare-variable dcl-basic-offset 4 "Number of columns to indent a block in DCL.\nA block is the commands between THEN-ELSE-ENDIF and between the commands\ndcl-block-begin-regexp and dcl-block-end-regexp.\n\nThe meaning of this variable may be changed if\ndcl-calc-command-indent-function is set to a function." :type integer dcl-continuation-offset 6 "Number of columns to indent a continuation line in DCL.\nA continuation line is a line that follows a line ending with `-'.\n\nThe meaning of this variable may be changed if\ndcl-calc-cont-indent-function is set to a function." dcl-margin-offset 8 "Indentation for the first command line in DCL.\nThe first command line in a file or after a SUBROUTINE statement is indented\nthis much. Other command lines are indented the same number of columns as\nthe preceding command line.\nA command line is a line that starts with `$'." dcl-margin-label-offset 2 "Number of columns to indent a margin label in DCL.\nA margin label is a label that doesn't begin or end a block, i.e. it\ndoesn't match dcl-block-begin-regexp or dcl-block-end-regexp." dcl-comment-line-regexp "^\\$!" "Regexp describing the start of a comment line in DCL.\nComment lines are not indented." regexp dcl-block-begin-regexp "loop[0-9]*:" "Regexp describing a command that begins an indented block in DCL.\nSet to nil to only indent at THEN-ELSE-ENDIF." dcl-block-end-regexp "endloop[0-9]*:" "Regexp describing a command that ends an indented block in DCL.\nSet to nil to only indent at THEN-ELSE-ENDIF." dcl-calc-command-indent-function "Function to calculate indentation for a command line in DCL.\nIf this variable is non-nil it is called as a function:\n\n(func INDENT-TYPE CUR-INDENT EXTRA-INDENT LAST-POINT THIS-POINT)\n\nThe function must return the number of columns to indent the current line or\nnil to get the default indentation.\n\nINDENT-TYPE is a symbol indicating what kind of indentation should be done.\nIt can have the following values:\n indent the indentation should be increased, e.g., after THEN.\n outdent the indentation should be decreased, e.g., a line with ENDIF.\n first-line indentation for the first line in a buffer or SUBROUTINE.\nCUR-INDENT is the indentation of the preceding command line.\nEXTRA-INDENT is the default change in indentation for this line\n(a negative number for 'outdent).\nLAST-POINT is the buffer position of the first significant word on the\nprevious line or nil if the current line is the first line.\nTHIS-POINT is the buffer position of the first significant word on the\ncurrent line.\n\nIf this variable is nil, the indentation is calculated as\nCUR-INDENT + EXTRA-INDENT.\n\nThis package includes two functions suitable for this:\n dcl-calc-command-indent-multiple\n dcl-calc-command-indent-hang" (choice (const nil) function) dcl-calc-cont-indent-function 'dcl-calc-cont-indent-relative "Function to calculate indentation for a continuation line.\nIf this variable is non-nil it is called as a function:\n\n(func CUR-INDENT EXTRA-INDENT)\n\nThe function must return the number of columns to indent the current line or\nnil to get the default indentation.\n\nIf this variable is nil, the indentation is calculated as\nCUR-INDENT + EXTRA-INDENT.\n\nThis package includes one function suitable for this:\n dcl-calc-cont-indent-relative" function dcl-tab-always-indent t "Controls the operation of the TAB key in DCL mode.\nIf t, pressing TAB always indents the current line.\nIf nil, pressing TAB indents the current line if point is at the left margin.\nData lines (i.e. lines not part of a command line or continuation line) are\nnever indented." boolean dcl-electric-characters "Non-nil means reindent immediately when a label, ELSE or ENDIF is inserted." dcl-tempo-comma ", " "Text to insert when a comma is needed in a template, in DCL mode." string dcl-tempo-left-paren "(" "Text to insert when a left parenthesis is needed in a template in DCL." dcl-tempo-right-paren ")" "Text to insert when a right parenthesis is needed in a template in DCL." dcl-imenu-label-labels "Labels" "Imenu menu title for sub-listing with label names." dcl-imenu-label-goto "GOTO" "Imenu menu title for sub-listing with GOTO statements." dcl-imenu-label-gosub "GOSUB" "Imenu menu title for sub-listing with GOSUB statements." dcl-imenu-label-call "CALL" "Imenu menu title for sub-listing with CALL statements." dcl-imenu-generic-expression `((nil "^\\$[ ]*\\([A-Za-z0-9_$]+\\):[ ]+SUBROUTINE\\b" 1) (,dcl-imenu-label-labels "^\\$[ ]*\\([A-Za-z0-9_$]+\\):\\([ ]\\|$\\)" 1) (,dcl-imenu-label-goto "\\s-GOTO[ ]+\\([A-Za-z0-9_$]+\\)" 1) (,dcl-imenu-label-gosub "\\s-GOSUB[ ]+\\([A-Za-z0-9_$]+\\)" 1) (,dcl-imenu-label-call "\\s-CALL[ ]+\\([A-Za-z0-9_$]+\\)" 1)) "Default imenu generic expression for DCL.\n\nThe default includes SUBROUTINE labels in the main listing and\nsub-listings for other labels, CALL, GOTO and GOSUB statements.\nSee `imenu-generic-expression' for details." (repeat (sexp :tag "Imenu Expression")) dcl-mode-hook "Hook called by `dcl-mode'." hook] 8)
#@35 Syntax table used in DCL-buffers.
(defvar dcl-mode-syntax-table nil (#$ . 7129))
(byte-code "\204% \301 \302\303\304#\210\302\305\306#\210\302\307\310#\210\302\311\312#\210\302\313\314#\210\301\207" [dcl-mode-syntax-table make-syntax-table modify-syntax-entry 33 "<" 10 ">" 60 "(>" 62 ")<" 92 "_"] 4)
#@34 Keymap used in DCL-mode buffers.
(defvar dcl-mode-map (byte-code "\301 \302\303\304#\210\302\305\306#\210\302\307\310#\210\302\311\312#\210\302\313\314#\210\302\315\316#\210\302\317\320#\210\302\321\322#\210\302\323\324#\210\302\325\324#\210\302\326\324#\210\302\327\324#\210\302\330\324#\210\302\331\332#\210\302\333\334#\210\302\335\336#\210\302\337\301 #\210\302\340\341\301\341!B#\210\302\342\343#\210\302\344\345#\210\302\346\347#\210\302\350\351#\210\302\352\353#\210\302\354\355#\210\302\356\357#\210\302\360\361#\210\302\362\363#\210\302\364\365#\210\302\366\367#\210\302\370\371#\210\302\372\373#\210\302\374\375#\210\302\376\377#\210\201@ \201A !\203\354 \302\201B \201C #\210\302\201D \201E #\210)\207" [map make-sparse-keymap define-key "\n" dcl-split-line " " tempo-complete-tag "^" dcl-delete-indentation "m" dcl-back-to-indentation "e" dcl-forward-command "a" dcl-backward-command "" dcl-indent-command " " dcl-tab ":" dcl-electric-character "F" "f" "E" "e" "" dcl-set-option "" tempo-forward-mark "" tempo-backward-mark [menu-bar] [menu-bar dcl] "DCL" [menu-bar dcl tempo-backward-mark] ("Previous template mark" . tempo-backward-mark) [menu-bar dcl tempo-forward-mark] ("Next template mark" . tempo-forward-mark) [menu-bar dcl tempo-complete-tag] ("Complete template tag" . tempo-complete-tag) [menu-bar dcl dcl-separator-tempo] ("--") [menu-bar dcl dcl-save-all-options] ("Save all options" . dcl-save-all-options) [menu-bar dcl dcl-save-nondefault-options] ("Save changed options" . dcl-save-nondefault-options) [menu-bar dcl dcl-set-option] ("Set option" . dcl-set-option) [menu-bar dcl dcl-separator-option] ("--") [menu-bar dcl dcl-delete-indentation] ("Delete indentation" . dcl-delete-indentation) [menu-bar dcl dcl-split-line] ("Split line" . dcl-split-line) [menu-bar dcl dcl-indent-command] ("Indent command" . dcl-indent-command) [menu-bar dcl dcl-tab] ("Indent line/insert tab" . dcl-tab) [menu-bar dcl dcl-back-to-indentation] ("Back to indentation" . dcl-back-to-indentation) [menu-bar dcl dcl-forward-command] ("End of statement" . dcl-forward-command) [menu-bar dcl dcl-backward-command] ("Beginning of statement" . dcl-backward-command) boundp imenu-generic-expression [menu-bar dcl dcl-separator-movement] ("--") [menu-bar dcl imenu] ("Buffer index menu" . imenu)] 6) (#$ . 7443))
(byte-code "\300\301\302\303\304\305\306\307&\210\300\310\311\312\304\305\306\307&\210\300\313\314\315\304\305\306\307&\210\300\316\317\320\304\305\306\307&\210\300\321\322\323\304\324\306\307&\207" [custom-declare-variable dcl-ws-r "\\([ ]*-[ ]*\\(!.*\\)*\n\\)*[ ]*" "Regular expression describing white space in a DCL command line.\nWhite space is any number of continued lines with only space,tab,endcomment\nfollowed by space or tab." :type regexp :group dcl dcl-label-r "[a-zA-Z0-9_$]*:\\([ !]\\|$\\)" "Regular expression describing a label.\nA label is a name followed by a colon followed by white-space or end-of-line." dcl-cmd-r "^\\$\\(.*-[ ]*\\(!.*\\)*\n\\)*[^!\"\n]*\\(\".*\\(\"\".*\\)*\"\\)*[^!\"\n]*" "Regular expression describing a DCL command line up to a trailing comment.\nA line starting with $, optionally followed by continuation lines,\nfollowed by the end of the command line.\nA continuation line is any characters followed by `-',\noptionally followed by a comment, followed by a newline." dcl-command-regexp "^\\$\\(.*-[ ]*\\(!.*\\)*\n\\)*.*\\(\".*\\(\"\".*\\)*\"\\)*" "Regular expression describing a DCL command line.\nA line starting with $, optionally followed by continuation lines,\nfollowed by the end of the command line.\nA continuation line is any characters followed by `-',\noptionally followed by a comment, followed by a newline." dcl-electric-reindent-regexps (list "endif" "else" dcl-label-r) "Regexps that can trigger an electric reindent.\nA list of regexps that will trigger a reindent if the last letter\nis defined as dcl-electric-character.\n\nE.g.: if this list contains `endif', the key `f' is defined as\ndcl-electric-character and you have just typed the `f' in\n`endif', the line will be reindented." (repeat regexp)] 8)
#@254 Options and default values for dcl-set-option.
An alist with option variables and functions or keywords to get a
default value for the option.
The keywords are:
curval the current value
toggle the opposite of the current value (for t/nil)
(defvar dcl-option-alist '((dcl-basic-offset dcl-option-value-basic) (dcl-continuation-offset curval) (dcl-margin-offset dcl-option-value-margin-offset) (dcl-margin-label-offset dcl-option-value-offset) (dcl-comment-line-regexp dcl-option-value-comment-line) (dcl-block-begin-regexp curval) (dcl-block-end-regexp curval) (dcl-tab-always-indent toggle) (dcl-electric-characters toggle) (dcl-electric-reindent-regexps curval) (dcl-tempo-comma curval) (dcl-tempo-left-paren curval) (dcl-tempo-right-paren curval) (dcl-calc-command-indent-function curval) (dcl-calc-cont-indent-function curval) (comment-start curval) (comment-start-skip curval)) (#$ . 11602))
#@98 The history list for dcl-set-option.
Preloaded with all known option names from dcl-option-alist
(defvar dcl-option-history (mapcar #[(option-assoc) "\301\302@\"\207" [option-assoc format "%s"] 3] dcl-option-alist) (#$ . 12518))
(byte-code "\300\301N\204 \302\300\301\303\304!#\210\305\306!\204 \302\306\307\310#\210\300\207" [dcl-mode-hook variable-documentation put purecopy "Hook run when entering DCL mode.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it. (This is true for all hook variables.)" boundp dcl-mode-map definition-name dcl-mode] 5)
(defvar dcl-mode-map (make-sparse-keymap))
(byte-code "\300\301N\204 \302\300\301\303\304!#\210\305\306!\204 \302\306\307\310#\210\300\207" [dcl-mode-map variable-documentation put purecopy "Keymap for `dcl-mode'." boundp dcl-mode-syntax-table definition-name dcl-mode] 5)
(defvar dcl-mode-syntax-table (make-syntax-table))
(byte-code "\300\301N\204 \302\300\301\303\304!#\210\302\305\306\307#\207" [dcl-mode-syntax-table variable-documentation put purecopy "Syntax table for `dcl-mode'." dcl-mode-abbrev-table definition-name dcl-mode] 5)
(defvar dcl-mode-abbrev-table (progn (define-abbrev-table 'dcl-mode-abbrev-table nil) dcl-mode-abbrev-table))
(byte-code "\300\301N\204 \302\300\301\303\304!#\210\302\305\306\307#\207" [dcl-mode-abbrev-table variable-documentation put purecopy "Abbrev table for `dcl-mode'." dcl-mode derived-mode-parent prog-mode] 5)
#@3953 Major mode for editing DCL-files.
This mode indents command lines in blocks. (A block is commands between
THEN-ELSE-ENDIF and between lines matching dcl-block-begin-regexp and
dcl-block-end-regexp.)
Labels are indented to a fixed position unless they begin or end a block.
Whole-line comments (matching dcl-comment-line-regexp) are not indented.
Data lines are not indented.
Key bindings:
\{dcl-mode-map}
Commands not usually bound to keys:
\[dcl-save-nondefault-options] Save changed options
\[dcl-save-all-options] Save all options
\[dcl-save-option] Save any option
\[dcl-save-mode] Save buffer mode
Variables controlling indentation style and extra features:
dcl-basic-offset
Extra indentation within blocks.
dcl-continuation-offset
Extra indentation for continued lines.
dcl-margin-offset
Indentation for the first command line in a file or SUBROUTINE.
dcl-margin-label-offset
Indentation for a label.
dcl-comment-line-regexp
Lines matching this regexp will not be indented.
dcl-block-begin-regexp
dcl-block-end-regexp
Regexps that match command lines that begin and end, respectively,
a block of command lines that will be given extra indentation.
Command lines between THEN-ELSE-ENDIF are always indented; these variables
make it possible to define other places to indent.
Set to nil to disable this feature.
dcl-calc-command-indent-function
Can be set to a function that customizes indentation for command lines.
Two such functions are included in the package:
dcl-calc-command-indent-multiple
dcl-calc-command-indent-hang
dcl-calc-cont-indent-function
Can be set to a function that customizes indentation for continued lines.
One such function is included in the package:
dcl-calc-cont-indent-relative (set by default)
dcl-tab-always-indent
If t, pressing TAB always indents the current line.
If nil, pressing TAB indents the current line if point is at the left
margin.
dcl-electric-characters
Non-nil causes lines to be indented at once when a label, ELSE or ENDIF is
typed.
dcl-electric-reindent-regexps
Use this variable and function dcl-electric-character to customize
which words trigger electric indentation.
dcl-tempo-comma
dcl-tempo-left-paren
dcl-tempo-right-paren
These variables control the look of expanded templates.
dcl-imenu-generic-expression
Default value for imenu-generic-expression. The default includes
SUBROUTINE labels in the main listing and sub-listings for
other labels, CALL, GOTO and GOSUB statements.
dcl-imenu-label-labels
dcl-imenu-label-goto
dcl-imenu-label-gosub
dcl-imenu-label-call
Change the text that is used as sub-listing labels in imenu.
Loading this package calls the value of the variable
`dcl-mode-load-hook' with no args, if that value is non-nil.
Turning on DCL mode calls the value of the variable `dcl-mode-hook'
with no args, if that value is non-nil.
The following example uses the default values for all variables:
$! This is a comment line that is not indented (it matches
$! dcl-comment-line-regexp)
$! Next follows the first command line. It is indented dcl-margin-offset.
$ i = 1
$ ! Other comments are indented like command lines.
$ ! A margin label indented dcl-margin-label-offset:
$ label:
$ if i.eq.1
$ then
$ ! Lines between THEN-ELSE and ELSE-ENDIF are
$ ! indented dcl-basic-offset
$ loop1: ! This matches dcl-block-begin-regexp...
$ ! ...so this line is indented dcl-basic-offset
$ text = "This " + - ! is a continued line
"lined up with the command line"
$ type sys$input
Data lines are not indented at all.
$ endloop1: ! This matches dcl-block-end-regexp
$ endif
$
There is some minimal font-lock support (see vars
`dcl-font-lock-defaults' and `dcl-font-lock-keywords').
(defalias 'dcl-mode #[nil "\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 \2036
\321 =\203< \322\f\323 \"\210)\3247\325\"\204V 78=\204V \3267\3258C#\210\327 !\210\330\f!\21078\306\331!\210\332\306\333!\210\334\306\335!\210\336 \306\337!\210\340 \306\341!\210\342!\343\344!\203\222 9$\307:\345;\306\346!\210\306\347!\210\306\350!\210\306\351!\210\306\352!\210\306\353!\210\306\354!\210\306\355!\210\306\356!\210\306\357!\210\306\360!\210\306\361!\210\306\362!\210<2\363\364!\210)\365\366!\207" [delay-mode-hooks major-mode mode-name dcl-mode-map dcl-mode-syntax-table parent make-local-variable t prog-mode dcl-mode "DCL" 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 indent-line-function dcl-indent-line comment-start "!" comment-end "" comment-multi-line nil comment-start-skip "\\$[ ]*![ ]*" boundp imenu-generic-expression dcl-imenu-create-index-function dcl-comment-line-regexp dcl-block-begin-regexp dcl-block-end-regexp dcl-basic-offset dcl-continuation-offset dcl-margin-label-offset dcl-margin-offset dcl-tab-always-indent dcl-electric-characters dcl-calc-command-indent-function dcl-calc-cont-indent-function dcl-electric-reindent-regexps font-lock-defaults tempo-use-tag-list dcl-tempo-tags run-mode-hooks dcl-mode-hook dcl-mode-abbrev-table local-abbrev-table dcl-imenu-generic-expression imenu-case-fold-search imenu-create-index-function dcl-font-lock-defaults] 6 (#$ . 13979) nil])
#@63 Go to the beginning of the preceding or current command line.
(defalias 'dcl-beginning-of-statement #[nil "\301\302\303#\207" [dcl-command-regexp re-search-backward nil t] 4 (#$ . 19595) nil])
#@52 Go to the end of the next or current command line.
(defalias 'dcl-end-of-statement #[nil "\301 \204 \302 \204 \303 \203 \304 \210\305\306\307#\207" [dcl-command-regexp dcl-end-of-command-p dcl-beginning-of-command-p dcl-command-p dcl-beginning-of-statement re-search-forward nil t] 4 (#$ . 19795) nil])
#@45 Move point to beginning of current command.
(defalias 'dcl-beginning-of-command #[nil "\301 \211\302=\205\n n?\205 \303 )\207" [type dcl-get-line-type $ dcl-beginning-of-statement] 3 (#$ . 20108) nil])
#@75 Move point to end of current command or next command if not on a command.
(defalias 'dcl-end-of-command #[nil "\301 \211\302=\204 \303=\203 \304 \210\305 \202 \305 )\207" [type dcl-get-line-type $ - dcl-beginning-of-command dcl-end-of-statement] 3 (#$ . 20318) nil])
#@249 Move backward to a command.
Move point to the preceding command line that is not a comment line,
a command line with only a comment, only contains a `$' or only
contains a label.
Returns point of the found command line or nil if not able to move.
(defalias 'dcl-backward-command #[(&optional incl-comment-commands) "`\306\211 \204m \307 \203c \203# \310\311\f Q!\203# \312`\202
\2037 \310\311\f
Q!\2037 \312`\202 \310!\204 \204I \310\313!\204 \310\314!\204 \310\311\f\f\315\260!\204 \312`\202 \nb\210\312\306\202 +\207" [retval done start dcl-block-begin-regexp dcl-ws-r dcl-block-end-regexp nil dcl-beginning-of-statement looking-at "^\\$" t "\\$[ ]*!" "^\\$[ ]*$" "$" dcl-comment-line-regexp incl-comment-commands dcl-label-r] 6 (#$ . 20597) nil])
#@254 Move forward to a command.
Move point to the end of the next command line that is not a comment line,
a command line with only a comment, only contains a `$' or only
contains a label.
Returns point of the found command line or nil if not able to move.
(defalias 'dcl-forward-command #[(&optional incl-comment-commands) "`\306\211 \204r \307 \203h \212\310 \210 \203' \311\312\f Q!\203' \313`\202d
\203; \311\312\f
Q!\203; \313`\202d \311!\204d \204M \311\314!\204d \311\315!\204d \311\312\f\f\316\260!\204d \313`)\202 \nb\210\313\306\202 +\207" [retval done start dcl-block-begin-regexp dcl-ws-r dcl-block-end-regexp nil dcl-end-of-statement dcl-beginning-of-statement looking-at "^\\$" t "\\$[ ]*!" "^\\$[ ]*$" "$" dcl-comment-line-regexp incl-comment-commands dcl-label-r] 6 (#$ . 21386) nil])
#@527 Move point to the first non-whitespace character on this line.
Leading $ and labels counts as whitespace in this case.
If this is a comment line then move to the first non-whitespace character
in the comment.
Typing \[dcl-back-to-indentation] several times in a row will move point to other
`interesting' points closer to the left margin, and then back to the
rightmost point again.
E.g. on the following line, point would go to the positions indicated
by the numbers in order 1-2-3-1-... :
$ label: command
3 2 1
(defalias 'dcl-back-to-indentation #[nil "\301=\203\n \302`!\207\302 \207" [last-command dcl-back-to-indentation dcl-back-to-indentation-1] 2 (#$ . 22214) nil])
#@45 Helper function for dcl-back-to-indentation
(defalias 'dcl-back-to-indentation-1 #[(&optional limit) "\306 T \206 ``\307 \210` U\203 ` W\203! `\310\f!\203: \311\f\312P \313#\210` W\203\220 `\202\220 \310\314!\203\220 \311\314 \313#\210` W\203N `\310
!\203t \203` \310!\204t \203l \310!\204t \311
\312P \313#\210` W\203| `\310\315!\203\210 \311\315 \313#\210` W\203\220 `\nb,\207" [default-limit limit last-good-point opoint dcl-comment-line-regexp dcl-label-r line-end-position back-to-indentation looking-at re-search-forward "[ ]*" t "^\\$[ ]*" "![ ]*" dcl-block-begin-regexp dcl-block-end-regexp] 4 (#$ . 22908)])
#@363 Determine the type of the current line.
Returns one of the following symbols:
$ for a complete command line or the beginning of a command line.
- for a continuation line
$! for a comment line
data for a data line
empty-data for an empty line following a data line
empty-$ for an empty line following a command line
(defalias 'dcl-get-line-type #[nil "\212\304 \210\305!\205 \306)\206x \212\304 \210\305\307!\205 \310)\206x \212\304 \210o?\205: `\311 \210\312\n \313#\210` Y\2059 \314))\206x \212n\205s l\205s o\203O \315\202s \316y\210\317 \211\310\232\204g \306\232\204g \314\232\203k \315\202r \320\232\205r \321))\206x \320\207" [dcl-comment-line-regexp opoint dcl-command-regexp type beginning-of-line looking-at $! "^\\$" $ dcl-beginning-of-statement re-search-forward t - empty-$ -1 dcl-get-line-type data empty-data] 5 (#$ . 23557)])
#@54 Return point of first non-`whitespace' on this line.
(defalias 'dcl-indentation-point #[nil "\212\300 \210`)\207" [dcl-back-to-indentation] 1 (#$ . 24459)])
#@25 Test dcl-get-line-type.
(defalias 'dcl-show-line-type #[nil "\301 \211\302\232\203 \303\304!\202Z \305\232\203 \303\306!\202Z \307\232\203' \303\310!\202Z \311\232\2033 \303\312!\202Z \313\232\203? \303\314!\202Z \315\232\203K \303\316!\202Z \317\232\203W \303\320!\202Z \303\321!)\207" [type dcl-get-line-type $ message "command line" \? "?" $! "comment line" - "continuation line" data "data" empty-data "empty-data" empty-$ "empty-$" "hupp"] 3 (#$ . 24622) nil])
#@470 Indent lines to a multiple of dcl-basic-offset.
Set dcl-calc-command-indent-function to this function to customize
indentation of command lines.
Command lines that need to be indented beyond the left margin are
always indented to a column that is a multiple of dcl-basic-offset, as
if tab stops were set at 4, 8, 12, etc.
This supports a formatting style like this (dcl-margin offset = 2,
dcl-basic-offset = 4):
$ if cond
$ then
$ if cond
$ then
$ ! etc
(defalias 'dcl-calc-command-indent-multiple #[(indent-type cur-indent extra-indent _last-point _this-point) "\305 \300\232\205 \n\211 \246Z\211\f\\\211)\207" [indent indent-type cur-indent dcl-basic-offset extra-indent nil] 4 (#$ . 25104)])
#@410 Indent lines as default, but indent THEN, ELSE and ENDIF extra.
Set dcl-calc-command-indent-function to this function to customize
indentation of command lines.
This function supports a formatting style like this:
$ if cond
$ then
$ xxx
$ endif
$ xxx
If you use this function you will probably want to add "then" to
dcl-electric-reindent-regexps and define the key "n" as
dcl-electric-character.
(defalias 'dcl-calc-command-indent-hang #[(indent-type cur-indent extra-indent last-point this-point) "\306\212 \204) \nb\210\307\310!\203 \311 \f\312#\206p
b\210\307\313!\205p \f\\\312Z\202p \314\232\203N
b\210\307\310!\203@ \f\\\312Z\202p \307\315!\205p \f\\\312Z\202p \316\232\205p \nb\210\307\313!\203e \311 \f\312#\202p \307\315!\205p \311 \f\312#*\207" [case-fold-search indent-type this-point cur-indent extra-indent last-point t looking-at "\\bthen\\b" + 2 "\\bendif\\b" indent "\\belse\\b" outdent] 4 (#$ . 25825)])
#@1836 Calculate how much the current line shall be indented.
The line is known to be a command line.
Find the indentation of the preceding line and analyze its contents to
see if the current lines should be indented.
Analyze the current line to see if it should be `outdented'.
Calculate the indentation of the current line, either with the default
method or by calling dcl-calc-command-indent-function if it is
non-nil.
If the current line should be outdented, calculate its indentation,
either with the default method or by calling
dcl-calc-command-indent-function if it is non-nil.
Rules for default indentation:
If it is the first line in the buffer, indent dcl-margin-offset.
Go to the previous command line with a command on it.
Find out how much it is indented (cur-indent).
Look at the first word on the line to see if the indentation should be
adjusted. Skip margin-label, continuations and comments while looking for
the first word. Save this buffer position as `last-point'.
If the first word after a label is SUBROUTINE, set extra-indent to
dcl-margin-offset.
First word extra-indent
THEN +dcl-basic-offset
ELSE +dcl-basic-offset
block-begin +dcl-basic-offset
Then return to the current line and look at the first word to see if the
indentation should be adjusted again. Save this buffer position as
`this-point'.
First word extra-indent
ELSE -dcl-basic-offset
ENDIF -dcl-basic-offset
block-end -dcl-basic-offset
If dcl-calc-command-indent-function is nil or returns nil set
cur-indent to cur-indent+extra-indent.
If an extra adjustment is necessary and if
dcl-calc-command-indent-function is nil or returns nil set cur-indent
to cur-indent+extra-indent.
See also documentation for dcl-calc-command-indent-function.
The indent-type classification could probably be expanded upon.
(defalias 'dcl-calc-command-indent #[nil "\212\306 \210\307\310\307\311\307\211\211\211\211\211 o\203/ \311 \312\313 \202 \212\307 !!\204\240 \314 \203\222 \"\203V \315\316#\"Q!\203V \310\211! \2023 $\203o \315\316#$Q!\203o \310\211! \2023 \315%!\2043 \315\317!\2043 \315\316#&#\320\260!\2043 \310\211!\2025 \313 \310\211!\2038 \204\n\315\321&#\322R!\203\274 \323\224T\202\n \203\310 \324\321!\210\202\320 \324\325&\326Q!\210i \324#!\210`\315\327!\203\351 ' \330\202\n\315\331!\203\370 ' \330\202\n\"\203\n\315\"!\203\n' \330*\311\324\316#P!\210\313 \315\331!\203&'[\332\202`\315\333!\2035'[\332\202`$\203J\315$!\203J'[\332\202`\315&#\322Q!\203`\311 \312\323\224T(\203r(
\f %\206w \\ \203\231 \204\204 (\203\224( \n\f %\206\227 \n\\ . \207" [indent-type2 cur-indent2 extra-indent2 this-point last-point indent-type beginning-of-line nil t 0 first-line dcl-indentation-point dcl-beginning-of-statement looking-at "^\\$" "^\\$[ ]*$" "$" "^\\$[ ]*" "\\(subroutine\\b\\)" 1 re-search-forward "^\\$[ ]*\\(" "\\)*[ ]*" "\\bthen\\b" indent "\\belse\\b" outdent "\\bendif\\b" extra-indent cur-indent case-fold-search is-block dcl-margin-offset done dcl-block-begin-regexp dcl-ws-r dcl-block-end-regexp dcl-comment-line-regexp dcl-label-r dcl-basic-offset dcl-calc-command-indent-function] 11 (#$ . 26776)])
#@661 Indent continuation lines to align with words on previous line.
Indent continuation lines to a position relative to preceding
significant command line elements.
Set `dcl-calc-cont-indent-function' to this function to customize
indentation of continuation lines.
Indented lines will align with either:
* the second word on the command line
$ set default -
[-]
* the word after an assignment
$ a = b + -
d
* the third word if it's a qualifier
$ set terminal/width=80 -
/page=24
* the innermost nonclosed parenthesis
$ if ((a.eq.b .and. -
d.eq.c .or. f$function(xxxx, -
yyy)))
(defalias 'dcl-calc-cont-indent-relative #[(_cur-indent _extra-indent) "\306\307\212\310 \210\212\311y\210`)\312\313 \314Q\n\306#\203P \315\nw\316V\203P \307 \317\nw\210\320\321!\2034 \306\322\nw\210i\f\204O \323\nw\316V\203O \317\nw\210`f\324U\203O i)*\212\325 \210\212\310 \210`) \306 \326
`\"A@\211 \203t \212b\210iT),*\207" [indent case-fold-search end dcl-label-r was-assignment start t nil dcl-beginning-of-statement 1 re-search-forward "^\\$[ ]*\\(" "\\)*[ ]*" "@:[]<>$\\-a-zA-Z0-9_.;" 0 " " looking-at ":?==?" " :=" "a-zA-Z0-9_" 47 beginning-of-line parse-partial-sexp parse-sexp-ignore-comments par-pos] 5 (#$ . 30050)])
#@169 Calculate how much the current line shall be indented.
The line is known to be a continuation line.
Go to the previous command line.
Find out how much it is indented.
(defalias 'dcl-calc-continuation-indent #[nil "\212\306 \210o\203\f \202\233 \307\211\212\307 \204n \310 \203f \f\2030 \311\312
\fQ!\2030 \313\211\202 \203F \311\312
Q!\203F \313\211\202 \311!\204 \311\314!\204 \311\312
\315\260!\204 \313\211\202 \313\211\203 \204\207 \n\203} \316\317!\210\202\205 \316\320\321Q!\210i*\203\226 \"\206\232 \\*)\207" [dcl-margin-offset indent is-block done dcl-block-begin-regexp dcl-ws-r beginning-of-line nil dcl-beginning-of-statement looking-at "^\\$" t "^\\$[ ]*$" "$" re-search-forward "^\\$[ ]*" "^\\$[ ]*\\(" "\\)*[ ]*" dcl-block-end-regexp dcl-comment-line-regexp dcl-label-r dcl-calc-cont-indent-function dcl-continuation-offset] 7 (#$ . 31363)])
#@43 Indent a line known to be a command line.
(defalias 'dcl-indent-command-line #[nil "\306 d`Z\212\307 \210\310\311!\210\n\2035 \312 !\2035 \f\203# \312\f!\2045
\203- \312
!\2045 \313\n!\210\310 !\210\313 \314\"\210)dZ`V\205G dZb*\207" [pos indent dcl-margin-label-offset dcl-label-r dcl-block-begin-regexp dcl-block-end-regexp dcl-calc-command-indent beginning-of-line re-search-forward "^\\$[ ]*" looking-at dcl-indent-to 1] 3 (#$ . 32273)])
#@187 Indent a line known to be a continuation line.
Notice that no special treatment is made for labels. They have to be
on the first part on a command line to be taken into consideration.
(defalias 'dcl-indent-continuation-line #[nil "\301 \212\302 \210\303\304!\210\305!\210)\306\307w)\207" [indent dcl-calc-continuation-indent beginning-of-line re-search-forward "^[ ]*" dcl-indent-to " " nil] 2 (#$ . 32728)])
#@54 Delete all characters in the set CHARS around point.
(defalias 'dcl-delete-chars #[(chars) "\301x\210`\301w\210`|\207" [chars nil] 3 (#$ . 33149)])
#@115 The DCL version of `indent-line-function'.
Adjusts indentation on the current line. Data lines are not indented.
(defalias 'dcl-indent-line #[nil "\301 \211\302\232\203 \303 \202H \304\232\203 \305\306!\202H \307\232\206H \310\232\206H \311\232\206H \312\232\2037 \313 \202H \314\232\203E \315c\210\303 \202H \305\316!)\207" [type dcl-get-line-type $ dcl-indent-command-line \? message "Unknown line type!" $! data empty-data - dcl-indent-continuation-line empty-$ "$" "dcl-indent-line: unknown type"] 3 (#$ . 33306)])
#@87 Indents the complete command line that point is on.
This includes continuation lines.
(defalias 'dcl-indent-command #[nil "\301 \211\302\232\204 \303\232\204 \304\232\205( \212\305\306\307!\204 \310 \210`\311 \210`\312#))\207" [type dcl-get-line-type $ - empty-$ indent-region looking-at "^\\$" dcl-beginning-of-statement dcl-end-of-statement nil] 5 (#$ . 33841) "*"])
#@228 Insert tab in data lines or indent code.
If `dcl-tab-always-indent' is t, code lines are always indented.
If nil, indent the current line only if point is at the left margin or in
the lines indentation; otherwise insert a tab.
(defalias 'dcl-tab #[nil "\304 `\211\305\232\204 \306\232\203 \307 \202F \n\204> \212\310 \210\311\312\313#)n\2043 \2038 Y\2038 \314 \202: \307 )\202F \n\313=\205F \314 *\207" [start-point type dcl-tab-always-indent search-end-point dcl-get-line-type data empty-data tab-to-tab-stop beginning-of-line re-search-forward "^\\$?[ ]*" t dcl-indent-line] 5 (#$ . 34223) "*"])
#@323 Inserts a character and indents if necessary.
Insert a character if the user gave a numeric argument or the flag
`dcl-electric-characters' is not set. If an argument was given,
insert that many characters.
The line is only reindented if the word just typed matches any of the
regexps in `dcl-electric-reindent-regexps'.
(defalias 'dcl-electric-character #[(arg) "\204 \204 \203 \304\305!!\207\304\306!\207\304\306!\210\307\211\310\311 \">\205' \312 )\207" [arg dcl-electric-characters case-fold-search dcl-electric-reindent-regexps self-insert-command prefix-numeric-value 1 t mapcar dcl-was-looking-at dcl-indent-line] 5 (#$ . 34839) "*P"])
#@62 Like indent-to, but only indents if indentation would change
(defalias 'dcl-indent-to #[(col &optional minimum) "\305\211\211\212\306\305w\210i\306\305x\210i) \f\206 \307\\]\211\nU?\205- \310\306!\210\311 \f\"+\207" [indent collapsed cur-indent col minimum nil " " 0 dcl-delete-chars indent-to] 4 (#$ . 35497) nil])
#@121 Break line at point and insert text to keep the syntax valid.
Inserts continuation marks and splits character strings.
(defalias 'dcl-split-line #[nil "\303\304 \305\232\204 \306\232\203q \307\212\310 \210`)`\"\311\n8\203, \312c\210\313 \210\314\202p \315\n8\204p l\204V `f\316U\203V `Sf\316U\203V \317u\210\312c\210\320u\210\313 \210\314\202p \321\322!\203b \323\324!\204p \325 \210\326c\210\327c\210\313 \210\314) ?\205x \330 *\207" [type done info nil dcl-get-line-type $ - parse-partial-sexp dcl-beginning-of-statement 3 "\" + -\n\"" indent-according-to-mode t 4 34 -1 1 dcl-was-looking-at "[ ]*-[ ]*" looking-at "[ ]*\\(!.*\\)?$" delete-horizontal-space " -" "\n" indent-new-comment-line] 3 (#$ . 35829) "*"])
#@107 Join this line to previous like delete-indentation.
Also remove the continuation mark if easily detected.
(defalias 'dcl-delete-indentation #[(&optional arg) "\302!\210\303 \211\304\235\205 o?\205 `Sf\305U\205 \306\307!\210\310 )\207" [arg type delete-indentation dcl-get-line-type ($ - empty-$) 45 delete-char -1 fixup-whitespace] 3 (#$ . 36564) "*P"])
#@33 Guess a value for basic-offset.
(defalias 'dcl-option-value-basic #[(_option-assoc) "\212\305 \210\212\306 \210i)\212\307 \205 \306 \210i)\212\310 \210\311 \205' \305 \210\306 \210i) \2052 \312 Z!\211\203A \313U\204A \202V \n\203U \nZ\313U\204U \312\nZ!\202V \f-\207" [this-indent prev-indent next-indent diff dcl-basic-offset dcl-beginning-of-command dcl-back-to-indentation dcl-backward-command dcl-end-of-command dcl-forward-command abs 0] 4 (#$ . 36929)])
#@119 Guess a value for an offset.
Find the column of the first non-blank character on the line.
Returns the column offset.
(defalias 'dcl-option-value-offset #[(_option-assoc) "\212\300 \210\301\302\303\304#\210i)\207" [beginning-of-line re-search-forward "^$[ ]*" nil t] 4 (#$ . 37406)])
#@147 Guess a value for margin offset.
Find the column of the first non-blank character on the line, not
counting labels.
Returns a number as a string.
(defalias 'dcl-option-value-margin-offset #[(_option-assoc) "\212\300 \210\301 \210i)\207" [beginning-of-line dcl-back-to-indentation] 1 (#$ . 37698)])
#@68 Guess a value for `dcl-comment-line-regexp'.
Must return a string.
(defalias 'dcl-option-value-comment-line #[(_option-assoc) "\302\303\212\304 \210\305\306!\203 \307\224\307\225{\310\311!P)\202 )\"\207" [regexp dcl-comment-line-regexp format "%S" beginning-of-line looking-at "^\\$[^!\n]*!" 0 "^" regexp-quote] 5 (#$ . 38002)])
#@65 Guess what value the user would like to give the symbol option.
(defalias 'dcl-guess-option-value #[(option) "\305 \"\211@\nA@\306 !\203 \n!\202D \307=\203% \310!?\202D \311=\205D J;\2047 J\247\203? \312\313J\"\202D \312\314J\"\211 ;\203N \f\202R \312\313\f\",\207" [option dcl-option-alist option-assoc action value assoc fboundp toggle eval curval format "%S" "'%S"] 4 (#$ . 38342)])
#@125 Guess what option the user wants to set by looking around in the code.
Returns the name of the option variable as a string.
(defalias 'dcl-guess-option #[nil "\306\307 \310=\203
\311\202\330 \212\312 \210\313\314!)\203 \315\202\330 \212\312 \210\313\316 \n\317R!\2060 \212\320\306!)?)\2038 \321\202\330 \212\312 \210\307 \322=\205O \320 \205O \313\316 \n\317R!)\203W \321\202\330 \212\312 \210\313\316 P!\205z \205l \313\316 P!?\205z \f\205y \313\316\fP!?)\203\202 \323\202\330 \307 \322=\203\327 \212\312 \210\212\324 \210i) \212\320 \205\236 \324 \210i) \212\325 \210\326 \205\261 \327 \210\324 \210i) \203\303
Z\330U?\206\317 \205\317
Z\330U?,\203\327 \331\202\330 \332)\207" [case-fold-search dcl-label-r dcl-ws-r dcl-block-begin-regexp dcl-block-end-regexp this-indent t dcl-get-line-type - "dcl-calc-cont-indent-function" beginning-of-line looking-at "^\\$[ ]*!" "dcl-comment-line-regexp" "^\\$[ ]*" "subroutine" dcl-backward-command "dcl-margin-offset" $ "dcl-margin-label-offset" dcl-back-to-indentation dcl-end-of-command dcl-forward-command dcl-beginning-of-command 0 "dcl-basic-offset" "" prev-indent next-indent] 5 (#$ . 38748)])
#@206 Set a value for one of the dcl customization variables.
The function tries to guess which variable should be set and to what value.
All variable names are available as completions and in the history list.
(defalias 'dcl-set-option #[(option-sym option-value) " L\207" [option-sym option-value] 2 (#$ . 39915) (let* ((option-sym (intern (completing-read "Set DCL option: " (mapcar #'(lambda (option-assoc) (cons (format "%s" (car option-assoc)) nil)) dcl-option-alist) nil t (dcl-guess-option) 'dcl-option-history))) (option-value (eval-minibuffer (format "Set DCL option %s to: " option-sym) (dcl-guess-option-value option-sym)))) (list option-sym option-value))])
#@125 Save a variable in a `Local Variables' list.
Set or update the value of VAR in the current buffers
`Local Variables:' list.
(defalias 'dcl-save-local-variable #[(var &optional def-prefix def-suffix) "\212db\210\306\307d\310Ze]\311#\210\312\313\314\315\312#)\203\312\315\211\211\211\211\211 - .\316\315w\210l\2046 `\317 {\320\224b\210n\204E `\321 \210`{\n\203Q \nG\322\n!- \203[ \322 !\323P.\205/\203l \324\325!\210\202o \326y\210-\203\205 \327-!\203\201
u\210\202\205 \330\331!\210\316\315w\210`\332\315w\210l\203\227 \330\333!\210\316\315x\210 `{ 0\3340! 10\227\335\230\203\312 \315.\321 \210\n\3362!\337\340\3412!!\342 \343\260c\210\20221=\203\f\315.\344\315w\210\326u\210`\334p!\210`|\210\342c\210\345\3412!p\"\210\343\315x\210\316\315w\210\f\203\327\f!\202l\204\330\346!\210\202\315\210*\202[ .\202\230db\210n\204\"\343c\2103\203,3\202I4\205I4\347\232\204@\350\3514\"\203E4\202I4\342P5\203S5\202p6\205p6\347\232\204g\350\3526\"\203l6\202p\3426P 5\211 3\3535\343Rc\2103\3362!\337\340\3412!!5\343\260c\2103\3545Qc*)\207" [case-fold-search suffix-string prefix-string beg suffix prefixlen search-backward "\n\f" 3000 move t search-forward "Local Variables:" nil " " line-end-position 0 beginning-of-line regexp-quote "$" re-search-forward "[\n
]" 1 looking-at error "Local variables entry is missing the prefix" "^:\n" "Missing colon in local variables entry" read "end" symbol-name ": " prin1-to-string eval " " "\n" "^:" prin1 "Local variables entry is terminated incorrectly" "" string-match "[ ]$" "^[ ]" "Local variables:" "end:" prefix continue selective-display str found-var var def-prefix comment-start def-suffix comment-end] 8 (#$ . 40588)])
#@156 Save all dcl-mode options for this buffer.
Saves or updates all dcl-mode related options in a `Local Variables:'
section at the end of the current buffer.
(defalias 'dcl-save-all-options #[nil "\301\302\"\207" [dcl-option-alist mapcar #[(option-assoc) "@\302 \303\")\207" [option-assoc option dcl-save-local-variable "$! "] 3]] 3 (#$ . 42332) "*"])
#@480 Save changed DCL mode options for this buffer.
Saves or updates all DCL mode related options that don't have their
default values in a `Local Variables:' section at the end of the
current buffer.
No entries are removed from the `Local Variables:' section. This means
that if a variable is given a non-default value in the section and
later is manually reset to its default value, the variable's entry will
still be present in the `Local Variables:' section with its old value.
(defalias 'dcl-save-nondefault-options #[nil "\301\302\"\207" [dcl-option-alist mapcar #[(option-assoc) "@\303 !\211\304\305O\306\230\205 \307 !\310 !\232?\205 \311 \312\"*\207" [option-assoc option option-name symbol-name 0 4 "dcl-" default-value eval dcl-save-local-variable "$! "] 4]] 3 (#$ . 42691) "*"])
#@134 Save a DCL mode option for this buffer.
Saves or updates an option in a `Local Variables:'
section at the end of the current buffer.
(defalias 'dcl-save-option #[(option) "\301!\207" [option dcl-save-local-variable] 2 (#$ . 43492) (let ((option (intern (completing-read "Option: " obarray)))) (list option))])
#@128 Save the current mode for this buffer.
Save the current mode in a `Local Variables:'
section at the end of the current buffer.
(defalias 'dcl-save-mode #[nil "\302!\303\304 \"\203 \305 \306\211\224O!\307\301!)\202 \310\311 \")\207" [major-mode mode prin1-to-string string-match "-mode$" intern 0 dcl-save-option message "Strange mode: %s"] 4 (#$ . 43810) nil])
#@26 Tempo tags for DCL mode.
(defvar dcl-tempo-tags nil (#$ . 44182))
(byte-code "\300\301\302\303\304\305%\210\300\306\307\310\304\305%\210\300\311\312\313\304\305%\210\300\314\315\316\304\305%\210\300\317\320\321\304\305%\210\300\322\323\324\304\305%\210\300\325\326\327\304\305%\210\300\330\331\332\304\305%\210\300\333\334\335\304\305%\210\300\336\337\340\304\305%\210\300\341\342\343\304\305%\210\300\344\345\346\304\305%\210\300\347\350\351\304\305%\210\300\352\353\354\304\305%\210\300\355\356\357\304\305%\210\300\360\361\362\304\305%\210\300\363\364\365\304\305%\210\300\366\367\370\304\305%\210\300\371\372\373\304\305%\210\300\374\375\376\304\305%\210\300\377\201@ \201A \304\305%\210\300\201B \201C \201D \304\305%\210\300\201E \201F \201G \304\305%\210\300\201H \201I \201J \304\305%\210\300\201K \201L \201M \304\305%\210\300\201N \201O \201P \304\305%\210\300\201Q \201R \201S \304\305%\210\300\201T \201U \201V \304\305%\210\300\201W \201X \201Y \304\305%\210\300\201Z \201[ \201\\ \304\305%\210\300\201] \201^ \201_ \304\305%\210\300\201` \201a \201b \304\305%\210\300\201c \201d \201e \304\305%\210\300\201f \201g \201h \304\305%\210\300\201i \201j \201k \304\305%\207" [tempo-define-template "dcl-f$context" ("f$context" dcl-tempo-left-paren (p "context-type: ") dcl-tempo-comma (p "context-symbol: ") dcl-tempo-comma (p "selection-item: ") dcl-tempo-comma (p "selection-value: ") dcl-tempo-comma (p "value-qualifier: ") dcl-tempo-right-paren) "f$context" "" dcl-tempo-tags "dcl-f$csid" ("f$csid" dcl-tempo-left-paren (p "context-symbol: ") dcl-tempo-right-paren) "f$csid" "dcl-f$cvsi" ("f$cvsi" dcl-tempo-left-paren (p "start-bit: ") dcl-tempo-comma (p "number-of-bits: ") dcl-tempo-comma (p "string: ") dcl-tempo-right-paren) "f$cvsi" "dcl-f$cvtime" ("f$cvtime" dcl-tempo-left-paren (p "[input_time]: ") dcl-tempo-comma (p "[output_time_format]: ") dcl-tempo-comma (p "[output_field]: ") dcl-tempo-right-paren) "f$cvtime" "dcl-f$cvui" ("f$cvui" dcl-tempo-left-paren (p "start-bit: ") dcl-tempo-comma (p "number-of-bits: ") dcl-tempo-comma (p "string") dcl-tempo-right-paren) "f$cvui" "dcl-f$device" ("f$device" dcl-tempo-left-paren (p "[search_devnam]: ") dcl-tempo-comma (p "[devclass]: ") dcl-tempo-comma (p "[devtype]: ") dcl-tempo-comma (p "[stream-id]: ") dcl-tempo-right-paren) "f$device" "dcl-f$directory" ("f$directory" dcl-tempo-left-paren dcl-tempo-right-paren) "f$directory" "dcl-f$edit" ("f$edit" dcl-tempo-left-paren (p "string: ") dcl-tempo-comma (p "edit-list: ") dcl-tempo-right-paren) "f$edit" "dcl-f$element" ("f$element" dcl-tempo-left-paren (p "element-number: ") dcl-tempo-comma (p "delimiter: ") dcl-tempo-comma (p "string: ") dcl-tempo-right-paren) "f$element" "dcl-f$environment" ("f$environment" dcl-tempo-left-paren (p "item: ") dcl-tempo-right-paren) "f$environment" "dcl-f$extract" ("f$extract" dcl-tempo-left-paren (p "start: ") dcl-tempo-comma (p "length: ") dcl-tempo-comma (p "string: ") dcl-tempo-right-paren) "f$extract" "dcl-f$fao" ("f$fao" dcl-tempo-left-paren (p "control-string: ") dcl-tempo-comma ("argument[,...]: ") dcl-tempo-right-paren) "f$fao" "dcl-f$file_attributes" ("f$file_attributes" dcl-tempo-left-paren (p "filespec: ") dcl-tempo-comma (p "item: ") dcl-tempo-right-paren) "f$file_attributes" "dcl-f$getdvi" ("f$getdvi" dcl-tempo-left-paren (p "device-name: ") dcl-tempo-comma (p "item: ") dcl-tempo-right-paren) "f$getdvi" "dcl-f$getjpi" ("f$getjpi" dcl-tempo-left-paren (p "pid: ") dcl-tempo-comma (p "item: ") dcl-tempo-right-paren) "f$getjpi" "dcl-f$getqui" ("f$getqui" dcl-tempo-left-paren (p "function: ") dcl-tempo-comma (p "[item]: ") dcl-tempo-comma (p "[object-id]: ") dcl-tempo-comma (p "[flags]: ") dcl-tempo-right-paren) "f$getqui" "dcl-f$getsyi" ("f$getsyi" dcl-tempo-left-paren (p "item: ") dcl-tempo-comma (p "[node-name]: ") dcl-tempo-comma (p "[cluster-id]: ") dcl-tempo-right-paren) "f$getsyi" "dcl-f$identifier" ("f$identifier" dcl-tempo-left-paren (p "identifier: ") dcl-tempo-comma (p "conversion-type: ") dcl-tempo-right-paren) "f$identifier" "dcl-f$integer" ("f$integer" dcl-tempo-left-paren (p "expression: ") dcl-tempo-right-paren) "f$integer" "dcl-f$length" ("f$length" dcl-tempo-left-paren (p "string: ") dcl-tempo-right-paren) "f$length" "dcl-f$locate" ("f$locate" dcl-tempo-left-paren (p "substring: ") dcl-tempo-comma (p "string: ") dcl-tempo-right-paren) "f$locate" "dcl-f$message" ("f$message" dcl-tempo-left-paren (p "status-code: ") dcl-tempo-right-paren) "f$message" "dcl-f$mode" ("f$mode" dcl-tempo-left-paren dcl-tempo-right-paren) "f$mode" "dcl-f$parse" ("f$parse" dcl-tempo-left-paren (p "filespec: ") dcl-tempo-comma (p "[default-spec]: ") dcl-tempo-comma (p "[related-spec]: ") dcl-tempo-comma (p "[field]: ") dcl-tempo-comma (p "[parse-type]: ") dcl-tempo-right-paren) "f$parse" "dcl-f$pid" ("f$pid" dcl-tempo-left-paren (p "context-symbol: ") dcl-tempo-right-paren) "f$pid" "dcl-f$privilege" ("f$privilege" dcl-tempo-left-paren (p "priv-states: ") dcl-tempo-right-paren) "f$privilege" "dcl-f$process" ("f$process()") "f$process" "dcl-f$search" ("f$search" dcl-tempo-left-paren (p "filespec: ") dcl-tempo-comma (p "[stream-id]: ") dcl-tempo-right-paren) "f$search" "dcl-f$setprv" ("f$setprv" dcl-tempo-left-paren (p "priv-states: ") dcl-tempo-right-paren) "f$setprv" "dcl-f$string" ("f$string" dcl-tempo-left-paren (p "expression: ") dcl-tempo-right-paren) "f$string" "dcl-f$time" ("f$time" dcl-tempo-left-paren dcl-tempo-right-paren) "f$time" "dcl-f$trnlnm" ("f$trnlnm" dcl-tempo-left-paren (p "logical-name: ") dcl-tempo-comma (p "[table]: ") dcl-tempo-comma (p "[index]: ") dcl-tempo-comma (p "[mode]: ") dcl-tempo-comma (p "[case]: ") dcl-tempo-comma (p "[item]: ") dcl-tempo-right-paren) "f$trnlnm" "dcl-f$type" ("f$type" dcl-tempo-left-paren (p "symbol-name: ") dcl-tempo-right-paren) "f$type" "dcl-f$user" ("f$user" dcl-tempo-left-paren dcl-tempo-right-paren) "f$user" "dcl-f$verify" ("f$verify" dcl-tempo-left-paren (p "[procedure-value]: ") dcl-tempo-comma (p "[image-value]: ") dcl-tempo-right-paren) "f$verify"] 6)
#@75 Return t if point is at the beginning of a command.
Otherwise return nil.
(defalias 'dcl-beginning-of-command-p #[nil "n\205 \300 \301=\207" [dcl-get-line-type $] 2 (#$ . 50224)])
#@188 Check if point is at the end of a command.
Return t if point is at the end of a command, either the end of an
only line or at the end of the last continuation line.
Otherwise return nil.
(defalias 'dcl-end-of-command-p #[nil "\301 l\205 \302=\204 \303=\205 \212\304y\210\301 )\303=?)\207" [type dcl-get-line-type $ - nil] 2 (#$ . 50412)])
#@123 Check if point is on a command line.
Return t if point is on a command line or a continuation line,
otherwise return nil.
(defalias 'dcl-command-p #[nil "\301 \211\302=\206\f \303=)\207" [type dcl-get-line-type $ -] 3 (#$ . 50764)])
(defalias 'dcl-was-looking-at #[(regexp) "\212`\303\304\305# \205 \n\304\225\232+\207" [regexp found start re-search-backward 0 t] 5])
#@59 Jacket routine to make imenu searches non case sensitive.
(defalias 'dcl-imenu-create-index-function #[nil "\301\302 )\207" [case-fold-search t imenu-default-create-index-function] 1 (#$ . 51144)])
(byte-code "\300\301!\210\302\303!\207" [provide dcl-mode run-hooks dcl-mode-load-hook] 2)