Gecko [ 122.154.134.11 ]

Name	Size	Permission
ada-mode.elc	107.46 KB	-rw-r--r--
ada-prj.elc	17.96 KB	-rw-r--r--
ada-stmt.elc	36.03 KB	-rw-r--r--
ada-xref.elc	54.99 KB	-rw-r--r--
antlr-mode.elc	77.63 KB	-rw-r--r--
asm-mode.elc	6.08 KB	-rw-r--r--
autoconf.elc	3.37 KB	-rw-r--r--
bug-reference.elc	5.83 KB	-rw-r--r--
cap-words.elc	3.54 KB	-rw-r--r--
cc-align.elc	35.43 KB	-rw-r--r--
cc-awk.elc	20.23 KB	-rw-r--r--
cc-bytecomp.elc	10.45 KB	-rw-r--r--
cc-cmds.elc	92.26 KB	-rw-r--r--
cc-compat.elc	2.97 KB	-rw-r--r--
cc-defs.elc	46.7 KB	-rw-r--r--
cc-engine.elc	143.05 KB	-rw-r--r--
cc-fonts.elc	140.72 KB	-rw-r--r--
cc-langs.elc	70.29 KB	-rw-r--r--
cc-menus.elc	7.32 KB	-rw-r--r--
cc-mode.elc	144.75 KB	-rw-r--r--
cc-styles.elc	16.11 KB	-rw-r--r--
cc-subword.elc	6.99 KB	-rw-r--r--
cc-vars.elc	71.07 KB	-rw-r--r--
cfengine.elc	8.09 KB	-rw-r--r--
cmacexp.elc	6.58 KB	-rw-r--r--
compile.elc	69.45 KB	-rw-r--r--
cperl-mode.elc	215.39 KB	-rw-r--r--
cpp.elc	21.52 KB	-rw-r--r--
cwarn.elc	12.8 KB	-rw-r--r--
dcl-mode.elc	49.31 KB	-rw-r--r--
delphi.elc	50.03 KB	-rw-r--r--
ebnf-abn.elc	7.39 KB	-rw-r--r--
ebnf-bnf.elc	7.99 KB	-rw-r--r--
ebnf-dtd.elc	13.82 KB	-rw-r--r--
ebnf-ebx.elc	8.77 KB	-rw-r--r--
ebnf-iso.elc	8.14 KB	-rw-r--r--
ebnf-otz.elc	8.51 KB	-rw-r--r--
ebnf-yac.elc	7.53 KB	-rw-r--r--
ebnf2ps.elc	121.25 KB	-rw-r--r--
ebrowse.elc	202.93 KB	-rw-r--r--
etags.elc	54.14 KB	-rw-r--r--
executable.elc	7.6 KB	-rw-r--r--
f90.elc	82.59 KB	-rw-r--r--
flymake.elc	61.25 KB	-rw-r--r--
fortran.elc	60.13 KB	-rw-r--r--
gdb-ui.elc	138.61 KB	-rw-r--r--
glasses.elc	10.15 KB	-rw-r--r--
grep.elc	27.75 KB	-rw-r--r--
gud.elc	93.94 KB	-rw-r--r--
hideif.elc	26.67 KB	-rw-r--r--
hideshow.elc	24.54 KB	-rw-r--r--
icon.elc	16.23 KB	-rw-r--r--
idlw-complete-structtag.elc	4.75 KB	-rw-r--r--
idlw-help.elc	35.31 KB	-rw-r--r--
idlw-shell.elc	134.39 KB	-rw-r--r--
idlw-toolbar.elc	28.34 KB	-rw-r--r--
idlwave.elc	254.7 KB	-rw-r--r--
inf-lisp.elc	18.43 KB	-rw-r--r--
ld-script.elc	4.91 KB	-rw-r--r--
m4-mode.elc	4.91 KB	-rw-r--r--
make-mode.elc	58.79 KB	-rw-r--r--
mantemp.elc	3.77 KB	-rw-r--r--
meta-mode.elc	27.42 KB	-rw-r--r--
mixal-mode.elc	35.32 KB	-rw-r--r--
modula2.elc	14.23 KB	-rw-r--r--
octave-inf.elc	11.87 KB	-rw-r--r--
octave-mod.elc	44.6 KB	-rw-r--r--
pascal.elc	40.31 KB	-rw-r--r--
perl-mode.elc	22.42 KB	-rw-r--r--
prolog.elc	12.7 KB	-rw-r--r--
ps-mode.elc	33.38 KB	-rw-r--r--
python.elc	86.23 KB	-rw-r--r--
ruby-mode.elc	34.59 KB	-rw-r--r--
scheme.elc	15.94 KB	-rw-r--r--
sh-script.elc	94.73 KB	-rw-r--r--
simula.elc	44.81 KB	-rw-r--r--
sql.elc	101.34 KB	-rw-r--r--
sym-comp.elc	7.15 KB	-rw-r--r--
tcl.elc	38.58 KB	-rw-r--r--
vera-mode.elc	44.5 KB	-rw-r--r--
verilog-mode.elc	331.76 KB	-rw-r--r--
vhdl-mode.elc	510.47 KB	-rw-r--r--
which-func.elc	9.72 KB	-rw-r--r--
xscheme.elc	37.76 KB	-rw-r--r--

Code Editor : dcl-mode.elc

;ELC���
;;; Compiled by mockbuild@c6b8.bsys.dev.centos.org on Thu Feb 19 13:05:06 2015
;;; from file /builddir/build/BUILD/emacs-23.1/lisp/progmodes/dcl-mode.el
;;; in Emacs version 23.1.1
;;; with all optimizations.

;;; This file uses dynamic docstrings, first added in Emacs 19.29.
(if (and (boundp 'emacs-version)
	 (< (aref emacs-version (1- (length emacs-version))) ?A)
	 (or (and (boundp 'epoch::version) epoch::version)
	     (string-lessp emacs-version "19.29")))
    (error "`dcl-mode.el' was compiled for Emacs 19.29 or later"))

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

(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)) (#$ . 635))
#@39 Font lock specification for DCL mode.
(defvar dcl-font-lock-defaults '(dcl-font-lock-keywords nil) (#$ . 1008))
(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)
#@271 *Number of columns to indent a block in DCL.
A block is the commands between THEN-ELSE-ENDIF and between the commands
dcl-block-begin-regexp and dcl-block-end-regexp.

The meaning of this variable may be changed if
dcl-calc-command-indent-function is set to a function.
(custom-declare-variable 'dcl-basic-offset '4 '(#$ . -1293) :type 'integer :group 'dcl)
#@225 *Number of columns to indent a continuation line in DCL.
A continuation line is a line that follows a line ending with `-'.

The meaning of this variable may be changed if
dcl-calc-cont-indent-function is set to a function.
(custom-declare-variable 'dcl-continuation-offset '6 '(#$ . -1658) :type 'integer :group 'dcl)
#@276 *Indentation for the first command line in DCL.
The first command line in a file or after a SUBROUTINE statement is indented
this much.  Other command lines are indented the same number of columns as
the preceding command line.
A command line is a line that starts with `$'.
(custom-declare-variable 'dcl-margin-offset '8 '(#$ . -1984) :type 'integer :group 'dcl)
#@184 *Number of columns to indent a margin label in DCL.
A margin label is a label that doesn't begin or end a block, i.e. it
doesn't match dcl-block-begin-regexp or dcl-block-end-regexp.
(custom-declare-variable 'dcl-margin-label-offset '2 '(#$ . -2355) :type 'integer :group 'dcl)
#@88 *Regexp describing the start of a comment line in DCL.
Comment lines are not indented.
(custom-declare-variable 'dcl-comment-line-regexp '"^\\$!" '(#$ . -2639) :type 'regexp :group 'dcl)
#@114 *Regexp describing a command that begins an indented block in DCL.
Set to nil to only indent at THEN-ELSE-ENDIF.
(custom-declare-variable 'dcl-block-begin-regexp '"loop[0-9]*:" '(#$ . -2833) :type 'regexp :group 'dcl)
#@112 *Regexp describing a command that ends an indented block in DCL.
Set to nil to only indent at THEN-ELSE-ENDIF.
(custom-declare-variable 'dcl-block-end-regexp '"endloop[0-9]*:" '(#$ . -3058) :type 'regexp :group 'dcl)
#@1219 *Function to calculate indentation for a command line in DCL.
If this variable is non-nil it is called as a function:

(func INDENT-TYPE CUR-INDENT EXTRA-INDENT LAST-POINT THIS-POINT)

The function must return the number of columns to indent the current line or
nil to get the default indentation.

INDENT-TYPE is a symbol indicating what kind of indentation should be done.
It can have the following values:
  indent      the lines indentation should be increased, e.g. after THEN.
  outdent     the lines indentation should be decreased, e.g a line with ENDIF.
  first-line  indentation for the first line in a buffer or SUBROUTINE.
CUR-INDENT is the indentation of the preceding command line.
EXTRA-INDENT is the default change in indentation for this line
(a negative number for 'outdent).
LAST-POINT is the buffer position of the first significant word on the
previous line or nil if the current line is the first line.
THIS-POINT is the buffer position of the first significant word on the
current line.

If this variable is nil, the indentation is calculated as
CUR-INDENT + EXTRA-INDENT.

This package includes two functions suitable for this:
  dcl-calc-command-indent-multiple
  dcl-calc-command-indent-hang
(custom-declare-variable 'dcl-calc-command-indent-function 'nil '(#$ . -3283) :type '(choice (const nil) function) :group 'dcl)
#@436 *Function to calculate indentation for a continuation line.
If this variable is non-nil it is called as a function:

(func CUR-INDENT EXTRA-INDENT)

The function must return the number of columns to indent the current line or
nil to get the default indentation.

If this variable is nil, the indentation is calculated as
CUR-INDENT + EXTRA-INDENT.

This package includes one function suitable for this:
  dcl-calc-cont-indent-relative
(custom-declare-variable 'dcl-calc-cont-indent-function ''dcl-calc-cont-indent-relative '(#$ . -4636) :type 'function :group 'dcl)
#@275 *Controls the operation of the TAB key in DCL mode.
If t, pressing TAB always indents the current line.
If nil, pressing TAB indents the current line if point is at the left margin.
Data lines (i.e. lines not part of a command line or continuation line) are
never indented.
(custom-declare-variable 'dcl-tab-always-indent 't '(#$ . -5209) :type 'boolean :group 'dcl)
#@78 *Non-nil means reindent immediately when a label, ELSE or ENDIF is inserted.
(custom-declare-variable 'dcl-electric-characters 't '(#$ . -5582) :type 'boolean :group 'dcl)
#@68 *Text to insert when a comma is needed in a template, in DCL mode.
(custom-declare-variable 'dcl-tempo-comma '", " '(#$ . -5760) :type 'string :group 'dcl)
#@73 *Text to insert when a left parenthesis is needed in a template in DCL.
(custom-declare-variable 'dcl-tempo-left-paren '"(" '(#$ . -5922) :type 'string :group 'dcl)
#@74 *Text to insert when a right parenthesis is needed in a template in DCL.
(custom-declare-variable 'dcl-tempo-right-paren '")" '(#$ . -6093) :type 'string :group 'dcl)
#@53 *Imenu menu title for sub-listing with label names.
(custom-declare-variable 'dcl-imenu-label-labels '"Labels" '(#$ . -6266) :type 'string :group 'dcl)
#@57 *Imenu menu title for sub-listing with GOTO statements.
(custom-declare-variable 'dcl-imenu-label-goto '"GOTO" '(#$ . -6424) :type 'string :group 'dcl)
#@58 *Imenu menu title for sub-listing with GOSUB statements.
(custom-declare-variable 'dcl-imenu-label-gosub '"GOSUB" '(#$ . -6582) :type 'string :group 'dcl)
#@57 *Imenu menu title for sub-listing with CALL statements.
(custom-declare-variable 'dcl-imenu-label-call '"CALL" '(#$ . -6743) :type 'string :group 'dcl)
#@216 *Default imenu generic expression for DCL.

The default includes SUBROUTINE labels in the main listing and
sub-listings for other labels, CALL, GOTO and GOSUB statements.
See `imenu-generic-expression' for details.
(custom-declare-variable '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)) '(#$ . -6902) :type '(repeat (sexp :tag "Imenu Expression")) :group 'dcl)
#@29 *Hook called by `dcl-mode'.
(custom-declare-variable 'dcl-mode-hook 'nil '(#$ . -7578) :type 'hook :group 'dcl)
#@35 Syntax table used in DCL-buffers.
(defvar dcl-mode-syntax-table nil (#$ . 7696))
(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 nil (#$ . 8010))
(byte-code "\204\360�\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\360�\302\201B�\201C�#\210\302\201D�\201E�#\210\301\207" [dcl-mode-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)
#@168 Regular expression describing white space in a DCL command line.
White space is any number of continued lines with only space,tab,endcomment
followed by space or tab.
(custom-declare-variable 'dcl-ws-r '"\$[ 	]*-[ 	]*\\(!.*\$*\n\\)*[ 	]*" '(#$ . 10409) :type 'regexp :group 'dcl)
#@118 Regular expression describing a label.
A label is a name followed by a colon followed by white-space or end-of-line.
(custom-declare-variable 'dcl-label-r '"[a-zA-Z0-9_$]*:\$[ 	!]\\|$\$" '(#$ . 10698) :type 'regexp :group 'dcl)
#@296 Regular expression describing a DCL command line up to a trailing comment.
A line starting with $, optionally followed by continuation lines,
followed by the end of the command line.
A continuation line is any characters followed by `-',
optionally followed by a comment, followed by a newline.
(custom-declare-variable 'dcl-cmd-r '"^\\$\$.*-[ 	]*\\(!.*\$*\n\\)*[^!\"\n]*\$\".*\\(\"\".*\$*\"\\)*[^!\"\n]*" '(#$ . 10935) :type 'regexp :group 'dcl)
#@271 Regular expression describing a DCL command line.
A line starting with $, optionally followed by continuation lines,
followed by the end of the command line.
A continuation line is any characters followed by `-',
optionally followed by a comment, followed by a newline.
(custom-declare-variable 'dcl-command-regexp '"^\\$\$.*-[ 	]*\\(!.*\$*\n\\)*.*\$\".*\\(\"\".*\$*\"\\)*" '(#$ . 11393) :type 'regexp :group 'dcl)
#@317 *Regexps that can trigger an electric reindent.
A list of regexps that will trigger a reindent if the last letter
is defined as dcl-electric-character.

E.g.: if this list contains `endif', the key `f' is defined as
dcl-electric-character and the you have just typed the `f' in
`endif', the line will be reindented.
(custom-declare-variable 'dcl-electric-reindent-regexps '(list "endif" "else" dcl-label-r) '(#$ . -11819) :type '(repeat regexp) :group 'dcl)
#@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)) (#$ . 12284))
#@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) (#$ . 13200))
#@3954 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 commmand 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 \210\307!\210\310\301!\210\311\310\302!\210\312\310\303!\210\313\310\304!\210\314\310\305!\210\315\316\317!\2032�&\320'\321(\310\322!\210\310\323!\210\310\324!\210\310\325!\210\310\326!\210\310\327!\210\310\330!\210\310\331!\210\310\332!\210\310\333!\210\310\334!\210\310\335!\210\310\336!\210)\337*\340+\341,!\210\342\343!\210\344\345!\207" [dcl-mode-syntax-table indent-line-function comment-start comment-end comment-multi-line comment-start-skip kill-all-local-variables set-syntax-table make-local-variable dcl-indent-line "!" "" nil "\\$[ 	]*![ 	]*" boundp imenu-generic-expression t 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 dcl-mode "DCL" use-local-map tempo-use-tag-list dcl-tempo-tags run-mode-hooks dcl-mode-hook dcl-imenu-generic-expression imenu-case-fold-search imenu-create-index-function dcl-font-lock-defaults major-mode mode-name dcl-mode-map] 2 (#$ . 13438) 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 (#$ . 18628) 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 (#$ . 18828) 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 (#$ . 19141) nil])
#@75 Move point to end of current command or next command if not on a command.
(defalias 'dcl-end-of-command #[nil "\302 `\211\303=\204�	\304=\203�\305 \210\306 \202�\306 *\207" [start type dcl-get-line-type $ - dcl-beginning-of-command dcl-end-of-statement] 3 (#$ . 19351) 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\fQ!\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 (#$ . 19638) 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\fQ!\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 (#$ . 20427) 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 (#$ . 21255) nil])
#@45 Helper function for dcl-back-to-indentation
(defalias 'dcl-back-to-indentation-1 #[(&optional limit) "\212\306\210`T)	\206
�``\307 \210`U\203�`	W\203%�`\310\f!\203>�\311\f\312P	\313#\210`	W\203\224�`\202\224�\310\314!\203\224�\311\314	\313#\210`	W\203R�`\310
!\203x�\203d�\310!\204x�\203p�\310!\204x�\311
\312P	\313#\210`	W\203\200�`\310\315!\203\214�\311\315	\313#\210`	W\203\224�`\nb,\207" [default-limit limit last-good-point opoint dcl-comment-line-regexp dcl-label-r nil back-to-indentation looking-at re-search-forward "[ 	]*" t "^\\$[ 	]*" "![ 	]*" dcl-block-begin-regexp dcl-block-end-regexp] 4 (#$ . 21949)])
#@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 (#$ . 22597)])
#@54 Return point of first non-`whitespace' on this line.
(defalias 'dcl-indentation-point #[nil "\212\300 \210`)\207" [dcl-back-to-indentation] 1 (#$ . 23499)])
#@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 (#$ . 23662) 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 (#$ . 24144)])
#@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 (#$ . 24863)])
#@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\211o\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 (#$ . 25814)])
#@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 (#$ . 29088)])
#@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 (#$ . 30399)])
#@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 (#$ . 31309)])
#@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 (#$ . 31764)])
#@54 Delete all characters in the set CHARS around point.
(defalias 'dcl-delete-chars #[(chars) "\301x\210`\301w\210`|\207" [chars nil] 3 (#$ . 32185)])
#@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 (#$ . 32342)])
#@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 (#$ . 32877) "*"])
#@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 (#$ . 33259) "*"])
#@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 (#$ . 33875) "*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 (#$ . 34533) 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 (#$ . 34865) "*"])
#@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\232\204�	\305\232\204�	\306\232\205,�o?\205,�`Sf\307U\205,�\310\311!\210\312 )\207" [arg type delete-indentation dcl-get-line-type $ - empty-$ 45 delete-backward-char 1 fixup-whitespace] 3 (#$ . 35600) "*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 (#$ . 36001)])
#@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 (#$ . 36477)])
#@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 (#$ . 36768)])
#@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 (#$ . 37071)])
#@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 (#$ . 37410)])
#@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\316P!?\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 (#$ . 37816)])
#@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 (#$ . 38983) (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\2048�`\315\210`{\317\224b\210n\204G�`\320 \210`{\n\203S�\nG\321\n!,	\203]�\321	!\322P-\205.\203n�\323\324!\210\202q�\325y\210,\203\207�\326,!\203\203�
u\210\202\207�\327\330!\210\316\315w\210`\331\315w\210l\203\231�\327\332!\210\316\315x\210`{/\333/!0\3151/\227\334\230\203\317�\315-\320 \210\n\3352!\336\337\3402!!\341	\342\260c\210\20220=\203\315-\343\315w\210\325u\210`\333p!\210`|\210\341c\210\344\3402!p\"\210\342\315x\210\316\315w\210\f\203\326\f!\202l\204\327\345!\210\202\315\210+\202]�.\202\235db\210n\204'\342c\2103\20313\202N4\205N4\346\232\204E\347\3504\"\203J4\202N4\341P5\203X5\202u6\205u6\346\232\204l\347\3516\"\203q6\202u\3416P5\2113\3525\342Rc\2103\3352!\336\337\3402!!5\342\260c\2103\3535Qc*)\207" [case-fold-search suffix-string prefix-string beg suffix prefixlen search-backward "\n\f" 3000 move t search-forward "Local Variables:" nil " 	" 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 val var def-prefix comment-start def-suffix comment-end] 8 (#$ . 39656)])
#@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 (#$ . 41395) "*"])
#@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 (#$ . 41754) "*"])
#@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 (#$ . 42555) (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 (#$ . 42873) nil])
#@26 Tempo tags for DCL mode.
(defvar dcl-tempo-tags nil (#$ . 43245))
(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 (#$ . 49287)])
#@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 (#$ . 49475)])
#@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 (#$ . 49827)])
(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 (#$ . 50207)])
(byte-code "\300\301!\210\302\303!\207" [provide dcl-mode run-hooks dcl-mode-load-hook] 2)

${this.title}

Code Editor : dcl-mode.elc