Commit | Line | Data |
---|---|---|
808bd6eb N |
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 | } |