| version 1.37, 2001/10/09 01:36:06 |
version 1.40, 2001/11/19 01:40:04 |
|
|
| * DEVELOPER SHALL HAVE NO LIABILITY IN CONNECTION WITH THE USE, |
* DEVELOPER SHALL HAVE NO LIABILITY IN CONNECTION WITH THE USE, |
| * PERFORMANCE OR NON-PERFORMANCE OF THE SOFTWARE. |
* PERFORMANCE OR NON-PERFORMANCE OF THE SOFTWARE. |
| * |
* |
| * $OpenXM: OpenXM_contrib2/asir2000/builtin/gr.c,v 1.36 2001/10/01 01:58:02 noro Exp $ |
* $OpenXM: OpenXM_contrib2/asir2000/builtin/gr.c,v 1.39 2001/11/19 00:57:10 noro Exp $ |
| */ |
*/ |
| #include "ca.h" |
#include "ca.h" |
| #include "parse.h" |
#include "parse.h" |
| Line 1992 int gbcheck(NODE f) |
|
| Line 1992 int gbcheck(NODE f) |
|
| if ( DP_Print || DP_PrintShort ) |
if ( DP_Print || DP_PrintShort ) |
| fprintf(asir_out,"\n"); |
fprintf(asir_out,"\n"); |
| return 1; |
return 1; |
| |
} |
| |
|
| |
void gbcheck_list(NODE f,int n,VECT *gp,LIST *pp) |
| |
{ |
| |
int i; |
| |
NODE r,g,gall,u,u0,t; |
| |
VECT vect; |
| |
LIST pair; |
| |
DP_pairs d,l; |
| |
Q q1,q2; |
| |
|
| |
/* we need the following settings */ |
| |
NVars = CNVars = n; |
| |
setup_arrays(f,0,&r); |
| |
for ( gall = g = 0, d = 0; r; r = NEXT(r) ) { |
| |
i = (int)BDY(r); |
| |
d = updpairs(d,g,i); |
| |
g = updbase(g,i); |
| |
gall = append_one(gall,i); |
| |
} |
| |
NEWVECT(vect); vect->len = psn; vect->body = (pointer)ps; |
| |
*gp = vect; |
| |
|
| |
for ( u0 = 0, l = d; l; l = NEXT(l) ) { |
| |
NEXTNODE(u0,u); |
| |
STOQ(l->dp1,q1); |
| |
STOQ(l->dp2,q2); |
| |
t = mknode(2,q1,q2); |
| |
MKLIST(pair,t); |
| |
BDY(u) = (pointer)pair; |
| |
} |
| |
if ( u0 ) |
| |
NEXT(u) = 0; |
| |
MKLIST(*pp,u0); |
| } |
} |
| |
|
| int membercheck(NODE f,NODE x) |
int membercheck(NODE f,NODE x) |
![[BACK]](/icons/cvsweb/back.gif){kind=icon}
Return to gr.c CVS log ![[TXT]](/icons/cvsweb/text.gif){kind=icon}
![[DIR]](/icons/cvsweb/dir.gif){kind=icon}
Up to [local] / OpenXM_contrib2 / asir2000 / builtin