UNIX 7th Ed. - /usr/src/cmd/uucp/anlwrk.c

   1: #include "uucp.h"
   2: #include <sys/types.h>
   3: #include <sys/stat.h>
   4: 
   5: 
   6: #define LLEN 10
   7: #define SAME 0
   8: 
   9: /*******
  10:  *	anlwrk(file, wvec)	create a vector of command arguments
  11:  *	char *file, **wvec;
  12:  *
  13:  *	return codes:
  14:  *		0  -  no more work in this file
  15:  *		positive number  -  number of arguments
  16:  */
  17: 
  18: anlwrk(file, wvec)
  19: char *file, **wvec;
  20: {
  21:     static char str[BUFSIZ];
  22:     static FILE *fp = NULL;
  23: 
  24:     if (file[0] == '\0')
  25:         return(0);
  26:     if (fp == NULL) {
  27:         fp = fopen(file, "r");
  28:         if (fp == NULL)
  29:             return(0);
  30:     }
  31: 
  32:     if (fgets(str, BUFSIZ, fp) == NULL) {
  33:         fclose(fp);
  34:         unlink(file);
  35:         file[0] = '\0';
  36:         fp = NULL;
  37:         return(0);
  38:     }
  39: 
  40:     return(getargs(str, wvec));
  41: }
  42: 
  43: 
  44: /***
  45:  *	iswrk(file, reqst, dir, pre)
  46:  *	char *file, *reqst, *dir, *pre;
  47:  *
  48:  *	iswrk  -  this routine will check the work list (list).
  49:  *	If it is empty or the present work is exhausted, it
  50:  *	will call gtwrk to generate a new list.
  51:  *	The "reqst" field will be the string "chk" or "get" to
  52:  *	check for work, or get the next work file respectively.
  53:  *
  54:  *	return codes:
  55:  *		0  -  no more work (or some error)
  56:  *		1  -  there is work
  57:  */
  58: 
  59: iswrk(file, reqst, dir, pre)
  60: char *file, *reqst, *dir, *pre;
  61: {
  62:     static char **listp, *list[LLEN];
  63: 
  64:     if (listp == NULL || *listp == NULL || listp > (list + LLEN)
  65:       || !prefix(pre, *listp)) {
  66:         int i;
  67:         for (i = 0, listp = list; i < LLEN; i++) {
  68:             if (*listp != NULL)
  69:                 free(*listp);
  70:             *listp++ = NULL;
  71:         }
  72:         if (gtwrk(dir, pre, listp = list, LLEN) != 0)
  73:             /* alloc error */
  74:             return(0);
  75:     }
  76: 
  77:     if (*listp == NULL)
  78:         return(0);
  79: 
  80:     if (strcmp(reqst, "get") == SAME)
  81:         sprintf(file, "%s/%s", dir, *listp++);
  82:     return(1);
  83: }
  84: 
  85: 
  86: /***
  87:  *	gtwvec(file, dir, wkpre, wrkvec)	get work vector
  88:  *	char *file, *dir, *wkpre, **wrkvec;
  89:  *
  90:  *	return codes:
  91:  *		positive number  -  number of arguments
  92:  *		0 -  no arguments - fail
  93:  */
  94: 
  95: gtwvec(file, dir, wkpre, wrkvec)
  96: char *file, *dir, *wkpre, **wrkvec;
  97: {
  98:     int nargs;
  99: 
 100:     while ((nargs = anlwrk(file, wrkvec)) == 0) {
 101:         if (!iswrk(file, "get", dir, wkpre))
 102:             return(0);
 103:     }
 104:     return(nargs);
 105: }
 106: 
 107: #define ANYREAD 04
 108: 
 109: /***
 110:  *	gtwrk(dir, pre, list, llen)
 111:  *	char *dir, *pre, **list;
 112:  *	int llen;
 113:  *
 114:  *	gtwrk  -  this routine will build a sorted list
 115:  *	of files in a directory.
 116:  *	"dir" is the directory name to search for file names
 117:  *	beginning with the prefix (pre).
 118:  *	"list" is the pointer to the list and "llen" is the
 119:  *	length of the list.
 120:  *
 121:  *	return codes:  0  |  FAIL
 122:  */
 123: 
 124: gtwrk(dir, pre, list, llen)
 125: char *dir, *pre, **list;
 126: int llen;
 127: {
 128:     struct stat s;
 129:     char filename[NAMESIZE], *p;
 130:     char **first, **last;
 131:     FILE *pdir;
 132:     extern int compar();
 133:     extern char *calloc();
 134: 
 135:     first = last = list;
 136:     if ((pdir = fopen(dir, "r")) == NULL)
 137:         return(FAIL);
 138:     while (gnamef(pdir, filename)) {
 139:         if (!prefix(pre, filename))
 140:             continue;
 141:         if (stat(filename, &s) == -1)
 142:             continue;
 143:         if ((s.st_mode & ANYREAD) == 0)
 144:             continue;
 145:         if ((p = calloc(strlen(filename) + 1, sizeof (char))) == NULL)
 146:             return(FAIL);
 147: 
 148:         strcpy(p, filename);
 149:         if ((last - first) < llen)
 150:             *last++ = p;
 151:     }
 152: 
 153:     fclose(pdir);
 154:     qsort(first, last - first, sizeof *last, compar);
 155:     return(0);
 156: }
 157: 
 158: 
 159: /***
 160:  *	compar(p1, p2)
 161:  *	char **p1, **p2;
 162:  *
 163:  *	compar  -  this routine is used by qsort.
 164:  *
 165:  */
 166: 
 167: compar(p1, p2)
 168: char **p1, **p2;
 169: {
 170:     return(strcmp(*p1, *p2));
 171: }

Defined functions

Defined macros