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

CONST
  LK_UNLCK              = 0;   (* unlock the file region *)
  LK_LOCK               = 1;   (* lock the file region *)
  LK_NBLCK              = 2;   (* non-blocking lock *)
  LK_RLCK               = 3;   (* lock for writing *)
  LK_NBRLCK             = 4;   (* non-blocking lock for writing *)

END locking.