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