gtemp (2) --- parse a template into name and definition  03/25/82


            _C_a_l_l_i_n_g _I_n_f_o_r_m_a_t_i_o_n

                 integer function gtemp (str, nm, repl)
                 character str (ARB), nm (MAXARG), repl (MAXARG)

                 Library:  vswtlb (standard Subsystem library)


            _F_u_n_c_t_i_o_n

                 'Gtemp'  takes  a NEWLINE or EOS terminated character string
                 in 'str' and assigns the first blank-delimited token to 'nm'
                 and the remaining characters of the string to 'repl'.  Lead-
                 ing and trailing blanks  are  removed  from  both  'nm'  and
                 'repl'.  Ratfor-style (beginning with a sharp sign) comments
                 are  also  ignored.   If  the  input string consists only of
                 blanks and comments, 'gtemp' returns EOF and 'nm' and 'repl'
                 are unmodified; otherwise 'gtemp' returns OK.


            _I_m_p_l_e_m_e_n_t_a_t_i_o_n

                 'Gtemp' first removes any trailing comments  (begun  with  a
                 sharp  sign,  as  in Ratfor) and leading and trailing blanks
                 from the string.  It then selects the first  blank-delimited
                 token  from the string, and assigns it to 'nm'.  Then, after
                 removing intervening blanks, 'gtemp' assigns  the  remaining
                 characters of the string to 'repl'.


            _A_r_g_u_m_e_n_t_s _M_o_d_i_f_i_e_d

                 nm, repl


            _S_e_e _A_l_s_o

                 ldtmp$ (6)




















            gtemp (2)                     - 1 -                     gtemp (2)