Return to exec.c CVS log

Up to [CSRG BSD Unix] / 43BSD / contrib / spms / src / bin / pexec

Annotation of 43BSD/contrib/spms/src/bin/pexec/exec.c, revision 1.1.1.1

1.1       root        1: /* $Header$ */
                      2: 
                      3: /*
                      4:  * Author: Peter J. Nicklin
                      5:  */
                      6: #include <stdio.h>
                      7: #include "macro.h"
                      8: #include "null.h"
                      9: #include "path.h"
                     10: #include "pdb.h"
                     11: #include "pdlist.h"
                     12: #include "pld.h"
                     13: #include "slslist.h"
                     14: #include "spms.h"
                     15: #include "yesno.h"
                     16: 
                     17: /*
                     18:  * execlist() executes a project directory list. Returns non-zero error
                     19:  * status if error.
                     20:  */
                     21: execlist(pdlist)
                     22:        PDLIST *pdlist;                 /* project directory list */
                     23: {
                     24:        extern int ERRSTATUS;           /* pexec error status */
                     25:        extern int EXECUTE;             /* execute command? */
                     26:        extern int PRINT_HEADING;       /* print headings for project dirs */
                     27:        int ch_dir();                   /* change current working directory */
                     28:        int execcmd();                  /* execute command in directory */
                     29:        int status = 0;                 /* return status */
                     30:        PDBLK *pdblk;                   /* project directory list block */
                     31:        void print_title();             /* print project directory title */
                     32: 
                     33:        for (pdblk = pdlist->head; pdblk != NULL; pdblk = pdblk->next)
                     34:                {
                     35:                if (PRINT_HEADING == YES)
                     36:                        print_title(pdblk->ppath);
                     37:                if (ch_dir(pdblk->rpath) == NO)
                     38:                        status = ERRSTATUS;
                     39:                else if (EXECUTE == YES)
                     40:                        status |= execcmd(pdblk->project);
                     41:                }
                     42:        return(status);
                     43: }
                     44: 
                     45: 
                     46: 
                     47: /*
                     48:  * execproject() builds a project directory list and executes commands
                     49:  * within directories on that list.
                     50:  */
                     51: execproject(ppathname, pathname)
                     52:        char *ppathname;                /* project root dir project pathname */
                     53:        char *pathname;                 /* regular project root dir pathname */
                     54: {
                     55:        extern int ERRSTATUS;           /* pexec error status */
                     56:        char ppathbuf[PPATHSIZE];       /* project pathname buffer */
                     57:        char *pdprepend();              /* prepend project directory */
                     58:        char *ppathcat();               /* project pathname concatenation */
                     59:        char *slsprepend();             /* prepend key+string */
                     60:        int closepdb();                 /* close database */
                     61:        int errpdb();                   /* print database error message */
                     62:        int execlist();                 /* execute project directory list */
                     63:        int slssort();                  /* sort list */
                     64:        int status = 0;                 /* return status */
                     65:        int strcmp();                   /* string comparison */
                     66:        PATH *pd;                       /* pathname struct pointer */
                     67:        PATH *readpld();                /* read project link directory entry */
                     68:        PDB *openpdb();                 /* open database */
                     69:        PDB *pldp;                      /* project link directory stream */
                     70:        PDLIST *pdinit();               /* initialize project directory list */
                     71:        PDLIST *pdlist;                 /* project directory list */
                     72:        SLSBLK *pblk;                   /* project list block */
                     73:        SLSLIST *plist;                 /* project list */
                     74:        SLSLIST *slsinit();             /* initialize list */
                     75:        void pdrm();                    /* remove project directory list */
                     76:        void pdsort();                  /* sort project directory list */
                     77:        void slsrm();                   /* remove list item */
                     78: 
                     79:        pdlist = pdinit();
                     80:        plist = slsinit();
                     81: 
                     82:        /* read PLDNAME project link directory */
                     83:        if ((pldp = openpdb(PLDNAME, pathname, "r")) == NULL)
                     84:                return(errpdb((PDB *) NULL));
                     85:        while ((pd = readpld(pldp)) != NULL)
                     86:                {
                     87:                if (EQUAL(pd->p_alias, PARENTPROJECT))
                     88:                        continue;
                     89: 
                     90:                if (EQUAL(pd->p_alias, CURPROJECT))
                     91:                        {
                     92:                        pdprepend(ppathname, pd->p_path, pathname, pdlist);
                     93:                        }
                     94:                else if (pd->p_mode == P_IFPROOT)
                     95:                        {
                     96:                        if (slsprepend(pd->p_alias, pd->p_path, plist) == NULL)
                     97:                                pxexit();
                     98:                        }
                     99:                else    {
                    100:                        ppathcat(ppathbuf, ppathname, pd->p_alias);
                    101:                        pdprepend(ppathbuf, pd->p_path, pathname, pdlist);
                    102:                        }
                    103:                }
                    104:        if (closepdb(pldp) != 0)
                    105:                status = ERRSTATUS;
                    106: 
                    107:        /* sort and execute project directories */
                    108:        pdsort(strcmp, pdlist);
                    109:        status |= execlist(pdlist);
                    110:        pdrm(pdlist);
                    111: 
                    112:        /* execute subprojects */
                    113:        if (slssort(strcmp, plist) == NO)
                    114:                pxexit();
                    115:        for (pblk = plist->head; pblk != NULL; pblk = pblk->next)
                    116:                {
                    117:                ppathcat(ppathbuf, ppathname, pblk->key);
                    118:                status |= execproject(ppathbuf, pblk->string);
                    119:                }
                    120:        slsrm(CNULL, plist);
                    121: 
                    122:        return(status);
                    123: }

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