257 lines
7.6 KiB
C
257 lines
7.6 KiB
C
/* Turbo C - (C) Copyright 1987, 1988 by Borland International */
|
||
|
||
#define S_IREAD 0x0100 /* from SYS\STAT.H */
|
||
#define S_IWRITE 0x0080 /* from SYS\STAT.H */
|
||
|
||
#define TRUE 1
|
||
#define FALSE 0
|
||
|
||
#define MSGHEADER "MICROCALC - A Turbo C Demonstration Program"
|
||
#define MSGKEYPRESS "Press any key to continue."
|
||
#define MSGCOMMAND "Press / for the list of commands"
|
||
#define MSGMEMORY "Memory Available:"
|
||
#define MSGERROR "ERROR"
|
||
#define MSGLOMEM "Not enough memory to allocate cell."
|
||
#define MSGEMPTY "Empty"
|
||
#define MSGTEXT "Text"
|
||
#define MSGVALUE "Value"
|
||
#define MSGFORMULA "Formula"
|
||
#define MSGAUTOCALC "AutoCalc"
|
||
#define MSGFORMDISPLAY "Form"
|
||
#define MSGFILENAME "Enter the file name of the spreadsheet:"
|
||
#define MSGNAME "Turbo C MicroCalc Spreadsheet"
|
||
#define MSGCOLWIDTH "Enter the new column width:"
|
||
#define MSGNOOPEN "Can't open the file."
|
||
#define MSGOVERWRITE "The file exists. Do you want to overwrite it?"
|
||
#define MSGFILELOMEM "Not enough memory for entire spreadsheet."
|
||
#define MSGNOMICROCALC "That is not a Turbo C MicroCalc spreadsheet."
|
||
#define MSGNOEXIST "The file does not exist."
|
||
#define MSGGOTO "Enter the cell to go to:"
|
||
#define MSGBADNUMBER "You must enter a number from %d to %d."
|
||
#define MSGBADCELL "That is not a legal cell."
|
||
#define MSGCELL1 "Enter the first cell to format:"
|
||
#define MSGCELL2 "Enter the last cell to format:"
|
||
#define MSGDIFFCOLROW "The row or the column must be the same."
|
||
#define MSGRIGHTJUST "Do you want the cell right-justified?"
|
||
#define MSGDOLLAR "Do you want numbers in a dollar format?"
|
||
#define MSGCOMMAS "Do you want commas in numbers?"
|
||
#define MSGPLACES "How many decimal places should the number be rounded to?"
|
||
#define MSGCOLUMNS "Do you want to print in 132 columns?"
|
||
#define MSGPRINT "Enter the file name to print to, or press ENTER to print on the printer."
|
||
#define MSGBORDER "Print the border?"
|
||
#define MSGLOADING "Loading..."
|
||
#define MSGSAVING "Saving..."
|
||
#define MSGSAVESHEET "Save current spreadsheet?"
|
||
#define MSGSTACKERROR "Parser stack overflow."
|
||
|
||
#define MENU "Spreadsheet, Format, Delete, Goto, Col, Row, Edit, Utility, Auto, Quit"
|
||
#define COMMAND "SFDGCREUAQ"
|
||
#define SMENU "Load, Save, Print, Clear"
|
||
#define SCOMMAND "LSPC"
|
||
#define CMENU "Insert, Delete, Width"
|
||
#define CCOMMAND "IDW"
|
||
#define RMENU "Insert, Delete"
|
||
#define RCOMMAND "ID"
|
||
#define UMENU "Recalc, Formula display"
|
||
#define UCOMMAND "RF"
|
||
|
||
#define MAXCOLS 100 /* Maximum is 702 */
|
||
#define MAXROWS 100
|
||
#define LEFTMARGIN 3
|
||
#define MINCOLWIDTH 3
|
||
#define MAXCOLWIDTH 80 - LEFTMARGIN
|
||
#define SCREENCOLS (80 - LEFTMARGIN) / MINCOLWIDTH + 1
|
||
#define SCREENROWS 20
|
||
#define DEFAULTWIDTH 10
|
||
#define DEFAULTFORMAT 0X42
|
||
#define MAXINPUT 79
|
||
#define MAXPLACES 8
|
||
#define TOPMARGIN 5
|
||
#define PARSERSTACKSIZE 20
|
||
|
||
#define TEXTCOLOR WHITE
|
||
#define ERRORCOLOR LIGHTRED + BLINK
|
||
#define VALUECOLOR LIGHTCYAN
|
||
#define FORMULACOLOR LIGHTMAGENTA
|
||
#define BLANKCOLOR BLACK
|
||
#define HEADERCOLOR WHITE + (RED << 4)
|
||
#define HIGHLIGHTCOLOR WHITE + (BLUE << 4)
|
||
#define HIGHLIGHTERRORCOLOR WHITE + (BLUE << 4) + BLINK
|
||
#define MSGAUTOCALCCOLOR LIGHTCYAN
|
||
#define MSGFORMDISPLAYCOLOR LIGHTMAGENTA
|
||
#define MSGMEMORYCOLOR LIGHTGREEN
|
||
#define MSGHEADERCOLOR LIGHTCYAN
|
||
#define PROMPTCOLOR YELLOW
|
||
#define COMMANDCOLOR LIGHTCYAN
|
||
#define LOWCOMMANDCOLOR WHITE
|
||
#define MEMORYCOLOR LIGHTRED
|
||
#define CELLTYPECOLOR LIGHTGREEN
|
||
#define CELLCONTENTSCOLOR YELLOW
|
||
|
||
#define HIGHLIGHT TRUE
|
||
#define NOHIGHLIGHT FALSE
|
||
#define UPDATE TRUE
|
||
#define NOUPDATE FALSE
|
||
#define FORMAT TRUE
|
||
#define NOFORMAT FALSE
|
||
#define LEFT 0
|
||
#define RIGHT 1
|
||
#define UP 2
|
||
#define DOWN 3
|
||
#define TEXT 0
|
||
#define VALUE 1
|
||
#define FORMULA 2
|
||
#define COLADD 0
|
||
#define COLDEL 1
|
||
#define ROWADD 2
|
||
#define ROWDEL 3
|
||
#define OVERWRITE 0X80
|
||
#define RJUSTIFY 0X40
|
||
#define COMMAS 0X20
|
||
#define DOLLAR 0X10
|
||
|
||
struct CELLREC
|
||
{
|
||
char attrib;
|
||
union
|
||
{
|
||
char text[MAXINPUT + 1];
|
||
double value;
|
||
struct
|
||
{
|
||
double fvalue;
|
||
char formula[MAXINPUT + 1];
|
||
} f;
|
||
} v;
|
||
};
|
||
|
||
typedef struct CELLREC *CELLPTR;
|
||
|
||
#if defined(__TINY__) || defined(__SMALL__) || defined(__MEDIUM__)
|
||
|
||
#define memsize coreleft() - 1000
|
||
#define textcellsize(s) (((strlen(s) >> 1) + 3) << 1)
|
||
#define valuecellsize 12
|
||
#define formulacellsize(s) (((strlen(s) >> 1) + 7) << 1)
|
||
|
||
#else
|
||
|
||
#define memsize farcoreleft() - 1000
|
||
#define textcellsize(s) (((strlen(s) >> 1) + 5) << 1)
|
||
#define valuecellsize 16
|
||
#define formulacellsize(s) (((strlen(s) >> 1) + 9) << 1)
|
||
|
||
#endif
|
||
|
||
#define BS 8
|
||
#define FORMFEED 12
|
||
#define CR 13
|
||
#define ESC 27
|
||
#define HOMEKEY 327
|
||
#define ENDKEY 335
|
||
#define UPKEY 328
|
||
#define DOWNKEY 336
|
||
#define PGUPKEY 329
|
||
#define PGDNKEY 337
|
||
#define LEFTKEY 331
|
||
#define INSKEY 338
|
||
#define RIGHTKEY 333
|
||
#define DELKEY 339
|
||
#define CTRLLEFTKEY 371
|
||
#define CTRLRIGHTKEY 372
|
||
#define F1 315
|
||
#define F2 316
|
||
#define F3 317
|
||
#define F4 318
|
||
#define F5 319
|
||
#define F6 320
|
||
#define F7 321
|
||
#define F8 322
|
||
#define F9 323
|
||
#define F10 324
|
||
|
||
void initcursor(void);
|
||
int getkey(void);
|
||
int editstring(char *s, char *legal, int maxlength);
|
||
int getint(int *number, int low, int high);
|
||
void getinput(int c);
|
||
void setcolor(int color);
|
||
void scroll(int direction, int lines, int x1, int y1, int x2, int y2,
|
||
int attrib);
|
||
void setcursor(unsigned int shape);
|
||
void writef(int col, int row, int color, int width, va_list arg_list, ...);
|
||
void printcol(void);
|
||
void printrow(void);
|
||
void displaycell(int col, int row, int highlighting, int updating);
|
||
void displaycol(int col, int updating);
|
||
void displayrow(int row, int updating);
|
||
void displayscreen(int updating);
|
||
void clearinput(void);
|
||
void changecursor(int insmode);
|
||
void showcelltype(void);
|
||
void initcolortable(void);
|
||
double parse(char *s, int *att);
|
||
int alloctext(int col, int row, char *s);
|
||
int allocvalue(int col, int row, double amt);
|
||
int allocformula(int col, int row, char *s, double amt);
|
||
void deletecell(int col, int row, int display);
|
||
void printfreemem(void);
|
||
void moverowup(void);
|
||
void moverowdown(void);
|
||
void movecolleft(void);
|
||
void movecolright(void);
|
||
void recalc(void);
|
||
void changeautocalc(int newmode);
|
||
void changeformdisplay(int newmode);
|
||
void errormsg(char *s);
|
||
void colstring(int col, char *colstr);
|
||
void centercolstring(int col, char *colstr);
|
||
void setleftcol(void);
|
||
void setrightcol(void);
|
||
void settoprow(void);
|
||
void setbottomrow(void);
|
||
void movehighlight(void);
|
||
void setlastcol(void);
|
||
void setlastrow(void);
|
||
void act(char *s);
|
||
void initvars(void);
|
||
int getcommand(char *msgstr, char *comstr);
|
||
void mainmenu(void);
|
||
void editcell(CELLPTR ecell);
|
||
int setoflags(int col, int row, int display);
|
||
void clearoflags(int col, int row, int display);
|
||
void updateoflags(int col, int row, int display);
|
||
void loadsheet(char *filename);
|
||
int getcell(int *col, int *row);
|
||
char *cellstring(int col, int row, int *color, int formatting);
|
||
void writeprompt(char *prompt);
|
||
int getyesno(int *yesno, char *prompt);
|
||
void swap(int *val1, int *val2);
|
||
void redrawscreen(void);
|
||
void checkforsave(void);
|
||
void savesheet(void);
|
||
int formulastart(char **input, int *col, int *row);
|
||
int rowwidth(int row);
|
||
void fixformula(int col, int row, int action, int place);
|
||
void clearlastcol(void);
|
||
void run(void);
|
||
void gotocell(void);
|
||
|
||
#if !defined(MAIN)
|
||
|
||
extern CELLPTR cell[MAXCOLS][MAXROWS], curcell;
|
||
extern unsigned char format[MAXCOLS][MAXROWS];
|
||
extern unsigned char colwidth[MAXCOLS];
|
||
extern unsigned char colstart[SCREENCOLS];
|
||
extern char formdisplay;
|
||
extern char changed;
|
||
extern char autocalc;
|
||
extern int leftcol, rightcol, toprow, bottomrow, curcol, currow, lastcol,
|
||
lastrow, direction;
|
||
extern long memleft;
|
||
extern char stop;
|
||
extern char matherror;
|
||
extern unsigned int oldcursor, shortcursor, tallcursor, nocursor;
|
||
|
||
#endif
|
||
|