使用规则在 Ada 中约束或子类型 Unbounded_String？

Question

Ada 的新手，但到目前为止很喜欢它。我可能是以菜鸟的方式问这个问题，因为我只是在写一些有用的东西作为我的尝试，但这里有：

我有一个使用 Unbounded_Strings 的系统，我想对它们应用一些规则，例如长度是否可以被 n 整除或它们可以包含哪些字符。有没有一种巧妙的方法来解决这个问题，以便我可以依靠类型系统进行验证？

Answer 1

您可以要求类型系统检查分配给变量的值，Dynamic_Predicate 方面：

with Ada.Strings.Unbounded;
package UB_Preds
is
   use Ada.Strings.Unbounded;

   subtype Even_Length_String is Unbounded_String
   with Dynamic_Predicate => Length(Even_Length_String) mod 2 = 0;

   subtype Lower_Case_String is Unbounded_String
   with Dynamic_Predicate =>
      (for all C of To_String(Lower_Case_String) => C in 'a' .. 'z');

end UB_Preds;

用法示例：如果您在启用断言检查的情况下进行编译（GNAT 为 -gnata），这些声明将引发 Assert_Failure，因为分配的值未通过子类型的谓词：

Odd : UB_Preds.Even_Length_String := To_Unbounded_String ("ABC");
UC : UB_Preds.Lower_Case_String := To_Unbounded_String ("aBc");

第一个是三个字符，所以Length mod 2 /= 0，而第二个是大写字符。

一般来说，断言检查的enabling/disabling是用pragma Assertion_Policy控制的。 GNAT 的默认设置是忽略断言，但 -gnata 启用它们。

（当然，如果您使用 7 位 ASCII 以外的任何字符集，您应该使用 Ada.Characters.Handling 来测试 lower/upper 大小写，而不是上面示例使用的简单范围。 )

使用规则在 Ada 中约束或子类型 Unbounded_String？

Constrain or subtype an Unbounded_String in Ada with rules?

string

constraints

ada