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

Release calc version 2.11.0t9.1

Browse Source
This commit is contained in:
Landon Curt Noll
1999-11-01 10:20:57 -08:00
parent f3fceff1b6
commit ea6b3904be
7 changed files with 77 additions and 41 deletions
Download Patch File Download Diff File Expand all files Collapse all files

13
func.c
View File

@@ -155,6 +155,7 @@ f_eval(VALUE *vp)
VALUE result;
char *str;
long num;
int temp;
if (vp->v_type != V_STR)
return error_value(E_EVAL2);
@@ -168,7 +169,10 @@ f_eval(VALUE *vp)
}
oldfunc = curfunc;
enterfilescope();
temp = stoponerror;
stoponerror = -1;
if (evaluate(TRUE)) {
stoponerror = temp;
closeinput();
exitfilescope();
freevalue(stack--);
@@ -181,6 +185,7 @@ f_eval(VALUE *vp)
free(newfunc);
return result;
}
stoponerror = temp;
closeinput();
exitfilescope();
newfunc = curfunc;
@@ -203,11 +208,11 @@ f_prompt(VALUE *vp)
unsigned int len;
result.v_type = V_STR;
if (inputisterminal()) {
printvalue(vp, PRINT_SHORT);
math_flush();
}
openterminal();
printvalue(vp, PRINT_SHORT);
math_flush();
cp = nextline();
closeinput();
if (cp == NULL) {
math_error("End of file while prompting");
/*NOTREACHED*/