szseg$ (6) --- size an open Primos segment directory     09/18/84


          | _C_a_l_l_i_n_g _I_n_f_o_r_m_a_t_i_o_n

          |      subroutine szseg$ (size, fd)
          |      longint size
          |      integer fd

          |      Library: vswtlb (standard Subsystem library)


          | _F_u_n_c_t_i_o_n

          |      'Szseg$'  returns  the size of the segment directory open on
          |      the Primos file descriptor 'fd'.  If an error  occurs  while
          |      sizing  the directory, 'size' will contain ERR, otherwise it
          |      will contain the size in words of the directory.


          | _I_m_p_l_e_m_e_n_t_a_t_i_o_n

          |      The directory is read and each of the file entries is  chec-
          |      ked.   If  an  entry is a normal file, 'szfil$' is called to
          |      size  it.   If  the  entry  is  another  segment  directory,
          |      'szseg$' is called recursively to size the subdirectory.


          | _A_r_g_u_m_e_n_t_s _M_o_d_i_f_i_e_d

          |      size


          | _C_a_l_l_s

          |      Primos sgdr$$, Primos srch$$, szfil$ (6)


          | _S_e_e _A_l_s_o

          |      gfdata (2), sfdata (2), szfil$ (6)




















            szseg$ (6)                    - 1 -                    szseg$ (6)