Usenet 1994 October

home *** CD-ROM | disk | FTP | other *** search

/ Usenet 1994 October / usenetsourcesnewsgroupsinfomagicoctober1994disk2.iso / misc / volume14 / pac / part01 next >

Wrap

Text File | 1990-08-03 | 48.3 KB | 1,237 lines

Newsgroups: comp.sources.misc keywords: Not For SunOS 3.x subject: v14i039: pac - the ultimate UNIX calculator, part 1 of 5 From: istvan@hhb.UUCP (Istvan Mohos) Sender: allbery@uunet.UU.NET (Brandon S. Allbery - comp.sources.misc) Posting-number: Volume 14, Issue 39 Submitted-by: istvan@hhb.UUCP (Istvan Mohos) Archive-name: pac/part01 The panel calculator "pac" (posted to comp.sources.misc in 5 parts) has been dubbed "the ultimate on-screen calculator for UNIX" by the network monitor of The C User's Journal (Volume 7, Number 8). Major features include: o 16 cells nonvolatile memory (checkbook balance, phone numbers, etc.) o asynchronous real-time clock o separate checkbook balancer window (for summing lists of numbers) o ASCII to decimal to octal to hex translation (find out what ^M is) o 22 predefined conversions (metric, temperature, etc.) o user-definable, non-volatile conversions (dollar to yen, etc.) o compound interest/mortgage payment solver (play the "what if?" game) o amortization schedule (monthly payment list) file writer o function help window (type "help" or just "?" or "help [subject]") o optional automatic calculator session recording to files o trigonometric functions o number base conversions (independent in/out bases, between 2 and 16) o programmable precision: btw 0 and 32 digits past the decimal point o bitwise AND, OR, NOT, XOR, TWOSCOMP o fully automatic and accessible push/pop stack memory o pi, planck, parallax, parsec... 30 math/physical constants in all o macro tokens from "atto" to "exa" (for ex: "356 micro + 125 milli") o predefined percent calculations (for ex: "65.7 p[ercent]of 290") For its engine, "pac" uses interprocess pipes to the "bc" calculator. The posted source has been successfully compiled and tested on: Pyramid 90x, VAX 11-785, Apollo Domain-IX, Sun SPARCstation 1, AT&T 6300+, Xenix286, DEC 8600. "pac" will NOT work on SunOS 3.x systems due to bugs in SunOS "curses". ==============================CUT HERE============================== #!/bin/sh # This is a shell archive (shar 3.21) # made 07/25/1990 19:26 UTC by istvan@istvan # Source directory /rand/istvan/pac # # existing files WILL be overwritten # # This shar contains: # length mode name # ------ ---------- ------------------------------------------ # 1635 -rw-r--r-- Relnotes # 27117 -rw-r--r-- pac.man # 382 -rw-r--r-- README # 881 -rw-r--r-- makefile # 13508 -rw-r--r-- defs.h # 14314 -rw-r--r-- maps.h # 7256 -rw-r--r-- toktab.h # 7762 -rw-r--r-- amort.c # 6366 -rw-r--r-- atoi.c # 5666 -rw-r--r-- bitwise.c # 13160 -rw-r--r-- conv.c # 7993 -rw-r--r-- convbase.c # 11737 -rw-r--r-- display.c # 3940 -rw-r--r-- error.c # 7596 -rw-r--r-- file.c # 7333 -rw-r--r-- help.c # 871 -rw-r--r-- ierror.c # 23768 -rw-r--r-- interpret.c # 6967 -rw-r--r-- ledit.c # 3586 -rw-r--r-- onlay.c # 6229 -rw-r--r-- pac.c # 5676 -rw-r--r-- pactok.c # 1805 -rw-r--r-- pipes.c # 3746 -rw-r--r-- stack.c # 3735 -rw-r--r-- system.c # 3249 -rw-r--r-- time.c # 8736 -rw-r--r-- total.c # 48 -rw-r--r-- version.c # 4228 -rw-r--r-- work.c # if touch 2>&1 | fgrep '[-amc]' > /dev/null then TOUCH=touch else TOUCH=true fi # ============= Relnotes ============== echo "x - extracting Relnotes (Text)" sed 's/^X//' << 'SHAR_EOF' > Relnotes && XPac is a slightly overambitious visual calculator for Unix systems. XIn spite of its minor structural problems, pac is the X"everything you ever wanted in a calculator" calculator, providing: X Xo 16 cells nonvolatile memory (checkbook balance, phone numbers, etc.) Xo asynchronous real-time clock Xo separate checkbook balancer window (for summing lists of numbers) Xo ASCII to decimal to octal to hex translation (find out what ^M is) Xo 22 predefined conversions (metric, temperature, etc.) Xo user-definable, non-volatile conversions (dollar to yen, etc.) Xo compound interest/mortgage payment solver (play the "what if?" game) Xo amortization schedule (monthly payment list) file writer Xo function help window (type "help" or just "?" or "help [subject]") Xo optional automatic calculator session recording to files Xo trigonometric functions Xo number base conversions (independent in/out bases, between 2 and 16) Xo programmable precision: btw 0 and 32 digits past the decimal point Xo bitwise AND, OR, NOT, XOR, TWOSCOMP Xo fully automatic and accessible push/pop stack memory Xo pi, planck, parallax, parsec... 30 math/physical constants in all Xo macro tokens from "atto" to "exa" (for ex: "356 micro + 125 milli") Xo predefined percent calculations (for ex: "65.7 p[ercent]of 290") X XThe pac process forks pipes to the 'bc' Unix calculator. XThe posted source has been successfully compiled and tested on: XPyramid 90x, VAX 11-785, Apollo Domain-IX, Sun SPARCstation 1, XAT&T 6300+, Xenix286, DEC 8600. X XPac will NOT work on Sun2 or Sun3 computers due to insoluble problems Xin their implementation of "curses". X SHAR_EOF $TOUCH -am 0221175390 Relnotes && chmod 0644 Relnotes || echo "restore of Relnotes failed" set `wc -c Relnotes`;Wc_c=$1 if test "$Wc_c" != "1635"; then echo original size 1635, current size $Wc_c fi # ============= pac.man ============== echo "x - extracting pac.man (Text)" sed 's/^X//' << 'SHAR_EOF' > pac.man && X.TH PAC 1 "" X.UC 4 X.SH NAME X.nh X\fBpac\fR - panel calculator X.SH SYNOPSIS X.B pac X.SH DESCRIPTION X\fBpac\fR is an interactive calculator, Xresembling a ``panel'' or ``page'' editor. XThe interface is simple: the user enters Xnumbers and arithmetic operators, \fBpac\fR displays the result. XAlternate capabilities to the CALCULATOR include an XASCII to decimal to octal to hexadecimal converter ATOI, Xa checkbook balancer TOTAL, Xa loan payment and amortization program LOAN, an Xeditor for the expandable ``conversions data base'' NEWCONVERSION, Xtime of day CLOCK; as well as session recording to files. XOperating the alternate capabilities is intuitively obvious Xand is helped along by the format of the display. X.LP XThe \fBpac\fR panel is a screen 23 lines by 78 characters, Xpartitioned by inverse video borders into Xsubwindows. The CALCULATOR Xis a rectangle 4 lines deep by 44 characters wide, Xlocated in the upper left corner of the panel, Xsimulating a hand-held calculator: echoing numbers and Xoperators typed to the first three Xlines, displaying the evaluated result Xin the fourth line upon \fIRETURN\fR. Control characters, Xshown along the borders as first characters of mnemonics, Xprovide immediate state switching to and from alternate tools. X.SH LINE EDITING XA selected function comes to life with the cursor Xin the home position of a subwindow managed by the function. XThe user directs input to this portion of the screen under the Xcontrol of a primitive line editor. X.LP XNormally the typed characters are echoed and contribute to Xthe input string. Characters which the Xtool is not equipped to deal with are not echoed, and are ignored Xby the editor. Control characters (also not echoed) Xselect alternate tools, or Xprovide exit from the program. A number of keys are commands to Xthe line editor only, allowing cursor positioning and input correction. XThe editor keys and their effect may vary slightly, Xdepending on the currently active \fBpac\fR tool. X.LP XThe first character echoed to a line, Xnormally erases the previous input string. XIn the CALCULATOR function, the line editing \fI=\fR key Xrestores the old input string for editing. A string beginning Xwith the \fI#\fR character is considered a comment. XComments are helpful if the user is recording the session, or Xfor annotating scripts. XAnother line editing character specific to the CALCULATOR Xwindow is the pipe (|), which Xbrings the cursor to the left edge of the following window line. X.LP XIf the input string reaches the Xright line boundary, additional characters overwrite the rightmost Xcharacter, except in the CALCULATOR function where the three lines of Xthe input window conceptually form a single string. XTyping \fIRETURN\fR triggers the interpretation of the input string. XRegardless of the cursor position at the time of \fIRETURN\fR, Xall data on the line is evaluated. If the user did not type Xcharacters prior to \fIRETURN\fR, a repeat of the previous string, Xor a tool-specific default string is the assumed input. X.LP XA summary of the edit keys is always visible in an inverse video bar Xrunning vertically in the center of the screen. XEditing characters include \fIDELETE\fR and \fIBACKSPACE\fR, Xboth of which delete characters Xunder the cursor and move bytes at the right of the cursor Xto the left. X.LP X\fIControl-C\fR in the CALCULATOR function, \fISPACE\fR in the Xcheckbook balancer function, clear a line from the cursor to Xits end; in the checkbook balancer function a \fIControl-C\fR Xclears (zeroes) the entire window. XStraight brackets \fI[ ]\fR move the Xthe cursor non-destructively to the left or right. XIn the CALCULATOR function, curly braces \fI{ }\fR move the cursor Xto the line above or below, while Xthe ``greater than'' Xsign \fI>\fR switches to \fIinsert mode\fR: Xcharacters already to the right of the Xcursor are pushed further to the right with each new character added. XThe ``less than'' sign \fI<\fR, the \fIESCAPE\fR key or a X\fIRETURN\fR end the \fIinsert mode\fR. X.SH CALCULATOR OPERATION XInput begins at the top left byte of the CALCULATOR window, Xand may consist of multiple statements separated Xby semicolons. After \fIRETURN\fR, the input is broken down Xto a list of tokens. XCompound tokens contain one or more alphanumeric characters, Xunderscores and periods; simple tokens are single, Xnon-alphanumeric characters from the set: X.LP X.RS X; % + - * / ^ ( ) \\ ' ? ! # X.RE X.LP XA subset of simple tokens are the math operators X\fI%\fR, \fI+\fR or \fI-\fR, \fI*\fR or \fI/\fR, \fI^\fR X(in increasing order of operator precedence). XThe percent sign stands for the ``modulo'' operation, the asterisk Xstands for multiplication, the circumflex for exponentiation. XOnly integer exponents are allowed. X.LP XTokens are delimited by commas or spaces, by the appearance of the Xnext simple token, or by the end of the input line. X.LP XNumbers are a subset of compound tokens, formed entirely from Xthe digits 0-9, the hexadecimal digits a-f or A-F, and the Xperiod character. X.LP XDuring parsing, commas and spaces are removed, and successive Xnumbers are concatenated to form a single number. X.LP XThe resulting token list is passed to the interpreter, which Xevaluates each token in a normal, left-to-right sequence. XA \fBpac\fR lookup table is searched for a match to the token. XA match proves the token to be a \fBpac\fR control word, processed Ximmediately. This preprocessing may affect other tokens to Xthe left or right of the control word; and in most cases the Xaffected tokens (including the control word) are replaced Xby a single number. X.LP XIf the token does not match a control word, any lower case a-f Xcharacters of the token are upcased. X.LP XFrom the interpreter, the string Xis passed to the \fBbc\fR calculator Xthrough an inter-process pipe. XBc evaluates the math expression, Xand returns the result to \fBpac\fR for Xformatting and display. \fBpac\fR Xprints the result in the fourth (bottom) Xline of the CALCULATOR window. X.LP XThe \fIprecision\fR variable controls Xthe number of digits printed to the right of a decimal point. This Xvariable can be set with the \fIprecision n\fR or X\fIpr n\fR command; n values may range from 0 to 32. XResults with greater than \fIprecision\fR fractional digits Xare rounded. Fractions too small to show up within the Xprecision range cause an underflow error. User selectable number Xformatting and justification controls the final Xappearance of the result. X.LP XExamples of CALCULATOR input: X.LP X.nf X.RS X.ta \w'(998 \fImicro\fR + .000002)\fImega\fR'u+2n X77+88+99 - 66/(3 * 2) X4.5 * \fIpi\fR --- using the constant \fIpi\fR X12.785 + \fIs\fR --- add 12.785 and stack variable \fIs\fR X12.785 + \fIs\fR; \fIsto j\fR --- as above; copy result into \fIj\fR Xf + a --- add hex numbers (dec15 + dec10) X\fIp\fR + \fIq\fR --- add stack variables \fIp\fR and \fIq\fR X3.3^4 --- the fourth power of 3.3 X27^ (-3) --- 1 / 19683 X7! - 99 --- factorial of 7, minus 99 X(-5) * 40 --- using the unary minus X(998 \fImicro\fR + .000002)\fImega\fR --- 1000 X32/(16/(8/(4/(\fIm\fR * 2/\fIm\fR)))) --- 8 (if stack variable \fIm\fR not equal 0) X+10 --- add 10 to the previous result X-10 --- subtract 10 from the previous result X- 60 / 3 --- subtract 20 from the previous result X* 5 --- multiply previous result by 5 X.RE X.fi X.LP X\fBpac\fR stores results as digit strings, on 17 lines of screen Xdisplay. Each of the strings is a \fBpac\fR variable. XThe first of these strings, CURRES, Xis the result shown in the CALCULATOR window. XCURRES is updated continuously and is Xthe result of the most recently evaluated expression. This value Xcan be referenced by the \fI\\\fR (backslash) character: X\fI9 + \\\fR adds CURRES and 9. Any operator that unsuccessfully Xlooks for an operand to its left, will automatically reference XCURRES X(as in the last four ``Examples of CALCULATOR input'' above). XSyntax errors clear CURRES to zero. X.LP XThe other 16 strings constitute the \fIuser stack\fR, Xa rectangular area directly below the CALCULATOR window. XThe 16 lines of the stack are Xlabeled by the letters \fIh\fR to \fIw\fR Xin the left inverse video border. XThese labels are also \fBpac\fR tokens, and can be input to Xthe CALCULATOR instead of typing the string contained in a stack cell. XNew results are automatically ``pushed'' on the stack, unless the X\fBpac\fR command \fIstack off\fR prohibits this. X.LP X\fBpac\fR key words for explicitly Xmanipulating stack contents are X\fIclr\fR, \fIdup\fR, \fIpop\fR, \fIpll\fR, \fIpsh\fR, X\fIsto\fR, \fIswp\fR. XThese operators can be input to the CALCULATOR regardless Xof whether the stack is \fIon\fR or \fIoff\fR. XA stack operator normally references the single-character Xstack label immediately following the operator. XFor example, \fIpop m\fR removes the number contained in \fIm\fR, Xand moves all stack strings located below \fIm\fR up one position; X\fIclr p\fR substitutes the number in stack cell \fIp\fR with zero. XIf a stack label is not given, XCURRES is the subject of the stack operation, except that \fIclr\fR, Xreplaces the value of each stack variable with 0. X.LP XThe \fBpac\fR keyword \fIibase\fR (abbreviated version: \fIib\fR) Xfollowed by an integer or a variable in the range of 2 through 16, Xcan select an input base other than decimal. XThe command X.LP X.RS X\fIib\fR 2; 1011 0100 0010 X.RE X.LP Xas an example, results in Xthe decimal display of ``2882''. X.LP XThe effect of the \fIib\fR command lasts from the time it was Xfirst encountered in the input, to the end of the Xinput string; then \fBpac\fR automatically Xreverts to the original input base. XTo permanently change the input base, Xthe command \fIstaybase on\fR X(abbreviated version: \fIsb\fR) should be issued. XThe effect of \fIstaybase on\fR lasts until Xa \fIstaybase off\fR commands cancels it. XOutput radix is similarly controlled by the \fIobase n\fR X(or \fIob n\fR) command for n values 2-16; and X\fIstaybase\fR effects the permanence of input Xand output radices in tandem. X.LP XSome useful CALCULATOR operators are: X.RS X.TP "\\w'the conversion operator\ \ 'u Xthe bitwise operations X\fIand or xor not twoscomp\fR (abbr.:\fItc\fR) X.TP Xthe percent operations X\fIpplus pminus pdiff pversus pequal pof\fR (abbr.: \fIpp pm pd pv pe po\fR) X.TP Xthe conversion operator X\fIto\fR X.RE X.LP XExamples: X.LP X.nf X.ta 3i +1.5i XBinary AND of 9999 and 122: 9999 \fIand\fR 122 --- 10 XBinary NOT of 9999 in 16 bit wide field: 9999 \fInot\fR 16 --- 55536 XAdd 6.5 percent to 3500: 3500 \fIpplus\fR 6.5 --- 3727.5 XPercentage increase from 3300 to 3500: 3300 \fIpdiff\fR 3500 --- 6.06 XIf 4778 is 100%, what % is 2389: 4778 \fIpversus\fR 2389 --- 50 XWhat is 75% of 4000: 75 \fIpof\fR 4000 --- 3000 XIf 40% of a sum is 50, what is the sum: 40 \fIpequal\fR 50 --- 125 XConvert 1225 inches to centimeters: 1225 \fIto cm\fR --- 3111.5 X.fi X.LP XThe \fBpac\fR tokens X\fIsin\fR(x), \fIcos\fR(x), \fIexp\fR(x), \fIlog\fR(x), \fIarct\fR(x) Xare used as substitutes for the \fBbc\fR X``s(x), c(x), e(x), l(x), a(x)'' functions, respectively. XInput values and results are radians. X.SH CALCULATOR ENVIRONMENT XEnvironment control operators are used to customize Xthe CALCULATOR to the user's liking. XAs with the other \fBpac\fR tokens, a certain redundancy is apparent Xin naming the variables: two-character abbreviations are Xgenerally accepted as input tokens. X.LP XWhen exiting \fBpac\fR, an attempt is made to Xwrite a X``.pacrc'' file in the user's home\fR directory, unless the X\fIdontsave\fR command expressly forbids this. In the .pacrc Xfile, \fBpac\fR keeps a record of the current panel environment. The Xfile also contains the sixteen stack strings, and the Xup-to-date ``units conversions list'' described under XEDITING THE CONVERSIONS LIST, with any modifications Xeffected by the user. Subsequent calls to X\fBpac\fR begin by reading and resetting internal parameters Xfrom the file data. X.LP XTo the right of the stack, the narrower GLOBALS window lists the Xenvironment control operators and their current values. XThe state-switching \fIControl-G\fR character Xoverlays the GLOBALS window with a STATUS OPTIONS window, which Xshows the abbreviated name of each control operator token, followed Xby the values that this operator may assume. XA second \fIControl-G\fR toggles the STATUS OPTIONS Xwindow display back to GLOBALS, Xunless the execution of a CALCULATOR string has already caused Xthe re-display of the GLOBALS window. X.LP XThe variables \fIjustify\fR, \fIformat\fR, X\fIhardform\fR, and \fIautotime\fR Xcontrol the format of the \fBpac\fR display screen, and control Xthe format of the file records. XThe command \fIjustify left\fR X(abbreviated: \fIju le\fR) instructs \fBpac\fR Xto position the leftmost digit of the Xresult in the bottom leftmost position of the CALCULATOR window. XConversely, \fIjustify right\fR X(abbreviated: \fIju ri\fR) specifies that the rightmost digit of the Xresult be placed in the bottom rightmost XCALCULATOR window position. XAs a special case of \fIjustify right\fR, X\fIjustify fix\fR outputs the result Xin a fixed decimal point format. In fixed Xjustification, the number of digits displayed to Xthe right of the decimal point is constant: the value of the X\fIprecision\fR variable (0 through 32). XThe \fIformat space\fR or \fIformat comma\fR X(abbreviated: \fIsp\fR and \fIcm\fR) Xcommand specifies that CURRES values are Xto be displayed with spaces or commas respectively, Xbetween groups of digits; Xthis makes it easier to read long strings. X.LP XThe \fIhardform\fR command controls the format of a Xrecording file which can be opened for writing with the \fIControl-F\fR X(File) Xcharacter, or for appending with the \fIControl-P\fR X(Postpend) Xcharacter. The user is prompted for a file name; ``hardcopy'' is the Xdefault. Having opened the file, a new X\fIControl-F\fR or \fIControl-P\fR will close it, otherwise the file Xwill record calculator transactions until the exit from \fBpac\fR. XThe command \fIhardform verbose\fR (abbreviated: \fIver\fR) resets Xto the default file output format, saving Xboth input and results, with Xrecords separated by horizontal lines of dashes. XThe commands \fIhardform terse\fR X(\fIte\fR) and \fIhardform xterse\fR (\fIxt\fR) specify Xsuccessively denser session recording. X.LP XThe command: \fIautoconv\fR automatically applies the selected Xunit conversion formula to each new evaluation (CURRES) Xprior to displaying the result. For example, a list of dollar figures Xmay be converted to pounds just by entering each dollar value. X.LP XThe macro command: \fIinit\fR resets the format, hardform, Xibase, obase, justify, precision, stack, staybase, and Xautoconv parameters to their default values. X.LP XThe special combination \fIhelp [token]\fR X(or its abbreviated form \fI? [token]\fR) Xoverlays the stack area with a portion of the token list, Xhighlighting the selected token. To the right of each Xtoken of the list, a very brief summary Xof the token action is printed. Stack display Xresumes at the first subsequent stack activity. X.SH ASCII CONVERSIONS XDirectly to the right of the CALCULATOR window, a small rectangle Xprovides immediate conversion between ASCII characters and their Xdecimal, octal, or hexadecimal values, on a per-character basis. XThe window is titled ATOI, and initially contains the following prompts: X.LP X.RS X.nf X^ A asc X^ D dec X^ O oct X^ X hex X.RE X.fi X.LP XThe characters preceded by the caret \fI^\fR stand for the control Xcharacters which cause temporary Xtransition from the CALCULATOR state Xto the ATOI window. \fIControl-A\fR prompts the user to enter Xany character on the top line of the ATOI window, Xand immediately displays the decimal, octal, Xand hex equivalents of this character beneath the input. XContext then returns to the CALCULATOR. X\fIControl-D\fR similarly, prompts for a decimal value Xin the top line, in the 0-127 range. Following a \fIRETURN\fR, Xthe ASCII equivalent of the decimal Xvalue, as well as the octal and hexadecimal versions are printed. X\fIControl-O\fR prompts for an octal number Xbetween \\000 and \\177; \fIControl-X\fR Xprompts for a hexadecimal value between 0x0 and 0x7f. XValues out of the XASCII range are ignored, and the cursor stays on the first Xline of the ATOI window until a legal value is selected. X.SH AMORTIZATION X\fIControl-L\fR (LOAN) changes context and moves the cursor Xto the loan amortization window below ATOI. XA second \fIControl-L\fR returns the user to the previous context. XThe top three lines of the LOAN window are labeled X``AMT'', ``%'', and ``YRS'' in the inverse video border to the Xleft. The user is expected to input a decimal string Xas the ``loan amount'' (principal) Xon the ``AMT'' line, an amortization (percent) rate in the second line, Xand the life term of the loan (in years) on the third line. XUp to two digits past the decimal point are significant Xfor both the principal and the life term values, Xthree digits past the decimal point are significant for Xthe percent rate. X.LP XWhen all Xthree lines contain non-zero values, the monthly payment on the proposed Xloan is immediately displayed in the fourth line of the window, and the Xcursor wraps back to the first line. The user can now Xrepeatedly adjust the amount, rate, or term values in an infinite loop, Xby simply Xtyping over the old values. Each change causes an immediate update of Xthe monthly payment figure. X.LP XTo dump the actual monthly amortization schedule to a file, X\fIControl-B\fR Xmoves the cursor to the last line of the LOAN window, where the Xmonth/year date of the first payment is entered; then the user is Xprompted for a file name on the bottom of the screen. The amortization Xfile creation involves substantial floating point math and string Xformatting, and takes a few seconds to complete. X.LP XThe author has gleaned the amortization algorithm from Xexamining actual bank loan printouts. XWhile the \fBpac\fR method duplicates Xthe bank samples exactly, different methods of rounding Xmay possibly be employed by other lending institutions, resulting in Xminor discrepancies between the two sets of figures. X.SH CHECKBOOK BALANCER XCashier's lists, checkbook tallies, score keeping, and Xa number of book keeping activities involve entering and summing Xvalues in columnar format. X\fIControl-T\fR switches \fBpac\fR to the TOTAL window Xdirectly overlaying the CONVERSIONS list. XInitially, the TOTAL window consists of 19 lines Xof zero values, and a bottom ``total'' line. XThe lines are labeled in the Xright inverse video border by the lower case letters \fIa\fR through X\fIs\fR, and the ``total'' Xline is labeled by \fIt\fR. As the Xuser types in decimal values (followed by \fIRETURN\fR) Xthe cursor advances to the next lower line, and the entered values are Xautomatically summed to ``total''. X.LP XAt each \fIRETURN\fR, the most recently typed value is re-formatted Xright justified, with the number of fractional digits Xdictated by the user environment' Xprecision value. Negative values Xare subtracted from the total. The line may also Xcontain a single \fI*\fR or \fI@\fR character, to effect Xprice multiplication by item count. As an example, ``64 @ 9.17'' Xis immediately converted to ``586.88''. X.LP XWhen nineteen items have already been entered and the cursor is Xin line \fIs\fR, the input window wipes Xitself clean and copies the current total Xto the top line. The cursor is then positioned at the beginning of the Xsecond line, and the entry process can continue indefinitely. It is Xconvenient to refer to this paging Xevent as a ``subtotal''. At subtotal, Xas well as at the exit from the TOTAL function, Xthe current total is pushed into stack cell \fIh\fR (the top Xvisible element of the user stack on the left side). If the user stack Xis \fIon\fR, its elements are shifted down one line, potentially Xretaining a sequence of subtotal values. The calculator XCURRES value Xis not affected by subtotals; the user must explicitly reference the Xappropriate stack cells to transfer values to the XCALCULATOR window for input. X.LP XSimilarly to the ``hardcopy'' Xfile used for keeping an automatic record of CALCULATOR Xactivities, a separate ``hardtotal'' file may be opened Xfor \fIwrite\fR or \fIappend\fR Xwhile the checkbook balancer is active. X``Hardtotal'' is supplied as the default file name, unless Xthe user types in another name. XThe file continues receiving snapshots of the entire TOTAL window at Xevery subtotal (except receiving only the subtotal values Xif the \fBpac\fR \fIhardform\fR variable is set to \fIxterse\fR), Xand a final snapshot on exit from the TOTAL window. X.LP XTOTAL interprets decimal numbers only. In Xaddition to digits, \fI+ - * @\fR and the normal line editing Xcharacters, the TOTAL line editor also accepts Xthe letters \fIa\fR through \fIt\fR and \fIA\fR through \fIT\fR. XThe lower case letters cause the value in the corresponding line to Xbe replicated in the line of the cursor X(\fIt\fR replicates the current total). Upper case Xalphabetics \fIA\fR through \fIS\fR relocate the cursor Xto the line labeled by the corresponding Xlower case letter; input then continues from this line. XWhen the cursor is relocated this way, the digit string Xalready in the line is not cleared; the new input will be Xprepended to it. A space typed clears the line from the cursor Xto its end. XUpper case \fIT\fR forces a stack push of the current total, Xand the snapshot of the window written to an open ``hardtotal'' file. XThe \fI#\fR character Xis again a comment delimiter, Xsignaling the editor to ignore it and any further input Xuntil the \fIRETURN\fR. XA second \fIControl-T\fR provides return to the previous context. A X``hardtotal'' Xfile may be explicitly closed prior to exiting TOTAL, or Xit may be left open, awaiting recording of further TOTAL activities. XEven after exiting TOTAL, the window remains visible over the XCONVERSIONS list until a CALCULATOR conversion takes place. X.SH EDITING THE CONVERSIONS LIST XUnit conversion operations of the CALCULATOR Xare based on a conversions data base, shadowed from a static list Xinto dynamically allocated memory at initialization, and Xmodifiable by the user. XThe NEWCONVERSION editor for the conversions database Xis entered with a \fIControl-N\fR, Xtypically to add new conversions defined by the user, Xbut occasionally to remove existing conversions, or to alter current Xconversion factors. X\fBpac\fR conversions are unidirectional, Xconverting from units \fIA\fR to units \fIB\fR. XSeparate conversions must be defined to convert from dollars to Xpounds, and from pounds to dollars, for example. XAn altered exchange rate between the dollar and the Xpound may prompt the user to update the dollar-to-pound Xand pound-to-dollar formulae. X.LP XEditing the conversions data base begins in a temporary window Xoverlaying the CALCULATOR window. XThe user is prompted to select between adding, removing Xor altering a conversion. Next the user enters a key Xup to three characters long. X.LP XIf the removal or the alteration Xof an existing conversion is selected, Xthe ``conversion keys list'' is searched for a matching key; Xthe key may be re-entered on error until a match is found. When Xchanging an already existing conversion, the user enters a new key X(up to three bytes long) as the altered key value. XFor the pound-to-dollar conversion, let's assume the key \fIus\fR. XA new conversion key is inserted in Xthe key list in alphabetical order. XA thirteen characters long reference label is typed in next (typically Xa ``from-units to-units'' pair), as a visual Xreminder of the meaning of the key. In our example, this may simply be X\fIpound dollar\fR. X.LP XThe new formula is entered at the bottom inverse video Xbar. The character set of the formula is limited to Xdigits, math operators \fI+ - * / ^ %\fR, Xdecimal point, left and right parentheses, Xand the backslash character \fI\\\fR. XNormal line editing characters may be Xused to correct errors. All numbers are assumed to be decimal. XGiven the exchange rate of 1.75 dollars to the pound, Xthe ``X pounds = Y dollars'' equation could be stated as X``Y = X * 1.75'' and entered as X.LP X.RS X\\ * 1.75 X.RE X.LP Xinto the data base. When the formula is invoked in a later XCALCULATOR conversion such as ``900 \fIto us\fR'', Xthe backslash standing for X in the solution, will be substituted by X``900'', followed by the multiplication by the constant to get Xthe new (converted) value. Though the conversion list Xis stored in decimal format, Xduring calculations the constant strings are Xautomatically re-cast into the input radix in effect. XThe converse operation: dollars to pounds, would have a different key, Xa different label, and the following conversion formula: X.LP X.RS X\\ / 1.75 X.RE X.LP XMore complex formulae are feasible; the formula need not start with a Xbackslash; multiple backslashes may occur. XHaving finished with the editing of the conversion, the most recently Xadded conversion is shown selected in the center Xof the CONVERSIONS window. Context reverts to the calling tool. X.SH CLOCK X\fIControl-K\fR installs a date/hour/minute clock in the Xright corner of the top inverse video border. XTime is kept in a twelve-hour format; a period Xfollowing the minutes denotes PM. The clock operates asynchronously Xand without affecting the rest of the program. A second \fIControl-K\fR Xturns off the clock. XThe \fBpac\fR environment variable \fIautotime\fR may be enabled, Xwith the effect that the clock appears automatically on entry to Xthe program. X.SH EXIT X\fIControl-E\fR resets Xthe terminal to cooked mode, writes the .pacrc file X(containing the \fBpac\fR environment variables, stack, and the Xconversion list) in the user's HOME directory; Xand returns the user to the shell. XThe cursor is moved to the line below the \fBpac\fR screen. XFrom the CALCULATOR function, either \fIquit\fR or \fIexit\fR Xhas the same effect. The action of the X\fITAB\fR character (\fIControl-I\fR) Xor the equivalent token \fIbye\fR Xis different in that the CALCULATOR stack is Xcleared (all 0 values are saved in the .pacrc file), and Xthe screen is cleared as well. X.SH BUGS XPhysical constants are defined to a few digits of precision only, Xnot to the 32 digits maximum capability of the calculator. XThere is Xno guarantee as to the accuracy of the constant definitions; Xthe program must be re-compiled to make improvements or changes. X.LP XParentheses are passed through the preprocessor to \fBbc\fR Xinstead of being handled immediately. For this reason, Xone should avoid using \fBpac\fR operators (multi-byte non-numeric Xwords, and the factorial operator \fI!\fR) inside open Xparentheses. Also, logical (bit) and percent operators should not Xdirectly precede a left parenthesis. X.LP XThese same \fBpac\fR operators may force partial evaluations of the Xinput string, often changing CURRES faster than it is possible Xto visually update the result. Explicit use of the CURRES token X\fIBACKSLASH\fR is therefore discouraged, except during the Xediting of conversion formulae. X.LP XThough \fBpac\fR traps error messages from \fBbc\fR, if the operating Xsystem is running with a broken or incorrectly compiled/linked X\fBbc\fR, the buggy executable may ``surprize'' the \fBpac\fR Xprocess by deadlocking the pipes. X.LP XDue to its interactive nature, \fBpac\fR is not optimized for speed; Xshell scripts are slow. SHAR_EOF $TOUCH -am 0725152590 pac.man && chmod 0644 pac.man || echo "restore of pac.man failed" set `wc -c pac.man`;Wc_c=$1 if test "$Wc_c" != "27117"; then echo original size 27117, current size $Wc_c fi # ============= README ============== echo "x - extracting README (Text)" sed 's/^X//' << 'SHAR_EOF' > README && X XIf you are running under sysV, make with the -DREALUNIX flag. XVersion.c is created by the makefile, it is ok to loose it. XThe target terminal must have at least 80 columns and 24 lines. X XIf the shell complains about printer problems in response to the X'pac' command, it has found the printer accounting /etc/pac instead. X XThe man pages are in "pac.man", use "troff -man" to print. SHAR_EOF $TOUCH -am 0221163890 README && chmod 0644 README || echo "restore of README failed" set `wc -c README`;Wc_c=$1 if test "$Wc_c" != "382"; then echo original size 382, current size $Wc_c fi # ============= makefile ============== echo "x - extracting makefile (Text)" sed 's/^X//' << 'SHAR_EOF' > makefile && X# XCC=/bin/cc X X# for bsd: XCFLAGS=-O XLFLAGS=-ltermlib XMFLAGS= X X# for sysV: X# CFLAGS=-O -DREALUNIX X# LFLAGS= X# MFLAGS= X X# for AT&T 6300+: X# CFLAGS=-Ml -s -DREALUNIX X# LFLAGS= X# MFLAGS=-Ml -s X X# for Xenix286 (contributed by Mark Seiffert --- rex!mgse!marks): X# CFLAGS=-M2el -Ox -DREALUNIX -LARGE X# LFLAGS=-F 5000 -s X# MFLAGS=-M2el X X#.SILENT: X Xall: version pac X Xversion: X @/bin/rm -f version.c X @echo 'char *version = "'`date`'";' > version.c X XNONE=ierror.o version.o XBOTH=convbase.o interpret.o XTABS=pactok.o bitwise.o help.o XMAPS=amort.o atoi.o conv.o file.o pac.o total.o XDEFS=display.o error.o ledit.o onlay.o pipes.o stack.o system.o time.o work.o X Xpac: ${NONE} ${BOTH} ${DEFS} ${MAPS} ${TABS} X ${CC} ${MFLAGS} ${NONE} ${BOTH} ${DEFS} ${MAPS} ${TABS} \ X -lcurses ${LFLAGS} -lm -o pac X X${BOTH}: defs.h maps.h toktab.h X${TABS}: defs.h toktab.h X${MAPS}: defs.h maps.h X${DEFS}: defs.h SHAR_EOF $TOUCH -am 0725152590 makefile && chmod 0644 makefile || echo "restore of makefile failed" set `wc -c makefile`;Wc_c=$1 if test "$Wc_c" != "881"; then echo original size 881, current size $Wc_c fi # ============= defs.h ============== echo "x - extracting defs.h (Text)" sed 's/^X//' << 'SHAR_EOF' > defs.h && X/* defs.h */ X/********************************************************************** X* File Name : defs.h X* Function : definitions, declarations X* : this header is included in all .c files of pac X* Author : Istvan Mohos, 1987 X***********************************************************************/ X X#include <curses.h> X#ifdef REALUNIX X#include <fcntl.h> X#else X#include <sys/file.h> X#endif X#include <ctype.h> X#include <signal.h> X#include <math.h> X X#ifdef TRACE X#define _TR if (Trace) fprintf(Tf,">%s%s\n",&Ttabs[Tlev--],fid); X#define TR_ if (Trace) fprintf(Tf,"<%s%s\n",&Ttabs[++Tlev],fid); X#else X#define _TR X#define TR_ X#endif X X#define ZERO (char *)0 X X#define LBOUND 1 /* left (inverse) edge of screen */ X#define RBOUND 78 /* right (inverse) edge of screen */ X#define TOP 1 /* top (inverse) edge of screen */ X#define BOT 23 /* bottom (inverse) edge of screen */ X#define UTOP (TOP + 1) /* user top of calculator window */ X#define UBOT (TOP + 3) /* user bottom of calculator window */ X#define ACCUM (TOP + 4) /* result line under calculator window */ X#define ACCUMAX 44 /* max calculator,result width */ X#define URIGHT 46 /* right user boundary of calculator */ X#define DIGMAX 32 /* max calculator (numeric) digits */ X#define ULEFT 3 /* left user calculator boundary */ X#define MSG (TOP + 5) /* vertical location of error message */ X#define MSGLEFT 4 /* left boundary of error message */ X#define STACKLEFT 3 /* left boundary of stack (base) */ X#define STACKTOP (TOP + 6) /* upper boundary of stack */ X#define STACKBOT (TOP + 21) /* lower boundary of stack */ X#define STACKMAX 36 /* max stack width (including base) */ X#define STACKDEEP 16 /* max number of stack cells */ X#define MYBUF 300 /* scratch display buffer */ X X#define ATOIX 50 /* leftmost char printed into ATOI */ X#define AMTY 7 /* vert location of loan AMT */ X#define PRCY 8 /* percent */ X#define YRY 9 /* years */ X#define PAYY 10 /* payment */ X#define DATY 11 /* start date */ X#define LOANX 44 /* leftmost char printed into LOAN */ X#define LOANSIZ 13 /* max width of LOAN line */ X#define LOANR (LOANX + LOANSIZ - 1) X#define STATMSG 44 /* leftmost char printed into STATUS */ X#define STATX 54 /* left edge of 3 char status flag */ X#define STATY (TOP + 12) /* ver location of first status string */ X X /* status defaults */ X#define PREC_DFLT 2 /* precision (# of digits past dp) */ X#define IB_DFLT 10 /* input base */ X#define OB_DFLT 10 /* output base */ X#define DISA 0 X#define ENA 1 X#define AP 2 X#define STACK_DFLT ENA /* new result gets pushed on stack */ X#define COMMA_ 1 X#define SPACE_ 2 X#define FORM_DFLT SPACE_ /* put commas or spaces in numbers */ X#define ED_DFLT ENA /* unimplemented */ X#define JL 0 X#define JF 1 X#define JR 2 X#define JUS_DFLT JR /* right, left, or fixed dp on right */ X#define SB_DFLT DISA /* radix change effects current string */ X#define SHOW_DFLT DISA /* don't pfresh until done */ X#define FVER 0 X#define FTER 1 X#define FXTER 2 X#define HF_DFLT FVER /* file dump verbose, terse or xterse */ X X#define REGLEFT 3 /* leftmost char of stack cell (base) */ X#define CONVLEFT 60 /* leftmost char of CONV. labels */ X#define KEYLEFT 74 /* leftmost char of CONV. 3 char key */ X#define FITCONV (BOT - TOP - 1) /* max conv strings visible */ X#define CONVCOUNT 24 /* number of predefined conversions */ X#define FROMTOSIZ 14 /* conv. label size + \0 */ X#define KEYSIZ 4 /* conv key size + \0 */ X#define CONVMAX (FROMTOSIZ + KEYSIZ - 1) /* conv string window siz */ X#define CENTER 11 /* non_curses pos. in conv window */ X#define CONVSEL (CENTER - 1)/* original (default) selection */ X X#define TREQ 2 /* update requests to print top line */ X#define BREQ 9 /* update requests to print bottom line */ X#define MSGLEN 13 X#define FBOUND (ULEFT + MSGLEN) /* where the screen fname starts */ X#define BUFSTOP (FBOUND - ULEFT) /* where fname starts in buffer */ X#define TITSIZ (RBOUND - ULEFT + 1) X#define TALYREQ 1 X#define FILEREQ 2 X#define POSTREQ 3 X#define TOTLREQ 4 X#define TAPPREQ 5 X#define LOANREQ 6 X#define CONVREQ 7 X#define EDITREQ 8 X X#define NOTINLIST -1 /* not recognized by pac tokenizer */ X#define PIPEMAX 4096 /* guaranteed min size by UNIX */ X#define WINLINE 81 /* max screen line + \0 */ X#define LINEMAX 256 /* rough line size */ X X#define INIT 0 /* prior to curses, to die properly */ X X#define CYX pyp=CY, pxp=CX X#define PYX move(CY=pyp, CX=pxp) X/* all functions must return cursor to starting CY, CX coordinates */ X X#define E_SYNTAX 1 /* bc errors */ X#define E_DIVBY0 2 X#define E_EXPONENT 3 X#define E_OVERFLOW 4 X#define E_BCEXEC 5 X Xstruct stk_cell { X char cell[STACKMAX + 1]; X struct stk_cell *link; X}; X Xstruct stk_cell *find(); Xchar *pactok(); /* seems to be missing in 4.2BSD */ Xchar *bitwise(); Xchar *substivar(); Xchar *numform(); Xchar *getenv(); Xchar *calloc(), *malloc(); Xchar *ctime(); Xchar *strcat(), *strncat(), *strcpy(), *strncpy(); Xchar *gets(); XFILE *fopen(); Xdouble atof(); /* amortization variables */ Xlong time(), lseek(); Xunsigned alarm(); Xint go_away(); Xint cdate(); X X#ifdef MAIN /* globals are defined in pac.c, X declared as externs elsewhere */ X XFILE *Tf = NULL; XFILE *Dfp = NULL; Xchar *Home, Rcfile[LINEMAX]; /* pac environment */ Xint Rcfd, Rcerr; X Xchar *Cb[] = { X"pac PANEL CALCULATOR ATOI ", X"pac PANEL CALCULATOR ATOI " X}; Xchar *Sb[] = { X"pac PANEL CALCULATOR ATOI CONVERSIONS TO ", X"pac PANEL CALCULATOR ATOI TOTAL " X}; Xchar *Titlq[TREQ]; Xchar *Basq[BREQ]; Xchar *Bb[] = { X"TAB bye <CTRL> Exit Redraw File Postpend Klock Globals Loan Newconv Total ", X"<CTRL> File Postpend Toggle_back copy: a...t up_down: A...S transfer: T ", X"file write: hardcopy ", X"file contd: hardcopy ", X"total write: hardtotal ", X"total contd: hardtotal ", X"amort write: hardamort ", X"new value = ", X"new formula: " X}; Xchar *Hardname = X"hardcopy "; Xchar *Totname = X"hardtotal "; Xchar *Amortname = X"hardamort "; X Xchar Spreadbuf[PIPEMAX * 2]; /* expand user input for tokenizing */ Xchar Tokbuf[PIPEMAX]; /* strcomp against key list */ Xchar Mainbuf[PIPEMAX]; /* Mainbuf (result) from bc */ Xchar Convbuf[PIPEMAX]; /* converter result from bc */ Xchar Ubuf[PIPEMAX]; /* unrecognized tokens, to bc */ Xchar Controlbuf[PIPEMAX]; /* recognized tokens effect control */ Xchar *Tokp[PIPEMAX], *Last; /* Spreadbuf pointers */ Xchar Rebuf[PIPEMAX]; /* work buffers */ Xchar Tmpbuf[PIPEMAX]; Xchar Mop[PIPEMAX]; Xchar Uwin_copy[(UBOT - UTOP + 1) * (URIGHT - ULEFT + 1)]; X Xint Context = INIT; /* initial status values */ Xint Justify = JUS_DFLT; Xint Format = FORM_DFLT; Xint Stack = STACK_DFLT; Xint Hide = 0; Xint Dontsave = 0; Xint Clockstat = DISA; Xint Show = SHOW_DFLT; Xint Autotime = DISA; /* no clock until user asks */ Xint Hf = HF_DFLT; Xint Ibase = IB_DFLT; Xint Obase = OB_DFLT; Xint Oldib = IB_DFLT; Xint Oldob = OB_DFLT; Xint Lastob = OB_DFLT; Xint Staybase = DISA; Xint Precision = PREC_DFLT; Xint Edhelp = ED_DFLT; Xint Autoconv = DISA; /* Autoconverter feature */ Xint Convcount = CONVCOUNT; Xint Convsel = CONVSEL; Xint Hardcopy = DISA; Xint Totcopy = DISA; Xint Painted = FALSE; /* don't push init vals on Stack */ X Xdouble Amt; Xdouble Years; Xdouble Rate; Xdouble Pymt; Xdouble Showpymt; Xdouble Intrst; Xdouble I_mo; Xdouble Months; X Xint Negative; Xint Too_big; Xint Has_dp; X Xchar *Base_str = "$$23456789 bcdefx"; /* formatting aids */ Xchar *Sp44 = " "; Xchar *Sp34 = " "; Xchar *Sp13 = " "; Xchar *Fix32 = "00000000000000000000000000000000"; Xchar *Emptycell = " 0 "; X Xchar Separator = ' '; /* must agree with FORM_DFLT */ X Xint A_ret = 0; Xint B_ret = 0; Xint A_write[2], A_read[2]; /* main bc process pipes */ Xint Nread; /* main bc process globals */ Xint B_write[2], B_read[2]; /* bc converter process pipes */ Xint Hc = -1; /* Hardcopy file fd */ Xint Tc = -1; /* Total file fd */ Xint Tqlev = 0; Xchar *Thisyear; Xint Do_conv, O_conv; /* activate selected conv function */ Xint Convread; /* bc converter process */ Xint Topconv; /* top conversion of conv vindow */ Xchar *Convhom; /* conv malloc pointer */ Xchar Eq_buf[WINLINE]; /* new conv string input by user */ Xchar K_buf[KEYSIZ]; /* 3 char new key input by user */ Xchar L_buf[FROMTOSIZ]; /* new conv label input by user */ Xunsigned int Convhsiz; X X /* predefined user conversions */ Xchar *Convlist[256][3] = { X{"km2 acre", "acr", "\\*247.1"}, X{"gram avoir_oz", "av ", "\\*.035274"}, X{"fahr. celsius", "c ", "(\\-32)*.55555555555555555555555555555555"}, X{"fluid_oz cc", "cc ", "\\*29.573"}, X{"inch cm", "cm ", "\\*2.54"}, X{"radian degree", "deg", "\\*57.295779513082321"}, X{"celsius fahr.", "f ", "\\*1.8+32"}, X{"meter foot", "ft ", "\\*3.2808"}, X{"avoir_oz gram", "g ", "\\*28.3495"}, X{"liter gallon", "gal", "\\*.26418"}, X{"cm inch", "in ", "\\*.3937"}, X{"inversion ", "inv", "1/\\"}, X{"pound kg", "kg ", "\\*.45359"}, X{"mile km", "km ", "\\*1.6093"}, X{"acre km2", "km2", "\\*.004046"}, X{"kg pound", "lb ", "\\*2.2046"}, X{"gallon liter", "lit", "\\*3.7854"}, X{"foot meter", "m ", "\\*.3048"}, X{"km mile", "mi ", "\\*.6214"}, X{"mile nautical", "nau", "\\*.8689784566"}, X{"nautical mile", "nmi", "\\*1.150776515"}, X{"cc fluid_oz", "oz ", "\\*.03381"}, X{"degree radian", "rad", "\\*.01745329251994329"}, X{"sentinel ", "|||", "1"}}; /* sentinel; do not remove */ X Xint Status; /* exit for fatal */ Xint CX, CY; /* global cursor control */ Xchar Onebuf[STACKMAX + 1]; /* temp store for 1 stack cell */ Xint Statopts; /* Status display window flag */ Xstruct stk_cell Stk[STACKDEEP + 1]; Xint Bc_error; Xint Trace; Xint Tlev; Xchar Ttabs[] = {"\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t"}; Xint (*Save_sig[8])(); Xchar ierbuf[256]; X X#else X Xextern FILE *Tf; Xextern FILE *Dfp; Xextern char *Titlq[]; Xextern char *Basq[]; Xextern char *Cb[], *Sb[]; Xextern char *Bb[]; Xextern char Spreadbuf[]; Xextern char Tokbuf[]; Xextern char Controlbuf[]; Xextern char *Tokp[], *Last; Xextern int Negative, Too_big, Has_dp; Xextern char Rebuf[]; Xextern char Tmpbuf[]; Xextern char Mop[]; Xextern char Uwin_copy[]; X Xextern int Context; Xextern int Justify; Xextern int Format, Stack, Hide, Dontsave; X Xextern int Ibase, Obase, Oldib, Oldob, Lastob, Staybase, Precision; Xextern int Show, Clockstat, Autotime; Xextern char *Base_str; Xextern int CX, CY; Xextern char Ubuf[], Mainbuf[], Convbuf[]; Xextern char *Sp44, *Sp34, *Sp13, *Fix32, *Emptycell; Xextern char Separator; Xextern int A_write[], A_read[], A_ret, Nread; Xextern int B_write[], B_read[], B_ret, Convread; Xextern int Status, Painted; Xextern char *Home, Rcfile[]; Xextern int Rcfd, Rcerr; Xextern char Onebuf[STACKMAX + 1]; Xextern int Hardcopy, Hc, Hf; Xextern char *Hardname; Xextern char *Amortname; Xextern char *Totname; Xextern int Totcopy, Tc, Tqlev; Xextern int Autoconv; Xextern int Convcount; Xextern int Convsel; Xextern int Do_conv, O_conv; Xextern int Topconv; Xextern char *Convlist[][3]; Xextern char *Convhom; Xextern char *Thisyear; Xextern char Eq_buf[]; Xextern char K_buf[], L_buf[]; Xextern unsigned int Convhsiz; Xextern int Statopts; Xextern struct stk_cell Stk[]; Xextern int Edhelp; Xextern int Bc_error; Xextern int Trace; Xextern int Tlev; Xextern char Ttabs[]; X Xextern double atof(); Xextern double Amt; Xextern double Years; Xextern double Rate; Xextern double Pymt; Xextern double Showpymt; Xextern double Intrst; Xextern double I_mo; Xextern double Months; X Xextern int (*Save_sig[])(); Xextern char ierbuf[]; X X#endif SHAR_EOF $TOUCH -am 0221163890 defs.h && chmod 0644 defs.h || echo "restore of defs.h failed" set `wc -c defs.h`;Wc_c=$1 if test "$Wc_c" != "13508"; then echo original size 13508, current size $Wc_c fi echo "End of part 1, continue with part 2" exit 0