没有。
但是,使用特定于域的语言(DSL)从中生成Ada并没有错。这经常发生。
您可以使用通用过程来创建通用主体,并提供您需要的任何唯一参数
with Ada.Text_IO; use Ada.Text_IO; procedure Hello is generic -- some sort of parameters Value : Integer; procedure Do_Op; procedure Do_Op is begin Put_Line(Integer'Image(Value)); end Do_Op; procedure Op1 is new Do_Op(1); procedure Op2 is new Do_Op(2); procedure Op3 is new Do_Op(3); begin Put_Line("Hello, world!"); Op1; Op2; Op3; end Hello;