gtacl$ (6) --- get acl protection into ACL common block  09/04/84


          | _C_a_l_l_i_n_g _I_n_f_o_r_m_a_t_i_o_n

          |      integer function gtacl$ (path, key, at)
          |      character path(ARB)
          |      integer key, at

          |      Library: vswtlb (standard Subsystem library)


          | _F_u_n_c_t_i_o_n

          |      If  'key'  is 1, 'gtacl$' retrieves the standard ACL protec-
          |      tion for the file 'path' into the ACL common  block,  or  if
          |      'key'  is 2, it returns the priority ACL protection into the
          |      ACL common block.  'At' is set to YES if the current  attach
          |      was moved to get to the specified file.  The function return
          |      is  OK  if  the information was was retrieved and ERR other-
          |      wise.


          | _I_m_p_l_e_m_e_n_t_a_t_i_o_n

          |      'Gtacl$' attempts to attach to the directory containing  the
          |      file  and then procedes to retrieve the acl information.  It
          |      then scans through the returned information and  formats  it
          |      for  further  use  in  the  common  blocks.  If any error is
          |      encountered it attaches home if the attach point has changed
          |      and returns an error, otherwise it returns OK.


          | _C_a_l_l_s

          |      ctov (2), equal (2), follow (2), getto (2), mkpa$ (2), mktr$
          |      (2), mapstr (2), vtoc (2), Primos pa$lst, Primos ac$lst


          | _S_e_e _A_l_s_o

          |      gfdata (2), sfdata (2)



















            gtacl$ (6)                    - 1 -                    gtacl$ (6)