home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 7 / 07.iso / c / c220 / 4.ddi / LIB / SRC / HOST.PF < prev    next >
Encoding:
Text File  |  1990-12-16  |  518 b   |  18 lines
  1. pragma c_include('implement.pf');
  2. package Host;
  3.  
  4.    type CPU_type = (_8086, _32000, _370, _68000, _VAX, _RT, _68020, _V60, _386);
  5.  
  6.    type System_type = (_MSDOS, _UNIX, _VMS, _CONCURRENT{DOS 286 from DRI}, _CMS);
  7.  
  8.    pragma data(import);
  9.    {
  10.        CPU and System on which the current program is executing.
  11.    }
  12.    var Host_CPU: CPU_type;
  13.        Host_system: System_type;
  14.    pragma data();
  15.    pragma alias(Host_CPU,Implement.RTE || 'CPU');
  16.    pragma alias(Host_system,Implement.RTE || 'OS');
  17.    end;
  18.