home *** CD-ROM | disk | FTP | other *** search
- { (C) Copyright 1986-1992 MetaWare Incorporated; Santa Cruz, CA 95060. }
-
- {
- Implementation dependent types and constants
- When routine aliasing prefixes are changed, implement.h must be changed.
- }
- package Implement;
- with Loopholes:[Address];
-
- const
- RTE = '_mw'; {Prefix to be applied to all RTE routines}
- RTE_ALIASING = RTE || '%r';
- GLOBAL_ALIASING_CONVENTION = '%r';
- PLIB_aliasing = RTE_aliasing;
- Cprefix = '';
- CLIB_aliasing = Cprefix || '%r';
- NUL = Chr(0);
- Horizontal_tab = Chr(9);
- Linefeed = Chr(10);
- Vertical_tab = Chr(11);
- Form_feed = Chr(12);
- Carriage_return = Chr(13);
- Control_Z = Chr(26);
- type
- Adrint = Longint;
- Charp = Address(Char);
- -- Change these if necessary when moving to another system.
- -- Usually, Int/Unsigned for Pascal = C's int/unsigned.
- Int = Standard.Int;
- Unsigned_int = Unsigned;
- Byte_count = Unsigned;
- Size_t = Unsigned;
- end;
- #define HCLIB (1=1)
- #define PPLIB (not HCLIB)
-