Liren Large Software Subsidy 7/07.iso/c/c221/5.ddi/MWHC.005/53

Text File | 1992-12-09 | 450 b | 14 lines

{ (C) Copyright  1986-1992 MetaWare Incorporated;  Santa Cruz, CA 95060. }

package Fileh_type type File_handle;
   const
      MAX_FILES = 255;  -- We store a byte in our internal tables.
   type
      File_handle = Int;   {DOS file handle, as returned from OPEN}
   const
      Null_file_handle = File_handle(-1);
      System_stdin = File_handle(0);
      System_stdout = File_handle(1);
      System_stderr = File_handle(2);
   end;