Topspeed_JPI/TS-V3/INCLUDE/SHARE.LST

Listing:

    1  (* Release 3.10 *)
    2  (*-------------------------------------------------------------------------*
    3  *                                                                          *
    4  *  SHARE.DEF - Modula-2 interface to SHARE.H                               *
    5  *                                                                          *
    6  *  COPYRIGHT (C) 1989..1992 Clarion Software Corporation.                  *
    7  *  All Rights Reserved                                                     *
    8  *                                                                          *
    9  *--------------------------------------------------------------------------*)
   10  
   11  (*# project("#set tsc='on'") *)
   12  (*# call(o_a_size=>off, o_a_copy=>off, c_conv=>on, result_optional=>on) *)
   13  (*# module(implementation=>off, init_code=>off) *)
   14  (*# name(prefix=>c) *)
   15  
   16  
   17  DEFINITION MODULE share;
   18  
   19  CONST
   20    SH_NOINHERIT = 80H;
   21    SH_COMPAT    = 0;
   22    SH_DENYRW    = 10H;
   23    SH_DENYWR    = 20H;
   24    SH_DENYRD    = 30H;
   25    SH_DENYNO    = 40H;
   26    SH_ALL       = 0F0H;
   27    SH_DENYNONE  = SH_DENYNO;
*****                   ^ not supported yet
   28  
   29  END share.
*****      ^ not supported yet

    2 errors