Topspeed_JPI/TS/INCLUDE/SHARE.DEF

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

CONST
  SH_NOINHERIT = 80H;
  SH_COMPAT    = 0;
  SH_DENYRW    = 10H;
  SH_DENYWR    = 20H;
  SH_DENYRD    = 30H;
  SH_DENYNO    = 40H;
  SH_ALL       = 0F0H;
  SH_DENYNONE  = SH_DENYNO;

END share.