(* Release 3.10 *)
(*-------------------------------------------------------------------------*
*                                                                          *
*  FCNTL.DEF - Modula-2 interface to FCNTL.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 fcntl;

CONST
  O_RDONLY              = 0;
  O_WRONLY              = 1;
  O_RDWR                = 2;

  O_CREAT               = 100H;        (* create and open file           *)
  O_TRUNC               = 200H;        (* open with truncation           *)
  O_EXCL                = 400H;        (* exclusive open                 *)

  O_EOF                 = 200H;        (* set when text file hits ^Z     *)

(* A file in append mode may be written to only at its end.              *)
  O_APPEND              = 800H;        (* to end of file                 *)

(* File mode special bits. User may only read these bits                 *)
  O_CHANGED             = 1000H;       (* File has been written          *)
  O_DEVICE              = 2000H;       (* user read only flag            *)
  O_TEXT                = 4000H;       (* CR-LF translation              *)
  O_BINARY              = 8000H;       (* no translation                 *)

(* DOS 3.x file sharing options                                          *)
  SH_NOINHERIT          = 80H;
  SH_COMPAT             = 00H;
  SH_DENYRW             = 10H;
  SH_DENYWR             = 20H;
  SH_DENYRD             = 30H;
  SH_DENYNO             = 40H;
  SH_DENYNONE           = SH_DENYNO;

VAR
  fmode                 : CARDINAL;

END fcntl.