bc-1.06.95

Author: nlitsme

AUTHORS

@@ -1,4 +1,6 @@
 Phil Nelson <philnelson@acm.org> wrote bc, including the number.c
 source in the "lib" directory.
 
-Ken Pizzini wrote dc.
+Ken Pizzini <ken@gnu.org> wrote dc, making use of the lib/number.c
+code that Phil Nelson wrote to handle the actual multiprecision
+arithmetic.

ChangeLog

@@ -1,3 +1,51 @@
+Mon Sep  4 19:27:49 2006 Ken Pizzini <ken@gnu.org>
+	* configure.in: re-factor how version numbers are handled; add errno.h
+	  and strtol() checks; add doc-texi-ver.incl output
+	* bc/bcdefs.h: Prefer <string.h> over <strings.h>
+	* bc/execute.c, bc/load.c, bc/main.c, bc/proto.h, bc/scan.l,
+	  bc/storage.c, bc/util.c, bc/warranty.c: De-lint some with "const"
+	  declarations, "static" declarations, and un-shadowing a few global
+	  variables and functions
+	* dc/dc.c: add "static" keyword on flush_okay() function declaration,
+	  just for good hygene
+	* dc/numeric.c: Reworked to avoid breaking C99 type-punning rules
+
+Wed Jun 14 08:21:17 2006 Ken Pizzini <ken@gnu.org>
+	* dc/numeric.c (dc_int2data): rework code so that C99 compilers
+	  stop whining about the type punning
+	* dc/dc.c (flush_okay): add "static" keyword as a matter of good
+	  coding hygene
+
+Sun Jun 11 21:40:37 2006 Ken Pizzini <ken@gnu.org>
+	* doc/bc.1: strip release version information which is not being
+	  automatically kept up-to-date
+	* doc/dc.1: don't capitalize Dc or DC
+
+Sun Jun 11 09:07:26 2006 Ken Pizzini <ken@gnu.org>
+	* doc/bc.texi, doc/dc.texi, doc/texi-ver.incl.in, doc/Makefile.am:
+	  make version text in texinfo-based documentation auto-derive from
+	  configure.in
+	* configure.in: update to use more modern automake/autoconf
+	  directives; factor out version numbers so that AC_SUBST and
+	  AC_OUTPUT kcan be used to create doc/texi-ver.incl
+	* doc/Makefile.am: automake does (now) have a mechanism to
+	  auto-include declared man pages in the dist tarball, so
+	  remove FIXME block
+
+Sun Jun 11 03:04:18 2006 Ken Pizzini <ken@gnu.org>
+	* lib/Makefile.am: testmul, specialnumber, multidigits.h are
+	  autogenerated by special request (only), and "make clean" should
+	  remove them
+	* lib/testmul.c: CLOCKS_PER_SEC is typically a "long" value, so make
+	  test_time wide enough to hold it; add missing #include directives
+	* lib/number.c: silly warning clean-up:
+	  + declare rt_warn() and rt_error() to take a CONST char* first
+	    argument
+	  + neither _bc_rec_mul() nor _bc_simp_mul() use the full_scale
+	    argument, so remove it in the function definitions and invocations
+	  + some C libraries define an index() function; use a different index
+	    variable name to avoid gratuitous namespace shadowing
+
 Sun Jun  4 13:56:58 2006 Ken Pizzini <ken@gnu.org>
 	* doc/dc.texi: document new DC_LINE_LENGTH variable; mention
 	  traditional dc's handling of P with a numeric input

Makefile.in

@@ -65,7 +65,7 @@ am__remove_distdir = \
   { test ! -d $(distdir) \
     || { find $(distdir) -type d ! -perm -200 -exec chmod u+w {} ';' \
          && rm -fr $(distdir); }; }
-DIST_ARCHIVES = $(distdir).tar.gz
+DIST_ARCHIVES = $(distdir).tar.gz $(distdir).tar.bz2
 GZIP_ENV = --best
 distuninstallcheck_listfiles = find . -type f -print
 distcleancheck_listfiles = find . -type f -print
@@ -77,12 +77,14 @@ AUTOCONF = @AUTOCONF@
 AUTOHEADER = @AUTOHEADER@
 AUTOMAKE = @AUTOMAKE@
 AWK = @AWK@
+BC_VERSION = @BC_VERSION@
 CC = @CC@
 CCDEPMODE = @CCDEPMODE@
 CFLAGS = @CFLAGS@
 CPP = @CPP@
 CPPFLAGS = @CPPFLAGS@
 CYGPATH_W = @CYGPATH_W@
+DC_VERSION = @DC_VERSION@
 DEFS = @DEFS@
 DEPDIR = @DEPDIR@
 ECHO_C = @ECHO_C@
@@ -342,6 +344,7 @@ distclean-tags:
 distdir: $(DISTFILES)
 	$(am__remove_distdir)
 	mkdir $(distdir)
+	$(mkdir_p) $(distdir)/doc
 	@srcdirstrip=`echo "$(srcdir)" | sed 's|.|.|g'`; \
 	topsrcdirstrip=`echo "$(top_srcdir)" | sed 's|.|.|g'`; \
 	list='$(DISTFILES)'; for file in $$list; do \
@@ -394,7 +397,6 @@ distdir: $(DISTFILES)
 dist-gzip: distdir
 	tardir=$(distdir) && $(am__tar) | GZIP=$(GZIP_ENV) gzip -c >$(distdir).tar.gz
 	$(am__remove_distdir)
-
 dist-bzip2: distdir
 	tardir=$(distdir) && $(am__tar) | bzip2 -9 -c >$(distdir).tar.bz2
 	$(am__remove_distdir)
@@ -414,6 +416,7 @@ dist-zip: distdir
 
 dist dist-all: distdir
 	tardir=$(distdir) && $(am__tar) | GZIP=$(GZIP_ENV) gzip -c >$(distdir).tar.gz
+	tardir=$(distdir) && $(am__tar) | bzip2 -9 -c >$(distdir).tar.bz2
 	$(am__remove_distdir)
 
 # This target untars the dist file and tries a VPATH configuration.  Then

bc/Makefile.in

@@ -80,12 +80,14 @@ AUTOCONF = @AUTOCONF@
 AUTOHEADER = @AUTOHEADER@
 AUTOMAKE = @AUTOMAKE@
 AWK = @AWK@
+BC_VERSION = @BC_VERSION@
 CC = @CC@
 CCDEPMODE = @CCDEPMODE@
 CFLAGS = @CFLAGS@
 CPP = @CPP@
 CPPFLAGS = @CPPFLAGS@
 CYGPATH_W = @CYGPATH_W@
+DC_VERSION = @DC_VERSION@
 DEFS = @DEFS@
 DEPDIR = @DEPDIR@
 ECHO_C = @ECHO_C@

bc/bcdefs.h

@@ -36,10 +36,10 @@
 #include <stdio.h>
 #include <sys/types.h>
 #include <ctype.h>
-#ifdef HAVE_STRINGS_H
-#include <strings.h>
-#else
+#ifdef HAVE_STRING_H
 #include <string.h>
+#else
+#include <strings.h>
 #endif
 #ifdef HAVE_LIMITS_H
 #include <limits.h>

bc/execute.c

@@ -48,10 +48,10 @@ stop_execution (sig)
 /* Get the current byte and advance the PC counter. */
 
 unsigned char
-byte (pc)
-     program_counter *pc;
+byte (p)
+     program_counter *p;
 {
-  return (functions[pc->pc_func].f_body[pc->pc_addr++]);
+  return (functions[p->pc_func].f_body[p->pc_addr++]);
 }
 
 
@@ -694,8 +694,8 @@ push_constant (in_char, conv_base)
    the constant. */
 
 void
-push_b10_const (pc)
-     program_counter *pc;
+push_b10_const (progctr)
+     program_counter *progctr;
 {
   bc_num build;
   program_counter look_pc;
@@ -704,7 +704,7 @@ push_b10_const (pc)
   char *ptr;
 
   /* Count the digits and get things ready. */
-  look_pc = *pc;
+  look_pc = *progctr;
   kdigits = 0;
   kscale  = 0;
   inchar = byte (&look_pc);
@@ -723,29 +723,29 @@ push_b10_const (pc)
 	}
     }
 
-  /* Get the first character again and move the pc. */
-  inchar = byte(pc);
+  /* Get the first character again and move the progctr. */
+  inchar = byte(progctr);
 
   /* Secial cases of 0, 1, and A-F single inputs. */
   if (kdigits == 1 && kscale == 0)
     {
       if (inchar == 0)
 	{
 	  push_copy (_zero_);
-	  inchar = byte(pc);
+	  inchar = byte(progctr);
 	  return;
 	}
       if (inchar == 1) {
       push_copy (_one_);
-      inchar = byte(pc);
+      inchar = byte(progctr);
       return;
     }
     if (inchar > 9)
       {
 	bc_init_num (&build);
 	bc_int2num (&build, inchar);
 	push_num (build);
-	inchar = byte(pc);
+	inchar = byte(progctr);
 	return;
       }
     }
@@ -772,7 +772,7 @@ push_b10_const (pc)
 	  else
 	    *ptr++ = inchar;
 	}
-      inchar = byte(pc);
+      inchar = byte(progctr);
     }
   push_num (build);
 }
@@ -781,11 +781,11 @@ push_b10_const (pc)
 /* Put the correct value on the stack for C_CODE.  Frees TOS num. */
 
 void
-assign (c_code)
-     char c_code;
+assign (code)
+     char code;
 {
   bc_free_num (&ex_stack->s_num);
-  if (c_code)
+  if (code)
     ex_stack->s_num = bc_copy_num (_one_);
   else
     ex_stack->s_num = bc_copy_num (_zero_);

bc/libmath.h

@@ -1 +1,46 @@
-{0}
+{"@iK20:s2:p@r",
+"@iF1,5.6,7,8,9,10,11,12,13,14,15[l0:KA:#Z1:l0:s7:pKA:s0:pl5:C1,0:",
+"s14:pl7:s0:pl14:RN1:l5:0<Z2:1s12:pl5:ns5:pN2:l2:s15:pK6:l15:+",
+"K.44:l5:*+s13:pl5:cS1+s2:pN3:l5:1>Z4:l10:1+s10:pl5:K2:/s5:pl2:",
+"1+s2:pJ3:N4:l13:s2:p1l5:+s14:pl5:s6:p1s8:pK2:s11:pN6:1B7:J5:N8:",
+"l11:i11:pJ6:N7:l6:l5:*s6:l8:l11:*s8:/s9:pl9:0=Z9:l10:0>Z10:N11:",
+"l10:d10:Z12:l14:l14:*s14:pJ11:N12:N10:l15:s2:pl12:Z13:1l14:/R",
+"N13:l14:1/RN9:l14:l9:+s14:pJ8:N5:0R]@r",
+"@iF2,5.7,9,10,11,12,13,14,15[l0:KA:#Z1:l0:s7:pKA:s0:pl5:C2,0:",
+"s14:pl7:s0:pl14:RN1:l5:0{Z2:1K10:l2:^-1/RN2:l2:s15:pK6:l2:+s2:",
+"pK2:s10:p0s11:pN3:l5:K2:}Z4:l10:K2:*s10:pl5:cRs5:pJ3:N4:N5:l5:",
+"K.5:{Z6:l10:K2:*s10:pl5:cRs5:pJ5:N6:l5:1-l5:1+/s13:s14:pl13:l13:",
+"*s12:pK3:s11:pN8:1B9:J7:N10:l11:K2:+s11:pJ8:N9:l13:l12:*s13:l11:",
+"/s9:pl9:0=Z11:l10:l14:*s14:pl15:s2:pl14:1/RN11:l14:l9:+s14:pJ10:N7:",
+"0R]@r",
+"@iF3,5.7,9,11,12,13,16,14,15[l0:KA:#Z1:l0:s7:pKA:s0:pl5:C3,0:",
+"s14:pl7:s0:pl14:RN1:l2:s15:pK1.1:l15:*K2:+s2:p1C4,0:s14:pl5:0",
+"<Z2:1s12:pl5:ns5:pN2:0s2:pl5:l14:/K2:+K4:/s13:pl5:K4:l13:*l14:",
+"*-s5:pl13:K2:%Z3:l5:ns5:pN3:l15:K2:+s2:pl5:s9:s14:pl5:nl5:*s16:",
+"pK3:s11:pN5:1B6:J4:N7:l11:K2:+s11:pJ5:N6:l9:l16:l11:l11:1-*/*",
+"s9:pl9:0=Z8:l15:s2:pl12:Z9:l14:n1/RN9:l14:1/RN8:l14:l9:+s14:p",
+"J7:N4:0R]@r",
+"@iF5,5.7,14,15[l0:KA:#Z1:l0:s7:pKA:s0:pl5:C5,0:s14:pl7:s0:pl14:",
+"RN1:l2:s15:pl2:K1.2:*s2:pl5:1C4,0:K2:*+C3,0:s14:pl15:s2:pl14:",
+"1/R0R]@r",
+"@iF4,5.6,7,9,10,11,12,13,16,14,15[l0:KA:#Z1:l0:s7:pKA:s0:pl5:",
+"C4,0:s14:pl7:s0:pl14:RN1:1s12:pl5:0<Z2:1ns12:pl5:ns5:pN2:l5:1",
+"=Z3:l2:K25:{Z4:K.7853981633974483096156608:l12:/RN4:l2:K40:{Z5:",
+"K.7853981633974483096156608458198757210492:l12:/RN5:l2:K60:{Z6:",
+"K.785398163397448309615660845819875721049292349843776455243736",
+":l12:/RN6:N3:l5:K.2:=Z7:l2:K25:{Z8:K.1973955598498807583700497",
+":l12:/RN8:l2:K40:{Z9:K.1973955598498807583700497651947902934475",
+":l12:/RN9:l2:K60:{Z10:K.197395559849880758370049765194790293447585103787852101517688",
+":l12:/RN10:N7:l2:s15:pl5:K.2:>Z11:l15:K5:+s2:pK.2:C4,0:s6:pN11:",
+"l15:K3:+s2:pN12:l5:K.2:>Z13:l10:1+s10:pl5:K.2:-1l5:K.2:*+/s5:",
+"pJ12:N13:l5:s13:s14:pl5:nl5:*s16:pK3:s11:pN15:1B16:J14:N17:l11:",
+"K2:+s11:pJ15:N16:l13:l16:*s13:l11:/s9:pl9:0=Z18:l15:s2:pl10:l6:",
+"*l14:+l12:/RN18:l14:l9:+s14:pJ17:N14:0R]@r",
+"@iF6,13,5.6,7,8,9,10,11,12,16,14,15[l0:KA:#Z1:l0:s7:pKA:s0:pl13:",
+"l5:C6,00:s14:pl7:s0:pl14:RN1:l2:s15:p0s2:pl13:1/s13:pl13:0<Z2:",
+"l13:ns13:pl13:K2:%1=Z3:1s12:pN3:N2:1s10:pK2:s11:pN5:l11:l13:{",
+"B6:J4:N7:l11:i11:pJ5:N6:l10:l11:*s10:pJ7:N4:K1.5:l15:*s2:pl5:",
+"l13:^K2:l13:^/l10:/s10:p1s9:s14:pl5:nl5:*K4:/s16:pK1.5:l15:*l10:",
+"cL+l10:cS-s2:p1s11:pN9:1B10:J8:N11:l11:i11:pJ9:N10:l9:l16:*l11:",
+"/l13:l11:+/s9:pl9:0=Z12:l15:s2:pl12:Z13:l10:nl14:*1/RN13:l10:",
+"l14:*1/RN12:l14:l9:+s14:pJ11:N8:0R]@r",0}

bc/load.c

@@ -51,21 +51,21 @@ init_load ()
 
 /* addbyte adds one BYTE to the current code segment. */
 void
-addbyte (byte)
-     int byte;
+addbyte (thebyte)
+     int thebyte;
 {
-  int pc;
+  int prog_addr;
   bc_function *f;
   char *new_body;
 
   /* If there was an error, don't continue. */
   if (had_error) return;
 
   /* Calculate the segment and offset. */
-  pc = load_adr.pc_addr++;
+  prog_addr = load_adr.pc_addr++;
   f = &functions[load_adr.pc_func];
 
-  if (pc >= f->f_body_size)
+  if (prog_addr >= f->f_body_size)
     {
       f->f_body_size *= 2;
       new_body = (char *) bc_malloc (f->f_body_size);
@@ -74,8 +74,8 @@ addbyte (byte)
       f->f_body = new_body;
     }
 
-  /* Store the byte. */
-  f->f_body[pc] = (char) (byte & 0xff);
+  /* Store the thebyte. */
+  f->f_body[prog_addr] = (char) (thebyte & 0xff);
   f->f_code_size++;
 }
 
@@ -126,7 +126,7 @@ def_label (lab)
 
 long
 long_val (str)
-     char **str;
+     const char **str;
 { int  val = 0;
   char neg = FALSE;
 
@@ -149,9 +149,9 @@ long_val (str)
 
 void
 load_code (code)
-     char *code;
+     const char *code;
 {
-  char *str;
+  const char *str;
   long  ap_name;	/* auto or parameter name. */
   long  label_no;
   long  vaf_name;	/* variable, array or function number. */

bc/main.c

@@ -58,8 +58,8 @@ static struct option long_options[] =
 };
 
 
-void
-usage (char *progname)
+static void
+usage (const char *progname)
 {
   printf ("usage: %s [options] [file ...]\n%s%s%s%s%s%s%s", progname,
           "  -h  --help         print this usage and exit\n",
@@ -72,7 +72,7 @@ usage (char *progname)
 }
 
 
-void
+static void
 parse_args (argc, argv)
      int argc;
      char **argv;
@@ -163,7 +163,7 @@ main (argc, argv)
      char *argv[];
 {
   char *env_value;
-  char *env_argv[30];
+  const char *env_argv[30];
   int   env_argc;
 
   /* Interactive? */