Return to ixhdr.c CVS log

Up to [Research Unix] / researchv10dc / cmd / icon / src / icont

Annotation of researchv10dc/cmd/icon/src/icont/ixhdr.c, revision 1.1

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

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