![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to fileio.c CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [MW Coherent from dump] / coherent / e / bin / pax|
Return to fileio.c CVS log | Up to [MW Coherent from dump] / coherent / e / bin / pax |
1.1 root 1: /* $Source: /src386/usr/bin/pax/fileio.c,v $
2: *
3: * $Revision: 1.1 $
4: *
5: * fileio.c - file I/O functions for all archive interfaces
6: *
7: * DESCRIPTION
8: *
9: * These function all do I/O of some form or another. They are
10: * grouped here mainly for convienence.
11: *
12: * AUTHOR
13: *
14: * Mark H. Colburn, NAPS International ([email protected])
15: *
16: * Sponsored by The USENIX Association for public distribution.
17: *
18: * Copyright (c) 1989 Mark H. Colburn.
19: * All rights reserved.
20: *
21: * Redistribution and use in source and binary forms are permitted
22: * provided that the above copyright notice is duplicated in all such
23: * forms and that any documentation, advertising materials, and other
24: * materials related to such distribution and use acknowledge that the
25: * software was developed * by Mark H. Colburn and sponsored by The
26: * USENIX Association.
27: *
28: * THIS SOFTWARE IS PROVIDED ``AS IS'' AND WITHOUT ANY EXPRESS OR
29: * IMPLIED WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED
30: * WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE.
31: *
32: * $Log: fileio.c,v $
33: * Revision 1.1 92/08/28 08:02:04 bin
34: * Initial revision
35: *
36: * Revision 1.1 89/02/14 16:47:52 jep
37: * Initial revision
38: *
39: * Revision 1.1 88/12/23 18:02:09 mark
40: * Initial revision
41: *
42: */
43:
44: #ifndef lint
45: static char *ident = "$Id: fileio.c,v 1.1 92/08/28 08:02:04 bin Exp Locker: bin $";
46: static char *copyright = "Copyright (c) 1989 Mark H. Colburn.\nAll rights reserved.\n";
47: #endif /* ! lint */
48:
49:
50: /* Headers */
51:
52: #include "pax.h"
53:
54: #define TAPE_DEV 12 /* Tape's major number. VLAD */
55:
56: /* open_archive - open an archive file.
57: *
58: * DESCRIPTION
59: *
60: * Open_archive will open an archive file for reading or writing,
61: * setting the proper file mode, depending on the "mode" passed to
62: * it. All buffer pointers are reset according to the mode
63: * specified.
64: *
65: * PARAMETERS
66: *
67: * int mode - specifies whether we are reading or writing.
68: *
69: * RETURNS
70: *
71: * Returns a zero if successfull, or -1 if an error occured during
72: * the open.
73: */
74:
75: #if __STDC__
76:
77: int open_archive(int mode)
78:
79: #else
80:
81: int open_archive(mode)
82: int mode;
83:
84: #endif
85: {
86: struct stat ap_stat; /* VLAD */
87:
88: if (ar_file[0] == '-' && ar_file[1] == '\0') {
89: if (mode == AR_READ) {
90: archivefd = STDIN;
91: bufend = bufidx = bufstart;
92: } else {
93: archivefd = STDOUT;
94: }
95: } else if (mode == AR_READ) {
96: archivefd = open(ar_file, O_RDONLY | O_BINARY);
97: bufend = bufidx = bufstart; /* set up for initial read */
98: } else if (mode == AR_WRITE) {
99: archivefd = open(ar_file, O_WRONLY|O_TRUNC|O_CREAT|O_BINARY, 0666);
100: } else if (mode == AR_APPEND) {
101: if (stat(ar_file, &ap_stat) == -1) /* VLAD */
102: fatal("cannot define the attributes of a file\n");
103: if (major(ap_stat.st_rdev) == TAPE_DEV)
104: fatal("option 'r' does not work with tape\n");
105: archivefd = open(ar_file, O_RDWR | O_BINARY, 0666);
106: bufend = bufidx = bufstart; /* set up for initial read */
107: }
108:
109: if (archivefd < 0) {
110: warnarch(strerror(), (OFFSET) 0);
111: return (-1);
112: }
113: ++arvolume;
114: return (0);
115: }
116:
117:
118: /* close_archive - close the archive file
119: *
120: * DESCRIPTION
121: *
122: * Closes the current archive and resets the archive end of file
123: * marker.
124: */
125:
126: #if __STDC__
127:
128: void close_archive(void)
129:
130: #else
131:
132: void close_archive()
133:
134: #endif
135: {
136: if (archivefd != STDIN && archivefd != STDOUT) {
137: close(archivefd);
138: }
139: areof = 0;
140: }
141:
142:
143: /* openout - open an output file
144: *
145: * DESCRIPTION
146: *
147: * Openo opens the named file for output. The file mode and type are
148: * set based on the values stored in the stat structure for the file.
149: * If the file is a special file, then no data will be written, the
150: * file/directory/Fifo, etc., will just be created. Appropriate
151: * permission may be required to create special files.
152: *
153: * PARAMETERS
154: *
155: * char *name - The name of the file to create
156: * Stat *asb - Stat structure for the file
157: * Link *linkp; - pointer to link chain for this file
158: * int ispass - true if we are operating in "pass" mode
159: *
160: * RETURNS
161: *
162: * Returns the output file descriptor, 0 if no data is required or -1
163: * if unsuccessful. Note that UNIX open() will never return 0 because
164: * the standard input is in use.
165: */
166:
167: #if __STDC__
168:
169: int openout(char *name, Stat *asb, Link *linkp, int ispass)
170:
171: #else
172:
173: int openout(name, asb, linkp, ispass)
174: char *name;
175: Stat *asb;
176: Link *linkp;
177: int ispass;
178:
179: #endif
180: {
181: int exists;
182: int fd;
183: ushort perm;
184: ushort operm = 0;
185: Stat osb;
186: #ifdef S_IFLNK
187: int ssize;
188: char sname[PATH_MAX + 1];
189: #endif /* S_IFLNK */
190:
191: if (exists = (LSTAT(name, &osb) == 0)) {
192: if (ispass && osb.sb_ino == asb->sb_ino && osb.sb_dev == asb->sb_dev) {
193: warn(name, "Same file");
194: return (-1);
195: } else if ((osb.sb_mode & S_IFMT) == (asb->sb_mode & S_IFMT)) {
196: operm = osb.sb_mode & S_IPERM;
197: } else if (REMOVE(name, &osb) < 0) {
198: warn(name, strerror());
199: return (-1);
200: } else {
201: exists = 0;
202: }
203: }
204: if (linkp) {
205: if (exists) {
206: if (asb->sb_ino == osb.sb_ino && asb->sb_dev == osb.sb_dev) {
207: return (0);
208: } else if (unlink(name) < 0) {
209: warn(name, strerror());
210: return (-1);
211: } else {
212: exists = 0;
213: }
214: }
215: if (link(linkp->l_name, name) != 0) {
216: if (errno == ENOENT) {
217: if (f_dir_create) {
218: if (dirneed(name) != 0 ||
219: link(linkp->l_name, name) != 0) {
220: warn(name, strerror());
221: return (-1);
222: }
223: } else {
224: warn(name,
225: "Directories are not being created (-d option)");
226: }
227: return(0);
228: } else if (errno != EXDEV) {
229: warn(name, strerror());
230: return (-1);
231: }
232: } else {
233: return(0);
234: }
235: }
236: perm = asb->sb_mode & S_IPERM;
237: switch (asb->sb_mode & S_IFMT) {
238: case S_IFBLK:
239: case S_IFCHR:
240: fd = 0;
241: if (exists) {
242: if (asb->sb_rdev == osb.sb_rdev) {
243: if (perm != operm && chmod(name, (int) perm) < 0) {
244: warn(name, strerror());
245: return (-1);
246: } else {
247: break;
248: }
249: } else if (REMOVE(name, &osb) < 0) {
250: warn(name, strerror());
251: return (-1);
252: } else {
253: exists = 0;
254: }
255: }
256: if (mknod(name, (int) asb->sb_mode, (int) asb->sb_rdev) < 0) {
257: if (errno == ENOENT) {
258: if (f_dir_create) {
259: if (dirneed(name) < 0 || mknod(name, (int) asb->sb_mode,
260: (int) asb->sb_rdev) < 0) {
261: warn(name, strerror());
262: return (-1);
263: }
264: } else {
265: warn(name, "Directories are not being created (-d option)");
266: }
267: } else {
268: warn(name, strerror());
269: return (-1);
270: }
271: }
272: return(0);
273: break;
274: case S_IFDIR:
275: if (exists) {
276: if (perm != operm && chmod(name, (int) perm) < 0) {
277: warn(name, strerror());
278: return (-1);
279: }
280: } else if (f_dir_create) {
281: if (dirmake(name, asb) < 0 || dirneed(name) < 0) {
282: warn(name, strerror());
283: return (-1);
284: }
285: } else {
286: warn(name, "Directories are not being created (-d option)");
287: }
288: return (0);
289: #ifdef S_IFIFO
290: case S_IFIFO:
291: fd = 0;
292: if (exists) {
293: if (perm != operm && chmod(name, (int) perm) < 0) {
294: warn(name, strerror());
295: return (-1);
296: }
297: } else if (mknod(name, (int) asb->sb_mode, 0) < 0) {
298: if (errno == ENOENT) {
299: if (f_dir_create) {
300: if (dirneed(name) < 0
301: || mknod(name, (int) asb->sb_mode, 0) < 0) {
302: warn(name, strerror());
303: return (-1);
304: }
305: } else {
306: warn(name, "Directories are not being created (-d option)");
307: }
308: } else {
309: warn(name, strerror());
310: return (-1);
311: }
312: }
313: return(0);
314: break;
315: #endif /* S_IFIFO */
316: #ifdef S_IFLNK
317: case S_IFLNK:
318: if (exists) {
319: if ((ssize = readlink(name, sname, sizeof(sname))) < 0) {
320: warn(name, strerror());
321: return (-1);
322: } else if (strncmp(sname, asb->sb_link, ssize) == 0) {
323: return (0);
324: } else if (REMOVE(name, &osb) < 0) {
325: warn(name, strerror());
326: return (-1);
327: } else {
328: exists = 0;
329: }
330: }
331: if (symlink(asb->sb_link, name) < 0) {
332: if (errno == ENOENT) {
333: if (f_dir_create) {
334: if (dirneed(name) < 0 || symlink(asb->sb_link, name) < 0) {
335: warn(name, strerror());
336: return (-1);
337: }
338: } else {
339: warn(name, "Directories are not being created (-d option)");
340: }
341: } else {
342: warn(name, strerror());
343: return (-1);
344: }
345: }
346: return (0); /* Can't chown()/chmod() a symbolic link */
347: #endif /* S_IFLNK */
348: case S_IFREG:
349: if (exists) {
350: if (!f_unconditional && osb.sb_mtime > asb->sb_mtime) {
351: warn(name, "Newer file exists");
352: return (-1);
353: } else if (unlink(name) < 0) {
354: warn(name, strerror());
355: return (-1);
356: } else {
357: exists = 0;
358: }
359: }
360: if ((fd = creat(name, (int) perm)) < 0) {
361: if (errno == ENOENT) {
362: if (f_dir_create) {
363: if (dirneed(name) < 0 ||
364: (fd = creat(name, (int) perm)) < 0) {
365: warn(name, strerror());
366: return (-1);
367: }
368: } else {
369: /*
370: * the file requires a directory which does not exist
371: * and which the user does not want created, so skip
372: * the file...
373: */
374: warn(name, "Directories are not being created (-d option)");
375: return(0);
376: }
377: } else {
378: warn(name, strerror());
379: return (-1);
380: }
381: }
382: break;
383: default:
384: warn(name, "Unknown filetype");
385: return (-1);
386: }
387: if (f_owner) {
388: if (!exists || asb->sb_uid != osb.sb_uid || asb->sb_gid != osb.sb_gid) {
389: chown(name, (int) asb->sb_uid, (int) asb->sb_gid);
390: chmod(name, perm); /* VLAD */
391: }
392: }
393: return (fd);
394: }
395:
396:
397: /* openin - open the next input file
398: *
399: * DESCRIPTION
400: *
401: * Openi will attempt to open the next file for input. If the file is
402: * a special file, such as a directory, FIFO, link, character- or
403: * block-special file, then the file size field of the stat structure
404: * is zeroed to make sure that no data is written out for the file.
405: * If the file is a special file, then a file descriptor of 0 is
406: * returned to the caller, which is handled specially. If the file
407: * is a regular file, then the file is opened and a file descriptor
408: * to the open file is returned to the caller.
409: *
410: * PARAMETERS
411: *
412: * char *name - pointer to the name of the file to open
413: * Stat *asb - pointer to the stat block for the file to open
414: *
415: * RETURNS
416: *
417: * Returns a file descriptor, 0 if no data exists, or -1 at EOF. This
418: * kludge works because standard input is in use, preventing open() from
419: * returning zero.
420: */
421:
422: #if __STDC__
423:
424: int openin(char *name, Stat *asb)
425:
426: #else
427:
428: int openin(name, asb)
429: char *name; /* name of file to open */
430: Stat *asb; /* pointer to stat structure for file */
431:
432: #endif
433: {
434: int fd;
435:
436: switch (asb->sb_mode & S_IFMT) {
437: case S_IFDIR:
438: asb->sb_nlink = 1;
439: asb->sb_size = 0;
440: return (0);
441: #ifdef S_IFLNK
442: case S_IFLNK:
443: if ((asb->sb_size = readlink(name,
444: asb->sb_link, sizeof(asb->sb_link) - 1)) < 0) {
445: warn(name, strerror());
446: return(0);
447: }
448: asb->sb_link[asb->sb_size] = '\0';
449: return (0);
450: #endif /* S_IFLNK */
451: case S_IFREG:
452: if (asb->sb_size == 0) {
453: return (0);
454: }
455: if ((fd = open(name, O_RDONLY | O_BINARY)) < 0) {
456: warn(name, strerror());
457: }
458: return (fd);
459: default:
460: asb->sb_size = 0;
461: return (0);
462: }
463: }
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.