Linux ns8.secondary29.go.th 2.6.32-754.28.1.el6.x86_64 #1 SMP Wed Mar 11 18:38:45 UTC 2020 x86_64
Apache/2.2.15 (CentOS)
: 122.154.134.11 | : 122.154.134.9
Cant Read [ /etc/named.conf ]
5.6.40
apache
www.github.com/MadExploits
Terminal
AUTO ROOT
Adminer
Backdoor Destroyer
Linux Exploit
Lock Shell
Lock File
Create User
CREATE RDP
PHP Mailer
BACKCONNECT
UNLOCK SHELL
HASH IDENTIFIER
CPANEL RESET
CREATE WP USER
README
+ Create Folder
+ Create File
/
usr /
share /
emacs /
23.1 /
lisp /
progmodes /
[ HOME SHELL ]
Name
Size
Permission
Action
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--
Delete
Unzip
Zip
${this.title}
Close
Code Editor : ada-stmt.elc
;ELC ;;; Compiled by mockbuild@c6b8.bsys.dev.centos.org on Thu Feb 19 13:05:00 2015 ;;; from file /builddir/build/BUILD/emacs-23.1/lisp/progmodes/ada-stmt.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 "`ada-stmt.el' was compiled for Emacs 19.29 or later")) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (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 (#$ . 724)]) (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 (#$ . 1024) "*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 (#$ . 1822) "*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 (#$ . 2705) "*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 (#$ . 3487) "*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 (#$ . 4325) "*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 (#$ . 5165) "*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 (#$ . 5901) "*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 (#$ . 6675) "*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 (#$ . 7429) "*"]) (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 (#$ . 7665) "*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 (#$ . 8968) "*P\nP"]) (put 'ada-if 'no-self-insert t) #@569 Insert skeleton if statment, 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 (#$ . 9735) "*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 (#$ . 10512) "*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 (#$ . 11294) "*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 (#$ . 12023) "*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 (#$ . 12849) "*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 (#$ . 13600) "*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 (#$ . 14329) "*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 (#$ . 15242) "*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 (#$ . 16000) "*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 (#$ . 16838) "*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 (#$ . 17619) "*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 (#$ . 18421) "*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 (#$ . 19192) "*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 (#$ . 19940) "*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 (#$ . 20825) "*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 (#$ . 21675) "*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 (#$ . 22811) "*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 (#$ . 23535) "*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 (#$ . 24280) "*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 (#$ . 25108) "*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 (#$ . 25988) "*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 (#$ . 26781) "*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 (#$ . 27614) "*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 (#$ . 28399) "*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 (#$ . 29154) "*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 (#$ . 29946) "*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 (#$ . 30730) "*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 (#$ . 31560) "*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 (#$ . 32286) "*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 (#$ . 33051) "*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 (#$ . 33864) "*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 (#$ . 34648) "*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 (#$ . 35407) "*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 (#$ . 36184) "*P\nP"]) (provide 'ada-stmt)
Close
