|  | @@ -1,5 +1,5 @@
 | 
	
		
			
				|  |  | -/* Simple arithmetic for numbers greater than a long int, for GNU tar.
 | 
	
		
			
				|  |  | -   Copyright (C) 1996, 1997 Free Software Foundation, Inc.
 | 
	
		
			
				|  |  | +/* Long integers, for GNU tar.
 | 
	
		
			
				|  |  | +   Copyright 1999 Free Software Foundation, Inc.
 | 
	
		
			
				|  |  |  
 | 
	
		
			
				|  |  |     This program is free software; you can redistribute it and/or modify
 | 
	
		
			
				|  |  |     it under the terms of the GNU General Public License as published by
 | 
	
	
		
			
				|  | @@ -13,111 +13,15 @@
 | 
	
		
			
				|  |  |  
 | 
	
		
			
				|  |  |     You should have received a copy of the GNU General Public License
 | 
	
		
			
				|  |  |     along with this program; if not, write to the Free Software Foundation,
 | 
	
		
			
				|  |  | -   Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.  */
 | 
	
		
			
				|  |  | -
 | 
	
		
			
				|  |  | -/* Also, see comments at beginning of arith.c.  */
 | 
	
		
			
				|  |  | -
 | 
	
		
			
				|  |  | -#define BITS_PER_BYTE 8		/* number of bits in each sizeof unit */
 | 
	
		
			
				|  |  | -#define BITS_PER_TARLONG 42	/* wanted number of bits in each tarlong */
 | 
	
		
			
				|  |  | -
 | 
	
		
			
				|  |  | -/* In all cases, tarlong is the proper type for a big number.
 | 
	
		
			
				|  |  | -
 | 
	
		
			
				|  |  | -   For simulated arithmetic, SUPERDIGIT is the base, TARLONG_FORMAT is the
 | 
	
		
			
				|  |  | -   format to print a single super-digit filled with zeroes to the left, and
 | 
	
		
			
				|  |  | -   BITS_PER_SUPERDIGIT is the smallest number of bits required to fully
 | 
	
		
			
				|  |  | -   represent each super-digit.  LONGS_PER_TARLONG says how many longs are
 | 
	
		
			
				|  |  | -   required for a full tarlong, and SIZEOF_TARLONG is the size of a tarlong
 | 
	
		
			
				|  |  | -   in bytes.
 | 
	
		
			
				|  |  | -
 | 
	
		
			
				|  |  | -   For straight compiler arithmetic, SUPERDIGIT is zero and TARLONG_FORMAT
 | 
	
		
			
				|  |  | -   is the format to directly print a tarlong (without zero-filling).
 | 
	
		
			
				|  |  | -
 | 
	
		
			
				|  |  | -   The values of SIZEOF_LONG_LONG and SIZEOF_UNSIGNED_LONG, below, are
 | 
	
		
			
				|  |  | -   obtained through the configuration process.  */
 | 
	
		
			
				|  |  | -
 | 
	
		
			
				|  |  | -#if BITS_PER_BYTE * SIZEOF_UNSIGNED_LONG >= BITS_PER_TARLONG
 | 
	
		
			
				|  |  | -# define SUPERDIGIT 0
 | 
	
		
			
				|  |  | -# define TARLONG_FORMAT "%uld"
 | 
	
		
			
				|  |  | -typedef unsigned long tarlong;
 | 
	
		
			
				|  |  | -#else
 | 
	
		
			
				|  |  | -# if BITS_PER_BYTE * SIZEOF_LONG_LONG >= BITS_PER_TARLONG + 1
 | 
	
		
			
				|  |  | -#  define SUPERDIGIT 0
 | 
	
		
			
				|  |  | -#  define TARLONG_FORMAT "%lld"
 | 
	
		
			
				|  |  | -typedef long long tarlong;
 | 
	
		
			
				|  |  | -# else
 | 
	
		
			
				|  |  | -#  if BITS_PER_BYTE * SIZEOF_UNSIGNED_LONG >= 64
 | 
	
		
			
				|  |  | -#   define SUPERDIGIT 1000000000L
 | 
	
		
			
				|  |  | -#   define BITS_PER_SUPERDIGIT 29
 | 
	
		
			
				|  |  | -#   define TARLONG_FORMAT "%09uld"
 | 
	
		
			
				|  |  | -#  else
 | 
	
		
			
				|  |  | -#   if BITS_PER_BYTE * SIZEOF_UNSIGNED_LONG >= 32
 | 
	
		
			
				|  |  | -#    define SUPERDIGIT 10000L
 | 
	
		
			
				|  |  | -#    define BITS_PER_SUPERDIGIT 14
 | 
	
		
			
				|  |  | -#    define TARLONG_FORMAT "%04uld"
 | 
	
		
			
				|  |  | -#   endif
 | 
	
		
			
				|  |  | -#  endif
 | 
	
		
			
				|  |  | -# endif
 | 
	
		
			
				|  |  | -#endif
 | 
	
		
			
				|  |  | -
 | 
	
		
			
				|  |  | -#if SUPERDIGIT
 | 
	
		
			
				|  |  | -
 | 
	
		
			
				|  |  | -# define LONGS_PER_TARLONG \
 | 
	
		
			
				|  |  | -    ((BITS_PER_TARLONG + BITS_PER_SUPERDIGIT - 1) / BITS_PER_SUPERDIGIT)
 | 
	
		
			
				|  |  | -# define SIZEOF_TARLONG (LONGS_PER_TARLONG * sizeof (unsigned long))
 | 
	
		
			
				|  |  | -
 | 
	
		
			
				|  |  | -/* The NEC EWS 4.2 C compiler gets confused by a pointer to a typedef that
 | 
	
		
			
				|  |  | -   is an array.  So we wrap the array into a struct.  (Pouah!)  */
 | 
	
		
			
				|  |  | -
 | 
	
		
			
				|  |  | -struct tarlong
 | 
	
		
			
				|  |  | -{
 | 
	
		
			
				|  |  | -  unsigned long digit[LONGS_PER_TARLONG];
 | 
	
		
			
				|  |  | -};
 | 
	
		
			
				|  |  | -
 | 
	
		
			
				|  |  | -typedef struct tarlong tarlong;
 | 
	
		
			
				|  |  | -
 | 
	
		
			
				|  |  | -int zerop_tarlong_helper PARAMS ((unsigned long *));
 | 
	
		
			
				|  |  | -int lessp_tarlong_helper PARAMS ((unsigned long *, unsigned long *));
 | 
	
		
			
				|  |  | -void clear_tarlong_helper PARAMS ((unsigned long *));
 | 
	
		
			
				|  |  | -void add_to_tarlong_helper PARAMS ((unsigned long *, int));
 | 
	
		
			
				|  |  | -void mult_tarlong_helper PARAMS ((unsigned long *, int));
 | 
	
		
			
				|  |  | -void print_tarlong_helper PARAMS ((unsigned long *, FILE *));
 | 
	
		
			
				|  |  | -
 | 
	
		
			
				|  |  | -# define zerop_tarlong(Accumulator) \
 | 
	
		
			
				|  |  | -   zerop_tarlong_helper (&(Accumulator).digit[0])
 | 
	
		
			
				|  |  | -
 | 
	
		
			
				|  |  | -# define lessp_tarlong(First, Second) \
 | 
	
		
			
				|  |  | -   lessp_tarlong_helper (&(First).digit[0], &(Second).digit[0])
 | 
	
		
			
				|  |  | -
 | 
	
		
			
				|  |  | -# define clear_tarlong(Accumulator) \
 | 
	
		
			
				|  |  | -   clear_tarlong_helper (&(Accumulator).digit[0])
 | 
	
		
			
				|  |  | -
 | 
	
		
			
				|  |  | -# define add_to_tarlong(Accumulator, Value) \
 | 
	
		
			
				|  |  | -   add_to_tarlong_helper (&(Accumulator).digit[0], (Value))
 | 
	
		
			
				|  |  | -
 | 
	
		
			
				|  |  | -# define mult_tarlong(Accumulator, Value) \
 | 
	
		
			
				|  |  | -   mult_tarlong_helper (&(Accumulator).digit[0], (Value))
 | 
	
		
			
				|  |  | -
 | 
	
		
			
				|  |  | -# define print_tarlong(Accumulator, File) \
 | 
	
		
			
				|  |  | -   print_tarlong_helper (&(Accumulator).digit[0], (File))
 | 
	
		
			
				|  |  | -
 | 
	
		
			
				|  |  | -#else /* not SUPERDIGIT */
 | 
	
		
			
				|  |  | -
 | 
	
		
			
				|  |  | -# define zerop_tarlong(Accumulator) \
 | 
	
		
			
				|  |  | -   ((Accumulator) == 0)
 | 
	
		
			
				|  |  | -
 | 
	
		
			
				|  |  | -# define lessp_tarlong(First, Second) \
 | 
	
		
			
				|  |  | -   ((First) < (Second))
 | 
	
		
			
				|  |  | -
 | 
	
		
			
				|  |  | -# define clear_tarlong(Accumulator) \
 | 
	
		
			
				|  |  | -   ((Accumulator) = 0)
 | 
	
		
			
				|  |  | -
 | 
	
		
			
				|  |  | -# define add_to_tarlong(Accumulator, Value) \
 | 
	
		
			
				|  |  | -   ((Accumulator) += (Value))
 | 
	
		
			
				|  |  | -
 | 
	
		
			
				|  |  | -# define mult_tarlong(Accumulator, Value) \
 | 
	
		
			
				|  |  | -   ((Accumulator) *= (Value))
 | 
	
		
			
				|  |  | -
 | 
	
		
			
				|  |  | -# define print_tarlong(Accumulator, File) \
 | 
	
		
			
				|  |  | -   (fprintf ((File), TARLONG_FORMAT, (Accumulator)))
 | 
	
		
			
				|  |  | -
 | 
	
		
			
				|  |  | -#endif /* not SUPERDIGIT */
 | 
	
		
			
				|  |  | +   Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA.  */
 | 
	
		
			
				|  |  | +
 | 
	
		
			
				|  |  | +/* Handle large integers for calculating big tape lengths and the
 | 
	
		
			
				|  |  | +   like.  In practice, double precision does for now.  On the vast
 | 
	
		
			
				|  |  | +   majority of machines, it counts up to 2**52 bytes without any loss
 | 
	
		
			
				|  |  | +   of information, and counts up to 2**62 bytes if data are always
 | 
	
		
			
				|  |  | +   blocked in 1 kB boundaries.  We'll need arbitrary precision
 | 
	
		
			
				|  |  | +   arithmetic anyway once we get into the 2**64 range, so there's no
 | 
	
		
			
				|  |  | +   point doing anything fancy before then.  */
 | 
	
		
			
				|  |  | +   
 | 
	
		
			
				|  |  | +#define TARLONG_FORMAT "%.0f"
 | 
	
		
			
				|  |  | +typedef double tarlong;
 |