mirror of
https://github.com/lcn2/calc.git
synced 2025-08-19 01:13:27 +03:00
04861939fc
The following are the changes in this release:
Fixed typo (missing quotes) in the env rule.
Fixed intendation problem in CHANGES.
Combined 2.12.9.1 changes into the 2.12.8.2 to 2.12.9.0
range, and thus renamed the range to 2.12.8.2 to 2.12.9.1.
Fixed issues related to building Makefile.simple.
Fixed how the Makefile variable MANPATH is set for macOS.
Added a bunch of information to the near bottom of HOWTO.INSTALL
on calc Makefiles. This information discusses the various
Makefiles found in the calc source.
Added comments in various calc Makefiles about their origin.
In particular, for Makefiles that are constructed such as
Makefile.simple, custom/Makefile and custom/Makefile.simple
there are comments about how they were made.
For all calc Makefiles, including those in sub-directories,
near the top there is now a line of the form:
# SRC: ... some message about the origin ...
Fixed how the calc(1) man page is installed under macOS.
Fixed how calc man page in ${CATDIR} is formed.
Fixed how Makefile.simple is formed.
Fixed the #! calc script argument processing. The initial #!
line must end in a -f. For example, if calc is in /usr/local/bin/calc,
then the following would be the first line of a calc script:
#!/usr/local/bin/calc -f
...
It is common that -q be usde with a calc script, so assuming the
same /usr/local/bin/calc path:
#!/usr/local/bin/calc -q -f
...
Use of -s in the #! first line of a calc script is not needed
since -f implies -f.
The argv() will now return values more typical of C's main().
Before it returned one less than the number of arguments. Now,
for example, when calc is given 2 args, argv() will return 3.
The value of argv(0) will be the path to calc, or in the
case of a #! calc cscript, it will return the name of the script.
Updated the calc man page and help/argv to reflect the
above changes.
Improved the formatting of the calc man page.
Fixed the formation of the win32 sub-directory via the win32_hsrc
Makefile rule.
Due to incompatible changes to the argv() function, and #! calc
scripts, we are setting the version to the next minor number:
2.13.0
87 lines
2.1 KiB
Plaintext
87 lines
2.1 KiB
Plaintext
#!/usr/local/src/bin/calc/calc -q -f
|
|
/*
|
|
* fproduct - write the big Endian product of terms to a file
|
|
*
|
|
* Copyright (C) 2001,2014,2019,2021 Landon Curt Noll
|
|
*
|
|
* usage:
|
|
* fproduct filename term [term ...]
|
|
*
|
|
* filename where to write the product, use - for stdout
|
|
* term ... terms to multiply
|
|
*
|
|
* 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.
|
|
* 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA.
|
|
*
|
|
* Under source code control: 2001/04/07 20:13:11
|
|
* File existed as early as: 2001
|
|
*
|
|
* chongo <was here> /\oo/\ http://www.isthe.com/chongo/
|
|
* Share and enjoy! :-) http://www.isthe.com/chongo/tech/comp/calc/
|
|
*/
|
|
|
|
/*
|
|
* parse args
|
|
*/
|
|
argc = argv();
|
|
stderr = files(2);
|
|
program = argv(0);
|
|
if (argc < 2) {
|
|
fprintf(stderr, "usage: %s term [term ...]\n", program);
|
|
exit;
|
|
}
|
|
filename = argv(1);
|
|
|
|
|
|
/*
|
|
* build the product
|
|
*/
|
|
product = 1;
|
|
for (i=2; i < argc; ++i) {
|
|
product *= eval(argv(i));
|
|
}
|
|
product = abs(product);
|
|
|
|
|
|
/*
|
|
* open the file for writing, "-" is stdout
|
|
*/
|
|
if (filename == "-") {
|
|
fd = files(1);
|
|
} else {
|
|
fd = fopen(filename, "w");
|
|
if (!isfile(fd)) quit "be2file: cannot open file for writing";
|
|
}
|
|
|
|
|
|
/*
|
|
* write the octets to the file
|
|
*
|
|
* The most significant bits of the integer become the first file octets.
|
|
*/
|
|
if (product > 0) {
|
|
octlen = int((highbit(product)+8) / 8);
|
|
for (i=octlen-1; i >= 0; --i) {
|
|
fputc(fd, char(product >> (i*8)));
|
|
}
|
|
}
|
|
|
|
|
|
/*
|
|
* cleanup
|
|
*/
|
|
if (filename != "-") {
|
|
fclose(fd);
|
|
}
|