FOREIGN DEFINITION MODULE Xglobal;

FROM SYSTEM IMPORT ADDRESS;
FROM Types IMPORT LONGCARD, SHORTCARD;

CONST
  CTRUE = 1;	(* C TRUE *)
  NULL = 0;


TYPE

  int          = INTEGER;
  long         = LONGCARD;
  unsigned     = CARDINAL;
  unsignedInt  = CARDINAL;
  unsignedLong = LONGCARD;
  unsignedShort = SHORTCARD;
  Bool = int;

  VoidProc = PROC;
  String = POINTER TO ARRAY [0..255] OF CHAR;
  caddr_t = ADDRESS (* POINTER TO CHAR *);

END Xglobal.
