(* Release 3.10 *)
(*-------------------------------------------------------------------------*
*                                                                          *
*  ERRNO.DEF - Modula-2 interface to ERRNO.H                               *
*                                                                          *
*  COPYRIGHT (C) 1989..1992 Clarion Software Corporation.                  *
*  All Rights Reserved                                                     *
*                                                                          *
*--------------------------------------------------------------------------*)

(*# project("#set tsc='on'") *)
(*# call(o_a_size=>off, o_a_copy=>off, c_conv=>on, result_optional=>on) *)
(*# module(implementation=>off, init_code=>off) *)
(*# name(prefix=>c) *)


DEFINITION MODULE Errno;

CONST
  EZERO	             = 0;                  (* No Error	              *)
  EINVFN             = 1;	           (* Invalid function code   *)
  ENOENT	     = 2;		   (* File not found	      *)
  ENOPATH            = 3;		   (* Path not found	      *)
  EMFILE	     = 4;                  (* Too many open files     *)
  EACCES	     = 5;		   (* Access denied	      *)
  EBADF	             = 6;		   (* Invalid handle	      *)
  E2BIG	             = 7;		   (* Memory blocks destroyed *)
  ENOMEM	     = 8;		   (* Insufficient Memory     *)
  EINVMEM            = 9;		   (* Invalid memory block address *)
  EINVENV            = 10;		   (* Invalid environment     *)
  EINVFMT            = 11;		   (* Invalid format	      *)
  EINVACC            = 12;		   (* Invalid access code     *)
  EINVDAT            = 13;		   (* Invalid data 	      *)
  ENODEV	     = 15;		   (* Invalid drive	      *)
  ECURDIR            = 16;		   (* Attempt to remove CurDir *)
  ENOTSAM            = 17;		   (* Not same device	       *)
  ENMFILE            = 18;		   (* No more files	       *)

(* RTL error codes *)

  EINVAL	     = 19;		   (* Invalid argument         *)
  ENOTDIR            = 20;		   (* Not directory	       *)
  EISDIR	     = 21;		   (* Is directory 	       *)
  ENOEXEC            = 22;		   (* Corrupted exec file      *)
  EMLINK	     = 32;		   (* Cross-device link	       *)

  EDOM	             = 33;		   (* Math argument	       *)
  ERANGE	     = 34;		   (* Result too large         *)
  EDEADLOCK          = 36;		   (* file locking deadlock    *)
  EEXIST             = 80;                 (* File exists MSDOS 3.0 +  *)

  EFAULT             = -1;           (* Unknown error		          *)
  EPERM	             = -1;           (* UNIX - not in  MSDOS 	          *)
  ESRCH	             = -1;           (* UNIX - not in  MSDOS 	          *)
  EINTR	             = -1;           (* UNIX - not in  MSDOS 	          *)
  EIO	             = -1;           (* UNIX - not in  MSDOS 	          *)
  ENXIO	             = -1;           (* UNIX - not in  MSDOS 	          *)
  ECHILD	     = -1;           (* UNIX - not in  MSDOS 	          *)
  EAGAIN	     = -1;           (* UNIX - not in  MSDOS 	          *)
  ENOTBLK            = -1;           (* UNIX - not in  MSDOS 	          *)
  EBUSY	             = -1;           (* UNIX - not in  MSDOS 	          *)
  ENFILE	     = -1;           (* UNIX - not in  MSDOS 	          *)
  ENOTTY	     = -1;           (* UNIX - not in  MSDOS 	          *)
  ETXTBSY            = -1;           (* UNIX - not in  MSDOS 	          *)
  EFBIG	             = -1;           (* UNIX - not in  MSDOS 	          *)
  ENOSPC	     = -1;           (* UNIX - not in  MSDOS 	          *)
  ESPIPE	     = -1;           (* UNIX - not in  MSDOS 	          *)
  EROFS	             = -1;           (* UNIX - not in  MSDOS 	          *)
  EPIPE	             = -1;           (* UNIX - not in  MSDOS 	          *)
  EUCLEAN            = -1;           (* UNIX - not in  MSDOS 	          *)

VAR
  _doserrno             : INTEGER;     (* global DOS error variable       *)
  errno                 : INTEGER;     (* global error variable           *)

END Errno.