Release calc version 2.11.1t2.1

BUGS

@@ -177,8 +177,8 @@ Problems with known work-a-rounds:
 ## received a copy with calc; if not, write to Free Software Foundation, Inc.
 ## 59 Temple Place, Suite 330, Boston, MA  02111-1307, USA.
 ##
-## @(#) $Revision: 29.1 $
-## @(#) $Id: BUGS,v 29.1 1999/12/14 09:15:29 chongo Exp $
+## @(#) $Revision: 29.4 $
+## @(#) $Id: BUGS,v 29.4 1999/12/15 09:13:29 chongo Exp $
 ## @(#) $Source: /usr/local/src/cmd/calc/RCS/BUGS,v $
 ##
 ## Under source code control:	1994/03/18 14:06:13

CHANGES

@@ -39,6 +39,20 @@ The following are the changes from calc version 2.11.1 to date:
     now uses ./cal:~/cal (instead of ./lib:~/lib).  Changed LIB_PASSDOWN
     Makefile variable to CAL_PASSDOWN.
 
+    Fixed misc compile warnings and bugs.
+
+    Fixed problem of incorrect paths in the formation of installed
+    calc shell scripts.
+
+    Changed the recommended Comqaq cc compile to be -std0 -fast -O4 -static.
+
+    Fixed a problem related to asking for help for a non-existent file.
+
+    Added ./.calcinit to the default calcrc.
+
+    Added cscript/README and help cscript to document the calc shell
+    script supplied with calc.
+
 
 The following are the changes from calc version 2.11.0t10 to 2.11.0t11:
 
@@ -272,6 +286,7 @@ The following are the changes from calc version 2.11.0t10 to 2.11.0t11:
 	#	this is a comment
 	#
 	# The lone # above was also a comment
+	## is also a comment
 
     Improved how calc makes changes to file descriptor interactive state.
     Moved state changing code to calc_tty() and orig_tty() in lib_calc.c.
@@ -4703,8 +4718,8 @@ Following is a list of visible changes to calc from version 1.24.7 to 1.26.1:
 ## received a copy with calc; if not, write to Free Software Foundation, Inc.
 ## 59 Temple Place, Suite 330, Boston, MA  02111-1307, USA.
 ##
-## @(#) $Revision: 29.1 $
-## @(#) $Id: CHANGES,v 29.1 1999/12/14 09:15:29 chongo Exp $
+## @(#) $Revision: 29.5 $
+## @(#) $Id: CHANGES,v 29.5 1999/12/17 10:36:02 chongo Exp $
 ## @(#) $Source: /usr/local/src/cmd/calc/RCS/CHANGES,v $
 ##
 ## Under source code control:	1993/06/02 18:12:57

Makefile

@@ -20,8 +20,8 @@
 # received a copy with calc; if not, write to Free Software Foundation, Inc.
 # 59 Temple Place, Suite 330, Boston, MA  02111-1307, USA.
 #
-# @(#) $Revision: 29.1 $
-# @(#) $Id: Makefile.ship,v 29.1 1999/12/14 09:14:53 chongo Exp $
+# @(#) $Revision: 29.5 $
+# @(#) $Id: Makefile.ship,v 29.5 1999/12/17 09:07:35 chongo Exp $
 # @(#) $Source: /usr/local/src/cmd/calc/RCS/Makefile.ship,v $
 #
 # Under source code control:	1990/02/15 01:48:41
@@ -415,6 +415,7 @@ NROFF_ARG= -man
 #NROFF_ARG= -mandoc
 MANMAKE= /usr/local/bin/manmake
 #MANMAKE= manmake
+MANMODE= 0444
 
 # If the $CALCPATH environment variable is not defined, then the following
 # path will be search for calc resource file routines.
@@ -424,7 +425,7 @@ CALCPATH= .:./cal:~/cal:${LIBDIR}:${CUSTOMLIBDIR}
 # If the $CALCRC environment variable is not defined, then the following
 # path will be search for calc resource files.
 #
-CALCRC= ${LIBDIR}/startup:~/.calcrc
+CALCRC= ${LIBDIR}/startup:~/.calcrc:./.calcinit
 
 # Determine of the GNU-readline facility will be used instead of the
 # built-in calc binding method.
@@ -487,6 +488,8 @@ DEBUG= -O2 -g3
 #DEBUG= -O3 -ipa
 #DEBUG= -O3 -g3 -ipa
 #
+#DEBUG= -std0 -fast -O4 -static
+#
 #DEBUG= -g
 #DEBUG= -g3
 #DEBUG= -gx
@@ -784,7 +787,7 @@ CC= ${PURIFY} ${LCC}
 #
 # Dec Alpha / Compaq Tru64 cc (non-gnu) compiler set
 #
-# For better performance, set the following above:	DEBUG= -O2 -g3
+# For better performance, set the following:	DEBUG= -std0 -fast -O4 -static
 #
 #CCWARN=
 #CCOPT= ${DEBUG} ${NO_SHARED}

calc.c

@@ -19,8 +19,8 @@
  * received a copy with calc; if not, write to Free Software Foundation, Inc.
  * 59 Temple Place, Suite 330, Boston, MA  02111-1307, USA.
  *
- * @(#) $Revision: 29.1 $
- * @(#) $Id: calc.c,v 29.1 1999/12/14 09:15:34 chongo Exp $
+ * @(#) $Revision: 29.2 $
+ * @(#) $Id: calc.c,v 29.2 1999/12/17 09:21:45 chongo Exp $
  * @(#) $Source: /usr/local/src/cmd/calc/RCS/calc.c,v $
  *
  * Under source code control:	1990/02/15 01:48:11
@@ -197,7 +197,7 @@ main(int argc, char **argv)
 			 */
 			fprintf(stderr,
 			  "usage: %s [-c] [-C] [-d] [-e] [-h] [-i] [-m mode]\n"
-			  "\t[-D calc_debug[:resource_debug:[user_debug]]]\n"
+			  "\t[-D calc_debug[:resource_debug[:user_debug]]]\n"
 			  "\t[-n] [-p] [-q] [-s] [-u] [-v] "
 			  "[[--] calc_cmd ...]\n",
 			  program);

calc.h

@@ -17,8 +17,8 @@
  * received a copy with calc; if not, write to Free Software Foundation, Inc.
  * 59 Temple Place, Suite 330, Boston, MA  02111-1307, USA.
  *
- * @(#) $Revision: 29.1 $
- * @(#) $Id: calc.h,v 29.1 1999/12/14 09:15:34 chongo Exp $
+ * @(#) $Revision: 29.2 $
+ * @(#) $Id: calc.h,v 29.2 1999/12/14 19:37:46 chongo Exp $
  * @(#) $Source: /usr/local/src/cmd/calc/RCS/calc.h,v $
  *
  * Under source code control:	1990/02/15 01:48:31
@@ -202,7 +202,7 @@ extern char *pager;		/* $PAGER or default */
 extern int stdin_tty;		/* TRUE if stdin is a tty */
 extern int havecommands;	/* TRUE if have cmd args) */
 extern char *program;		/* our name */
-extern char *basename;		/* basename of our name */
+extern char *base_name;		/* basename of our name */
 extern char cmdbuf[];		/* command line expression */
 
 extern int abortlevel;		/* current level of aborts */

calc.man

@@ -15,8 +15,8 @@
 .\" received a copy with calc; if not, write to Free Software Foundation, Inc.
 .\" 59 Temple Place, Suite 330, Boston, MA  02111-1307, USA.
 .\"
-.\" @(#) $Revision: 29.1 $
-.\" @(#) $Id: calc.man,v 29.1 1999/12/14 09:15:35 chongo Exp $
+.\" @(#) $Revision: 29.4 $
+.\" @(#) $Id: calc.man,v 29.4 1999/12/17 10:06:31 chongo Exp $
 .\" @(#) $Source: /usr/local/src/cmd/calc/RCS/calc.man,v $
 .\"
 .\" Under source code control:	    1991/07/23 05:48:26
@@ -36,7 +36,7 @@ calc \- arbitrary precision calculator
 .RB [ \-c ]
 .RB [ \-C ]
 .RB [ \-d ]
-.RB [ -D\ \&calc_debug[:resource_debug:[user_debug]] ]
+.RB [ -D\ \&calc_debug[:resource_debug[:user_debug]] ]
 .br
 .in +5n
 .RB [ \-e ]
@@ -53,7 +53,7 @@ calc \- arbitrary precision calculator
 .RB [ calc_cmd\ \&.\|.\|. ]
 .in -5n
 .sp
-\fI#!${BINDIR}/calc\fP\ \fB\-S\fP\ [\-other_flags\ \&...]
+\fI#!${BINDIR}/calc\fP\ \fB\-S\fP\ [other_flags\ \&...]
 .SH DESCRIPTION
 \&
 .br
@@ -89,7 +89,7 @@ cause
 to try to process each line being read
 despite the errors that it encounters.
 .sp 1
-By default, calc startup resource files ($CALCRC) are silently
+By default, calc startup resource files are silently
 ignored if not found.
 This flag will report missing
 startup resource files unless
@@ -103,10 +103,10 @@ Without
 this flag, calling the custom() builtin function will
 simply generate an error.
 .sp 1
-Use if this flag may cause
+Use of this flag may cause
 .B calc
-to execute functions that
-are non-standard and that are not portable.  Custom builtin
+to execute functions
+that are non-standard and that are not portable.  Custom builtin
 functions are disabled by default for this reason.
 
 .TP
@@ -147,14 +147,14 @@ It's nearly ten past six.
 .in -5n
 .sp 1
 This flag disables the reporting of missing calc
-startup resource files ($CALCRC).
+startup resource files.
 
 .TP
-.BR -D " calc_debug[:resource_debug:[user_debug]]"
+.BR -D " calc_debug[:resource_debug[:user_debug]]"
 Force the initial value of config("calc_debug"),
 config("resource_debug") and config("user_debug").
 .sp 1
-The : separated strings are interpreted as signed 32 bit values.
+The : separated strings are interpreted as signed 32 bit integers.
 After an optional leading sign a leading zero indicates octal
 conversion, and a leading ``0x'' or ``0X'' hexadecimal
 conversion.  Otherwise, decimal conversion is assumed.
@@ -197,14 +197,14 @@ See
 .TP
 .B \-i
 Become interactive if possible.
-Be default, if
+If
 .I calc_cmd
 args are given,
 .B calc
-will execute them and exit.
-This flag args are given,
+by default, calc will execute them and exit.
+This flag causes
 .B calc
-will execute them and exit.
+to drop into interactive mode after the commands are executed.
 This flag will cause
 .B calc
 to drop into interactive mode after the
@@ -294,7 +294,7 @@ unknown mode.
 will attempt to read or write them if directed.
 .sp 1
 If the mode disables opening of files for reading, then
-the startup resource files are disabled as of
+the startup resource files are disabled as if
 .B \-q
 was given.
 The reading of key bindings is also disabled
@@ -330,7 +330,7 @@ flag overrides
 
 .TP
 .B \-q
-Disable the use of the $CALCRC startup resource files.
+Disable the reading of the startup scripts.
 
 .TP
 .B \-s
@@ -355,26 +355,20 @@ version number and exit.
 .br
 CALC COMMAND LINE
 .PP
-Without
-.IR calc_cmd ,
+With no
+.I calc_cmd
+arguments,
 .B calc
 operates interactively.
 If one or more
-.I calc_cmd
-are given on the command line and
+arguments are given on the command line and
 .B \-s
 is NOT given, then
 .B calc
-will evaluate and execute them and then exit.
-.sp
-If
+will read and execute them and either attempt
+to go interactive according as the
 .B \-i
-is given,
-.B calc
-will attempt to become interactive
-even of one or more
-.I calc_cmd
-are given on the command line.
+flag was present or absent.
 .sp
 If
 .B \-s
@@ -384,32 +378,157 @@ will not evaluate any
 .I calc_cmd
 arguments but instead make them available
 as strings to the argv() builtin function.
+
+Sufficiently simple commands with no no characters like
+parentheses, brackets, semicolons, '*', which have special
+interpretations in UNIX shells may be entered, possibly with
+spaces, until the terminating newline.
+For example:
+.sp 1
+.in +5n
+.nf
+calc 23 + 47
+.fi
+.in -5n
+.sp 1
+should respond with display of 70, but
+.sp 1
+.in +5n
+.nf
+calc 23 * 47
+.fi
+.in -5n
+.sp 1
+may fail.
+Such cases can usually be made to work as expected by
+enclosing the command between single marks as in:
+.sp 1
+.in +5n
+.nf
+calc '23 * 47'
+.fi
+.in -5n
+.sp 1
+and
+.sp 1
+.in +5n
+.nf
+calc 'print sqrt(2), exp(1)'
+.fi
+.in -5n
+.sp
+If '!' is to be used to indicate the factorial function, for
+shells like
+.BI csh (1)
+for which '!' followed by a non-space character
+is used for history substitution, it may be necessary to
+include a space or use a backslash to escape the special
+meaning of '!'.
+For example, the command:
+.sp 1
+.in +5n
+.nf
+print 27!^2
+.fi
+.in -5n
+.sp 1
+may have to be replaced by:
+.sp 1
+.in +5n
+.nf
+print 27! ^2	or	print 27\!^2
+.fi
+.in -5n
+
+\&
+.br
+CALC STARTUP FILES
 .PP
 Normally on startup,
+if the environment variable
+.B $CALCRC
+is undefined and
 .B calc
-attempts to execute a collection of
-startup resource files.
-The environment variable $CALCRC (if non-existent
-then a compiled in value) contains a :	separated list of startup
-resource files.
-No error conditions are produced if these startup
-resource files are not found.
-.PP
-If the mode disables opening of files for reading, then the startup
-resource files are disabled as of
+is invoked without the
 .B \-q
-was given and $CALCRC as well
-as the default compiled in value are ignored.
+flag, or if
+.B $CALCRC
+is defined and calc is invoked with
+.BR \-e ,
+.B calc
+looks for a file "startup" in the calc resource directory
+.B .calcrc
+in the user's home directory, and
+.B .calcinit in the current directory.
+If one or more of these are found, they are read in succession as
+.B calc
+scripts and their commands executed.
+When defined,
+.B $CALCRC
+is to contain a ':' separated list of names of files,
+and if calc is then invoked without either the
+.B \-q
+or
+.B \-e
+flags, these files are read in succession and their commands executed.
+No error condition is produced if a listed file is not found.
+.sp
+If the mode specified by
+.B \-m
+disables opening of files for reading, then the reading of startup
+files is also disabled as if
+.B \-q
+was given.
+
+\&
+.br
+CALC FILE SEARCH PATH
 .PP
-Filenames are subject to ``~'' expansion (see below).
-The
-environment variable $CALCPATH (if non-existent then a compiled in
-value) contains a : separated list of search directories.
-If a
-file does not begin with /, ~ or ./, then it is searched for under
-each directory listed in the $CALCPATH.
-It is an error if no such
-readable file is found.
+If the environment variable
+.B $CALCPATH
+is undefined, or if it
+is defined and
+.B calc
+is invoked with the
+.B \-e
+flag, when a file name not beginning with
+.BR / ,
+.B ~
+or
+.BR ./ ,
+is specified as in:
+.sp 1
+.in +5n
+.nf
+calc read myfile
+.fi
+.in -5n
+.sp 1
+.B calc
+searches in succession:
+.sp 1
+.in +5n
+.nf
+./myfile
+./myfile.cal
+${LIBDIR}/myfile
+${LIBDIR}/myfile.cal
+${CUSTOMLIBDIR}/myfile
+${CUSTOMLIBDIR}/myfile.cal
+.fi
+.in -5n
+.sp 1
+If the file is found, the
+search stops and the commands in the file are executed.
+It is an error if no readable file with the specified name is found.
+An alternative search path can be specified by defining
+.B $CALCPATH
+in the same way as PATH is defined, as a ':' separated
+list of directories, and then invoking
+.B calc
+without the
+.B \-e
+flag.
 .PP
 .B Calc
 treats all open files, other than stdin, stdout and
@@ -447,11 +566,17 @@ help config
 .br
 SHELL SCRIPT MODE
 .PP
-If an executable file begins with:
+If first line of an executable file begins
+.B #!
+followed by the absolute pathname of the
+.B calc
+program and the flag
+.B \-S
+as in:
 .sp 1
 .in +5n
 .nf
-\fI#!${BINDIR}/calc\fP\ \fB\-S\fP\ [\-other_flags\ \&...]
+\fI#!${BINDIR}/calc\fP\ \fB\-S\fP\ [other_flags\ \&...]
 .fi
 .in -5n
 .sp 1
@@ -462,19 +587,22 @@ Note that
 (UPPER CASE
 .BR \-S )
 must be the first \-flag on the ``#!'' line.
-Any other optional ``\-other_flags'' must come after
+Any other optional
+.B "other_flags"
+must come after
 the
 .BR \-S .
 .sp 1
 In
 .B "shell script mode"
-the contents of the file
-are evaluated and executed as if they were processed
-by the
-.B read
-command.
-Any optional ``\-other_flags'' will by parsed first
-followed by any arguments given shell script itself.
+the contents of the file are read and
+executed as if they were in a file being processed by a read
+command, except that a "command" beginning with '#' followed by
+whitespace and ending at the next newline is treated as a comment.
+Any optional
+.B "other_flags"
+will be parsed first followed by
+the later lines within the script itself.
 .sp 1
 In
 .BR "shell script mode" ,

config.c

@@ -19,8 +19,8 @@
  * received a copy with calc; if not, write to Free Software Foundation, Inc.
  * 59 Temple Place, Suite 330, Boston, MA  02111-1307, USA.
  *
- * @(#) $Revision: 29.1 $
- * @(#) $Id: config.c,v 29.1 1999/12/14 09:15:35 chongo Exp $
+ * @(#) $Revision: 29.2 $
+ * @(#) $Id: config.c,v 29.2 1999/12/14 19:37:46 chongo Exp $
  * @(#) $Source: /usr/local/src/cmd/calc/RCS/config.c,v $
  *
  * Under source code control:	1991/07/20 00:21:56
@@ -960,10 +960,10 @@ config_copy(CONFIG *src)
 	} else {
 		dest->program = strdup(src->program);
 	}
-	if (src->basename == NULL) {
-		dest->basename = strdup(basename);
+	if (src->base_name == NULL) {
+		dest->base_name = strdup(base_name);
 	} else {
-		dest->basename = strdup(src->basename);
+		dest->base_name = strdup(src->base_name);
 	}
 	if (src->version == NULL) {
 		dest->version = strdup(version());
@@ -1009,8 +1009,8 @@ config_free(CONFIG *cfg)
 	if (cfg->program != NULL) {
 		free(cfg->program);
 	}
-	if (cfg->basename != NULL) {
-		free(cfg->basename);
+	if (cfg->base_name != NULL) {
+		free(cfg->base_name);
 	}
 	if (cfg->version != NULL) {
 		free(cfg->version);
@@ -1255,7 +1255,7 @@ config_value(CONFIG *cfg, int type, VALUE *vp)
 
 	case CONFIG_PROGRAM:
 		vp->v_type = V_STR;
-		if (cfg->basename == NULL) {
+		if (cfg->base_name == NULL) {
 			vp->v_str = makestring(strdup(program));
 		} else {
 			vp->v_str = makenewstring(cfg->program);
@@ -1264,10 +1264,10 @@ config_value(CONFIG *cfg, int type, VALUE *vp)
 
 	case CONFIG_BASENAME:
 		vp->v_type = V_STR;
-		if (cfg->basename == NULL) {
-			vp->v_str = makestring(strdup(basename));
+		if (cfg->base_name == NULL) {
+			vp->v_str = makestring(strdup(base_name));
 		} else {
-			vp->v_str = makenewstring(cfg->basename);
+			vp->v_str = makenewstring(cfg->base_name);
 		}
 		return;
 
@@ -1364,10 +1364,10 @@ config_cmp(CONFIG *cfg1, CONFIG *cfg2)
 	       (cfg1->program != NULL && cfg2->program != NULL &&
 		strcmp(cfg1->program, cfg2->program) != 0) ||
 
-	       (cfg1->basename == NULL && cfg2->basename != NULL) ||
-	       (cfg1->basename != NULL && cfg2->basename == NULL) ||
-	       (cfg1->basename != NULL && cfg2->basename != NULL &&
-		strcmp(cfg1->basename, cfg2->basename) != 0) ||
+	       (cfg1->base_name == NULL && cfg2->base_name != NULL) ||
+	       (cfg1->base_name != NULL && cfg2->base_name == NULL) ||
+	       (cfg1->base_name != NULL && cfg2->base_name != NULL &&
+		strcmp(cfg1->base_name, cfg2->base_name) != 0) ||
 
 	       (cfg1->version == NULL && cfg2->version != NULL) ||
 	       (cfg1->version != NULL && cfg2->version == NULL) ||

config.h

@@ -19,8 +19,8 @@
  * received a copy with calc; if not, write to Free Software Foundation, Inc.
  * 59 Temple Place, Suite 330, Boston, MA  02111-1307, USA.
  *
- * @(#) $Revision: 29.1 $
- * @(#) $Id: config.h,v 29.1 1999/12/14 09:15:35 chongo Exp $
+ * @(#) $Revision: 29.2 $
+ * @(#) $Id: config.h,v 29.2 1999/12/14 19:37:46 chongo Exp $
  * @(#) $Source: /usr/local/src/cmd/calc/RCS/config.h,v $
  *
  * Under source code control:	1995/11/01 22:20:17
@@ -145,7 +145,7 @@ struct config {
 	BOOL verbose_quit;	/* TRUE => print Quit or abort executed msg */
 	int ctrl_d;		/* see CTRL_D_xyz below */
 	char *program;		/* our name */
-	char *basename;		/* basename of our name */
+	char *base_name;	/* basename of our name */
 	char *version;		/* calc version string */
 };
 typedef struct config CONFIG;

cscript/Makefile

@@ -17,8 +17,8 @@
 # received a copy with calc; if not, write to Free Software Foundation, Inc.
 # 59 Temple Place, Suite 330, Boston, MA  02111-1307, USA.
 #
-# @(#) $Revision: 29.1 $
-# @(#) $Id: Makefile,v 29.1 1999/12/14 09:15:35 chongo Exp $
+# @(#) $Revision: 29.4 $
+# @(#) $Id: Makefile,v 29.4 1999/12/17 11:30:35 chongo Exp $
 # @(#) $Source: /usr/local/src/cmd/calc/cscript/RCS/Makefile,v $
 #
 # Under source code control:	1999/11/29 11:10:26
@@ -82,7 +82,7 @@ SCRIPT_SRC= mersenne.calc piforever.calc plus.calc simple.calc
 
 # These files are found (but not built) in the distribution
 #
-DISTLIST= ${SCRIPT_SRC} ${MAKE_FILE}
+DISTLIST= ${SCRIPT_SRC} ${MAKE_FILE} README
 
 # These files are used to make (but not built) a calc .a library
 #
@@ -173,7 +173,7 @@ depend:
 	${Q}for i in ${SCRIPT}; do \
 		echo "$$i: $$i.calc"; \
 		echo '	rm -f $$@'; \
-		echo '	$${SED} -e 1s:^#!/usr/local/src/cmd/calc/calc:#!$${SCRIPTDIR}/calc: $$?>$$@'; \
+		echo '	$${SED} -e "1s:^#!/usr/local/src/cmd/calc/calc:#!$${BINDIR}/calc:" $$?>$$@'; \
 		echo '	$${CHMOD} +x $$@'; \
 	done >> makedep.out
 	${Q}echo sample dependency list formed
@@ -231,17 +231,17 @@ install: all
 
 mersenne: mersenne.calc
 	rm -f $@
-	${SED} -e 1s:^#!/usr/local/src/cmd/calc/calc:#!${SCRIPTDIR}/calc: $?>$@
+	${SED} -e "1s:^#!/usr/local/src/cmd/calc/calc:#!${BINDIR}/calc:" $?>$@
 	${CHMOD} +x $@
 piforever: piforever.calc
 	rm -f $@
-	${SED} -e 1s:^#!/usr/local/src/cmd/calc/calc:#!${SCRIPTDIR}/calc: $?>$@
+	${SED} -e "1s:^#!/usr/local/src/cmd/calc/calc:#!${BINDIR}/calc:" $?>$@
 	${CHMOD} +x $@
 plus: plus.calc
 	rm -f $@
-	${SED} -e 1s:^#!/usr/local/src/cmd/calc/calc:#!${SCRIPTDIR}/calc: $?>$@
+	${SED} -e "1s:^#!/usr/local/src/cmd/calc/calc:#!${BINDIR}/calc:" $?>$@
 	${CHMOD} +x $@
 simple: simple.calc
 	rm -f $@
-	${SED} -e 1s:^#!/usr/local/src/cmd/calc/calc:#!${SCRIPTDIR}/calc: $?>$@
+	${SED} -e "1s:^#!/usr/local/src/cmd/calc/calc:#!${BINDIR}/calc:" $?>$@
 	${CHMOD} +x $@

cscript/README

@@ -0,0 +1,64 @@
+calc shell script examples
+--------------------------
+
+These calc shell scripts are provided because they serve as examples of
+how use the calc language, and/or because the authors thought them to
+be useful!
+
+If you write something that you think is useful, please send it to:
+
+    calc-tester at postofc dot corp dot sgi dot com
+
+    [[ Replace 'at' with @, 'dot' is with . and remove the spaces ]]
+
+For more info, see:
+
+    help script
+    help cscript
+
+=-=
+
+mersenne exp
+
+    Print the value of 2^exp-1.
+
+
+piforever
+
+    Print the value of pi forever, or as long as you cpu / memory allows.
+
+
+plus arg ...
+
+    Print the sum of 1 or more arguments.
+
+
+simple
+
+    A trivial example of a calc shell script.
+
+## Copyright (C) 1999  Landon Curt Noll
+##
+## Calc is open software; you can redistribute it and/or modify it under
+## the terms of the version 2.1 of the GNU Lesser General Public License
+## as published by the Free Software Foundation.
+##
+## Calc is distributed in the hope that it will be useful, but WITHOUT
+## ANY WARRANTY; without even the implied warranty of MERCHANTABILITY
+## or FITNESS FOR A PARTICULAR PURPOSE.	 See the GNU Lesser General
+## Public License for more details.
+##
+## A copy of version 2.1 of the GNU Lesser General Public License is
+## distributed with calc under the filename COPYING-LGPL.  You should have
+## received a copy with calc; if not, write to Free Software Foundation, Inc.
+## 59 Temple Place, Suite 330, Boston, MA  02111-1307, USA.
+##
+## @(#) $Revision: 29.3 $
+## @(#) $Id: README,v 29.3 1999/12/17 10:34:54 chongo Exp $
+## @(#) $Source: /usr/local/src/cmd/calc/cscript/RCS/README,v $
+##
+## Under source code control:	1999/12/17 10:23:40
+## File existed as early as:	1999
+##
+## chongo <was here> /\oo/\	http://reality.sgi.com/chongo/
+## Share and enjoy!  :-)	http://reality.sgi.com/chongo/tech/comp/calc/

custom/c_sysinfo.c

@@ -18,7 +18,7 @@
  * 59 Temple Place, Suite 330, Boston, MA  02111-1307, USA.
  *
  * @(#) $Revision: 29.1 $
- * @(#) $Id: c_sysinfo.c,v 29.1 1999/12/14 09:15:37 chongo Exp $
+ * @(#) $Id: c_sysinfo.c,v 29.1 1999/12/14 09:15:37 chongo Exp chongo $
  * @(#) $Source: /usr/local/src/cmd/calc/custom/RCS/c_sysinfo.c,v $
  *
  * Under source code control:	1997/03/09 23:14:40
@@ -319,8 +319,7 @@ dump_name_value(void)
 	for (p = sys_info; p->name != NULL; ++p) {
 		if (p->str == NULL) {
 #if LONG_BITS == FULL_BITS || FULL_BITS == 32 || !defined(HAVE_LONGLONG)
-			fmt = "%s%-23s\t%-8lu\t(0x%lx)\n";
-			printf(fmt,
+			printf("%s%-23s\t%-8lu\t(0x%lx)\n",
 			    (conf->tab_ok ? "\t" : ""), p->name,
 			    (unsigned long)p->nmbr,
 			    (unsigned long)p->nmbr);
@@ -333,7 +332,7 @@ dump_name_value(void)
 			 * So we will only try %lld if %ld does not work.
 			 */
 # if defined(L64_FORMAT)
-			printf("%s%-23s\t%-8lu\t(0x%lx)\n".
+			printf("%s%-23s\t%-8lu\t(0x%lx)\n",
 			    (conf->tab_ok ? "\t" : ""), p->name,
 			    (unsigned long long)p->nmbr,
 			    (unsigned long long)p->nmbr);

hash.c

@@ -17,8 +17,8 @@
  * received a copy with calc; if not, write to Free Software Foundation, Inc.
  * 59 Temple Place, Suite 330, Boston, MA  02111-1307, USA.
  *
- * @(#) $Revision: 29.1 $
- * @(#) $Id: hash.c,v 29.1 1999/12/14 09:15:38 chongo Exp $
+ * @(#) $Revision: 29.2 $
+ * @(#) $Id: hash.c,v 29.2 1999/12/14 19:37:46 chongo Exp $
  * @(#) $Source: /usr/local/src/cmd/calc/RCS/hash.c,v $
  *
  * Under source code control:	1995/11/23 05:13:11
@@ -982,7 +982,7 @@ hash_value(int type, void *v, HASH *state)
 		state = hash_bool(type, value->v_config->verbose_quit, state);
 		state = hash_int(type, value->v_config->ctrl_d, state);
 		state = hash_str(type, value->v_config->program, state);
-		state = hash_str(type, value->v_config->basename, state);
+		state = hash_str(type, value->v_config->base_name, state);
 		state = hash_str(type, value->v_config->version, state);
 		break;
 

help.c

@@ -17,8 +17,8 @@
  * received a copy with calc; if not, write to Free Software Foundation, Inc.
  * 59 Temple Place, Suite 330, Boston, MA  02111-1307, USA.
  *
- * @(#) $Revision: 29.1 $
- * @(#) $Id: help.c,v 29.1 1999/12/14 09:15:40 chongo Exp $
+ * @(#) $Revision: 29.2 $
+ * @(#) $Id: help.c,v 29.2 1999/12/17 09:22:03 chongo Exp $
  * @(#) $Source: /usr/local/src/cmd/calc/RCS/help.c,v $
  *
  * Under source code control:	1997/09/14 10:58:30
@@ -253,19 +253,15 @@ givehelp(char *type)
 		stream = fopen(helppath, "r");
 		if (stream == NULL) {
 
-			/*
-			 * we have the help file open, now display it
-			 */
-			page_file(stream);
-			(void) fclose(stream);
-
-		/*
-		 * no such help file
-		 */
-		} else {
+			/* no such help file */
 			fprintf(stderr,
 				"%s: no such help file, try: help help\n",
 				type);
+		} else {
+
+			/* we have the help file open, now display it */
+			page_file(stream);
+			(void) fclose(stream);
 		}
 	}
 

help/Makefile

@@ -18,8 +18,8 @@
 # received a copy with calc; if not, write to Free Software Foundation, Inc.
 # 59 Temple Place, Suite 330, Boston, MA  02111-1307, USA.
 #
-# @(#) $Revision: 29.1 $
-# @(#) $Id: Makefile,v 29.1 1999/12/14 09:16:34 chongo Exp $
+# @(#) $Revision: 29.2 $
+# @(#) $Id: Makefile,v 29.2 1999/12/17 10:33:00 chongo Exp $
 # @(#) $Source: /usr/local/src/cmd/calc/help/RCS/Makefile,v $
 #
 # Under source code control:	1991/07/23 06:47:57
@@ -87,7 +87,11 @@ STD_HELP_FILES_8= operator statement
 
 BLT_HELP_FILES_9= resource
 
-STD_HELP_FILES_10= types usage script unexpected variable
+STD_HELP_FILES_10= types usage script
+
+BLT_HELP_FILES_10a= cscript
+
+STD_HELP_FILES_10b= unexpected variable
 
 BLT_HELP_FILES_11= bindings custom_cal libcalc new_custom resource
 
@@ -108,6 +112,7 @@ FULL_HELP_FILES= ${STD_HELP_FILES_1} ${STD_HELP_FILES_2} \
 		${BLT_HELP_FILES_5} ${STD_HELP_FILES_6} \
 		${SPECIAL_HELP_7} ${STD_HELP_FILES_8} \
 		${BLT_HELP_FILES_9} ${STD_HELP_FILES_10} \
+		${BLT_HELP_FILES_10a} ${STD_HELP_FILES_10b} \
 		${BLT_HELP_FILES_11} ${STD_HELP_FILES_12} \
 		${BLT_HELP_FILES_13} ${STD_HELP_FILES_14} \
 		${BLT_HELP_FILES_14} ${STD_HELP_FILES_15}
@@ -117,6 +122,7 @@ FULL_HELP_FILES= ${STD_HELP_FILES_1} ${STD_HELP_FILES_2} \
 STD_HELP_FILES= ${STD_HELP_FILES_1} ${STD_HELP_FILES_2} \
 		${STD_HELP_FILES_4} ${STD_HELP_FILES_6} \
 		${STD_HELP_FILES_8} ${STD_HELP_FILES_10} \
+		${STD_HELP_FILES_10b} \
 		${STD_HELP_FILES_12} ${STD_HELP_FILES_14} \
 		${STD_HELP_FILES_15}
 
@@ -127,6 +133,7 @@ STD_HELP_FILES= ${STD_HELP_FILES_1} ${STD_HELP_FILES_2} \
 #
 BLT_HELP_FILES= ${BLT_HELP_FILES_3} ${BLT_HELP_FILES_5} \
 		${BLT_HELP_FILES_9} \
+		${BLT_HELP_FILES_10a} \
 		${BLT_HELP_FILES_11} ${BLT_HELP_FILES_13} \
 		${BLT_HELP_FILES_14}
 
@@ -337,6 +344,18 @@ COPYING-LGPL: ../COPYING-LGPL
 	    true; \
 	fi
 
+cscript: ../cscript/README
+	rm -f $@
+	cp ../cscript/README $@
+	${CHMOD} 0444 $@
+	-@if [ -z "${Q}" ]; then \
+	    echo ''; \
+	    echo '=-=-= skipping the cat of help/$@ =-=-='; \
+	    echo ''; \
+	else \
+	    true; \
+	fi
+
 full: ${FULL_HELP_FILES} ${MAKE_FILE}
 	${Q}echo "forming full"
 	-${Q}rm -f $@

help/help

@@ -35,6 +35,7 @@ following topics:
     new_custom		information about how to add new custom functions
     resource		standard calc resource files
     script		using calc shell scripts
+    cscript		info on the calc shell scripts supplied with calc
 
     archive		where to get the latest versions of calc
     bugs		known bugs and mis-features
@@ -118,8 +119,8 @@ as the same effect as:
 ## received a copy with calc; if not, write to Free Software Foundation, Inc.
 ## 59 Temple Place, Suite 330, Boston, MA  02111-1307, USA.
 ##
-## @(#) $Revision: 29.1 $
-## @(#) $Id: help,v 29.1 1999/12/14 09:15:52 chongo Exp $
+## @(#) $Revision: 29.2 $
+## @(#) $Id: help,v 29.2 1999/12/17 10:33:00 chongo Exp $
 ## @(#) $Source: /usr/local/src/cmd/calc/help/RCS/help,v $
 ##
 ## Under source code control:	1991/07/21 04:37:20

help/script

@@ -1,4 +1,5 @@
 Calc shell scripts
+------------------
 
     If an executable file begins with:
 
@@ -62,6 +63,7 @@ For more information use the following calc commands:
     help usage
     help argv
     help config
+    help cscript
 
 ## Copyright (C) 1999  Landon Curt Noll
 ##
@@ -79,8 +81,8 @@ For more information use the following calc commands:
 ## received a copy with calc; if not, write to Free Software Foundation, Inc.
 ## 59 Temple Place, Suite 330, Boston, MA  02111-1307, USA.
 ##
-## @(#) $Revision: 29.1 $
-## @(#) $Id: script,v 29.1 1999/12/14 09:16:06 chongo Exp $
+## @(#) $Revision: 29.2 $
+## @(#) $Id: script,v 29.2 1999/12/17 10:33:00 chongo Exp $
 ## @(#) $Source: /usr/local/src/cmd/calc/help/RCS/script,v $
 ##
 ## Under source code control:	1999/11/30 05:29:48

help/usage

@@ -2,11 +2,11 @@ Calc command line
 
     Calc has the following command line:
 
-	calc [-c] [-C] [-d] [-D calc_debug[:resource_debug:[user_debug]]]
+	calc [-c] [-C] [-d] [-D calc_debug[:resource_debug[:user_debug]]]
 	     [-e] [-h] [-i] [-m mode] [-n] [-p] [-q] [-s] [-u] [-v]
 	     [calc_cmd ...]
 
-	#!/usr/local/bin/calc -S [-other_flags ...]
+	#!/usr/local/bin/calc -S [other_flags]
 
 	  -c   Continue reading command lines even after an execution
 	       error has caused the abandonment of a line.
@@ -22,7 +22,7 @@ Calc command line
 	       will cause calc to try to process each line being read
 	       despite the errors that it encounters.
 
-	       By default, calc startup resource files ($CALCRC) are
+	       By default, calc startup resource files are
 	       silently ignored if not found.  This flag will report
 	       missing startup scripts unless -d is also given.
 
@@ -31,7 +31,7 @@ Calc command line
 	       Without this flag, calling the custom() builtin
 	       function will simply generate an error.
 
-	       Use if this flag may cause calc to execute functions
+	       Use of this flag may cause calc to execute functions
 	       that are non-standard and that are not portable.
 	       Custom builtin functions are disabled by default for
 	       this reason.
@@ -60,7 +60,7 @@ Calc command line
 		    It's nearly ten past six.
 
 	       This flag disables the reporting of missing calc
-	       startup scripts ($CALCRC).
+	       startup scripts.
 
 
 	  -D calc_debug[:resource_debug:[user_debug]]
@@ -68,7 +68,7 @@ Calc command line
 	       config("resource_debug") and config("user_debug").
 
 	       The : separated strings are interpreted as signed 32
-	       bit values.  After an optional leading sign a leading
+	       bit integers.  After an optional leading sign a leading
 	       zero indicates octal conversion, and a leading ``0x''
 	       or ``0X'' hexadecimal conversion.  Otherwise, decimal
 	       conversion is assumed.
@@ -91,11 +91,10 @@ Calc command line
 	       -m.
 
 
-	  -i   Become interactive if possible.	Be default, if
-	       calc_cmd args are given, calc will execute them and
-	       exit.  This flag args are given, calc will execute them
-	       and exit.  This flag will cause calc to drop into
-	       interactive mode after the commands are executed.
+	  -i   Become interactive if possible.	If calc_cmd args are given,
+   	       by default, calc will execute them and exit.  This flag causes
+	       calc to drop into interactive mode after the commands are
+	       executed.
 
 	       For example:
 
@@ -144,7 +143,7 @@ Calc command line
 	       if directed.
 
 	       If the mode disables opening of files for reading, then
-	       the startup resource files are disabled as of -q was
+	       the startup resource files are disabled as if -q was
 	       given.  The reading of key bindings is also disabled
 	       when the mode disables opening of files for reading.
 
@@ -163,7 +162,7 @@ Calc command line
 	       The -p flag overrides -i.
 
 
-	  -q   Disable the use of the $CALCRC startup scripts.
+	  -q   Disable the reading of the startup scripts.
 
 
 	  -s   By default, all calc_cmd args are evaluated and
@@ -178,39 +177,87 @@ Calc command line
 	  -v   Print the calc version number and exit.
 
 
-	  CALC COMMAND LINE
+	  CALC COMMAND ARGUMENTS
 
-	  Without calc_cmd, calc operates interactively.  If one or
-	  more calc_cmd are given on the command line and -s is NOT
-	  given, then calc will evaluate and execute them and then
-	  exit.
-
-	  If -i is given, calc will attempt to become interactive even
-	  of one or more calc_cmd are given on the command line.
+	  With no calc_cmd arguments, calc operates interactively.  If one
+	  or more arguments are given on the command line and -s is NOT
+	  given, then calc will read and execute them and either attempt
+	  to go interactive according as the -i flag was present or absent.
 
 	  If -s is given, calc will not evaluate any calc_cmd
 	  arguments but instead make them available as strings to the
 	  argv() builtin function.
 
-	  Normally on startup, calc attempts to execute a collection
-	  of resource files.  The environment variable $CALCRC (if
-	  non-existent then a compiled in value) contains a
-	  :  separated list of startup resource files.	No error
-	  conditions are produced if these startup resource file are
-	  not found.
+	  Sufficiently simple commands with no no characters like
+	  parentheses, brackets, semicolons, '*', which have special
+	  interpretations in UNIX commands may be entered, possibly with
+	  spaces, until the terminating newline.  For example:
 
-	  If the mode disables opening of files for reading, then the
-	  startup resource files are disabled as of -q was given and
-	  $CALCRC as well as the default compiled in value are
-	  ignored.
+			calc 23 + 47
 
-	  Filenames are subject to ``~'' expansion (see below).	 The
-	  environment variable $CALCPATH (if non-existent then a
-	  compiled in value) contains a : separated list of search
-	  directories.	If a file does not begin with /, ~ or ./, then
-	  it is searched for under each directory listed in the
-	  $CALCPATH.  It is an error if no such readable file is
-	  found.
+	  should respond with display of 70, but:
+
+			calc 23 * 47
+
+	  may fail.  Such cases can usually be made to work as expected by
+	  enclosing the command between single quotation marks as in:
+
+			calc '23 * 47'
+
+	  and
+
+			calc 'print sqrt(2), exp(1)'
+
+	  If '!' is to be used to indicate the factorial function, for
+	  shells like csh for which '!' followed by a non-space character
+	  is used for history substitution, it may be necessary to
+	  include a space or use a backslash to escape the special
+	  meaning of '!'.  For example, the command "print 27!^2" may have
+	  to be replaced by "print 27! ^2" or "print 27\!^2".
+
+
+	  CALC STARTUP FILES
+
+	  Normally on startup, if the environment variable $CALCRC is
+	  undefined and calc is invoked without the -q flag, or if
+	  $CALCRC is defined and calc is invoked with -e, calc looks
+	  for a file "startup" in the calc resource directory, .calcrc in
+	  the user's home directory, and .calcinit in the current directory.
+	  If one or more of these are found, they are read in succession
+	  as calc scripts and their commands executed.  When defined,
+	  $CALCRC is to contain a ':' separated list of names of files,
+	  and if calc is then invoked without either the -q or -e flags,
+	  these files are read in succession and their commands executed.
+	  No error condition is produced if a listed file is not found.
+
+	  If the mode specified by -m disables opening of files for
+	  reading, then the reading of startup files is also disabled
+	  as if -q was given.
+
+
+	  CALC FILE SEARCH PATH
+
+	  If the environment variable $CALCPATH is undefined, or if it
+	  is defined and calc is invoked with the -e flag, when a file
+	  name not beginning with /, ~ or ./, is specified as in:
+
+			calc read myfile
+
+	  calc searches in succession:
+
+			./myfile
+			./myfile.cal
+			${LIBDIR}/myfile
+			${LIBDIR}/myfile.cal
+			${CUSTOMLIBDIR}/myfile
+			${CUSTOMLIBDIR}/myfile.cal
+
+	  If the file is found, the search stops and the commands in
+	  the file are executed.  It is an error if no readable file
+	  with the specified name is found.  An alternative search
+	  path can be specified by defining $CALCPATH in the same way
+	  as PATH is defined, as a ':' separated list of directories,
+	  and then invoking calc without the -e flag.
 
 	  Calc treats all open files, other than stdin, stdout and
 	  stderr as files available for reading and writing.  One may
@@ -222,21 +269,24 @@ Calc command line
 
 	  SHELL SCRIPT MODE
 
-	  If an executable file begins with:
+	  If first line of an executable file begins #! followed by the
+	  absolute pathname of the calc program and the flag -S as in
 
-	       #!/usr/local/bin/calc -S [-other_flags ...]
+	       #!/usr/local/bin/calc -S [other_flags]
 
 	  the rest of the file will be processed in shell script mode.
-	  Note that -S (UPPER CASE -S) must be the first -flag on the
-	  ``#!'' line.	Any other optional ``-other_flags'' must come
-	  after the -S.
+	  Note that -S (UPPER CASE S) must be the first -flag on the
+	  ``#!'' line.	Any optional ``other_flags'' must come after
+	  the -S.
 
-	  In shell script mode the contents of the file are evaluated
-	  and executed as if they were processed by the read command.
-	  Any optional ``-other_flags'' will by parsed first followed
-	  by any arguments given shell script itself.
+	  In shell script mode the contents of the file are read and
+	  executed as if they were in a file being processed by a read
+	  command, except that a "command" beginning with '#' followed by
+	  whitespace and ending at the next newline is treated as a comment.
+	  Any optional ``other_flags'' will be parsed first followed by
+	  the later lines within the script itself.
 
-	  In shell script mode, -s (lower case -s) is always assumed.
+	  In shell script mode, -s (lower case s) is always assumed.
 	  In addition, -d and -p are automatically set if -i is not
 	  given.
 
@@ -303,8 +353,8 @@ For more information use the following calc commands:
 ## received a copy with calc; if not, write to Free Software Foundation, Inc.
 ## 59 Temple Place, Suite 330, Boston, MA  02111-1307, USA.
 ##
-## @(#) $Revision: 29.1 $
-## @(#) $Id: usage,v 29.1 1999/12/14 09:16:10 chongo Exp $
+## @(#) $Revision: 29.2 $
+## @(#) $Id: usage,v 29.2 1999/12/17 10:05:20 chongo Exp $
 ## @(#) $Source: /usr/local/src/cmd/calc/help/RCS/usage,v $
 ##
 ## Under source code control:	1991/07/21 04:37:25

lib_calc.c

@@ -17,8 +17,8 @@
  * received a copy with calc; if not, write to Free Software Foundation, Inc.
  * 59 Temple Place, Suite 330, Boston, MA  02111-1307, USA.
  *
- * @(#) $Revision: 29.1 $
- * @(#) $Id: lib_calc.c,v 29.1 1999/12/14 09:16:11 chongo Exp $
+ * @(#) $Revision: 29.2 $
+ * @(#) $Id: lib_calc.c,v 29.2 1999/12/14 19:37:46 chongo Exp $
  * @(#) $Source: /usr/local/src/cmd/calc/RCS/lib_calc.c,v $
  *
  * Under source code control:	1996/06/17 18:06:19
@@ -95,7 +95,7 @@ int abortlevel;		/* current level of aborts */
 BOOL inputwait;		/* TRUE if in a terminal input wait */
 jmp_buf jmpbuf;		/* for errors */
 char *program = "calc";		/* our name */
-char *basename = "calc";	/* basename of our name */
+char *base_name = "calc";	/* basename of our name */
 char cmdbuf[MAXCMD+1+1+1];	/* command line expression + "\n\0" + guard */
 run run_state = RUN_UNKNOWN;	/* calc startup and run state */
 
@@ -200,9 +200,9 @@ libcalc_call_me_first(void)
 	if (program != NULL) {
 		p = strrchr(program, '/');
 		if (p == NULL) {
-			basename = program;
+			base_name = program;
 		} else {
-			basename = p+1;
+			base_name = p+1;
 		}
 	}
 
@@ -211,7 +211,7 @@ libcalc_call_me_first(void)
 	 */
 	oldstd.epsilon = &_qonesqbase_; /* magic to fake early str2q() */
 	oldstd.program = strdup(program);
-	oldstd.basename = strdup(basename);
+	oldstd.base_name = strdup(base_name);
 	oldstd.version = strdup(version());
 	conf = config_copy(&oldstd); /* more magic to fake early str2q() */
 	conf->tab_ok = FALSE;

quickhash.c

@@ -17,8 +17,8 @@
  * received a copy with calc; if not, write to Free Software Foundation, Inc.
  * 59 Temple Place, Suite 330, Boston, MA  02111-1307, USA.
  *
- * @(#) $Revision: 29.1 $
- * @(#) $Id: quickhash.c,v 29.1 1999/12/14 09:16:14 chongo Exp $
+ * @(#) $Revision: 29.2 $
+ * @(#) $Id: quickhash.c,v 29.2 1999/12/14 19:37:46 chongo Exp $
  * @(#) $Source: /usr/local/src/cmd/calc/RCS/quickhash.c,v $
  *
  * Under source code control:	1995/03/04 11:34:23
@@ -436,8 +436,8 @@ config_hash(CONFIG *cfg, QCKHASH val)
 	if (cfg->program) {
 		val = fnv_strhash(cfg->program, val);
 	}
-	if (cfg->basename) {
-		val = fnv_strhash(cfg->basename, val);
+	if (cfg->base_name) {
+		val = fnv_strhash(cfg->base_name, val);
 	}
 	if (cfg->version) {
 		val = fnv_strhash(cfg->version, val);

token.c

@@ -19,8 +19,8 @@
  * received a copy with calc; if not, write to Free Software Foundation, Inc.
  * 59 Temple Place, Suite 330, Boston, MA  02111-1307, USA.
  *
- * @(#) $Revision: 29.1 $
- * @(#) $Id: token.c,v 29.1 1999/12/14 09:16:16 chongo Exp $
+ * @(#) $Revision: 29.2 $
+ * @(#) $Id: token.c,v 29.2 1999/12/17 09:22:38 chongo Exp $
  * @(#) $Source: /usr/local/src/cmd/calc/RCS/token.c,v $
  *
  * Under source code control:	1990/02/15 01:48:25
@@ -335,10 +335,11 @@ gettoken(void)
 			switch(nextchar()) {
 				case '=': type = T_HASHEQUALS; break;
 				case '!': type = T_POUNDBANG; eatline(); break;
-				case ' ': type = T_POUNDCOMMENT; eatline();
-					  break;
-				case '\t': type = T_POUNDCOMMENT; eatline();
-					  break;
+				case '#':
+				case ' ':
+				case '\t':
+					type = T_POUNDCOMMENT; eatline();
+					break;
 				case '\n': type = T_POUNDCOMMENT; break;
 				default: type = T_HASH; reread();
 			}

version.c

@@ -19,8 +19,8 @@
  * received a copy with calc; if not, write to Free Software Foundation, Inc.
  * 59 Temple Place, Suite 330, Boston, MA  02111-1307, USA.
  *
- * @(#) $Revision: 29.1 $
- * @(#) $Id: version.c,v 29.1 1999/12/14 09:16:17 chongo Exp $
+ * @(#) $Revision: 29.5 $
+ * @(#) $Id: version.c,v 29.5 1999/12/17 10:36:02 chongo Exp $
  * @(#) $Source: /usr/local/src/cmd/calc/RCS/version.c,v $
  *
  * Under source code control:	1990/05/22 11:00:58
@@ -43,7 +43,7 @@ static char *program;
 #define MAJOR_VER	2	/* major version */
 #define MINOR_VER	11	/* minor version */
 #define MAJOR_PATCH	1	/* patch level or 0 if no patch */
-#define MINOR_PATCH	""	/* test number or empty string if no patch */
+#define MINOR_PATCH	"2.1"	/* test number or empty string if no patch */
 
 /*
  * calc version constants
@@ -84,12 +84,8 @@ char *Copyright = "\n"
   "received a copy with calc; if not, write to Free Software Foundation, Inc.\n"
   "59 Temple Place, Suite 330, Boston, MA  02111-1307, USA.\n"
   "\n"
-  "For license details use the command:\t\t\thelp copying\n"
-  "The COPYING-LGPL file may be viewed with the command:\thelp copying-lgpl\n"
-  "\n"
-  "@(#) $Revision: 29.1 $\n"
-  "@(#) $Id: version.c,v 29.1 1999/12/14 09:16:17 chongo Exp $\n"
-  "@(#) $Source: /usr/local/src/cmd/calc/RCS/version.c,v $\n"
+  "@(#) For license details use the command:\thelp copying\n"
+  "The COPYING-LGPL file may be viewed with:\thelp copying-lgpl\n"
   "\n";