Linux server.edchosting.com 4.18.0-553.79.1.lve.el7h.x86_64 #1 SMP Wed Oct 15 16:34:46 UTC 2025 x86_64
LiteSpeed
Server IP : 75.98.162.185 & Your IP : 216.73.216.163
Domains :
Cant Read [ /etc/named.conf ]
User : goons4good
Terminal
Auto Root
Create File
Create Folder
Localroot Suggester
Backdoor Destroyer
Readme
/
usr /
share /
emacs /
24.3 /
lisp /
progmodes /
Delete
Unzip
Name
Size
Permission
Date
Action
ada-mode.elc
107.31
KB
-rw-r--r--
2023-06-07 04:14
ada-prj.elc
17.96
KB
-rw-r--r--
2023-06-07 04:14
ada-stmt.elc
35.97
KB
-rw-r--r--
2023-06-07 04:14
ada-xref.elc
55.09
KB
-rw-r--r--
2023-06-07 04:14
antlr-mode.elc
79.34
KB
-rw-r--r--
2023-06-07 04:14
asm-mode.elc
7.69
KB
-rw-r--r--
2023-06-07 04:14
autoconf.elc
5.1
KB
-rw-r--r--
2023-06-07 04:14
bug-reference.elc
6.43
KB
-rw-r--r--
2023-06-07 04:14
cap-words.elc
3.59
KB
-rw-r--r--
2023-06-07 04:14
cc-align.elc
35.39
KB
-rw-r--r--
2023-06-07 04:14
cc-awk.elc
17.81
KB
-rw-r--r--
2023-06-07 04:14
cc-bytecomp.elc
9.35
KB
-rw-r--r--
2023-06-07 04:14
cc-cmds.elc
96.69
KB
-rw-r--r--
2023-06-07 04:14
cc-compat.elc
2.92
KB
-rw-r--r--
2023-06-07 04:14
cc-defs.elc
49.04
KB
-rw-r--r--
2023-06-07 04:14
cc-engine.elc
173.3
KB
-rw-r--r--
2023-06-07 04:14
cc-fonts.elc
153.89
KB
-rw-r--r--
2023-06-07 04:14
cc-guess.elc
13.77
KB
-rw-r--r--
2023-06-07 04:14
cc-langs.elc
75.55
KB
-rw-r--r--
2023-06-07 04:14
cc-menus.elc
7.28
KB
-rw-r--r--
2023-06-07 04:14
cc-mode.elc
191.85
KB
-rw-r--r--
2023-06-07 04:14
cc-styles.elc
16.38
KB
-rw-r--r--
2023-06-07 04:14
cc-vars.elc
69.17
KB
-rw-r--r--
2023-06-07 04:14
cfengine.elc
15.58
KB
-rw-r--r--
2023-06-07 04:14
cmacexp.elc
6.3
KB
-rw-r--r--
2023-06-07 04:14
compile.elc
83.66
KB
-rw-r--r--
2023-06-07 04:14
cperl-mode.elc
215.31
KB
-rw-r--r--
2023-06-07 04:14
cpp.elc
22.18
KB
-rw-r--r--
2023-06-07 04:14
cwarn.elc
11.09
KB
-rw-r--r--
2023-06-07 04:14
dcl-mode.elc
50.23
KB
-rw-r--r--
2023-06-07 04:14
delphi.elc
50.8
KB
-rw-r--r--
2023-06-07 04:14
ebnf-abn.elc
6.88
KB
-rw-r--r--
2023-06-07 04:14
ebnf-bnf.elc
7.67
KB
-rw-r--r--
2023-06-07 04:14
ebnf-dtd.elc
13.03
KB
-rw-r--r--
2023-06-07 04:15
ebnf-ebx.elc
7.99
KB
-rw-r--r--
2023-06-07 04:15
ebnf-iso.elc
7.83
KB
-rw-r--r--
2023-06-07 04:15
ebnf-otz.elc
8.46
KB
-rw-r--r--
2023-06-07 04:15
ebnf-yac.elc
7.22
KB
-rw-r--r--
2023-06-07 04:15
ebnf2ps.elc
117.22
KB
-rw-r--r--
2023-06-07 04:15
ebrowse.elc
206.22
KB
-rw-r--r--
2023-06-07 04:15
etags.elc
55.93
KB
-rw-r--r--
2023-06-07 04:15
executable.elc
7.49
KB
-rw-r--r--
2023-06-07 04:15
f90.elc
92.25
KB
-rw-r--r--
2023-06-07 04:15
flymake.elc
61.63
KB
-rw-r--r--
2023-06-07 04:15
fortran.elc
60.04
KB
-rw-r--r--
2023-06-07 04:15
gdb-mi.elc
169.74
KB
-rw-r--r--
2023-06-07 04:15
glasses.elc
10.17
KB
-rw-r--r--
2023-06-07 04:15
grep.elc
32.61
KB
-rw-r--r--
2023-06-07 04:15
gud.elc
93.14
KB
-rw-r--r--
2023-06-07 04:15
hideif.elc
26.37
KB
-rw-r--r--
2023-06-07 04:15
hideshow.elc
25.32
KB
-rw-r--r--
2023-06-07 04:15
icon.elc
16.85
KB
-rw-r--r--
2023-06-07 04:15
idlw-complete-structtag.elc
4.5
KB
-rw-r--r--
2023-06-07 04:15
idlw-help.elc
36.32
KB
-rw-r--r--
2023-06-07 04:15
idlw-shell.elc
130.41
KB
-rw-r--r--
2023-06-07 04:15
idlw-toolbar.elc
27.61
KB
-rw-r--r--
2023-06-07 04:15
idlwave.elc
251.77
KB
-rw-r--r--
2023-06-07 04:15
inf-lisp.elc
20.29
KB
-rw-r--r--
2023-06-07 04:15
js.elc
95.5
KB
-rw-r--r--
2023-06-07 04:15
ld-script.elc
5.68
KB
-rw-r--r--
2023-06-07 04:15
m4-mode.elc
6.12
KB
-rw-r--r--
2023-06-07 04:15
make-mode.elc
63.81
KB
-rw-r--r--
2023-06-07 04:15
mantemp.elc
3.71
KB
-rw-r--r--
2023-06-07 04:15
meta-mode.elc
32.62
KB
-rw-r--r--
2023-06-07 04:15
mixal-mode.elc
36.42
KB
-rw-r--r--
2023-06-07 04:15
modula2.elc
29.79
KB
-rw-r--r--
2023-06-07 04:15
octave-inf.elc
13.56
KB
-rw-r--r--
2023-06-07 04:15
octave-mod.elc
33.98
KB
-rw-r--r--
2023-06-07 04:15
pascal.elc
39.33
KB
-rw-r--r--
2023-06-07 04:15
perl-mode.elc
24.86
KB
-rw-r--r--
2023-06-07 04:15
prolog.elc
95.73
KB
-rw-r--r--
2023-06-07 04:15
ps-mode.elc
34.13
KB
-rw-r--r--
2023-06-07 04:15
python.elc
99.85
KB
-rw-r--r--
2023-06-07 04:15
ruby-mode.elc
36.94
KB
-rw-r--r--
2023-06-07 04:15
scheme.elc
18.28
KB
-rw-r--r--
2023-06-07 04:15
sh-script.elc
103.89
KB
-rw-r--r--
2023-06-07 04:15
simula.elc
45.68
KB
-rw-r--r--
2023-06-07 04:15
sql.elc
158.59
KB
-rw-r--r--
2023-06-07 04:15
subword.elc
10.31
KB
-rw-r--r--
2023-06-07 04:15
tcl.elc
39.55
KB
-rw-r--r--
2023-06-07 04:15
vera-mode.elc
45.89
KB
-rw-r--r--
2023-06-07 04:15
verilog-mode.elc
419.97
KB
-rw-r--r--
2023-06-07 04:15
vhdl-mode.elc
528.67
KB
-rw-r--r--
2023-06-07 04:15
which-func.elc
9.72
KB
-rw-r--r--
2023-06-07 04:11
xscheme.elc
37.06
KB
-rw-r--r--
2023-06-07 04:15
Save
Rename
;ELC ;;; Compiled by mockbuild@buildfarm06.corp.cloudlinux.com on Wed Jun 7 08:14:45 2023 ;;; from file /builddir/build/BUILD/emacs-24.3/lisp/progmodes/ada-stmt.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. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (byte-code "\300\301\302\303#\210\300\304!\210\300\305!\207" [require skeleton nil t easymenu ada-mode] 4) #@55 Return the name of the current function or procedure. (defalias 'ada-func-or-proc-name #[nil "\212\302\303 \304\302#\203 \305\306!\202 \307*\207" [case-fold-search ada-procedure-start-regexp t re-search-backward nil match-string 5 "NAME?"] 4 (#$ . 664)]) (put 'ada-array 'no-self-insert t) #@580 Insert array type definition. Prompt for component type and index subtypes. This is a skeleton command (see `skeleton-insert'). Normally the skeleton text is inserted at point, with nothing "inside". If there is a highlighted region, the skeleton text is wrapped around the region text. A prefix argument ARG says to wrap the skeleton around the next ARG words. A prefix argument of -1 says to wrap around region, even if not highlighted. A prefix argument of zero says to wrap around zero words---that is, nothing. This is a way of overriding the use of a highlighted region. (defalias 'ada-array #[(&optional str arg) "\302\303 #\207" [str arg skeleton-proxy-new (nil "array (" ("index definition: " str ", ") -2 ") of " _ 59)] 4 (#$ . 964) "*P\nP"]) (put 'ada-case 'no-self-insert t) #@607 Build skeleton case statement. Prompt for the selector expression. Also builds the first when clause. This is a skeleton command (see `skeleton-insert'). Normally the skeleton text is inserted at point, with nothing "inside". If there is a highlighted region, the skeleton text is wrapped around the region text. A prefix argument ARG says to wrap the skeleton around the next ARG words. A prefix argument of -1 says to wrap around region, even if not highlighted. A prefix argument of zero says to wrap around zero words---that is, nothing. This is a way of overriding the use of a highlighted region. (defalias 'ada-case #[(&optional str arg) "\302\303 #\207" [str arg skeleton-proxy-new ("[selector expression]: " "case " str " is" n > "when " ("discrete choice: " str " | ") -3 " =>" n > _ n < < "end case;")] 4 (#$ . 1761) "*P\nP"]) (put 'ada-when 'no-self-insert t) #@559 Start a case statement alternative with a when clause. This is a skeleton command (see `skeleton-insert'). Normally the skeleton text is inserted at point, with nothing "inside". If there is a highlighted region, the skeleton text is wrapped around the region text. A prefix argument ARG says to wrap the skeleton around the next ARG words. A prefix argument of -1 says to wrap around region, even if not highlighted. A prefix argument of zero says to wrap around zero words---that is, nothing. This is a way of overriding the use of a highlighted region. (defalias 'ada-when #[(&optional str arg) "\302\303 #\207" [str arg skeleton-proxy-new (nil < "when " ("discrete choice: " str " | ") -3 " =>" n >)] 4 (#$ . 2644) "*P\nP"]) (put 'ada-declare-block 'no-self-insert t) #@574 Insert a block with a declare part. Indent for the first declaration. This is a skeleton command (see `skeleton-insert'). Normally the skeleton text is inserted at point, with nothing "inside". If there is a highlighted region, the skeleton text is wrapped around the region text. A prefix argument ARG says to wrap the skeleton around the next ARG words. A prefix argument of -1 says to wrap around region, even if not highlighted. A prefix argument of zero says to wrap around zero words---that is, nothing. This is a way of overriding the use of a highlighted region. (defalias 'ada-declare-block #[(&optional str arg) "\302\303 #\207" [str arg skeleton-proxy-new ("[block name]: " < str & 58 & n > "declare" n > _ n < "begin" n > n < "end " str | -1 59)] 4 (#$ . 3426) "*P\nP"]) (put 'ada-exception-block 'no-self-insert t) #@578 Insert a block with an exception part. Indent for the first line of code. This is a skeleton command (see `skeleton-insert'). Normally the skeleton text is inserted at point, with nothing "inside". If there is a highlighted region, the skeleton text is wrapped around the region text. A prefix argument ARG says to wrap the skeleton around the next ARG words. A prefix argument of -1 says to wrap around region, even if not highlighted. A prefix argument of zero says to wrap around zero words---that is, nothing. This is a way of overriding the use of a highlighted region. (defalias 'ada-exception-block #[(&optional str arg) "\302\303 #\207" [str arg skeleton-proxy-new ("[block name]: " < str & 58 & n > "begin" n > _ n < "exception" n > n < "end " str | -1 59)] 4 (#$ . 4264) "*P\nP"]) (put 'ada-exception 'no-self-insert t) #@552 Insert an indented exception part into a block. This is a skeleton command (see `skeleton-insert'). Normally the skeleton text is inserted at point, with nothing "inside". If there is a highlighted region, the skeleton text is wrapped around the region text. A prefix argument ARG says to wrap the skeleton around the next ARG words. A prefix argument of -1 says to wrap around region, even if not highlighted. A prefix argument of zero says to wrap around zero words---that is, nothing. This is a way of overriding the use of a highlighted region. (defalias 'ada-exception #[(&optional str arg) "\302\303 #\207" [str arg skeleton-proxy-new (nil < "exception" n >)] 4 (#$ . 5104) "*P\nP"]) (put 'ada-exit-1 'no-self-insert t) #@579 Insert then exit condition of the exit statement, prompting for condition. This is a skeleton command (see `skeleton-insert'). Normally the skeleton text is inserted at point, with nothing "inside". If there is a highlighted region, the skeleton text is wrapped around the region text. A prefix argument ARG says to wrap the skeleton around the next ARG words. A prefix argument of -1 says to wrap around region, even if not highlighted. A prefix argument of zero says to wrap around zero words---that is, nothing. This is a way of overriding the use of a highlighted region. (defalias 'ada-exit-1 #[(&optional str arg) "\302\303 #\207" [str arg skeleton-proxy-new ("[exit condition]: " "when " str | -5)] 4 (#$ . 5840) "*P\nP"]) (put 'ada-exit 'no-self-insert t) #@569 Insert an exit statement, prompting for loop name and condition. This is a skeleton command (see `skeleton-insert'). Normally the skeleton text is inserted at point, with nothing "inside". If there is a highlighted region, the skeleton text is wrapped around the region text. A prefix argument ARG says to wrap the skeleton around the next ARG words. A prefix argument of -1 says to wrap around region, even if not highlighted. A prefix argument of zero says to wrap around zero words---that is, nothing. This is a way of overriding the use of a highlighted region. (defalias 'ada-exit #[(&optional str arg) "\302\303 #\207" [str arg skeleton-proxy-new ("[name of loop to exit]: " "exit " str & 32 (ada-exit-1) | -1 59)] 4 (#$ . 6614) "*P\nP"]) #@53 Insert a descriptive header at the top of the file. (defalias 'ada-header #[nil "\212eb\210\300\301!\203 \301K \202 \302 )\207" [fboundp make-header ada-header-tmpl] 2 (#$ . 7368) "*"]) (put 'ada-header-tmpl 'no-self-insert t) #@569 Insert a comment block containing the module title, author, etc. This is a skeleton command (see `skeleton-insert'). Normally the skeleton text is inserted at point, with nothing "inside". If there is a highlighted region, the skeleton text is wrapped around the region text. A prefix argument ARG says to wrap the skeleton around the next ARG words. A prefix argument of -1 says to wrap around region, even if not highlighted. A prefix argument of zero says to wrap around zero words---that is, nothing. This is a way of overriding the use of a highlighted region. (defalias 'ada-header-tmpl #[(&optional str arg) "\302\303 #\207" [str arg skeleton-proxy-new ("[Description]: " "-- -*- Mode: Ada -*-" "\n" ada-fill-comment-prefix "Filename : " (buffer-name) "\n" ada-fill-comment-prefix "Description : " str "\n" ada-fill-comment-prefix "Author : " (user-full-name) "\n" ada-fill-comment-prefix "Created On : " (current-time-string) "\n" ada-fill-comment-prefix "Last Modified By: ." "\n" ada-fill-comment-prefix "Last Modified On: ." "\n" ada-fill-comment-prefix "Update Count : 0" "\n" ada-fill-comment-prefix "Status : Unknown, Use with caution!" "\n")] 4 (#$ . 7604) "*P\nP"]) (put 'ada-display-comment 'no-self-insert t) #@559 Inserts three comment lines, making a display comment. This is a skeleton command (see `skeleton-insert'). Normally the skeleton text is inserted at point, with nothing "inside". If there is a highlighted region, the skeleton text is wrapped around the region text. A prefix argument ARG says to wrap the skeleton around the next ARG words. A prefix argument of -1 says to wrap around region, even if not highlighted. A prefix argument of zero says to wrap around zero words---that is, nothing. This is a way of overriding the use of a highlighted region. (defalias 'ada-display-comment #[(&optional str arg) "\302\303 #\207" [str arg skeleton-proxy-new (nil "--\n" ada-fill-comment-prefix _ "\n--")] 4 (#$ . 8907) "*P\nP"]) (put 'ada-if 'no-self-insert t) #@570 Insert skeleton if statement, prompting for a boolean-expression. This is a skeleton command (see `skeleton-insert'). Normally the skeleton text is inserted at point, with nothing "inside". If there is a highlighted region, the skeleton text is wrapped around the region text. A prefix argument ARG says to wrap the skeleton around the next ARG words. A prefix argument of -1 says to wrap around region, even if not highlighted. A prefix argument of zero says to wrap around zero words---that is, nothing. This is a way of overriding the use of a highlighted region. (defalias 'ada-if #[(&optional str arg) "\302\303 #\207" [str arg skeleton-proxy-new ("[condition]: " "if " str " then" n > _ n < "end if;")] 4 (#$ . 9674) "*P\nP"]) (put 'ada-elsif 'no-self-insert t) #@582 Add an elsif clause to an if statement, prompting for the boolean-expression. This is a skeleton command (see `skeleton-insert'). Normally the skeleton text is inserted at point, with nothing "inside". If there is a highlighted region, the skeleton text is wrapped around the region text. A prefix argument ARG says to wrap the skeleton around the next ARG words. A prefix argument of -1 says to wrap around region, even if not highlighted. A prefix argument of zero says to wrap around zero words---that is, nothing. This is a way of overriding the use of a highlighted region. (defalias 'ada-elsif #[(&optional str arg) "\302\303 #\207" [str arg skeleton-proxy-new ("[condition]: " < "elsif " str " then" n >)] 4 (#$ . 10452) "*P\nP"]) (put 'ada-else 'no-self-insert t) #@556 Add an else clause inside an if-then-end-if clause. This is a skeleton command (see `skeleton-insert'). Normally the skeleton text is inserted at point, with nothing "inside". If there is a highlighted region, the skeleton text is wrapped around the region text. A prefix argument ARG says to wrap the skeleton around the next ARG words. A prefix argument of -1 says to wrap around region, even if not highlighted. A prefix argument of zero says to wrap around zero words---that is, nothing. This is a way of overriding the use of a highlighted region. (defalias 'ada-else #[(&optional str arg) "\302\303 #\207" [str arg skeleton-proxy-new (nil < "else" n >)] 4 (#$ . 11234) "*P\nP"]) (put 'ada-loop 'no-self-insert t) #@576 Insert a skeleton loop statement. The exit statement is added by hand. This is a skeleton command (see `skeleton-insert'). Normally the skeleton text is inserted at point, with nothing "inside". If there is a highlighted region, the skeleton text is wrapped around the region text. A prefix argument ARG says to wrap the skeleton around the next ARG words. A prefix argument of -1 says to wrap around region, even if not highlighted. A prefix argument of zero says to wrap around zero words---that is, nothing. This is a way of overriding the use of a highlighted region. (defalias 'ada-loop #[(&optional str arg) "\302\303 #\207" [str arg skeleton-proxy-new ("[loop name]: " < str & 58 & n > "loop" n > _ n < "end loop " str | -1 59)] 4 (#$ . 11963) "*P\nP"]) (put 'ada-for-loop-prompt-variable 'no-self-insert t) #@534 Prompt for the loop variable. This is a skeleton command (see `skeleton-insert'). Normally the skeleton text is inserted at point, with nothing "inside". If there is a highlighted region, the skeleton text is wrapped around the region text. A prefix argument ARG says to wrap the skeleton around the next ARG words. A prefix argument of -1 says to wrap around region, even if not highlighted. A prefix argument of zero says to wrap around zero words---that is, nothing. This is a way of overriding the use of a highlighted region. (defalias 'ada-for-loop-prompt-variable #[(&optional str arg) "\302\303 #\207" [str arg skeleton-proxy-new ("[loop variable]: " str)] 4 (#$ . 12789) "*P\nP"]) (put 'ada-for-loop-prompt-range 'no-self-insert t) #@531 Prompt for the loop range. This is a skeleton command (see `skeleton-insert'). Normally the skeleton text is inserted at point, with nothing "inside". If there is a highlighted region, the skeleton text is wrapped around the region text. A prefix argument ARG says to wrap the skeleton around the next ARG words. A prefix argument of -1 says to wrap around region, even if not highlighted. A prefix argument of zero says to wrap around zero words---that is, nothing. This is a way of overriding the use of a highlighted region. (defalias 'ada-for-loop-prompt-range #[(&optional str arg) "\302\303 #\207" [str arg skeleton-proxy-new ("[loop range]: " str)] 4 (#$ . 13540) "*P\nP"]) (put 'ada-for-loop 'no-self-insert t) #@576 Build a skeleton for-loop statement, prompting for the loop parameters. This is a skeleton command (see `skeleton-insert'). Normally the skeleton text is inserted at point, with nothing "inside". If there is a highlighted region, the skeleton text is wrapped around the region text. A prefix argument ARG says to wrap the skeleton around the next ARG words. A prefix argument of -1 says to wrap around region, even if not highlighted. A prefix argument of zero says to wrap around zero words---that is, nothing. This is a way of overriding the use of a highlighted region. (defalias 'ada-for-loop #[(&optional str arg) "\302\303 #\207" [str arg skeleton-proxy-new ("[loop name]: " < str & 58 & n > "for " (ada-for-loop-prompt-variable) " in " (ada-for-loop-prompt-range) " loop" n > _ n < "end loop " str | -1 59)] 4 (#$ . 14269) "*P\nP"]) (put 'ada-while-loop-prompt-entry-condition 'no-self-insert t) #@541 Prompt for the loop entry condition. This is a skeleton command (see `skeleton-insert'). Normally the skeleton text is inserted at point, with nothing "inside". If there is a highlighted region, the skeleton text is wrapped around the region text. A prefix argument ARG says to wrap the skeleton around the next ARG words. A prefix argument of -1 says to wrap around region, even if not highlighted. A prefix argument of zero says to wrap around zero words---that is, nothing. This is a way of overriding the use of a highlighted region. (defalias 'ada-while-loop-prompt-entry-condition #[(&optional str arg) "\302\303 #\207" [str arg skeleton-proxy-new ("[entry condition]: " str)] 4 (#$ . 15182) "*P\nP"]) (put 'ada-while-loop 'no-self-insert t) #@544 Insert a skeleton while loop statement. This is a skeleton command (see `skeleton-insert'). Normally the skeleton text is inserted at point, with nothing "inside". If there is a highlighted region, the skeleton text is wrapped around the region text. A prefix argument ARG says to wrap the skeleton around the next ARG words. A prefix argument of -1 says to wrap around region, even if not highlighted. A prefix argument of zero says to wrap around zero words---that is, nothing. This is a way of overriding the use of a highlighted region. (defalias 'ada-while-loop #[(&optional str arg) "\302\303 #\207" [str arg skeleton-proxy-new ("[loop name]: " < str & 58 & n > "while " (ada-while-loop-prompt-entry-condition) " loop" n > _ n < "end loop " str | -1 59)] 4 (#$ . 15940) "*P\nP"]) (put 'ada-package-spec 'no-self-insert t) #@545 Insert a skeleton package specification. This is a skeleton command (see `skeleton-insert'). Normally the skeleton text is inserted at point, with nothing "inside". If there is a highlighted region, the skeleton text is wrapped around the region text. A prefix argument ARG says to wrap the skeleton around the next ARG words. A prefix argument of -1 says to wrap around region, even if not highlighted. A prefix argument of zero says to wrap around zero words---that is, nothing. This is a way of overriding the use of a highlighted region. (defalias 'ada-package-spec #[(&optional str arg) "\302\303 #\207" [str arg skeleton-proxy-new ("[package name]: " "package " str " is" n > _ n < "end " str 59)] 4 (#$ . 16778) "*P\nP"]) (put 'ada-package-body 'no-self-insert t) #@566 Insert a skeleton package body -- includes a begin statement. This is a skeleton command (see `skeleton-insert'). Normally the skeleton text is inserted at point, with nothing "inside". If there is a highlighted region, the skeleton text is wrapped around the region text. A prefix argument ARG says to wrap the skeleton around the next ARG words. A prefix argument of -1 says to wrap around region, even if not highlighted. A prefix argument of zero says to wrap around zero words---that is, nothing. This is a way of overriding the use of a highlighted region. (defalias 'ada-package-body #[(&optional str arg) "\302\303 #\207" [str arg skeleton-proxy-new ("[package name]: " "package body " str " is" n > _ n < "end " str 59)] 4 (#$ . 17559) "*P\nP"]) (put 'ada-private 'no-self-insert t) #@569 Undent and start a private section of a package spec. Reindent. This is a skeleton command (see `skeleton-insert'). Normally the skeleton text is inserted at point, with nothing "inside". If there is a highlighted region, the skeleton text is wrapped around the region text. A prefix argument ARG says to wrap the skeleton around the next ARG words. A prefix argument of -1 says to wrap around region, even if not highlighted. A prefix argument of zero says to wrap around zero words---that is, nothing. This is a way of overriding the use of a highlighted region. (defalias 'ada-private #[(&optional str arg) "\302\303 #\207" [str arg skeleton-proxy-new (nil < "private" n >)] 4 (#$ . 18361) "*P\nP"]) (put 'ada-function-spec-prompt-return 'no-self-insert t) #@538 Prompts for function result type. This is a skeleton command (see `skeleton-insert'). Normally the skeleton text is inserted at point, with nothing "inside". If there is a highlighted region, the skeleton text is wrapped around the region text. A prefix argument ARG says to wrap the skeleton around the next ARG words. A prefix argument of -1 says to wrap around region, even if not highlighted. A prefix argument of zero says to wrap around zero words---that is, nothing. This is a way of overriding the use of a highlighted region. (defalias 'ada-function-spec-prompt-return #[(&optional str arg) "\302\303 #\207" [str arg skeleton-proxy-new ("[result type]: " str)] 4 (#$ . 19132) "*P\nP"]) (put 'ada-function-spec 'no-self-insert t) #@570 Insert a function specification. Prompts for name and arguments. This is a skeleton command (see `skeleton-insert'). Normally the skeleton text is inserted at point, with nothing "inside". If there is a highlighted region, the skeleton text is wrapped around the region text. A prefix argument ARG says to wrap the skeleton around the next ARG words. A prefix argument of -1 says to wrap around region, even if not highlighted. A prefix argument of zero says to wrap around zero words---that is, nothing. This is a way of overriding the use of a highlighted region. (defalias 'ada-function-spec #[(&optional str arg) "\302\303 #\207" [str arg skeleton-proxy-new ("[function name]: " "function " str " (" ("[parameter_specification]: " str "; ") -2 ")" " return " (ada-function-spec-prompt-return) ";" n)] 4 (#$ . 19880) "*P\nP"]) (put 'ada-procedure-spec 'no-self-insert t) #@576 Insert a procedure specification, prompting for its name and arguments. This is a skeleton command (see `skeleton-insert'). Normally the skeleton text is inserted at point, with nothing "inside". If there is a highlighted region, the skeleton text is wrapped around the region text. A prefix argument ARG says to wrap the skeleton around the next ARG words. A prefix argument of -1 says to wrap around region, even if not highlighted. A prefix argument of zero says to wrap around zero words---that is, nothing. This is a way of overriding the use of a highlighted region. (defalias 'ada-procedure-spec #[(&optional str arg) "\302\303 #\207" [str arg skeleton-proxy-new ("[procedure name]: " "procedure " str " (" ("[parameter_specification]: " str "; ") -2 ")" ";" n)] 4 (#$ . 20765) "*P\nP"]) (put 'ada-subprogram-body 'no-self-insert t) #@602 Insert frame for subprogram body. Invoke right after `ada-function-spec' or `ada-procedure-spec'. This is a skeleton command (see `skeleton-insert'). Normally the skeleton text is inserted at point, with nothing "inside". If there is a highlighted region, the skeleton text is wrapped around the region text. A prefix argument ARG says to wrap the skeleton around the next ARG words. A prefix argument of -1 says to wrap around region, even if not highlighted. A prefix argument of zero says to wrap around zero words---that is, nothing. This is a way of overriding the use of a highlighted region. (defalias 'ada-subprogram-body #[(&optional str arg) "\302\303 #\207" [str arg skeleton-proxy-new (nil (save-excursion (let ((pos (1+ (point)))) (ada-search-ignore-string-comment ada-subprog-start-re t nil) (when (ada-search-ignore-string-comment "(" nil pos t 'search-forward) (backward-char 1) (forward-sexp 1))) (if (looking-at ";") (delete-char 1))) " is" n _ n < "begin" n n < "exception" n "when others => null;" n < < "end " (ada-func-or-proc-name) ";" n)] 4 (#$ . 21615) "*P\nP"]) (put 'ada-separate 'no-self-insert t) #@540 Finish a body stub with `separate'. This is a skeleton command (see `skeleton-insert'). Normally the skeleton text is inserted at point, with nothing "inside". If there is a highlighted region, the skeleton text is wrapped around the region text. A prefix argument ARG says to wrap the skeleton around the next ARG words. A prefix argument of -1 says to wrap around region, even if not highlighted. A prefix argument of zero says to wrap around zero words---that is, nothing. This is a way of overriding the use of a highlighted region. (defalias 'ada-separate #[(&optional str arg) "\302\303 #\207" [str arg skeleton-proxy-new (nil > "separate;" n <)] 4 (#$ . 22751) "*P\nP"]) (put 'ada-record 'no-self-insert t) #@547 Insert a skeleton record type declaration. This is a skeleton command (see `skeleton-insert'). Normally the skeleton text is inserted at point, with nothing "inside". If there is a highlighted region, the skeleton text is wrapped around the region text. A prefix argument ARG says to wrap the skeleton around the next ARG words. A prefix argument of -1 says to wrap around region, even if not highlighted. A prefix argument of zero says to wrap around zero words---that is, nothing. This is a way of overriding the use of a highlighted region. (defalias 'ada-record #[(&optional str arg) "\302\303 #\207" [str arg skeleton-proxy-new (nil "record" n > _ n < "end record;")] 4 (#$ . 23475) "*P\nP"]) (put 'ada-subtype 'no-self-insert t) #@578 Start insertion of a subtype declaration, prompting for the subtype name. This is a skeleton command (see `skeleton-insert'). Normally the skeleton text is inserted at point, with nothing "inside". If there is a highlighted region, the skeleton text is wrapped around the region text. A prefix argument ARG says to wrap the skeleton around the next ARG words. A prefix argument of -1 says to wrap around region, even if not highlighted. A prefix argument of zero says to wrap around zero words---that is, nothing. This is a way of overriding the use of a highlighted region. (defalias 'ada-subtype #[(&optional str arg) "\302\303 #\207" [str arg skeleton-proxy-new ("[subtype name]: " "subtype " str " is " _ 59 (not (message "insert subtype indication.")))] 4 (#$ . 24220) "*P\nP"]) (put 'ada-type 'no-self-insert t) #@572 Start insertion of a type declaration, prompting for the type name. This is a skeleton command (see `skeleton-insert'). Normally the skeleton text is inserted at point, with nothing "inside". If there is a highlighted region, the skeleton text is wrapped around the region text. A prefix argument ARG says to wrap the skeleton around the next ARG words. A prefix argument of -1 says to wrap around region, even if not highlighted. A prefix argument of zero says to wrap around zero words---that is, nothing. This is a way of overriding the use of a highlighted region. (defalias 'ada-type #[(&optional str arg) "\302\303 #\207" [str arg skeleton-proxy-new ("[type name]: " "type " str 40 ("[discriminant specs]: " str " ") | (backward-delete-char 1) | 41 " is " (not (message "insert type definition.")))] 4 (#$ . 25048) "*P\nP"]) (put 'ada-task-body 'no-self-insert t) #@553 Insert a task body, prompting for the task name. This is a skeleton command (see `skeleton-insert'). Normally the skeleton text is inserted at point, with nothing "inside". If there is a highlighted region, the skeleton text is wrapped around the region text. A prefix argument ARG says to wrap the skeleton around the next ARG words. A prefix argument of -1 says to wrap around region, even if not highlighted. A prefix argument of zero says to wrap around zero words---that is, nothing. This is a way of overriding the use of a highlighted region. (defalias 'ada-task-body #[(&optional str arg) "\302\303 #\207" [str arg skeleton-proxy-new ("[task name]: " "task body " str " is\n" "begin\n" > _ n < "end " str ";")] 4 (#$ . 25928) "*P\nP"]) (put 'ada-task-spec 'no-self-insert t) #@562 Insert a task specification, prompting for the task name. This is a skeleton command (see `skeleton-insert'). Normally the skeleton text is inserted at point, with nothing "inside". If there is a highlighted region, the skeleton text is wrapped around the region text. A prefix argument ARG says to wrap the skeleton around the next ARG words. A prefix argument of -1 says to wrap around region, even if not highlighted. A prefix argument of zero says to wrap around zero words---that is, nothing. This is a way of overriding the use of a highlighted region. (defalias 'ada-task-spec #[(&optional str arg) "\302\303 #\207" [str arg skeleton-proxy-new ("[task name]: " "task " str " (" ("[discriminant]: " str "; ") ") is\n" > "entry " _ n < "end " str ";")] 4 (#$ . 26721) "*P\nP"]) (put 'ada-get-param1 'no-self-insert t) #@562 Prompt for arguments and if any enclose them in brackets. This is a skeleton command (see `skeleton-insert'). Normally the skeleton text is inserted at point, with nothing "inside". If there is a highlighted region, the skeleton text is wrapped around the region text. A prefix argument ARG says to wrap the skeleton around the next ARG words. A prefix argument of -1 says to wrap around region, even if not highlighted. A prefix argument of zero says to wrap around zero words---that is, nothing. This is a way of overriding the use of a highlighted region. (defalias 'ada-get-param1 #[(&optional str arg) "\302\303 #\207" [str arg skeleton-proxy-new (nil ("[parameter_specification]: " str "; ") & -2 & ")")] 4 (#$ . 27554) "*P\nP"]) (put 'ada-get-param 'no-self-insert t) #@562 Prompt for arguments and if any enclose them in brackets. This is a skeleton command (see `skeleton-insert'). Normally the skeleton text is inserted at point, with nothing "inside". If there is a highlighted region, the skeleton text is wrapped around the region text. A prefix argument ARG says to wrap the skeleton around the next ARG words. A prefix argument of -1 says to wrap around region, even if not highlighted. A prefix argument of zero says to wrap around zero words---that is, nothing. This is a way of overriding the use of a highlighted region. (defalias 'ada-get-param #[(&optional str arg) "\302\303 #\207" [str arg skeleton-proxy-new (nil " (" (ada-get-param1) | -2)] 4 (#$ . 28339) "*P\nP"]) (put 'ada-entry 'no-self-insert t) #@555 Insert a task entry, prompting for the entry name. This is a skeleton command (see `skeleton-insert'). Normally the skeleton text is inserted at point, with nothing "inside". If there is a highlighted region, the skeleton text is wrapped around the region text. A prefix argument ARG says to wrap the skeleton around the next ARG words. A prefix argument of -1 says to wrap around region, even if not highlighted. A prefix argument of zero says to wrap around zero words---that is, nothing. This is a way of overriding the use of a highlighted region. (defalias 'ada-entry #[(&optional str arg) "\302\303 #\207" [str arg skeleton-proxy-new ("[entry name]: " "entry " str (ada-get-param) ";" n)] 4 (#$ . 29094) "*P\nP"]) (put 'ada-entry-family-prompt-discriminant 'no-self-insert t) #@564 Insert a entry specification, prompting for the entry name. This is a skeleton command (see `skeleton-insert'). Normally the skeleton text is inserted at point, with nothing "inside". If there is a highlighted region, the skeleton text is wrapped around the region text. A prefix argument ARG says to wrap the skeleton around the next ARG words. A prefix argument of -1 says to wrap around region, even if not highlighted. A prefix argument of zero says to wrap around zero words---that is, nothing. This is a way of overriding the use of a highlighted region. (defalias 'ada-entry-family-prompt-discriminant #[(&optional str arg) "\302\303 #\207" [str arg skeleton-proxy-new ("[discriminant name]: " str)] 4 (#$ . 29886) "*P\nP"]) (put 'ada-entry-family 'no-self-insert t) #@564 Insert a entry specification, prompting for the entry name. This is a skeleton command (see `skeleton-insert'). Normally the skeleton text is inserted at point, with nothing "inside". If there is a highlighted region, the skeleton text is wrapped around the region text. A prefix argument ARG says to wrap the skeleton around the next ARG words. A prefix argument of -1 says to wrap around region, even if not highlighted. A prefix argument of zero says to wrap around zero words---that is, nothing. This is a way of overriding the use of a highlighted region. (defalias 'ada-entry-family #[(&optional str arg) "\302\303 #\207" [str arg skeleton-proxy-new ("[entry name]: " "entry " str " (" (ada-entry-family-prompt-discriminant) ")" (ada-get-param) ";" n)] 4 (#$ . 30670) "*P\nP"]) (put 'ada-select 'no-self-insert t) #@527 Insert a select block. This is a skeleton command (see `skeleton-insert'). Normally the skeleton text is inserted at point, with nothing "inside". If there is a highlighted region, the skeleton text is wrapped around the region text. A prefix argument ARG says to wrap the skeleton around the next ARG words. A prefix argument of -1 says to wrap around region, even if not highlighted. A prefix argument of zero says to wrap around zero words---that is, nothing. This is a way of overriding the use of a highlighted region. (defalias 'ada-select #[(&optional str arg) "\302\303 #\207" [str arg skeleton-proxy-new (nil "select\n" > _ n < "end select;")] 4 (#$ . 31500) "*P\nP"]) (put 'ada-accept-1 'no-self-insert t) #@568 Insert a condition statement, prompting for the condition name. This is a skeleton command (see `skeleton-insert'). Normally the skeleton text is inserted at point, with nothing "inside". If there is a highlighted region, the skeleton text is wrapped around the region text. A prefix argument ARG says to wrap the skeleton around the next ARG words. A prefix argument of -1 says to wrap around region, even if not highlighted. A prefix argument of zero says to wrap around zero words---that is, nothing. This is a way of overriding the use of a highlighted region. (defalias 'ada-accept-1 #[(&optional str arg) "\302\303 #\207" [str arg skeleton-proxy-new ("[condition]: " "when " str | -5)] 4 (#$ . 32226) "*P\nP"]) (put 'ada-accept-2 'no-self-insert t) #@570 Insert an accept statement, prompting for the name and arguments. This is a skeleton command (see `skeleton-insert'). Normally the skeleton text is inserted at point, with nothing "inside". If there is a highlighted region, the skeleton text is wrapped around the region text. A prefix argument ARG says to wrap the skeleton around the next ARG words. A prefix argument of -1 says to wrap around region, even if not highlighted. A prefix argument of zero says to wrap around zero words---that is, nothing. This is a way of overriding the use of a highlighted region. (defalias 'ada-accept-2 #[(&optional str arg) "\302\303 #\207" [str arg skeleton-proxy-new ("[accept name]: " > "accept " str (ada-get-param) " do" n > _ n < "end " str ";")] 4 (#$ . 32991) "*P\nP"]) (put 'ada-accept 'no-self-insert t) #@575 Insert an accept statement (prompt for condition, name and arguments). This is a skeleton command (see `skeleton-insert'). Normally the skeleton text is inserted at point, with nothing "inside". If there is a highlighted region, the skeleton text is wrapped around the region text. A prefix argument ARG says to wrap the skeleton around the next ARG words. A prefix argument of -1 says to wrap around region, even if not highlighted. A prefix argument of zero says to wrap around zero words---that is, nothing. This is a way of overriding the use of a highlighted region. (defalias 'ada-accept #[(&optional str arg) "\302\303 #\207" [str arg skeleton-proxy-new (nil > (ada-accept-1) & " =>\n" (ada-accept-2))] 4 (#$ . 33804) "*P\nP"]) (put 'ada-or-accept 'no-self-insert t) #@568 Insert an accept alternative, prompting for the condition name. This is a skeleton command (see `skeleton-insert'). Normally the skeleton text is inserted at point, with nothing "inside". If there is a highlighted region, the skeleton text is wrapped around the region text. A prefix argument ARG says to wrap the skeleton around the next ARG words. A prefix argument of -1 says to wrap around region, even if not highlighted. A prefix argument of zero says to wrap around zero words---that is, nothing. This is a way of overriding the use of a highlighted region. (defalias 'ada-or-accept #[(&optional str arg) "\302\303 #\207" [str arg skeleton-proxy-new (nil < "or\n" (ada-accept))] 4 (#$ . 34588) "*P\nP"]) (put 'ada-or-delay 'no-self-insert t) #@563 Insert a delay alternative, prompting for the delay value. This is a skeleton command (see `skeleton-insert'). Normally the skeleton text is inserted at point, with nothing "inside". If there is a highlighted region, the skeleton text is wrapped around the region text. A prefix argument ARG says to wrap the skeleton around the next ARG words. A prefix argument of -1 says to wrap around region, even if not highlighted. A prefix argument of zero says to wrap around zero words---that is, nothing. This is a way of overriding the use of a highlighted region. (defalias 'ada-or-delay #[(&optional str arg) "\302\303 #\207" [str arg skeleton-proxy-new ("[delay value]: " < "or\n" > "delay " str ";")] 4 (#$ . 35347) "*P\nP"]) (put 'ada-or-terminate 'no-self-insert t) #@536 Insert a terminate alternative. This is a skeleton command (see `skeleton-insert'). Normally the skeleton text is inserted at point, with nothing "inside". If there is a highlighted region, the skeleton text is wrapped around the region text. A prefix argument ARG says to wrap the skeleton around the next ARG words. A prefix argument of -1 says to wrap around region, even if not highlighted. A prefix argument of zero says to wrap around zero words---that is, nothing. This is a way of overriding the use of a highlighted region. (defalias 'ada-or-terminate #[(&optional str arg) "\302\303 #\207" [str arg skeleton-proxy-new (nil < "or\n" > "terminate;")] 4 (#$ . 36124) "*P\nP"]) (provide 'ada-stmt)