OpenXM_contrib2/asir2000/parse/glob.c - diff

Return to glob.c CVS log

Up to [local] / OpenXM_contrib2 / asir2000 / parse

version 1.59, 2005/10/10 15:16:38

version 1.60, 2005/10/26 07:33:03

Line 45

* DEVELOPER SHALL HAVE NO LIABILITY IN CONNECTION WITH THE USE,

* PERFORMANCE OR NON-PERFORMANCE OF THE SOFTWARE.

* $OpenXM: OpenXM_contrib2/asir2000/parse/glob.c,v 1.58 2005/08/24 06:28:39 noro Exp $

* $OpenXM: OpenXM_contrib2/asir2000/parse/glob.c,v 1.59 2005/10/10 15:16:38 saito Exp $

#include "ca.h"

#include "al.h"

Line 126 struct oVL oVLIST[52];

VL CO = oVLIST;

VL ALG;

struct oVS oGPVS,oAPVS,oEPVS;

struct oVS oGPVS,oAPVS,oEPVS,oPPVS;

VS GPVS = &oGPVS;

VS APVS = &oAPVS;

VS EPVS = &oEPVS;

VS PPVS = &oPPVS;

VS CPVS,MPVS;

NODE MODULE_LIST;

Line 165 void glob_init() {

Line 166 void glob_init() {

VR(&oVLIST[i]) = &oVAR[i]; NEXT(&oVLIST[i]) = 0;

reallocarray((char **)&GPVS->va,(int *)&GPVS->asize,(int *)&GPVS->n,(int)sizeof(struct oPV));

reallocarray((char **)&APVS->va,(int *)&APVS->asize,(int *)&APVS->n,(int)sizeof(struct oPV));

reallocarray((char **)&PPVS->va,(int *)&PPVS->asize,(int *)&PPVS->n,(int)sizeof(struct oPV));

CPVS = GPVS;

MKNODE(ONENODE,mkfnode(1,I_FORMULA,ONE),0);

OID(F_TRUE)=O_F; FOP(F_TRUE)=AL_TRUE; F_TRUE->arg.dummy = 0;