/*  get_name - extract file name from line  */
get_name (line, file)
/*******************/
    char *line, *file;
    {
    char *delim;
    int n;
 
    while (*line == ' ' || *line == '\t')
        ++line;
    if (*line == '\n')
        n = 0;
    else
        {
        n = 0;
        if (*line == '"')
            {
            delim = "\"\n";
            ++line;
            }
        else if (*line == '<')
            {
            delim = ">\n";
            ++line;
            }
        else
            delim = " \t\n";
        n += cpy_buf (file+n, line, instr(line, delim));
        *(file+n) = eos;
        }
    return (n);
    }  /* get_name */

.