void updateoflags(int col, int row, int display)
/* Starting in col, moves back to the last TEXT cell and updates all flags */
{
while ((cell[col][row] == NULL) && (col-- > 0));
if ((cell[col][row] != NULL) && (cell[col][row]->attrib == TEXT) &&
(col >= 0))
setoflags(col, row, display);
} /* updateoflags */
void act(char *s)
/* Acts on a particular input */
{
int attrib, allocated;
double value;
deletecell(curcol, currow, UPDATE);
value = parse(s, &attrib);
switch(attrib)
{
case TEXT :
allocated = alloctext(curcol, currow, s);
if (allocated)
displaycell(curcol, currow, NOHIGHLIGHT, NOUPDATE);
break;
case VALUE :
allocated = allocvalue(curcol, currow, value);
break;
case FORMULA :
allocated = allocformula(curcol, currow, s, value);
break;
} /* switch */
if (allocated)
{
format[curcol][currow] &= ~OVERWRITE;
clearoflags(curcol + 1, currow, UPDATE);
if (attrib == TEXT)
setoflags(curcol, currow, UPDATE);
if (curcol > lastcol)
lastcol = curcol;
if (currow > lastrow)
lastrow = currow;
if (autocalc)
recalc();
}
else
errormsg(MSGLOMEM);
printfreemem();
} /* act */
void loadsheet(char *filename)
/* Loads a new spreadsheet */
{
int size, allocated, reallastcol = 0, reallastrow = 0, file;
char check[81];
if (filename[0] == 0)
{
writeprompt(MSGFILENAME);
if (!editstring(filename, "", MAXINPUT))
return;
}
if (access(filename, 0))
{
errormsg(MSGNOEXIST);
return;
}
if ((file = open(filename, O_RDWR | O_BINARY)) == -1)
{
errormsg(MSGNOOPEN);
return;
}
read(file, check, strlen(name) + 1);
if (strcmp(check, name) != 0)
{
errormsg(MSGNOTURBOCALC);
close(file);
return;
}
writef(1, 25, PROMPTCOLOR, 79, MSGLOADING);
gotoxy(strlen(MSGLOADING) + 1, 25);
clearsheet();
read(file, (char *)&size, 1);
read(file, (char *)&lastcol, 2);
read(file, (char *)&lastrow, 2);
read(file, (char *)&size, 2);
read(file, colwidth, sizeof(colwidth));
do
{
if (read(file, (char *)&curcol, 2) <= 0)
break;
read(file, (char *)&currow, 2);
read(file, &format[curcol][currow], 1);
read(file, (char *)&size, 2);
read(file, (char *)&rec, size);
switch (rec.attrib)
{
case TEXT :
if ((allocated = alloctext(curcol, currow, rec.v.text)) == TRUE)
setoflags(curcol, currow, NOUPDATE);
break;
case VALUE :
allocated = allocvalue(curcol, currow, rec.v.value);
break;
case FORMULA :
allocated = allocformula(curcol, currow, rec.v.f.formula, rec.v.f.fvalue);
break;
} /* switch */
if (!allocated)
{
errormsg(MSGFILELOMEM);
lastrow = reallastrow;
lastcol = reallastcol;
format[curcol][currow] = DEFAULTFORMAT;
break;
}
else
{
if (curcol > reallastcol)
reallastcol = curcol;
if (currow > reallastrow)
reallastrow = currow;
}
}
while (TRUE);
writef(1, 25, WHITE, strlen(MSGLOADING), "");
gotoxy(1, 25);
printfreemem();
close(file);
curcol = currow = 0;
setrightcol();
displayscreen(NOUPDATE);
changed = FALSE;
} /* loadsheet */
