ada - ユーザーが入力した内容を確認する

Question

私は Ada プログラミングの初心者で、次のコードがあります。

PROCEDURE ask(variable: OUT myType) IS
BEGIN
   Put("Enter : ");
   Get(variable);
   Skip_Line;
EXCEPTION
   WHEN OTHERS => RAISE wrongInput;
END ask;

この手順では、何かを入力して、それを「変数」変数 (型は '1' から '3' までの文字を含む myType です) に入れるよう求めています。

入力が正しくない場合、例外を発生させます。

たとえば、入力が「m」の場合、何か別のことをしたいと思います。

どうすればこれを行うことができますか?

Answer 1

の宣言を変更myType:

type myType is ('1', '2', '3', 'm');

Answer 2

もしかして、こういうこと？（ここで推測するだけで、「何か他のことをしたい」というのは非常に曖昧です）。

procedure Ask (Variable : out My_Type) is
begin
   loop
      begin
         Put ("Enter :");
         Get (Variable);
         Skip_Line;
         return;
      exception
         when others =>
            Skip_Line;
            Put_Line ("invalid.");
      end;
   end loop;
end Ask;