home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 7 / 07.iso / c / c220 / 4.ddi / LIB / SRC / IMPLEMEN.PF < prev    next >
Encoding:
Text File  |  1990-12-16  |  1.1 KB  |  34 lines
  1. {
  2.    Implementation dependent types and constants
  3.    When routine aliasing prefixes are changed, implement.h must be changed.
  4. }
  5. package Implement;
  6.    with Loopholes:[Address];
  7.  
  8.    const
  9.       RTE             = '_mw'; {Prefix to be applied to all RTE routines}
  10.       RTE_ALIASING         = RTE || '%r';
  11.       GLOBAL_ALIASING_CONVENTION = '%r';
  12.       PLIB_aliasing         = RTE_aliasing;
  13.       Cprefix             = '';
  14.       CLIB_aliasing         = Cprefix || '%r';
  15.       NUL          = Chr(0);
  16.       Horizontal_tab  = Chr(9);
  17.       Linefeed          = Chr(10);
  18.       Vertical_tab    = Chr(11);
  19.       Form_feed       = Chr(12);
  20.       Carriage_return = Chr(13);
  21.       Control_Z       = Chr(26);
  22.    type
  23.       Adrint = Longint;
  24.       Charp = Address(Char);
  25.       -- Change these if necessary when moving to another system.
  26.       -- Usually, Int/Unsigned for Pascal = C's int/unsigned.
  27.       Int = Standard.Int;
  28.       Unsigned_int = Unsigned;
  29.       Byte_count = Unsigned;
  30.       Size_t = Unsigned;
  31.    end;
  32. #define HCLIB (1=1)
  33. #define PPLIB (not HCLIB)
  34. pragma Compatible_with_address(Implement.Charp);