Lines Matching defs:ada
0 ;;; ada-stmt.el --- an extension to Ada mode for inserting statement templates
10 ;; Keywords: languages, ada
13 ;; This file is now automatically loaded from ada-mode.el, and creates a submenu
19 ;; Original version from V. Bowman as in ada.el of Emacs-18
53 ;;;without patching the LISP code. Maybe the metalanguage used in ada-stmt.el
64 (require 'ada-mode)
66 (defun ada-func-or-proc-name ()
70 (if (re-search-backward ada-procedure-start-regexp nil t)
76 (define-skeleton ada-array
83 (define-skeleton ada-case
93 (define-skeleton ada-when
100 (define-skeleton ada-declare-block
112 (define-skeleton ada-exception-block
124 (define-skeleton ada-exception
131 (define-skeleton ada-exit-1
137 (define-skeleton ada-exit
140 "exit " str & ?\ (ada-exit-1) | -1 ?\;)
143 (defun ada-header ()
150 (ada-header-tmpl))))
153 (define-skeleton ada-header-tmpl
157 "\n" ada-fill-comment-prefix "Filename : " (buffer-name)
158 "\n" ada-fill-comment-prefix "Description : " str
159 "\n" ada-fill-comment-prefix "Author : " (user-full-name)
160 "\n" ada-fill-comment-prefix "Created On : " (current-time-string)
161 "\n" ada-fill-comment-prefix "Last Modified By: ."
162 "\n" ada-fill-comment-prefix "Last Modified On: ."
163 "\n" ada-fill-comment-prefix "Update Count : 0"
164 "\n" ada-fill-comment-prefix "Status : Unknown, Use with caution!"
168 (define-skeleton ada-display-comment
171 "--\n" ada-fill-comment-prefix _ "\n--")
174 (define-skeleton ada-if
182 (define-skeleton ada-elsif
190 (define-skeleton ada-else
197 (define-skeleton ada-loop
206 (define-skeleton ada-for-loop-prompt-variable
212 (define-skeleton ada-for-loop-prompt-range
218 (define-skeleton ada-for-loop
223 (ada-for-loop-prompt-variable)
225 (ada-for-loop-prompt-range)
231 (define-skeleton ada-while-loop-prompt-entry-condition
237 (define-skeleton ada-while-loop
242 (ada-while-loop-prompt-entry-condition)
248 (define-skeleton ada-package-spec
256 (define-skeleton ada-package-body
265 (define-skeleton ada-private
272 (define-skeleton ada-function-spec-prompt-return
278 (define-skeleton ada-function-spec
284 (ada-function-spec-prompt-return)
288 (define-skeleton ada-procedure-spec
296 (define-skeleton ada-subprogram-body
298 Invoke right after `ada-function-spec' or `ada-procedure-spec'."
303 (ada-search-ignore-string-comment ada-subprog-start-re t nil)
304 (when (ada-search-ignore-string-comment "(" nil pos t 'search-forward)
316 (ada-func-or-proc-name)
320 (define-skeleton ada-separate
327 ;(define-skeleton ada-with
332 ;(define-skeleton ada-use
338 (define-skeleton ada-record
346 (define-skeleton ada-subtype
353 (define-skeleton ada-type
363 (define-skeleton ada-task-body
372 (define-skeleton ada-task-spec
381 (define-skeleton ada-get-param1
387 (define-skeleton ada-get-param
391 (ada-get-param1) | -2)
394 (define-skeleton ada-entry
398 (ada-get-param)
402 (define-skeleton ada-entry-family-prompt-discriminant
408 (define-skeleton ada-entry-family
412 " (" (ada-entry-family-prompt-discriminant) ")"
413 (ada-get-param)
417 (define-skeleton ada-select
425 (define-skeleton ada-accept-1
431 (define-skeleton ada-accept-2
435 (ada-get-param)
441 (define-skeleton ada-accept
444 > (ada-accept-1) & " =>\n"
445 (ada-accept-2))
448 (define-skeleton ada-or-accept
452 (ada-accept))
455 (define-skeleton ada-or-delay
462 (define-skeleton ada-or-terminate
469 (provide 'ada-stmt)
472 ;;; ada-stmt.el ends here