1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
|
/*======================================================================
PRPROPEC()
Process prop-eqn-const command.
======================================================================*/
#include "qepcad.h"
void QepcadCls::PRPROPEC()
{
Word i,r;
Step1: /* Toggle the PCPROPEC global variable and initialize globals. */
GVEQNCONST = GVPIVOT = NIL;
GVEQN2A = NIL;
if (PCPROPEC == FALSE) {
PCPROPEC = TRUE;
r = LENGTH(GVVL);
for (i = 1; i <= r; i++) {
GVEQNCONST = COMP(NIL,GVEQNCONST);
GVPIVOT = COMP(NIL,GVPIVOT); } }
else
PCPROPEC = FALSE;
Return: /* Prepare for return. */
return;
}
|
