Function fopenp

sys/share/pcsys.c:191–236

#endif

FILE *
fopenp(const char *name, const char *mode)
{
    char buf[BUFSIZ], *bp, *pp, lastch = 0;
    FILE *fp;

    /* Try the default directory first.  Then look along PATH.
     */
    (void) strncpy(buf, name, BUFSIZ - 1);
    buf[BUFSIZ - 1] = '\0';
    if ((fp = fopen(buf, mode)))
        return fp;
    else {
        int ccnt = 0;
        pp = getenv("PATH");
        while (pp && *pp) {
            bp = buf;
            while (*pp && *pp != PATHSEP) {
                lastch = *bp++ = *pp++;
                ccnt++;
            }
            if (lastch != '\\' && lastch != '/') {
                *bp++ = '\\';
                ccnt++;
            }
            (void) strncpy(bp, name, (BUFSIZ - ccnt) - 2);
            bp[BUFSIZ - ccnt - 1] = '\0';
            if ((fp = fopen(buf, mode)))
                return fp;
            if (*pp)
                pp++;
        }
    }
#ifdef OS2_CODEVIEW /* one more try for hackdir */
    (void) strncpy(buf, hackdir, BUFSZ);
    buf[BUFSZ - 1] = '\0';
    if ((strlen(name) + 1 + strlen(buf)) < BUFSZ - 1) {
        append_slash(buf);
        Strcat(buf, name);
    } else
        impossible("fopenp() buffer too small for complete filename!");
    if (fp = fopen(buf, mode))
        return fp;
#endif
    return (FILE *) 0;
}

#if defined(MICRO) || defined(OS2)
void