SD2-m2/lib/SDLUtils.def

DEFINITION MODULE SDLUtils ;

(*
   m2SDL - small pure-Modula-2 helpers over the FOR "C" bindings.
   Copies NUL-terminated C strings (ADDRESS) into Modula-2 CHAR
   arrays (NUL-terminated, truncated to the destination length).
*)

FROM SYSTEM IMPORT ADDRESS;

EXPORT UNQUALIFIED CStrToM2, GetErrorString;

PROCEDURE CStrToM2 (src: ADDRESS; VAR dst: ARRAY OF CHAR);
PROCEDURE GetErrorString (VAR buf: ARRAY OF CHAR);

END SDLUtils.