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
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
|
/*======================================================================
IPLLDWR(V,A)
Integral Polynomial, List of Lists, Distributed Write.
\Input
\parm{V} is a non-null list of $r$ variables.
\parm{A} is a list $A_1,\ldots,A_r)$ where each $A_i$ is a list of
$i$--variate integral polynomials.
======================================================================*/
#include "qepcad.h"
void IPLLDWR(Word V, Word A)
{
Word A1,A11,i,P,H;
/* hide i,j,n,r; */
Step1: /* Write. */
i = 0;
while (A != NIL)
{
ADV(A,&A1,&A); i = i + 1;
while (A1 != NIL)
{
ADV(A1,&A11,&A1);
PLABELWR(A11);
TAB(7);
SWRITE("= ");
H = LELTI(A11,PO_PARENT);
PARENTWR(H);
if (LELTI(A11,PO_STATUS) == PO_REMOVE)
SWRITE(" *** Removed *** ");
if (LELTI(A11,PO_TYPE) == PO_ECON)
SWRITE(" *** Equational Constraint *** ");
P = LELTI(A11,PO_POLY);
SWRITE("\n");
TAB(7);
SWRITE("= ");
if (LELTI(A11,PO_TYPE) == PO_POINT) {
SAMPLEWR(i,FIRST(P),4);
}
else {
IPDWRITE(i,P,V); SWRITE("\n");
}
SWRITE("\n");
}
if (A != NIL)
SWRITE("\n");
}
Return: /* Prepare for return. */
return;
}
|
