

            mkpa$ (6) --- convert a treename into a pathname         03/25/82


            _C_a_l_l_i_n_g _I_n_f_o_r_m_a_t_i_o_n

                 integer function mkpa$ (tree, path, default)
                 character path (MAXPATH), tree (ARB)
                 integer default

                 Library:  vswtlb (standard Subsystem library)


            _F_u_n_c_t_i_o_n

                 'Mkpa$'  is  used  to  convert  a  Primos  treename  into an
                 equivalent Subsystem pathname.  The first  argument  is  the
                 treename  to  be converted.  The second argument is a string
                 to receive the equivalent pathname.  The  last  argument  is
                 used  to  resolve  an  ambiguity  in Primos treenames; if it
                 equals YES, then simple names are interpreted  as  top-level
                 user   file   directories,   otherwise   simple   names  are
                 interpreted as files in the current directory.

                 The function return is the length of the  pathname  returned
                 in 'path'.

                 The following conversions are performed:

                      <name>dir>subdir>file -> /name/dir/subdir/file
                      dir>subdir>file       -> //dir/subdir/file
                      *>subdir>file         -> subdir/file
                      simplename            -> simplename
                                                  (if 'default' == NO)
                                            -> //simplename
                                                  (if 'default' == YES)



            _I_m_p_l_e_m_e_n_t_a_t_i_o_n

                 Simple  checks  determine  which of the above cases applies,
                 then translation is straightforward.


            _A_r_g_u_m_e_n_t_s _M_o_d_i_f_i_e_d

                 path


            _C_a_l_l_s

                 scopy, mapdn, index


            _S_e_e _A_l_s_o

                 mktr$ (6)




            mkpa$ (6)                     - 1 -                     mkpa$ (6)


