xref: /illumos-gate/usr/src/cmd/fs.d/ufs/df/df.c (revision 8509e9ca)
1 /*
2  * CDDL HEADER START
3  *
4  * The contents of this file are subject to the terms of the
5  * Common Development and Distribution License (the "License").
6  * You may not use this file except in compliance with the License.
7  *
8  * You can obtain a copy of the license at usr/src/OPENSOLARIS.LICENSE
9  * or http://www.opensolaris.org/os/licensing.
10  * See the License for the specific language governing permissions
11  * and limitations under the License.
12  *
13  * When distributing Covered Code, include this CDDL HEADER in each
14  * file and include the License file at usr/src/OPENSOLARIS.LICENSE.
15  * If applicable, add the following below this CDDL HEADER, with the
16  * fields enclosed by brackets "[]" replaced with your own identifying
17  * information: Portions Copyright [yyyy] [name of copyright owner]
18  *
19  * CDDL HEADER END
20  */
21 /*
22  * Copyright 2009 Sun Microsystems, Inc.  All rights reserved.
23  * Use is subject to license terms.
24  */
25 
26 /*	Copyright (c) 1984, 1986, 1987, 1988, 1989 AT&T	*/
27 /*	  All Rights Reserved	*/
28 
29 /*
30  * University Copyright- Copyright (c) 1982, 1986, 1988
31  * The Regents of the University of California
32  * All Rights Reserved
33  *
34  * University Acknowledgment- Portions of this document are derived from
35  * software developed by the University of California, Berkeley, and its
36  * contributors.
37  */
38 
39 
40 /*
41  * df
42  */
43 #include <stdio.h>
44 #include <fcntl.h>
45 #include <sys/param.h>
46 #include <sys/types.h>
47 #include <sys/mntent.h>
48 #include <sys/fs/ufs_fs.h>
49 #include <sys/stat.h>
50 #include <sys/vfs.h>
51 #include <sys/file.h>
52 #include <sys/statvfs.h>
53 #include <sys/mnttab.h>
54 #include <sys/mkdev.h>
55 #include <locale.h>
56 #include <stdarg.h>
57 #include <string.h>
58 #include <errno.h>
59 #include <libintl.h>
60 
61 extern char	*getenv();
62 extern char	*getcwd();
63 extern char	*realpath();
64 extern off_t	lseek();
65 
66 /*
67  * Raw name to block device name translation function.
68  * This comes from libadm.
69  */
70 extern char	*getfullblkname();
71 
72 static  void		usage(), pheader();
73 static  char		*mpath(char *);
74 static  char		*zap_chroot(char *);
75 static  char		*pathsuffix(char *, char *);
76 static  char		*xmalloc(unsigned int);
77 static  int		chroot_stat(char *, int (*)(), char *, char **);
78 static  int		bread(char *, int, daddr_t, char *, int);
79 static  int		subpath(char *, char *);
80 static	int		abspath(char *, char *, char *);
81 static  void		show_inode_usage();
82 static  void		dfreedev(char *);
83 static  void		dfreemnt(char *, struct mnttab *);
84 static  void		print_totals();
85 static  void		print_itotals();
86 static  void		print_statvfs(struct statvfs64 *);
87 static  int		mdev(char *, struct mnttab **);
88 static struct mntlist	*mkmntlist();
89 static struct mnttab	*mntdup(struct mnttab *mnt);
90 static struct mntlist	*findmntent(char *, struct stat64 *, struct mntlist *);
91 
92 #define	bcopy(f, t, n)	memcpy(t, f, n)
93 #define	bzero(s, n)	memset(s, 0, n)
94 #define	bcmp(s, d, n)	memcmp(s, d, n)
95 
96 #define	index(s, r)	strchr(s, r)
97 #define	rindex(s, r)	strrchr(s, r)
98 
99 #define	dbtok(x, b) \
100 	((b) < (fsblkcnt64_t)1024 ? \
101 	(x) / ((fsblkcnt64_t)1024 / (b)) : (x) * ((b) / (fsblkcnt64_t)1024))
102 
103 int	aflag = 0;		/* even the uninteresting ones */
104 int	bflag = 0;		/* print only number of kilobytes free */
105 int	eflag = 0;		/* print only number of file entries free */
106 int	gflag = 0;		/* print entire statvfs structure */
107 int	hflag = 0;		/* don't print header */
108 int	iflag = 0;		/* information for inodes */
109 int	nflag = 0;		/* print VFStype name */
110 int	tflag = 0;		/* print totals */
111 int	errflag = 0;
112 int	errcode = 0;
113 char	*typestr = "ufs";
114 fsblkcnt64_t	t_totalblks, t_avail, t_free, t_used, t_reserved;
115 int	t_inodes, t_iused, t_ifree;
116 
117 /*
118  * cached information recording previous chroot history.
119  */
120 static	char	*chrootpath;
121 
122 extern	int	optind;
123 extern	char	*optarg;
124 
125 union {
126 	struct fs iu_fs;
127 	char dummy[SBSIZE];
128 } sb;
129 #define	sblock	sb.iu_fs
130 
131 /*
132  * This structure is used to chain mntent structures into a list
133  * and to cache stat information for each member of the list.
134  */
135 struct mntlist {
136 	struct mnttab	*mntl_mnt;
137 	struct mntlist	*mntl_next;
138 	dev_t		mntl_dev;
139 	int		mntl_devvalid;
140 };
141 
142 char *subopts [] = {
143 #define	A_FLAG		0
144 	"a",
145 #define	I_FLAG		1
146 	"i",
147 	NULL
148 };
149 
150 int
main(int argc,char * argv[])151 main(int argc, char *argv[])
152 {
153 	struct mnttab		mnt;
154 	int			opt;
155 	char			*suboptions, *value;
156 
157 	(void) setlocale(LC_ALL, "");
158 #if !defined(TEXT_DOMAIN)	/* Should be defined by cc -D */
159 #define	TEXT_DOMAIN	"SYS_TEST"	/* Use this only if it weren't */
160 #endif
161 	(void) textdomain(TEXT_DOMAIN);
162 
163 	while ((opt = getopt(argc, argv, "beghkno:t")) != EOF) {
164 		switch (opt) {
165 
166 		case 'b':	/* print only number of kilobytes free */
167 			bflag++;
168 			break;
169 
170 		case 'e':
171 			eflag++; /* print only number of file entries free */
172 			iflag++;
173 			break;
174 
175 		case 'g':
176 			gflag++;
177 			break;
178 
179 		case 'n':
180 			nflag++;
181 			break;
182 
183 		case 'k':
184 			break;
185 
186 		case 'h':
187 			hflag++;
188 			break;
189 
190 		case 'o':
191 			/*
192 			 * ufs specific options.
193 			 */
194 			suboptions = optarg;
195 			while (*suboptions != '\0') {
196 				switch (getsubopt(&suboptions,
197 				    subopts, &value)) {
198 
199 				case I_FLAG:	/* information for inodes */
200 					iflag++;
201 					break;
202 
203 				default:
204 					usage();
205 				}
206 			}
207 			break;
208 
209 		case 't':		/* print totals */
210 			tflag++;
211 			break;
212 
213 		case 'V':		/* Print command line */
214 			{
215 				char			*opt_text;
216 				int			opt_count;
217 
218 				(void) fprintf(stdout, "df -F ufs ");
219 				for (opt_count = 1; opt_count < argc;
220 				    opt_count++) {
221 					opt_text = argv[opt_count];
222 					if (opt_text)
223 						(void) fprintf(stdout, " %s ",
224 						    opt_text);
225 				}
226 				(void) fprintf(stdout, "\n");
227 			}
228 			break;
229 
230 		case '?':
231 			errflag++;
232 		}
233 	}
234 	if (errflag)
235 		usage();
236 	if (gflag && iflag) {
237 		printf(gettext("df: '-g' and '-o i' are mutually exclusive\n"));
238 		exit(1);
239 	}
240 	if (bflag || eflag)
241 		tflag = 0;
242 
243 	/*
244 	 * Cache CHROOT information for later use; assume that $CHROOT matches
245 	 * the cumulative arguments given to chroot calls.
246 	 */
247 	chrootpath = getenv("CHROOT");
248 	if (chrootpath != NULL && strcmp(chrootpath, "/") == 0)
249 		chrootpath = NULL;
250 
251 	if (argc <= optind) {
252 		/*
253 		 * Take this path when "/usr/lib/fs/ufs/df" is specified, and
254 		 * there are no mountpoints specified.
255 		 * E.g., these command lines take us down this path
256 		 *	/usr/lib/fs/ufs/df -o i
257 		 *	/usr/lib/fs/ufs/df
258 		 */
259 		FILE *mtabp;
260 
261 		if ((mtabp = fopen(MNTTAB, "r")) == NULL) {
262 			(void) fprintf(stderr, "df: ");
263 			perror(MNTTAB);
264 			exit(1);
265 		}
266 		pheader();
267 		while (getmntent(mtabp, &mnt) == 0) {
268 			if (strcmp(typestr, mnt.mnt_fstype) != 0) {
269 				continue;
270 			}
271 			dfreemnt(mnt.mnt_mountp, &mnt);
272 		}
273 		if (tflag)
274 			if (iflag)
275 				print_itotals();
276 			else
277 				print_totals();
278 		(void) fclose(mtabp);
279 	} else {
280 		int i;
281 		struct mntlist *mntl;
282 		struct stat64    *argstat;
283 		char **devnames;
284 		char *cp;
285 
286 		/* Arguments are processed till optind, adjust the pointers */
287 		argv += optind;
288 		argc -= optind;
289 
290 		/*
291 		 * Obtain stat64 information for each argument before
292 		 * constructing the list of mounted file systems.  This
293 		 * ordering forces the automounter to establish any
294 		 * mounts required to access the arguments, so that the
295 		 * corresponding mount table entries will exist when
296 		 * we look for them.
297 		 */
298 		argstat = (struct stat64 *)xmalloc(argc * sizeof (*argstat));
299 		devnames = (char **)xmalloc(argc * sizeof (char *));
300 		for (i = 0; i < argc; i++) {
301 
302 			/*
303 			 * Given a raw device name, get the block device name
304 			 */
305 			cp = getfullblkname(argv[i]);
306 			if (cp == NULL || *cp == '\0') {
307 				if (cp != NULL)
308 					free(cp);
309 				cp = strdup(argv[i]);
310 
311 				if (cp == NULL) {
312 					int j;
313 
314 					fprintf(stderr, gettext(
315 					"df: memory allocation failure\n"));
316 
317 					for (j = 0; j < i; j++)
318 						free(devnames[j]);
319 					free(devnames);
320 					free(argstat);
321 					exit(1);
322 				}
323 			}
324 			if (stat64(cp, &argstat[i]) < 0) {
325 				errcode = errno;
326 				/*
327 				 * Mark as no longer interesting.
328 				 */
329 				argv[i] = NULL;
330 				devnames[i] = NULL;
331 				free(cp);
332 			} else {
333 				devnames[i] = cp;
334 			}
335 		}
336 
337 		pheader();
338 		aflag++;
339 		/*
340 		 * Construct the list of mounted file systems.
341 		 */
342 		mntl = mkmntlist();
343 
344 		/*
345 		 * Iterate through the argument list, reporting on each one.
346 		 */
347 		for (i = 0; i < argc; i++) {
348 			struct mntlist *mlp;
349 			int isblk;
350 
351 			/*
352 			 * Skip if we've already determined that we can't
353 			 * process it.
354 			 */
355 			if (argv[i] == NULL)
356 				continue;
357 
358 			/*
359 			 * If the argument names a device, report on the file
360 			 * system associated with the device rather than on
361 			 * the one containing the device's directory entry
362 			 */
363 			cp = devnames[i];
364 			if ((isblk = (argstat[i].st_mode&S_IFMT) == S_IFBLK) ||
365 			    (argstat[i].st_mode & S_IFMT) == S_IFCHR) {
366 				if (isblk && strcmp(mpath(cp), "") != 0) {
367 					struct mnttab *mp;
368 					if (mdev(cp, &mp))
369 						return (1);
370 					dfreemnt(mp->mnt_mountp, mp);
371 				} else {
372 					dfreedev(cp);
373 				}
374 				free(cp);
375 				devnames[i] = NULL;
376 				continue;
377 			}
378 
379 			/*
380 			 * Get this argument's corresponding mount table
381 			 * entry.
382 			 */
383 			mlp = findmntent(cp, &argstat[i], mntl);
384 			free(cp);
385 			devnames[i] = NULL;
386 
387 			if (mlp == NULL) {
388 				(void) fprintf(stderr,
389 				gettext("Could not find mount point for %s\n"),
390 				    argv[i]);
391 				continue;
392 			}
393 
394 			dfreemnt(mlp->mntl_mnt->mnt_mountp, mlp->mntl_mnt);
395 		}
396 		free(devnames);
397 		free(argstat);
398 	}
399 	return (0);
400 }
401 
402 void
pheader()403 pheader()
404 {
405 	if (hflag)
406 		return;
407 	if (nflag)
408 		(void) printf(gettext("VFStype name - ufs\n"));
409 	if (iflag) {
410 		if (eflag)
411 			/*
412 			 * TRANSLATION_NOTE
413 			 * Following string is used as a table header.
414 			 * Translated items should start at the same
415 			 * columns as the original items.
416 			 */
417 			(void) printf(gettext(
418 "Filesystem             ifree\n"));
419 		else {
420 			/*
421 			 * TRANSLATION_NOTE
422 			 * Following string is used as a table header.
423 			 * Translated items should start at the same
424 			 * columns as the original items.
425 			 */
426 			(void) printf(gettext(
427 "Filesystem             iused   ifree  %%iused  Mounted on\n"));
428 		}
429 	} else {
430 		if (gflag)
431 			/*
432 			 * TRANSLATION_NOTE
433 			 * Following string is used as a table header.
434 			 * Translated items should start at the same
435 			 * columns as the original items.
436 			 */
437 			(void) printf(gettext(
438 "Filesystem        f_type f_fsize f_bfree f_bavail f_files f_ffree "
439 "f_fsid f_flag f_fstr\n"));
440 		else
441 			if (bflag)
442 				/*
443 				 * TRANSLATION_NOTE
444 				 * Following string is used as a table header.
445 				 * Translated items should start at the same
446 				 * columns as the original items.
447 				 */
448 				(void) printf(gettext(
449 "Filesystem             avail\n"));
450 			else {
451 				/*
452 				 * TRANSLATION_NOTE
453 				 * Following string is used as a table header.
454 				 * Translated items should start at the same
455 				 * columns as the original items.
456 				 */
457 				(void) printf(gettext(
458 "Filesystem            kbytes    used   avail capacity  Mounted on\n"));
459 			}
460 		}
461 }
462 
463 /*
464  * Report on a block or character special device. Assumed not to be
465  * mounted.  N.B. checks for a valid UFS superblock.
466  */
467 void
dfreedev(char * file)468 dfreedev(char *file)
469 {
470 	fsblkcnt64_t totalblks, availblks, avail, free, used;
471 	int fi;
472 
473 	fi = open64(file, 0);
474 	if (fi < 0) {
475 		(void) fprintf(stderr, "df: ");
476 		perror(file);
477 		return;
478 	}
479 	if (bread(file, fi, SBLOCK, (char *)&sblock, SBSIZE) == 0) {
480 		(void) close(fi);
481 		return;
482 	}
483 	if ((sblock.fs_magic != FS_MAGIC) &&
484 	    (sblock.fs_magic != MTB_UFS_MAGIC)) {
485 		(void) fprintf(stderr, gettext(
486 "df: %s: not a ufs file system\n"),
487 		    file);
488 		(void) close(fi);
489 		return;
490 	}
491 	if (sblock.fs_magic == FS_MAGIC &&
492 	    (sblock.fs_version != UFS_EFISTYLE4NONEFI_VERSION_2 &&
493 	    sblock.fs_version != UFS_VERSION_MIN)) {
494 		(void) fprintf(stderr, gettext(
495 "df: %s: unrecognized version of UFS: %d\n"),
496 		    file, sblock.fs_version);
497 		(void) close(fi);
498 		return;
499 	}
500 	if (sblock.fs_magic == MTB_UFS_MAGIC &&
501 	    (sblock.fs_version > MTB_UFS_VERSION_1 ||
502 	    sblock.fs_version < MTB_UFS_VERSION_MIN)) {
503 		(void) fprintf(stderr, gettext(
504 "df: %s: unrecognized version of UFS: %d\n"),
505 		    file, sblock.fs_version);
506 		(void) close(fi);
507 		return;
508 	}
509 	(void) printf("%-20.20s", file);
510 	if (iflag) {
511 		if (eflag) {
512 			(void) printf("%8ld", sblock.fs_cstotal.cs_nifree);
513 		} else {
514 			show_inode_usage(
515 			    (fsfilcnt64_t)sblock.fs_ncg *
516 			    (fsfilcnt64_t)sblock.fs_ipg,
517 			    (fsfilcnt64_t)sblock.fs_cstotal.cs_nifree);
518 		}
519 	} else {
520 		totalblks = (fsblkcnt64_t)sblock.fs_dsize;
521 		free =
522 		    (fsblkcnt64_t)sblock.fs_cstotal.cs_nbfree *
523 		    (fsblkcnt64_t)sblock.fs_frag +
524 		    (fsblkcnt64_t)sblock.fs_cstotal.cs_nffree;
525 		used = totalblks - free;
526 		availblks = totalblks / (fsblkcnt64_t)100 *
527 		    ((fsblkcnt64_t)100 - (fsblkcnt64_t)sblock.fs_minfree);
528 		avail = availblks > used ? availblks - used : (fsblkcnt64_t)0;
529 		if (bflag) {
530 			(void) printf("%8lld\n", dbtok(avail,
531 			    (fsblkcnt64_t)sblock.fs_fsize));
532 		} else {
533 			(void) printf(" %7lld %7lld %7lld",
534 			    dbtok(totalblks, (fsblkcnt64_t)sblock.fs_fsize),
535 			    dbtok(used, (fsblkcnt64_t)sblock.fs_fsize),
536 			    dbtok(avail, (fsblkcnt64_t)sblock.fs_fsize));
537 			(void) printf("%6.0f%%",
538 			    availblks == 0 ? 0.0 :
539 			    (double)used / (double)availblks * 100.0);
540 			(void) printf("  ");
541 		}
542 		if (tflag) {
543 			t_totalblks += dbtok(totalblks,
544 			    (fsblkcnt64_t)sblock.fs_fsize);
545 			t_used += dbtok(used, (fsblkcnt64_t)sblock.fs_fsize);
546 			t_avail += dbtok(avail, (fsblkcnt64_t)sblock.fs_fsize);
547 			t_free += free;
548 		}
549 	}
550 	if ((!bflag) && (!eflag))
551 		(void) printf("  %s\n", mpath(file));
552 	else if (eflag)
553 		(void) printf("\n");
554 	(void) close(fi);
555 }
556 
557 void
dfreemnt(char * file,struct mnttab * mnt)558 dfreemnt(char *file, struct mnttab *mnt)
559 {
560 	struct statvfs64 fs;
561 
562 	if (statvfs64(file, &fs) < 0 &&
563 	    chroot_stat(file, statvfs64, (char *)&fs, &file) < 0) {
564 		(void) fprintf(stderr, "df: ");
565 		perror(file);
566 		return;
567 	}
568 
569 	if (!aflag && fs.f_blocks == 0) {
570 		return;
571 	}
572 	if (!isatty(fileno(stdout))) {
573 		(void) printf("%s", mnt->mnt_special);
574 	} else {
575 		if (strlen(mnt->mnt_special) > (size_t)20) {
576 			(void) printf("%s\n", mnt->mnt_special);
577 			(void) printf("                    ");
578 		} else {
579 			(void) printf("%-20.20s", mnt->mnt_special);
580 		}
581 	}
582 	if (iflag) {
583 		if (eflag) {
584 			(void) printf("%8lld", fs.f_ffree);
585 		} else {
586 			show_inode_usage(fs.f_files, fs.f_ffree);
587 		}
588 	} else {
589 		if (gflag) {
590 			print_statvfs(&fs);
591 		} else {
592 			fsblkcnt64_t totalblks, avail, free, used, reserved;
593 
594 			totalblks = fs.f_blocks;
595 			free = fs.f_bfree;
596 			used = totalblks - free;
597 			avail = fs.f_bavail;
598 			reserved = free - avail;
599 			if ((long long)avail < 0)
600 				avail = 0;
601 			if (bflag) {
602 				(void) printf("%8lld\n", dbtok(avail,
603 				    (fsblkcnt64_t)fs.f_frsize));
604 			} else {
605 				(void) printf(" %7lld %7lld %7lld",
606 				    dbtok(totalblks,
607 				    (fsblkcnt64_t)fs.f_frsize),
608 				    dbtok(used, (fsblkcnt64_t)fs.f_frsize),
609 				    dbtok(avail, (fsblkcnt64_t)fs.f_frsize));
610 				totalblks -= reserved;
611 				(void) printf("%6.0f%%",
612 				    totalblks == 0 ? 0.0 :
613 				    (double)used / (double)totalblks * 100.0);
614 				(void) printf("  ");
615 				if (tflag) {
616 				t_totalblks += dbtok(totalblks + reserved,
617 				    (fsblkcnt64_t)fs.f_bsize);
618 				t_reserved += reserved;
619 				t_used += dbtok(used,
620 				    (fsblkcnt64_t)fs.f_frsize);
621 				t_avail += dbtok(avail,
622 				    (fsblkcnt64_t)fs.f_frsize);
623 				t_free += free;
624 				}
625 			}
626 		}
627 	}
628 	if ((!bflag) && (!eflag) && (!gflag))
629 		(void) printf("  %s\n", mnt->mnt_mountp);
630 	else if (eflag)
631 		(void) printf("\n");
632 }
633 
634 static void
show_inode_usage(fsfilcnt64_t total,fsfilcnt64_t free)635 show_inode_usage(fsfilcnt64_t total, fsfilcnt64_t free)
636 {
637 	fsfilcnt64_t used = total - free;
638 	int missing_info = ((long long)total == (long long)-1 ||
639 	    (long long)free == (long long)-1);
640 
641 	if (missing_info)
642 		(void) printf("%8s", "*");
643 	else
644 		(void) printf("%8lld", used);
645 	if ((long long)free == (long long)-1)
646 		(void) printf("%8s", "*");
647 	else
648 		(void) printf(" %7lld", free);
649 	if (missing_info)
650 		(void) printf("%6s  ", "*");
651 	else
652 		(void) printf("%6.0f%% ", (double)used / (double)total * 100.0);
653 }
654 
655 /*
656  * Return the suffix of path obtained by stripping off the prefix
657  * that is the value of the CHROOT environment variable.  If this
658  * value isn't obtainable or if it's not a prefix of path, return NULL.
659  */
660 static char *
zap_chroot(char * path)661 zap_chroot(char *path)
662 {
663 	return (pathsuffix(path, chrootpath));
664 }
665 
666 /*
667  * Stat/statfs a file after stripping off leading directory to which we are
668  * chroot'd.  Used to find the TFS mount that applies to the current
669  * activated NSE environment.
670  */
671 static int
chroot_stat(char * dir,int (* statfunc)(),char * statp,char ** dirp)672 chroot_stat(char *dir, int (*statfunc)(), char *statp, char **dirp)
673 {
674 	if ((dir = zap_chroot(dir)) == NULL)
675 		return (-1);
676 	if (dirp)
677 		*dirp = dir;
678 	return (*statfunc)(dir, statp);
679 }
680 
681 /*
682  * Given a name like /dev/dsk/c1d0s2, returns the mounted path, like /usr.
683  */
684 char *
mpath(char * file)685 mpath(char *file)
686 {
687 	struct mnttab mnt;
688 	FILE *mnttab;
689 	struct stat64 device_stat, mount_stat;
690 	char *mname;
691 
692 	mnttab = fopen(MNTTAB, "r");
693 	if (mnttab == NULL) {
694 		return ("");
695 	}
696 	mname = "";
697 	while ((getmntent(mnttab, &mnt)) == 0) {
698 		if (strcmp(mnt.mnt_fstype, MNTTYPE_UFS) != 0) {
699 			continue;
700 		}
701 		if (strcmp(file, mnt.mnt_special) == 0) {
702 			if (stat64(mnt.mnt_mountp, &mount_stat) != 0)
703 				continue;
704 			if (stat64(mnt.mnt_special, &device_stat) != 0)
705 				continue;
706 
707 			if (device_stat.st_rdev == mount_stat.st_dev) {
708 				mname = mnt.mnt_mountp;
709 				break;
710 			}
711 		}
712 	}
713 	fclose(mnttab);
714 	return (mname);
715 }
716 
717 /*
718  * Given a special device, return mnttab entry
719  * Returns 0 on success
720  */
721 
722 int
mdev(char * spec,struct mnttab ** mntbp)723 mdev(char *spec, struct mnttab **mntbp)
724 {
725 	FILE *mntp;
726 	struct mnttab mnt;
727 
728 	if ((mntp = fopen(MNTTAB, "r")) == 0) {
729 		(void) fprintf(stderr, "df: ");
730 		perror(MNTTAB);
731 		return (1);
732 	}
733 
734 	while (getmntent(mntp, &mnt) == 0) {
735 		if (strcmp(spec, mnt.mnt_special) == 0) {
736 			(void) fclose(mntp);
737 			*mntbp =  mntdup(&mnt);
738 			return (0);
739 		}
740 	}
741 	(void) fclose(mntp);
742 	(void) fprintf(stderr, "df : couldn't find mnttab entry for %s", spec);
743 	return (1);
744 }
745 
746 /*
747  * Find the entry in mlist that corresponds to the file named by path
748  * (i.e., that names a mount table entry for the file system in which
749  * path lies).  The pstat argument must point to stat information for
750  * path.
751  *
752  * Return the entry or NULL if there's no match.
753  *
754  * As it becomes necessary to obtain stat information about previously
755  * unexamined mlist entries, gather the information and cache it with the
756  * entries.
757  *
758  * The routine's strategy is to convert path into its canonical, symlink-free
759  * representation canon (which will require accessing the file systems on the
760  * branch from the root to path and thus may cause the routine to hang if any
761  * of them are inaccessible) and to use it to search for a mount point whose
762  * name is a substring of canon and whose corresponding device matches that of
763  * canon.  This technique avoids accessing unnecessary file system resources
764  * and thus prevents the program from hanging on inaccessible resources unless
765  * those resources are necessary for accessing path.
766  */
767 static struct mntlist *
findmntent(char * path,struct stat64 * pstat,struct mntlist * mlist)768 findmntent(char *path, struct stat64 *pstat, struct mntlist *mlist)
769 {
770 	static char		cwd[MAXPATHLEN];
771 	char			canon[MAXPATHLEN];
772 	char			scratch[MAXPATHLEN];
773 	struct mntlist *mlp;
774 
775 	/*
776 	 * If path is relative and we haven't already determined the current
777 	 * working directory, do so now.  Calculating the working directory
778 	 * here lets us do the work once, instead of (potentially) repeatedly
779 	 * in realpath().
780 	 */
781 	if (*path != '/' && cwd[0] == '\0') {
782 		if (getcwd(cwd, MAXPATHLEN) == NULL) {
783 			cwd[0] = '\0';
784 			return (NULL);
785 		}
786 	}
787 
788 	/*
789 	 * Find an absolute pathname in the native file system name space that
790 	 * corresponds to path, stuffing it into canon.
791 	 *
792 	 * If CHROOT is set in the environment, assume that chroot($CHROOT)
793 	 * (or an equivalent series of calls) was executed and convert the
794 	 * path to the equivalent name in the native file system's name space.
795 	 * Doing so allows direct comparison with the names in mtab entires,
796 	 * which are assumed to be recorded relative to the native name space.
797 	 */
798 	if (abspath(cwd, path, scratch) < 0)
799 		return (NULL);
800 	if (strcmp(scratch, "/") == 0 && chrootpath != NULL) {
801 		/*
802 		 * Force canon to be in canonical form; if the result from
803 		 * abspath was "/" and chrootpath isn't the null string, we
804 		 * must strip off a trailing slash.
805 		 */
806 		scratch[0] = '\0';
807 	}
808 	(void) sprintf(canon, "%s%s", chrootpath ? chrootpath : "", scratch);
809 
810 again:
811 	for (mlp = mlist; mlp; mlp = mlp->mntl_next) {
812 		struct mnttab *mnt = mlp->mntl_mnt;
813 
814 		/*
815 		 * Ignore uninteresting mounts.
816 		 */
817 		if (strcmp(mnt->mnt_fstype, typestr) != 0)
818 			continue;
819 
820 		/*
821 		 * The mount entry covers some prefix of the file.
822 		 * See whether it's the entry for the file system
823 		 * containing the file by comparing device ids.
824 		 */
825 		if (mlp->mntl_dev == NODEV) {
826 			struct stat64 fs_sb;
827 
828 			if (stat64(mnt->mnt_mountp, &fs_sb) < 0 &&
829 			    chroot_stat(mnt->mnt_mountp, stat64, (char *)&fs_sb,
830 			    (char **)NULL) < 0) {
831 				continue;
832 			}
833 			mlp->mntl_dev = fs_sb.st_dev;
834 		}
835 
836 		if (pstat->st_dev == mlp->mntl_dev)
837 			return (mlp);
838 	}
839 
840 	return (NULL);
841 }
842 
843 /*
844  * Convert the path given in raw to canonical, absolute, symlink-free
845  * form, storing the result in the buffer named by canon, which must be
846  * at least MAXPATHLEN bytes long.  "wd" contains the current working
847  * directory; accepting this value as an argument lets our caller cache
848  * the value, so that realpath (called from this routine) doesn't have
849  * to recalculate it each time it's given a relative pathname.
850  *
851  * Return 0 on success, -1 on failure.
852  */
853 static int
abspath(char * wd,char * raw,char * canon)854 abspath(char *wd, char *raw, char *canon)
855 {
856 	char		absbuf[MAXPATHLEN];
857 
858 	/*
859 	 * Preliminary sanity check.
860 	 */
861 	if (wd == NULL || raw == NULL || canon == NULL)
862 		return (-1);
863 
864 	/*
865 	 * If the path is relative, convert it to absolute form,
866 	 * using wd if it's been supplied.
867 	 */
868 	if (raw[0] != '/') {
869 		char	*limit = absbuf + sizeof (absbuf);
870 		char	*d;
871 
872 		/* Fill in working directory. */
873 		if (strlcpy(absbuf, wd, sizeof (absbuf)) >= sizeof (absbuf))
874 			return (-1);
875 
876 		/* Add separating slash. */
877 		d = absbuf + strlen(absbuf);
878 		if (d < limit)
879 			*d++ = '/';
880 
881 		/* Glue on the relative part of the path. */
882 		while (d < limit && (*d++ = *raw++))
883 			continue;
884 
885 		raw = absbuf;
886 	}
887 
888 	/*
889 	 * Call realpath to canonicalize and resolve symlinks.
890 	 */
891 	return (realpath(raw, canon) == NULL ? -1 : 0);
892 }
893 
894 /*
895  * Return a pointer to the trailing suffix of full that follows the prefix
896  * given by pref.  If pref isn't a prefix of full, return NULL.  Apply
897  * pathname semantics to the prefix test, so that pref must match at a
898  * component boundary.
899  */
900 static char *
pathsuffix(char * full,char * pref)901 pathsuffix(char *full, char *pref)
902 {
903 	int preflen;
904 
905 	if (full == NULL || pref == NULL)
906 		return (NULL);
907 
908 	preflen = strlen(pref);
909 	if (strncmp(pref, full, preflen) != 0)
910 		return (NULL);
911 
912 	/*
913 	 * pref is a substring of full.  To be a subpath, it cannot cover a
914 	 * partial component of full.  The last clause of the test handles the
915 	 * special case of the root.
916 	 */
917 	if (full[preflen] != '\0' && full[preflen] != '/' && preflen > 1)
918 		return (NULL);
919 
920 	if (preflen == 1 && full[0] == '/')
921 		return (full);
922 	else
923 		return (full + preflen);
924 }
925 
926 /*
927  * Return zero iff the path named by sub is a leading subpath
928  * of the path named by full.
929  *
930  * Treat null paths as matching nothing.
931  */
932 static int
subpath(char * full,char * sub)933 subpath(char *full, char *sub)
934 {
935 	return (pathsuffix(full, sub) == NULL);
936 }
937 
938 offset_t llseek();
939 
940 int
bread(char * file,int fi,daddr_t bno,char * buf,int cnt)941 bread(char *file, int fi, daddr_t bno, char *buf, int cnt)
942 {
943 	int n;
944 
945 	(void) llseek(fi, (offset_t)bno * DEV_BSIZE, 0);
946 	if ((n = read(fi, buf, cnt)) < 0) {
947 		/* probably a dismounted disk if errno == EIO */
948 		if (errno != EIO) {
949 			(void) fprintf(stderr, gettext("df: read error on "));
950 			perror(file);
951 			(void) fprintf(stderr, "bno = %ld\n", bno);
952 		} else {
953 			(void) fprintf(stderr, gettext(
954 "df: premature EOF on %s\n"), file);
955 			(void) fprintf(stderr,
956 			"bno = %ld expected = %d count = %d\n", bno, cnt, n);
957 		}
958 		return (0);
959 	}
960 	return (1);
961 }
962 
963 char *
xmalloc(unsigned int size)964 xmalloc(unsigned int size)
965 {
966 	char *ret;
967 	char *malloc();
968 
969 	if ((ret = (char *)malloc(size)) == NULL) {
970 		(void) fprintf(stderr, gettext("umount: ran out of memory!\n"));
971 		exit(1);
972 	}
973 	return (ret);
974 }
975 
976 struct mnttab *
mntdup(struct mnttab * mnt)977 mntdup(struct mnttab *mnt)
978 {
979 	struct mnttab *new;
980 
981 	new = (struct mnttab *)xmalloc(sizeof (*new));
982 
983 	new->mnt_special =
984 	    (char *)xmalloc((unsigned)(strlen(mnt->mnt_special) + 1));
985 	(void) strcpy(new->mnt_special, mnt->mnt_special);
986 
987 	new->mnt_mountp =
988 	    (char *)xmalloc((unsigned)(strlen(mnt->mnt_mountp) + 1));
989 	(void) strcpy(new->mnt_mountp, mnt->mnt_mountp);
990 
991 	new->mnt_fstype =
992 	    (char *)xmalloc((unsigned)(strlen(mnt->mnt_fstype) + 1));
993 	(void) strcpy(new->mnt_fstype, mnt->mnt_fstype);
994 
995 	if (mnt->mnt_mntopts != NULL) {
996 		new->mnt_mntopts =
997 		    (char *)xmalloc((unsigned)(strlen(mnt->mnt_mntopts) + 1));
998 		(void) strcpy(new->mnt_mntopts, mnt->mnt_mntopts);
999 	} else {
1000 		new->mnt_mntopts = NULL;
1001 	}
1002 
1003 #ifdef never
1004 	new->mnt_freq = mnt->mnt_freq;
1005 	new->mnt_passno = mnt->mnt_passno;
1006 #endif /* never */
1007 
1008 	return (new);
1009 }
1010 
1011 void
usage()1012 usage()
1013 {
1014 
1015 	(void) fprintf(stderr, gettext(
1016 "ufs usage: df [generic options] [-o i] [directory | special]\n"));
1017 	exit(1);
1018 }
1019 
1020 struct mntlist *
mkmntlist()1021 mkmntlist()
1022 {
1023 	FILE *mounted;
1024 	struct mntlist *mntl;
1025 	struct mntlist *mntst = NULL;
1026 	struct extmnttab mnt;
1027 
1028 	if ((mounted = fopen(MNTTAB, "r")) == NULL) {
1029 		(void) fprintf(stderr, "df : ");
1030 		perror(MNTTAB);
1031 		exit(1);
1032 	}
1033 	resetmnttab(mounted);
1034 	while (getextmntent(mounted, &mnt, sizeof (struct extmnttab)) == 0) {
1035 		mntl = (struct mntlist *)xmalloc(sizeof (*mntl));
1036 		mntl->mntl_mnt = mntdup((struct mnttab *)(&mnt));
1037 		mntl->mntl_next = mntst;
1038 		mntl->mntl_devvalid = 1;
1039 		mntl->mntl_dev = makedev(mnt.mnt_major, mnt.mnt_minor);
1040 		mntst = mntl;
1041 	}
1042 	(void) fclose(mounted);
1043 	return (mntst);
1044 }
1045 
1046 void
print_statvfs(struct statvfs64 * fs)1047 print_statvfs(struct statvfs64 *fs)
1048 {
1049 	int	i;
1050 
1051 	for (i = 0; i < FSTYPSZ; i++)
1052 		(void) printf("%c", fs->f_basetype[i]);
1053 	(void) printf(" %7d %7lld %7lld",
1054 	    fs->f_frsize,
1055 	    fs->f_blocks,
1056 	    fs->f_bavail);
1057 	(void) printf(" %7lld %7lld %7d",
1058 	    fs->f_files,
1059 	    fs->f_ffree,
1060 	    fs->f_fsid);
1061 	(void) printf(" 0x%x ",
1062 	    fs->f_flag);
1063 	for (i = 0; i < 14; i++)
1064 		(void) printf("%c",
1065 		    (fs->f_fstr[i] == '\0') ? ' ' : fs->f_fstr[i]);
1066 	printf("\n");
1067 }
1068 
1069 void
print_totals()1070 print_totals()
1071 {
1072 	/*
1073 	 * TRANSLATION_NOTE
1074 	 * Following string is used as a table header.
1075 	 * Translated items should start at the same
1076 	 * columns as the original items.
1077 	 */
1078 	(void) printf(gettext("Totals              %8lld %7lld %7lld"),
1079 	    t_totalblks, t_used, t_avail);
1080 	(void) printf("%6.0f%%\n",
1081 	    (t_totalblks - t_reserved) == (fsblkcnt64_t)0 ?
1082 	    0.0 :
1083 	    (double)t_used / (double)(t_totalblks - t_reserved) * 100.0);
1084 }
1085 
1086 void
print_itotals()1087 print_itotals()
1088 {
1089 	/*
1090 	 * TRANSLATION_NOTE
1091 	 * Following string is used as a table header.
1092 	 * Translated items should start at the same
1093 	 * columns as the original items.
1094 	 */
1095 	(void) printf(gettext("Totals              %8d %7d%6.0f%%\n"),
1096 	    t_iused,
1097 	    t_ifree,
1098 	    t_inodes == 0 ? 0.0 : (double)t_iused / (double)t_inodes * 100.0);
1099 }
1100