DataMuseum.dk

top - download

    Length: 1003 (0x3eb)
    Types: TextFile
    Names: »so.c«

└─⟦87ddcff64⟧ Bits:30001253 CPHDIST85 Tape, 1985 Autumn Conference Copenhagen
    └─ ⟦this⟧ »cph85dist/rman/daemon/so.c« 

TextFile

#ifndef lint
static char RCSid[] = "$Header: so.c,v 1.3 85/08/27 15:17:24 broome Exp $";
#endif

/*
 * $Log:    so.c,v $
 * Revision 1.3  85/08/27  15:17:24  broome
 * Last cleanup before release.
 * 
 * Revision 1.2  85/07/06  16:56:09  broome
 * 
 * Revision 1.1  85/07/03  13:07:22  broome
 * Initial revision
 */

#include <stdio.h>

/*
 *  A nice simple form of "soelim" to replace `.so' 
 *  directives with the named file inline.
 */

soelim (name)
char *name;
{
    FILE *fp;
    char line[1024];
    char so[512];

    if ((fp = fopen (name, "r")) == NULL) {
        sprintf (line, "/usr/man/%s", name);     /* kludge for old files */
        if ((fp = fopen (line, "r")) == NULL) {
            perror (name);
            return;
        }
    }
    while (fgets (line, 1024, fp)) {
        if (strncmp (line, ".so", 3) == 0) {   /* include directive */
            sscanf (line, ".so%s", so);
            soelim (so);
        } else 
            fputs (line, stdout);
    }
    fclose (fp);
}