drygdryg/calc
1
0
Fork 0
mirror of https://github.com/lcn2/calc.git synced 2025-08-16 01:03:29 +03:00
Code Issues Packages Projects Releases Wiki Activity

Release calc version 2.11.0t10.1.1

Browse Source
This commit is contained in:
Landon Curt Noll
1999-11-12 04:57:25 -08:00
parent c7c0de97f2
commit 6254c4a14c
3 changed files with 13 additions and 11 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
lib/README
View File

@@ -2,11 +2,11 @@ To load a library, try:
read filename read filename
You to not need to add the .cal extension to the filename. Calc You do not need to add the .cal extension to the filename. Calc
will search along the $CALCPATH (see ``help environment''). will search along the $CALCPATH (see ``help environment'').
Normally a library will simply define some functions. By default, Normally a library will simply define some functions. By default,
most libraries will print out a short message when thei are read. most libraries will print out a short message when they are read.
For example: For example:
> read lucas > read lucas
@@ -360,7 +360,7 @@ randbitrun.cal
randbitrun([run_cnt]) randbitrun([run_cnt])
Using randbit(1) to generate a sequence of random bits, determine if Using randbit(1) to generate a sequence of random bits, determine if
the number and kength of identical bits runs match what is expected. the number and length of identical bits runs match what is expected.
By default, run_cnt is to test the next 65536 random values. By default, run_cnt is to test the next 65536 random values.
This tests the a55 generator. This tests the a55 generator.
@@ -416,7 +416,7 @@ randrun.cal
regress.cal regress.cal
Test the correct execution of the calculator by reading this library file. Test the correct execution of the calculator by reading this library file.
Errors are reported with '****' mssages, or worse. :-) Errors are reported with '****' messages, or worse. :-)
seedrandom.cal seedrandom.cal

14
lib/regress.cal
View File

@@ -3048,8 +3048,8 @@ define test_error()
print '3712: e9999 = error(9999)'; print '3712: e9999 = error(9999)';
vrfy(errno() == 9999, '3713: errno() == 9999'); vrfy(errno() == 9999, '3713: errno() == 9999');
vrfy(error() == e9999, '3714: error() == e9999'); vrfy(error() == e9999, '3714: error() == e9999');
vrfy(strerror() == "Unknown error 9999", vrfy(substr(strerror(), strlen(strerror())-3, 4) == "9999",
'3715: strerror() == "Unknown error 9999"'); '3715: substr(strerror(), strlen(strerror())-3, 4) == "9999"');
x = newerror("Alpha"); x = newerror("Alpha");
print '3716: x = newerror("Alpha")'; print '3716: x = newerror("Alpha")';
n = iserror(x); n = iserror(x);
@@ -3060,17 +3060,19 @@ define test_error()
vrfy(errno(9999) == n, '3721: errno() == n'); vrfy(errno(9999) == n, '3721: errno() == n');
vrfy(errno() == 9999, '3722: errno() == 9999'); vrfy(errno() == 9999, '3722: errno() == 9999');
vrfy(error() == e9999, '3723: error() == e9999'); vrfy(error() == e9999, '3723: error() == e9999');
vrfy(strerror() == "Unknown error 9999", vrfy(substr(strerror(), strlen(strerror())-3, 4) == "9999",
'3724: strerror() == "Unknown error 9999"'); '3724: substr(strerror(), strlen(strerror())-3, 4) == "9999"');
a = 1/0; a = 1/0;
print '3725: a = 1/0'; print '3725: a = 1/0';
vrfy(strerror() == "Division by zero", vrfy(strerror() == "Division by zero",
'3726: strerror() == "Division by zero"'); '3726: strerror() == "Division by zero"');
vrfy(substr(strerror(9941), strlen(strerror(9941))-3, 4) == "9941",
'3728: substr(strerror(9941), strlen(strerror(9941))-3, 4) == "9941"');
/* errmax and errcount should be bumped up the 148 errors above */ /* errmax and errcount should be bumped up the 148 errors above */
vrfy(errcount() == ecnt, '3727: errcount() == ecnt'); vrfy(errcount() == ecnt, '3728: errcount() == ecnt');
print '3728: Ending test_error'; print '3729: Ending test_error';
} }
print '054: parsed test_error()'; print '054: parsed test_error()';

2
version.c
View File

@@ -18,7 +18,7 @@ static char *program;
#define MAJOR_VER 2 /* major version */ #define MAJOR_VER 2 /* major version */
#define MINOR_VER 11 /* minor version */ #define MINOR_VER 11 /* minor version */
#define MAJOR_PATCH 0 /* patch level or 0 if no patch */ #define MAJOR_PATCH 0 /* patch level or 0 if no patch */
#define MINOR_PATCH "10.1" /* test number or empty string if no patch */ #define MINOR_PATCH "10.1.1" /* test number or empty string if no patch */
/* /*
* calc version constants * calc version constants