rmseg$ (6) --- remove a segment directory                03/25/82


            _C_a_l_l_i_n_g _I_n_f_o_r_m_a_t_i_o_n

                 subroutine rmseg$ (funit)
                 integer funit

                 Library:  vswtlb  (standard Subsystem library)


            _F_u_n_c_t_i_o_n

                 'Rmseg$' cleans out the segment directory open on the Primos
                 file unit given as its sole argument.


            _I_m_p_l_e_m_e_n_t_a_t_i_o_n

                 'Rmseg$'  deletes  successive entries in the directory using
                 the Primos routine SRCH$$.  When 'rmseg$'  comes  across  an
                 entry that is itself a non-empty segment directory, it opens
                 that  directory  then  calls  itself recursively to clean it
                 out.  When all entries  have  been  removed,  the  directory
                 itself is set to zero length.


            _C_a_l_l_s

                 Primos sgdr$$, Primos srch$$, rmseg$


            _S_e_e _A_l_s_o

                 del (1), remove (2), rmfil$ (6)


























            rmseg$ (6)                    - 1 -                    rmseg$ (6)