RULE tolerance_zone_form_name_constraint FOR (tolerance_zone_form); LOCAL names : SET OF STRING := [ 'within a circle', 'between two concentric circles', 'between two equidistant curves', 'within a cylinder', 'between two coaxial cylinders', 'between two equidistant surfaces', 'non uniform', 'cylindrical or circular', 'spherical', 'unknown']; pass : BOOLEAN := TRUE; END_LOCAL; REPEAT i := 1 TO SIZEOF(tolerance_zone_form) WHILE pass; pass := (tolerance_zone_form[i].name IN names); END_REPEAT; WHERE wr1: pass; END_RULE; -- tolerance_zone_form_name_constraint |
public class RTolerance_zone_form_name_constraint public int rWr1(SdaiContext _context) public int run(SdaiContext _context, A_string violations) |