Move point backwards to nearest line with same indentation or less.
If not found, point is left at top of buffer." (interactive) (byte-code "¹Èˋ´ˆ \"Ș Ç" [nil ada-go-to-this-indent -1 current-indentation back-to-indentation] 4))
(defun ada-forward-to-same-indent nil "\
Move point forwards to nearest line with same indentation or less.
If not found, point is left at start of last line in buffer." (interactive) (byte-code "¹Èˋ´ˆ \"Ș Ç" [nil ada-go-to-this-indent 1 current-indentation back-to-indentation] 4))
(defun ada-array nil "\
Insert array type definition, prompting for component type,
leaving the user to type in the index subtypes." (interactive) (byte-code "¹ÈˋcÈ´ Ȉ˜!cȯ È˘cÈ´ Ȉ˙!cȯ Ç" [nil "array ()" backward-char read-string "index subtype[s]: " end-of-line " of ;" "component-type: "] 7))
(defun ada-case nil "\
Build skeleton case statment, prompting for the selector expression.
starts up the first when clause, too." (interactive) (byte-code "¹ÈˋcÈ´ˆ˜!¯\"È˘ È˘ È˙cȨ²!È˚ È˚ ȸ Ç" [nil "case " insert read-string "selector expression: " " is" ada-newline "end case;" end-of-line 0 ada-tab ada-when] 9))
(defun ada-declare-block nil "\
Insert a block with a declare part and indent for the 1st declaration." (interactive) (byte-code "ˋÈ´ˆ!˜cȯ˘\"?Ä# ˙ Ȩ²!È˚¸\"ȳ²!È˝ È˛ È˛ ÈˇcÈ˛ È˛ ȯ˘\"Â? —cÁD ˚±¼#)È˝½!Ⱦ Ç" [ada-block-name nil read-string "[block name]: " "declare" string-equal "" beginning-of-line open-line 1 insert ":" next-line end-of-line ada-newline "begin" "end;" "end " ";" -2 ada-tab] 16))
(defun ada-exception-block nil "\
Insert a block with an exception part and indent for the 1st line of code." (interactive) (byte-code "´Èˆ˜!¯cÈ˘˙\"?Ä# ¨ Ȳ˚!ȸ³\"È˝˚!È˛ Èˇ Èˇ È—cÈˇ Èˇ È˘˙\"Â? ±cÁD ¸¼½#)È˛¾!Èà Ç" [block-name t nil read-string "[block name]: " "begin" string-equal "" beginning-of-line open-line 1 insert ":" next-line end-of-line ada-newline "exception" "end;" "end " ";" -2 ada-tab] 16))
(defun ada-exception nil "\
Undent and insert an exception part into a block. Reindent." (interactive) (byte-code "¹Èˋ È´cȈ Ș Ç" [nil ada-untab "exception" ada-newline ada-tab] 4))
(defun ada-else nil "\
Add an else clause inside an if-then-end-if clause." (interactive) (byte-code "¹Èˋ È´cȈ Ș Ç" [nil ada-untab "else" ada-newline ada-tab] 4))
(defun ada-exit nil "\
Insert an exit statement, prompting for loop name and condition." (interactive) (byte-code "´ÈˆcȘ¯!˘˙\"?Ä ¨²\")Ș˚!˘ ˙\"?Ä5 ¸³ \"Â1 ¨² \"Á5 ¨˝ \")È˛cÇ" [ada-loop-name ada-exit-condition nil "exit" read-string "[name of loop to exit]: " string-equal "" insert " " "[exit condition]: " string-match "^ *[Ww][Hh][Ee][Nn] +" " when " ";"] 10))
(defun ada-when nil "\
Start a case statement alternative with a when clause." (interactive) (byte-code "¹Èˋ È´cȈ˜¯!˘\"È˙ Ȩ Ç" [nil ada-untab "when " insert read-string "'|'-delimited choice list: " " =>" ada-newline ada-tab] 6))
(defun ada-for-loop nil "\
Build a skeleton for-loop statement, prompting for the loop parameters." (interactive) (byte-code "´ÈˆcȘ¯!˘˙\"? Ä&