version 1.25, 2001/09/10 05:55:14 |
version 1.26, 2001/09/11 01:30:31 |
|
|
* 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.24 2001/09/07 08:54:57 noro Exp $ |
* $OpenXM: OpenXM_contrib2/asir2000/builtin/gr.c,v 1.25 2001/09/10 05:55:14 noro Exp $ |
*/ |
*/ |
#include "ca.h" |
#include "ca.h" |
#include "parse.h" |
#include "parse.h" |
|
|
for ( m = BDY(f), len = 0; m; m = NEXT(m), len++ ); |
for ( m = BDY(f), len = 0; m; m = NEXT(m), len++ ); |
r = (CDP)MALLOC(sizeof(struct oCDP)); |
r = (CDP)MALLOC(sizeof(struct oCDP)); |
r->len = len; |
r->len = len; |
r->body = (CMP)MALLOC(sizeof(struct oCMP)*len); |
r->body = (CM)MALLOC(sizeof(struct oCM)*len); |
|
|
for ( m = BDY(f), i = j = 0; m; m = NEXT(m), j++ ) { |
for ( m = BDY(f), i = j = 0; m; m = NEXT(m), j++ ) { |
for ( ; !eqdl(nv,m->dl,at[i]); i++ ); |
for ( ; !eqdl(nv,m->dl,at[i]); i++ ); |
|
|
if ( a[i] ) nz++; |
if ( a[i] ) nz++; |
*rp = r = (CDP)MALLOC(sizeof(struct oCDP)); |
*rp = r = (CDP)MALLOC(sizeof(struct oCDP)); |
r->len = nz; |
r->len = nz; |
r->body = (CMP)MALLOC(sizeof(struct oCMP)*nz); |
r->body = (CM)MALLOC(sizeof(struct oCM)*nz); |
for ( i = 0, j = 0; i < n; i++ ) { |
for ( i = 0, j = 0; i < n; i++ ) { |
if ( a[i] ) { |
if ( a[i] ) { |
r->body[j].index = i; |
r->body[j].index = i; |