Return to ixhdr.c CVS log

Up to [CSRG BSD Unix] / 43BSD / contrib / icon / bin

Annotation of 43BSD/contrib/icon/bin/ixhdr.c, revision 1.1.1.1

1.1       root        1: #include <sys/types.h>
                      2: #include <sys/stat.h>
                      3: #include "../h/config.h"
                      4: #define ICONX Iconx
                      5: char *pptr;
                      6: main(argc,argv)
                      7: int argc;
                      8: char **argv;
                      9:    {
                     10: 
                     11:    char *path, *getenv();
                     12:    char file[256];
                     13:    char *name;
                     14:    
                     15:    name = argv[0];
                     16:    /*
                     17:     * If the name contains any slashes we skip the path search and
                     18:     *  just try to run the file.
                     19:     */
                     20:    if (index(name,'/'))
                     21:       doiconx(argv,name);
                     22:    
                     23:    pptr = path = getenv("PATH");
                     24:    if (index(path,'.') == 0) {
                     25:       if (canrun(name))
                     26:          doiconx(argv,name);
                     27:       }
                     28:    while (trypath(name,file)) {
                     29:       if (canrun(file))
                     30:          doiconx(argv,file);
                     31:       }
                     32:    /*
                     33:     * If we can't find it, we assume that it must exist somewhere
                     34:     *  and infer that it's in the current directory.
                     35:     */
                     36:    if (canrun(name))
                     37:       doiconx(argv,name);
                     38:    exit(100);
                     39:    }
                     40: canrun(file)
                     41: char *file;
                     42:    {
                     43:    struct stat statb;
                     44:    if (access(file,5) == 0) {
                     45:       stat(file,&statb);
                     46:       if (statb.st_mode & S_IFREG)
                     47:          return 1;
                     48:       }
                     49:    return 0;
                     50:    }
                     51: doiconx(av,file)
                     52: char **av; char *file;
                     53:    {
                     54:    av[0] = file;
                     55:    av[-1] = "-iconx";
                     56:    execv(ICONX,&av[-1]);
                     57:    exit(200);
                     58:    }
                     59: trypath(name,file)
                     60: char *name, *file;
                     61:    {
                     62:    char *n, c;
                     63:    
                     64:    while (*pptr == ':')
                     65:       pptr++;
                     66:    if (!*pptr)
                     67:       return 0;
                     68:    do {
                     69:       c = (*file++ = *pptr++);
                     70:       } while (c != ':' && c);
                     71:    pptr--;
                     72:    file--;
                     73:    
                     74:    *file++ = '/';
                     75:    while (*file++ = *name++);
                     76:    *file = 0;
                     77:    }
                     78: exit(c)
                     79:    {
                     80:    _exit(c);
                     81:    }

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.