DEFINITION MODULE FOR "C" TCString;
(* C string boundary test interface: procedures use the C ABI. *)
EXPORT UNQUALIFIED m2_c_strlen, m2_c_fill;

PROCEDURE m2_c_strlen (s : ARRAY OF CHAR) : CARDINAL;
PROCEDURE m2_c_fill (VAR buf : ARRAY OF CHAR;
                     cap : CARDINAL; ch : CHAR) : CARDINAL;
END TCString.