Mercurial > hg > octave-lojdl > gnulib-hg

changeset 193:d43bfc8cba4a

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
.
author Jim Meyering <jim@meyering.net>
date Mon, 14 Mar 1994 16:24:52 +0000
parents f87fb08e4215
children 1a1e462a2bea
files lib/fsusage.c
diffstat 1 files changed, 43 insertions(+), 32 deletions(-) [+]
line wrap: on
line diff
--- a/lib/fsusage.c
+++ b/lib/fsusage.c
@@ -68,21 +68,26 @@
 int statvfs ();
 #endif
 
-/* Return the number of TOSIZE-byte blocks used by
-   BLOCKS FROMSIZE-byte blocks, rounding away from zero.  */
+/* Set B_NEW to the number of TOSIZE-byte blocks used by B FROMSIZE-byte
+   blocks, rounding away from zero.  TOSIZE must be positive.  Return -1
+   from invoking function if FROMSIZE is not positive.  */
 
-static long
-adjust_blocks (blocks, fromsize, tosize)
-     long blocks;
-     int fromsize, tosize;
-{
-  if (fromsize == tosize)	/* E.g., from 512 to 512.  */
-    return blocks;
-  else if (fromsize > tosize)	/* E.g., from 2048 to 512.  */
-    return blocks * (fromsize / tosize);
-  else				/* E.g., from 256 to 512.  */
-    return (blocks + (blocks < 0 ? -1 : 1)) / (tosize / fromsize);
-}
+#define ADJUST_BLOCKS(b_new, b, fromsize, tosize)			\
+  do									\
+    {									\
+      if ((tosize) <= 0)						\
+	abort ();							\
+      if ((fromsize) <= 0)						\
+	return -1;							\
+									\
+      if ((fromsize) == (tosize))	/* E.g., from 512 to 512.  */	\
+	(b_new) = (b);							\
+      else if ((fromsize) > (tosize))	/* E.g., from 2048 to 512.  */	\
+	(b_new) = (b) * ((fromsize) / (tosize));			\
+      else				/* E.g., from 256 to 512.  */	\
+	(b_new) = ((b) + ((b) < 0 ? -1 : 1)) / ((tosize) / (fromsize));	\
+    }									\
+  while (0)
 
 /* Fill in the fields of FSP with information about space usage for
    the filesystem on which PATH resides.
@@ -100,7 +105,7 @@
 
   if (statfs (path, &fsd, sizeof (struct statfs)) != 0)
     return (-1);
-#define convert_blocks(b) adjust_blocks ((b), fsd.f_fsize, 512)
+#define CONVERT_BLOCKS(bnew, b) ADJUST_BLOCKS ((bnew), (b), fsd.f_fsize, 512)
 #endif /* STAT_STATFS3_OSF1 */
 
 #ifdef STAT_STATFS2_FS_DATA	/* Ultrix.  */
@@ -108,10 +113,10 @@
 
   if (statfs (path, &fsd) != 1)
     return -1;
-#define convert_blocks(b) adjust_blocks ((b), 1024, 512)
-  fsp->fsu_blocks = convert_blocks (fsd.fd_req.btot);
-  fsp->fsu_bfree = convert_blocks (fsd.fd_req.bfree);
-  fsp->fsu_bavail = convert_blocks (fsd.fd_req.bfreen);
+#define CONVERT_BLOCKS(bnew, b) ADJUST_BLOCKS ((bnew), (b), 1024, 512)
+  CONVERT_BLOCKS (fsp->fsu_blocks, fsd.fd_req.btot);
+  CONVERT_BLOCKS (fsp->fsu_bfree, fsd.fd_req.bfree);
+  CONVERT_BLOCKS (fsp->fsu_bavail, fsd.fd_req.bfreen);
   fsp->fsu_files = fsd.fd_req.gtot;
   fsp->fsu_ffree = fsd.fd_req.gfree;
 #endif
@@ -133,11 +138,11 @@
       return -1;
     }
   close (fd);
-#define convert_blocks(b) \
-    adjust_blocks ((b), (fsd.s_type == Fs2b ? 1024 : 512), 512)
-  fsp->fsu_blocks = convert_blocks (fsd.s_fsize);
-  fsp->fsu_bfree = convert_blocks (fsd.s_tfree);
-  fsp->fsu_bavail = convert_blocks (fsd.s_tfree);
+#define CONVERT_BLOCKS(bnew, b) \
+    ADJUST_BLOCKS ((bnew), (b), (fsd.s_type == Fs2b ? 1024 : 512), 512)
+  CONVERT_BLOCKS (fsp->fsu_blocks, fsd.s_fsize);
+  CONVERT_BLOCKS (fsp->fsu_bfree, fsd.s_tfree);
+  CONVERT_BLOCKS (fsp->fsu_bavail, fsd.s_tfree);
   fsp->fsu_files = (fsd.s_isize - 2) * INOPB * (fsd.s_type == Fs2b ? 2 : 1);
   fsp->fsu_ffree = fsd.s_tinode;
 #endif
@@ -147,7 +152,7 @@
 
   if (statfs (path, &fsd) < 0)
     return -1;
-#define convert_blocks(b) adjust_blocks ((b), fsd.f_bsize, 512)
+#define CONVERT_BLOCKS(bnew, b) ADJUST_BLOCKS ((bnew), (b), fsd.f_bsize, 512)
 #endif
 
 #ifdef STAT_STATFS2_FSIZE	/* 4.4BSD.  */
@@ -155,7 +160,7 @@
 
   if (statfs (path, &fsd) < 0)
     return -1;
-#define convert_blocks(b) adjust_blocks ((b), fsd.f_fsize, 512)
+#define CONVERT_BLOCKS(bnew, b) ADJUST_BLOCKS ((bnew), (b), fsd.f_fsize, 512)
 #endif
 
 #ifdef STAT_STATFS4		/* SVR3, Dynix, Irix.  */
@@ -166,7 +171,13 @@
   /* Empirically, the block counts on most SVR3 and SVR3-derived
      systems seem to always be in terms of 512-byte blocks,
      no matter what value f_bsize has.  */
-#define convert_blocks(b) (b)
+#define CONVERT_BLOCKS(bnew, b)						\
+  do									\
+    {									\
+      (bnew) = (b);							\
+    }									\
+  while (0)
+
 #ifndef _SEQUENT_		/* _SEQUENT_ is DYNIX/ptx.  */
 #ifndef DOLPHIN			/* DOLPHIN 3.8.alfa/7.18 has f_bavail */
 #define f_bavail f_bfree
@@ -180,14 +191,14 @@
   if (statvfs (path, &fsd) < 0)
     return -1;
   /* f_frsize isn't guaranteed to be supported.  */
-#define convert_blocks(b) \
-  adjust_blocks ((b), fsd.f_frsize ? fsd.f_frsize : fsd.f_bsize, 512)
+#define CONVERT_BLOCKS(bnew, b) \
+  ADJUST_BLOCKS ((bnew), (b), fsd.f_frsize ? fsd.f_frsize : fsd.f_bsize, 512)
 #endif
 
 #if !defined(STAT_STATFS2_FS_DATA) && !defined(STAT_READ) /* !Ultrix && !SVR2.  */
-  fsp->fsu_blocks = convert_blocks (fsd.f_blocks);
-  fsp->fsu_bfree = convert_blocks (fsd.f_bfree);
-  fsp->fsu_bavail = convert_blocks (fsd.f_bavail);
+  CONVERT_BLOCKS (fsp->fsu_blocks, fsd.f_blocks);
+  CONVERT_BLOCKS (fsp->fsu_bfree, fsd.f_bfree);
+  CONVERT_BLOCKS (fsp->fsu_bavail, fsd.f_bavail);
   fsp->fsu_files = fsd.f_files;
   fsp->fsu_ffree = fsd.f_ffree;
 #endif