29 |
;; Nov 1993. Rolf Ebert <ebert@enpc.fr> (RE) Moved the |
;; Nov 1993. Rolf Ebert <ebert@enpc.fr> (RE) Moved the |
30 |
;; skeleton generation into this separate file. The code still is |
;; skeleton generation into this separate file. The code still is |
31 |
;; essentially written by DP |
;; essentially written by DP |
32 |
;; |
;; |
33 |
;; Adapted Jun 1994. Markus Heritsch |
;; Adapted Jun 1994. Markus Heritsch |
34 |
;; <Markus.Heritsch@studbox.uni-stuttgart.de> (MH) |
;; <Markus.Heritsch@studbox.uni-stuttgart.de> (MH) |
35 |
;; added menu bar support for templates |
;; added menu bar support for templates |
432 |
; "Inserts a use clause, prompting for the list of packages used." |
; "Inserts a use clause, prompting for the list of packages used." |
433 |
; "[list of packages used]: " |
; "[list of packages used]: " |
434 |
; "use " str ?\;) |
; "use " str ?\;) |
435 |
|
|
436 |
|
|
437 |
(define-skeleton ada-record |
(define-skeleton ada-record |
438 |
"Insert a skeleton record type declaration." |
"Insert a skeleton record type declaration." |
475 |
" (" ("[discriminant]: " str "; ") ") is\n" |
" (" ("[discriminant]: " str "; ") ") is\n" |
476 |
> "entry " _ \n |
> "entry " _ \n |
477 |
<"end " str ";" ) |
<"end " str ";" ) |
478 |
|
|
479 |
|
|
480 |
(define-skeleton ada-get-param1 |
(define-skeleton ada-get-param1 |
481 |
"Prompt for arguments and if any enclose them in brackets." |
"Prompt for arguments and if any enclose them in brackets." |
556 |
"[delay value]: " |
"[delay value]: " |
557 |
< "or\n" |
< "or\n" |
558 |
> "delay " str ";") |
> "delay " str ";") |
559 |
|
|
560 |
|
|
561 |
(define-skeleton ada-or-terminate |
(define-skeleton ada-or-terminate |
562 |
"Insert a terminate statement." |
"Insert a terminate statement." |