Newer
Older
List_Add(View->TL, &yyvsp[-7].d); List_Add(View->TL, &yyvsp[-1].d);
{ List_Add(View->ST, &yyvsp[0].d) ; ;
break;}
case 124:
{ List_Add(View->ST, &yyvsp[0].d) ; ;
break;}
case 125:
List_Add(View->ST, &yyvsp[-17].d); List_Add(View->ST, &yyvsp[-11].d);
List_Add(View->ST, &yyvsp[-5].d);
List_Add(View->ST, &yyvsp[-15].d); List_Add(View->ST, &yyvsp[-9].d);
List_Add(View->ST, &yyvsp[-3].d);
List_Add(View->ST, &yyvsp[-13].d); List_Add(View->ST, &yyvsp[-7].d);
List_Add(View->ST, &yyvsp[-1].d);
{ List_Add(View->VT, &yyvsp[0].d) ; ;
break;}
case 128:
{ List_Add(View->VT, &yyvsp[0].d) ; ;
break;}
case 129:
List_Add(View->VT, &yyvsp[-17].d); List_Add(View->VT, &yyvsp[-11].d);
List_Add(View->VT, &yyvsp[-5].d);
List_Add(View->VT, &yyvsp[-15].d); List_Add(View->VT, &yyvsp[-9].d);
List_Add(View->VT, &yyvsp[-3].d);
List_Add(View->VT, &yyvsp[-13].d); List_Add(View->VT, &yyvsp[-7].d);
List_Add(View->VT, &yyvsp[-1].d);
{ List_Add(View->TT, &yyvsp[0].d) ; ;
break;}
case 132:
{ List_Add(View->TT, &yyvsp[0].d) ; ;
break;}
case 133:
List_Add(View->TT, &yyvsp[-17].d); List_Add(View->TT, &yyvsp[-11].d);
List_Add(View->TT, &yyvsp[-5].d);
List_Add(View->TT, &yyvsp[-15].d); List_Add(View->TT, &yyvsp[-9].d);
List_Add(View->TT, &yyvsp[-3].d);
List_Add(View->TT, &yyvsp[-13].d); List_Add(View->TT, &yyvsp[-7].d);
List_Add(View->TT, &yyvsp[-1].d);
{ List_Add(View->SQ, &yyvsp[0].d) ; ;
break;}
case 136:
{ List_Add(View->SQ, &yyvsp[0].d) ; ;
break;}
case 137:

Christophe Geuzaine
committed
List_Add(View->SQ, &yyvsp[-23].d); List_Add(View->SQ, &yyvsp[-17].d);
List_Add(View->SQ, &yyvsp[-11].d); List_Add(View->SQ, &yyvsp[-5].d);
List_Add(View->SQ, &yyvsp[-21].d); List_Add(View->SQ, &yyvsp[-15].d);
List_Add(View->SQ, &yyvsp[-9].d); List_Add(View->SQ, &yyvsp[-3].d);
List_Add(View->SQ, &yyvsp[-19].d); List_Add(View->SQ, &yyvsp[-13].d);
List_Add(View->SQ, &yyvsp[-7].d); List_Add(View->SQ, &yyvsp[-1].d);

Christophe Geuzaine
committed
View->NbSQ++ ;
{ List_Add(View->VQ, &yyvsp[0].d) ; ;
break;}
case 140:
{ List_Add(View->VQ, &yyvsp[0].d) ; ;
break;}
case 141:

Christophe Geuzaine
committed
List_Add(View->VQ, &yyvsp[-23].d); List_Add(View->VQ, &yyvsp[-17].d);
List_Add(View->VQ, &yyvsp[-11].d); List_Add(View->VQ, &yyvsp[-5].d);
List_Add(View->VQ, &yyvsp[-21].d); List_Add(View->VQ, &yyvsp[-15].d);
List_Add(View->VQ, &yyvsp[-9].d); List_Add(View->VQ, &yyvsp[-3].d);
List_Add(View->VQ, &yyvsp[-19].d); List_Add(View->VQ, &yyvsp[-13].d);
List_Add(View->VQ, &yyvsp[-7].d); List_Add(View->VQ, &yyvsp[-1].d);

Christophe Geuzaine
committed
View->NbVQ++ ;
{ List_Add(View->TQ, &yyvsp[0].d) ; ;
break;}
case 144:
{ List_Add(View->TQ, &yyvsp[0].d) ; ;
break;}
case 145:

Christophe Geuzaine
committed
List_Add(View->TQ, &yyvsp[-23].d); List_Add(View->TQ, &yyvsp[-17].d);
List_Add(View->TQ, &yyvsp[-11].d); List_Add(View->TQ, &yyvsp[-5].d);
List_Add(View->TQ, &yyvsp[-21].d); List_Add(View->TQ, &yyvsp[-15].d);
List_Add(View->TQ, &yyvsp[-9].d); List_Add(View->TQ, &yyvsp[-3].d);
List_Add(View->TQ, &yyvsp[-19].d); List_Add(View->TQ, &yyvsp[-13].d);
List_Add(View->TQ, &yyvsp[-7].d); List_Add(View->TQ, &yyvsp[-1].d);

Christophe Geuzaine
committed
View->NbTQ++ ;
{ List_Add(View->SS, &yyvsp[0].d) ; ;
break;}
case 148:
{ List_Add(View->SS, &yyvsp[0].d) ; ;
break;}
case 149:
List_Add(View->SS, &yyvsp[-23].d); List_Add(View->SS, &yyvsp[-17].d);
List_Add(View->SS, &yyvsp[-11].d); List_Add(View->SS, &yyvsp[-5].d);
List_Add(View->SS, &yyvsp[-21].d); List_Add(View->SS, &yyvsp[-15].d);
List_Add(View->SS, &yyvsp[-9].d); List_Add(View->SS, &yyvsp[-3].d);
List_Add(View->SS, &yyvsp[-19].d); List_Add(View->SS, &yyvsp[-13].d);
List_Add(View->SS, &yyvsp[-7].d); List_Add(View->SS, &yyvsp[-1].d);
{ List_Add(View->VS, &yyvsp[0].d) ; ;
break;}
case 152:
{ List_Add(View->VS, &yyvsp[0].d) ; ;
break;}
case 153:
List_Add(View->VS, &yyvsp[-23].d); List_Add(View->VS, &yyvsp[-17].d);
List_Add(View->VS, &yyvsp[-11].d); List_Add(View->VS, &yyvsp[-5].d);
List_Add(View->VS, &yyvsp[-21].d); List_Add(View->VS, &yyvsp[-15].d);
List_Add(View->VS, &yyvsp[-9].d); List_Add(View->VS, &yyvsp[-3].d);
List_Add(View->VS, &yyvsp[-19].d); List_Add(View->VS, &yyvsp[-13].d);
List_Add(View->VS, &yyvsp[-7].d); List_Add(View->VS, &yyvsp[-1].d);
{ List_Add(View->TS, &yyvsp[0].d) ; ;
break;}
case 156:
{ List_Add(View->TS, &yyvsp[0].d) ; ;
break;}
case 157:
List_Add(View->TS, &yyvsp[-23].d); List_Add(View->TS, &yyvsp[-17].d);
List_Add(View->TS, &yyvsp[-11].d); List_Add(View->TS, &yyvsp[-5].d);
List_Add(View->TS, &yyvsp[-21].d); List_Add(View->TS, &yyvsp[-15].d);
List_Add(View->TS, &yyvsp[-9].d); List_Add(View->TS, &yyvsp[-3].d);
List_Add(View->TS, &yyvsp[-19].d); List_Add(View->TS, &yyvsp[-13].d);
List_Add(View->TS, &yyvsp[-7].d); List_Add(View->TS, &yyvsp[-1].d);

Christophe Geuzaine
committed
View->NbTS++ ;
{ List_Add(View->SH, &yyvsp[0].d) ; ;
break;}
case 160:
{ List_Add(View->SH, &yyvsp[0].d) ; ;
break;}
case 161:

Christophe Geuzaine
committed
List_Add(View->SH, &yyvsp[-47].d); List_Add(View->SH, &yyvsp[-41].d);
List_Add(View->SH, &yyvsp[-35].d); List_Add(View->SH, &yyvsp[-29].d);
List_Add(View->SH, &yyvsp[-23].d); List_Add(View->SH, &yyvsp[-17].d);
List_Add(View->SH, &yyvsp[-11].d); List_Add(View->SH, &yyvsp[-5].d);
List_Add(View->SH, &yyvsp[-45].d); List_Add(View->SH, &yyvsp[-39].d);
List_Add(View->SH, &yyvsp[-33].d); List_Add(View->SH, &yyvsp[-27].d);
List_Add(View->SH, &yyvsp[-21].d); List_Add(View->SH, &yyvsp[-15].d);
List_Add(View->SH, &yyvsp[-9].d); List_Add(View->SH, &yyvsp[-3].d);
List_Add(View->SH, &yyvsp[-43].d); List_Add(View->SH, &yyvsp[-37].d);
List_Add(View->SH, &yyvsp[-31].d); List_Add(View->SH, &yyvsp[-25].d);
List_Add(View->SH, &yyvsp[-19].d); List_Add(View->SH, &yyvsp[-13].d);
List_Add(View->SH, &yyvsp[-7].d); List_Add(View->SH, &yyvsp[-1].d);

Christophe Geuzaine
committed
View->NbSH++ ;
{ List_Add(View->VH, &yyvsp[0].d) ; ;
break;}
case 164:
{ List_Add(View->VH, &yyvsp[0].d) ; ;
break;}
case 165:

Christophe Geuzaine
committed
List_Add(View->VH, &yyvsp[-47].d); List_Add(View->VH, &yyvsp[-41].d);
List_Add(View->VH, &yyvsp[-35].d); List_Add(View->VH, &yyvsp[-29].d);
List_Add(View->VH, &yyvsp[-23].d); List_Add(View->VH, &yyvsp[-17].d);
List_Add(View->VH, &yyvsp[-11].d); List_Add(View->VH, &yyvsp[-5].d);
List_Add(View->VH, &yyvsp[-45].d); List_Add(View->VH, &yyvsp[-39].d);
List_Add(View->VH, &yyvsp[-33].d); List_Add(View->VH, &yyvsp[-27].d);
List_Add(View->VH, &yyvsp[-21].d); List_Add(View->VH, &yyvsp[-15].d);
List_Add(View->VH, &yyvsp[-9].d); List_Add(View->VH, &yyvsp[-3].d);
List_Add(View->VH, &yyvsp[-43].d); List_Add(View->VH, &yyvsp[-37].d);
List_Add(View->VH, &yyvsp[-31].d); List_Add(View->VH, &yyvsp[-25].d);
List_Add(View->VH, &yyvsp[-19].d); List_Add(View->VH, &yyvsp[-13].d);
List_Add(View->VH, &yyvsp[-7].d); List_Add(View->VH, &yyvsp[-1].d);

Christophe Geuzaine
committed
View->NbVH++ ;
{ List_Add(View->TH, &yyvsp[0].d) ; ;
break;}
case 168:
{ List_Add(View->TH, &yyvsp[0].d) ; ;
break;}
case 169:

Christophe Geuzaine
committed
List_Add(View->TH, &yyvsp[-47].d); List_Add(View->TH, &yyvsp[-41].d);
List_Add(View->TH, &yyvsp[-35].d); List_Add(View->TH, &yyvsp[-29].d);
List_Add(View->TH, &yyvsp[-23].d); List_Add(View->TH, &yyvsp[-17].d);
List_Add(View->TH, &yyvsp[-11].d); List_Add(View->TH, &yyvsp[-5].d);
List_Add(View->TH, &yyvsp[-45].d); List_Add(View->TH, &yyvsp[-39].d);
List_Add(View->TH, &yyvsp[-33].d); List_Add(View->TH, &yyvsp[-27].d);
List_Add(View->TH, &yyvsp[-21].d); List_Add(View->TH, &yyvsp[-15].d);
List_Add(View->TH, &yyvsp[-9].d); List_Add(View->TH, &yyvsp[-3].d);
List_Add(View->TH, &yyvsp[-43].d); List_Add(View->TH, &yyvsp[-37].d);
List_Add(View->TH, &yyvsp[-31].d); List_Add(View->TH, &yyvsp[-25].d);
List_Add(View->TH, &yyvsp[-19].d); List_Add(View->TH, &yyvsp[-13].d);
List_Add(View->TH, &yyvsp[-7].d); List_Add(View->TH, &yyvsp[-1].d);

Christophe Geuzaine
committed
View->NbTH++ ;
{ List_Add(View->SI, &yyvsp[0].d) ; ;
break;}
case 172:
{ List_Add(View->SI, &yyvsp[0].d) ; ;
break;}
case 173:

Christophe Geuzaine
committed
List_Add(View->SI, &yyvsp[-35].d); List_Add(View->SI, &yyvsp[-29].d);
List_Add(View->SI, &yyvsp[-23].d); List_Add(View->SI, &yyvsp[-17].d);
List_Add(View->SI, &yyvsp[-11].d); List_Add(View->SI, &yyvsp[-5].d);
List_Add(View->SI, &yyvsp[-33].d); List_Add(View->SI, &yyvsp[-27].d);
List_Add(View->SI, &yyvsp[-21].d); List_Add(View->SI, &yyvsp[-15].d);
List_Add(View->SI, &yyvsp[-9].d); List_Add(View->SI, &yyvsp[-3].d);
List_Add(View->SI, &yyvsp[-31].d); List_Add(View->SI, &yyvsp[-25].d);
List_Add(View->SI, &yyvsp[-19].d); List_Add(View->SI, &yyvsp[-13].d);
List_Add(View->SI, &yyvsp[-7].d); List_Add(View->SI, &yyvsp[-1].d);

Christophe Geuzaine
committed
View->NbSI++ ;
{ List_Add(View->VI, &yyvsp[0].d) ; ;
break;}
case 176:
{ List_Add(View->VI, &yyvsp[0].d) ; ;
break;}
case 177:

Christophe Geuzaine
committed
List_Add(View->VI, &yyvsp[-35].d); List_Add(View->VI, &yyvsp[-29].d);
List_Add(View->VI, &yyvsp[-23].d); List_Add(View->VI, &yyvsp[-17].d);
List_Add(View->VI, &yyvsp[-11].d); List_Add(View->VI, &yyvsp[-5].d);
List_Add(View->VI, &yyvsp[-33].d); List_Add(View->VI, &yyvsp[-27].d);
List_Add(View->VI, &yyvsp[-21].d); List_Add(View->VI, &yyvsp[-15].d);
List_Add(View->VI, &yyvsp[-9].d); List_Add(View->VI, &yyvsp[-3].d);
List_Add(View->VI, &yyvsp[-31].d); List_Add(View->VI, &yyvsp[-25].d);
List_Add(View->VI, &yyvsp[-19].d); List_Add(View->VI, &yyvsp[-13].d);
List_Add(View->VI, &yyvsp[-7].d); List_Add(View->VI, &yyvsp[-1].d);

Christophe Geuzaine
committed
View->NbVI++ ;
{ List_Add(View->TI, &yyvsp[0].d) ; ;
break;}
case 180:
{ List_Add(View->TI, &yyvsp[0].d) ; ;
break;}
case 181:

Christophe Geuzaine
committed
List_Add(View->TI, &yyvsp[-35].d); List_Add(View->TI, &yyvsp[-29].d);
List_Add(View->TI, &yyvsp[-23].d); List_Add(View->TI, &yyvsp[-17].d);
List_Add(View->TI, &yyvsp[-11].d); List_Add(View->TI, &yyvsp[-5].d);
List_Add(View->TI, &yyvsp[-33].d); List_Add(View->TI, &yyvsp[-27].d);
List_Add(View->TI, &yyvsp[-21].d); List_Add(View->TI, &yyvsp[-15].d);
List_Add(View->TI, &yyvsp[-9].d); List_Add(View->TI, &yyvsp[-3].d);
List_Add(View->TI, &yyvsp[-31].d); List_Add(View->TI, &yyvsp[-25].d);
List_Add(View->TI, &yyvsp[-19].d); List_Add(View->TI, &yyvsp[-13].d);
List_Add(View->TI, &yyvsp[-7].d); List_Add(View->TI, &yyvsp[-1].d);

Christophe Geuzaine
committed
View->NbTI++ ;
{ List_Add(View->SY, &yyvsp[0].d) ; ;
break;}
case 184:
{ List_Add(View->SY, &yyvsp[0].d) ; ;
break;}
case 185:

Christophe Geuzaine
committed
List_Add(View->SY, &yyvsp[-29].d); List_Add(View->SY, &yyvsp[-23].d);
List_Add(View->SY, &yyvsp[-17].d); List_Add(View->SY, &yyvsp[-11].d);
List_Add(View->SY, &yyvsp[-5].d);
List_Add(View->SY, &yyvsp[-27].d); List_Add(View->SY, &yyvsp[-21].d);
List_Add(View->SY, &yyvsp[-15].d); List_Add(View->SY, &yyvsp[-9].d);
List_Add(View->SY, &yyvsp[-3].d);
List_Add(View->SY, &yyvsp[-25].d); List_Add(View->SY, &yyvsp[-19].d);
List_Add(View->SY, &yyvsp[-13].d); List_Add(View->SY, &yyvsp[-7].d);
List_Add(View->SY, &yyvsp[-1].d);

Christophe Geuzaine
committed
View->NbSY++ ;
{ List_Add(View->VY, &yyvsp[0].d) ; ;
break;}
case 188:
{ List_Add(View->VY, &yyvsp[0].d) ; ;
break;}
case 189:

Christophe Geuzaine
committed
List_Add(View->VY, &yyvsp[-29].d); List_Add(View->VY, &yyvsp[-23].d);
List_Add(View->VY, &yyvsp[-17].d); List_Add(View->VY, &yyvsp[-11].d);
List_Add(View->VY, &yyvsp[-5].d);
List_Add(View->VY, &yyvsp[-27].d); List_Add(View->VY, &yyvsp[-21].d);
List_Add(View->VY, &yyvsp[-15].d); List_Add(View->VY, &yyvsp[-9].d);
List_Add(View->VY, &yyvsp[-3].d);
List_Add(View->VY, &yyvsp[-25].d); List_Add(View->VY, &yyvsp[-19].d);
List_Add(View->VY, &yyvsp[-13].d); List_Add(View->VY, &yyvsp[-7].d);
List_Add(View->VY, &yyvsp[-1].d);

Christophe Geuzaine
committed
View->NbVY++ ;
{ List_Add(View->TY, &yyvsp[0].d) ; ;
break;}
case 192:
{ List_Add(View->TY, &yyvsp[0].d) ; ;
break;}
case 193:

Christophe Geuzaine
committed
List_Add(View->TY, &yyvsp[-29].d); List_Add(View->TY, &yyvsp[-23].d);
List_Add(View->TY, &yyvsp[-17].d); List_Add(View->TY, &yyvsp[-11].d);
List_Add(View->TY, &yyvsp[-5].d);
List_Add(View->TY, &yyvsp[-27].d); List_Add(View->TY, &yyvsp[-21].d);
List_Add(View->TY, &yyvsp[-15].d); List_Add(View->TY, &yyvsp[-9].d);
List_Add(View->TY, &yyvsp[-3].d);
List_Add(View->TY, &yyvsp[-25].d); List_Add(View->TY, &yyvsp[-19].d);
List_Add(View->TY, &yyvsp[-13].d); List_Add(View->TY, &yyvsp[-7].d);
List_Add(View->TY, &yyvsp[-1].d);

Christophe Geuzaine
committed
View->NbTY++ ;
for(i = 0; i < (int)strlen(yyvsp[0].c)+1; i++) List_Add(View->T2C, &yyvsp[0].c[i]) ;
for(i = 0; i < (int)strlen(yyvsp[0].c)+1; i++) List_Add(View->T2C, &yyvsp[0].c[i]) ;
List_Add(View->T2D, &yyvsp[-5].d); List_Add(View->T2D, &yyvsp[-3].d);
List_Add(View->T2D, &yyvsp[-1].d);
d = List_Nbr(View->T2C);
List_Add(View->T2D, &d);
for(i = 0; i < (int)strlen(yyvsp[0].c)+1; i++) List_Add(View->T3C, &yyvsp[0].c[i]) ;
for(i = 0; i < (int)strlen(yyvsp[0].c)+1; i++) List_Add(View->T3C, &yyvsp[0].c[i]) ;
List_Add(View->T3D, &yyvsp[-7].d); List_Add(View->T3D, &yyvsp[-5].d);
List_Add(View->T3D, &yyvsp[-3].d); List_Add(View->T3D, &yyvsp[-1].d);
d = List_Nbr(View->T3C);
List_Add(View->T3D, &d);
TheSymbol.Name = yyvsp[-3].c;
if(!(pSymbol = (Symbol*)Tree_PQuery(Symbol_T, &TheSymbol))){
TheSymbol.val = List_Create(1, 1, sizeof(double));

Christophe Geuzaine
committed
if(!yyvsp[-2].i){
List_Put(TheSymbol.val, 0, &yyvsp[-1].d);

Christophe Geuzaine
committed
}
else

Christophe Geuzaine
committed
yymsg(GERROR, "Unknown variable '%s'", yyvsp[-3].c) ;

Christophe Geuzaine
committed
pd = (double*)List_Pointer_Fast(pSymbol->val, 0) ;
switch(yyvsp[-2].i){
case 0 : *pd = yyvsp[-1].d; break ;
case 1 : *pd += yyvsp[-1].d ; break ;
case 2 : *pd -= yyvsp[-1].d ; break ;
case 3 : *pd *= yyvsp[-1].d ; break ;
case 4 :
if(yyvsp[-1].d) *pd /= yyvsp[-1].d ;

Christophe Geuzaine
committed
else yymsg(GERROR, "Division by zero in '%s /= %g'", yyvsp[-3].c, yyvsp[-1].d);

Christophe Geuzaine
committed
break;
}
if(!(pSymbol = (Symbol*)Tree_PQuery(Symbol_T, &TheSymbol))){
TheSymbol.val = List_Create(5, 5, sizeof(double));

Christophe Geuzaine
committed
if(!yyvsp[-2].i){
List_Put(TheSymbol.val, (int)yyvsp[-4].d, &yyvsp[-1].d);

Christophe Geuzaine
committed
}
else

Christophe Geuzaine
committed
yymsg(GERROR, "Unknown variable '%s'", yyvsp[-6].c) ;

Christophe Geuzaine
committed
if((pd = (double*)List_Pointer_Test(pSymbol->val, (int)yyvsp[-4].d))){
switch(yyvsp[-2].i){
case 0 : *pd = yyvsp[-1].d; break ;
case 1 : *pd += yyvsp[-1].d ; break ;
case 2 : *pd -= yyvsp[-1].d ; break ;
case 3 : *pd *= yyvsp[-1].d ; break ;
case 4 :
if(yyvsp[-1].d) *pd /= yyvsp[-1].d ;

Christophe Geuzaine
committed
else yymsg(GERROR, "Division by zero in '%s[%d] /= %g'", yyvsp[-6].c, (int)yyvsp[-4].d, yyvsp[-1].d);

Christophe Geuzaine
committed
break;
}
}
else{
if(!yyvsp[-2].i)
List_Put(pSymbol->val, (int)yyvsp[-4].d, &yyvsp[-1].d);
else

Christophe Geuzaine
committed
yymsg(GERROR, "Uninitialized variable '%s[%d]'", yyvsp[-6].c, (int)yyvsp[-4].d) ;

Christophe Geuzaine
committed
}
if(List_Nbr(yyvsp[-5].l) != List_Nbr(yyvsp[-1].l))

Christophe Geuzaine
committed
yymsg(GERROR, "Incompatible array dimensions in affectation");
else{
TheSymbol.Name = yyvsp[-8].c;
if(!(pSymbol = (Symbol*)Tree_PQuery(Symbol_T, &TheSymbol))){
TheSymbol.val = List_Create(5, 5, sizeof(double));
for(i = 0; i < List_Nbr(yyvsp[-5].l); i++){
List_Put(TheSymbol.val, (int)(*(double*)List_Pointer(yyvsp[-5].l, i)),
(double*)List_Pointer(yyvsp[-1].l, i));

Christophe Geuzaine
committed
yymsg(GERROR, "Unknown variable '%s'", yyvsp[-8].c) ;
for(i = 0; i < List_Nbr(yyvsp[-5].l); i++){
j = (int)(*(double*)List_Pointer(yyvsp[-5].l, i)) ;
d = *(double*)List_Pointer(yyvsp[-1].l, i) ;
if((pd = (double*)List_Pointer_Test(pSymbol->val, j))){
switch(yyvsp[-2].i){
case 0 : *pd = d; break ;
case 1 : *pd += d ; break ;
case 2 : *pd -= d ; break ;
case 3 : *pd *= d ; break ;
case 4 :
if(yyvsp[-1].l) *pd /= d ;

Christophe Geuzaine
committed
else yymsg(GERROR, "Division by zero in '%s[%d] /= %g'", yyvsp[-8].c, j, d);
break;
}
}
else{
if(!yyvsp[-2].i)
List_Put(pSymbol->val, j, &d);
else

Christophe Geuzaine
committed
yymsg(GERROR, "Uninitialized variable '%s[%d]'", yyvsp[-8].c, j) ;
}
}
}
}
List_Delete(yyvsp[-5].l);
List_Delete(yyvsp[-1].l);
TheSymbol.Name = yyvsp[-5].c;
if(!(pSymbol = (Symbol*)Tree_PQuery(Symbol_T, &TheSymbol))){
TheSymbol.val = List_Create(5, 5, sizeof(double));
List_Copy(yyvsp[-1].l, TheSymbol.val);
}
else{
List_Reset(pSymbol->val);
List_Copy(yyvsp[-1].l, pSymbol->val);
}

Christophe Geuzaine
committed
TheSymbol.Name = yyvsp[-2].c;

Christophe Geuzaine
committed
yymsg(GERROR, "Unknown variable '%s'", yyvsp[-2].c) ;

Christophe Geuzaine
committed
*(double*)List_Pointer_Fast(pSymbol->val, 0) += yyvsp[-1].i;

Christophe Geuzaine
committed
yymsg(GERROR, "Unknown variable '%s'", yyvsp[-5].c) ;
else{
if((pd = (double*)List_Pointer_Test(pSymbol->val, (int)yyvsp[-3].d)))

Christophe Geuzaine
committed
*pd += yyvsp[-1].i ;

Christophe Geuzaine
committed
yymsg(GERROR, "Uninitialized variable '%s[%d]'", yyvsp[-5].c, (int)yyvsp[-3].d) ;

Christophe Geuzaine
committed
if(!(pStrCat = Get_StringOptionCategory(yyvsp[-5].c)))

Christophe Geuzaine
committed
yymsg(GERROR, "Unknown string option class '%s'", yyvsp[-5].c);

Christophe Geuzaine
committed
if(!(pStrOpt = (char *(*) (int, int, char *))Get_StringOption(yyvsp[-3].c, pStrCat)))

Christophe Geuzaine
committed
yymsg(GERROR, "Unknown string option '%s.%s'", yyvsp[-5].c, yyvsp[-3].c);

Christophe Geuzaine
committed
if(!(pStrCat = Get_StringOptionCategory(yyvsp[-8].c)))

Christophe Geuzaine
committed
yymsg(GERROR, "Unknown string option class '%s'", yyvsp[-8].c);

Christophe Geuzaine
committed
if(!(pStrOpt = (char *(*) (int, int, char *))Get_StringOption(yyvsp[-3].c, pStrCat)))

Christophe Geuzaine
committed
yymsg(GERROR, "Unknown string option '%s[%d].%s'", yyvsp[-8].c, (int)yyvsp[-6].d, yyvsp[-3].c);

Christophe Geuzaine
committed
if(!(pNumCat = Get_NumberOptionCategory(yyvsp[-5].c)))

Christophe Geuzaine
committed
yymsg(GERROR, "Unknown numeric option class '%s'", yyvsp[-5].c);

Christophe Geuzaine
committed
if(!(pNumOpt = (double (*) (int, int, double))Get_NumberOption(yyvsp[-3].c, pNumCat)))

Christophe Geuzaine
committed
yymsg(GERROR, "Unknown numeric option '%s.%s'", yyvsp[-5].c, yyvsp[-3].c);

Christophe Geuzaine
committed
switch(yyvsp[-2].i){
case 0 : d = yyvsp[-1].d ; break ;
case 1 : d = pNumOpt(0, GMSH_GET, 0) + yyvsp[-1].d ; break ;
case 2 : d = pNumOpt(0, GMSH_GET, 0) - yyvsp[-1].d ; break ;
case 3 : d = pNumOpt(0, GMSH_GET, 0) * yyvsp[-1].d ; break ;

Christophe Geuzaine
committed
case 4 :

Christophe Geuzaine
committed
else yymsg(GERROR, "Division by zero in '%s.%s /= %g'", yyvsp[-5].c, yyvsp[-3].c, yyvsp[-1].d);

Christophe Geuzaine
committed
break;
}

Christophe Geuzaine
committed
if(!(pNumCat = Get_NumberOptionCategory(yyvsp[-8].c)))

Christophe Geuzaine
committed
yymsg(GERROR, "Unknown numeric option class '%s'", yyvsp[-8].c);

Christophe Geuzaine
committed
if(!(pNumOpt = (double (*) (int, int, double))Get_NumberOption(yyvsp[-3].c, pNumCat)))

Christophe Geuzaine
committed
yymsg(GERROR, "Unknown numeric option '%s[%d].%s'", yyvsp[-8].c, (int)yyvsp[-6].d, yyvsp[-3].c);

Christophe Geuzaine
committed
switch(yyvsp[-2].i){
case 0 : d = yyvsp[-1].d; break ;
case 1 : d = pNumOpt((int)yyvsp[-6].d, GMSH_GET, 0) + yyvsp[-1].d ; break ;
case 2 : d = pNumOpt((int)yyvsp[-6].d, GMSH_GET, 0) - yyvsp[-1].d ; break ;
case 3 : d = pNumOpt((int)yyvsp[-6].d, GMSH_GET, 0) * yyvsp[-1].d ; break ;

Christophe Geuzaine
committed
case 4 :
if(yyvsp[-1].d) d = pNumOpt((int)yyvsp[-6].d, GMSH_GET, 0) / yyvsp[-1].d ;

Christophe Geuzaine
committed
else yymsg(GERROR, "Division by zero in '%s[%d].%s /= %g'",
yyvsp[-8].c, (int)yyvsp[-6].d, yyvsp[-3].c, yyvsp[-1].d);

Christophe Geuzaine
committed
break;
}

Christophe Geuzaine
committed
if(!(pNumCat = Get_NumberOptionCategory(yyvsp[-4].c)))

Christophe Geuzaine
committed
yymsg(GERROR, "Unknown numeric option class '%s'", yyvsp[-4].c);

Christophe Geuzaine
committed
if(!(pNumOpt = (double (*) (int, int, double))Get_NumberOption(yyvsp[-2].c, pNumCat)))

Christophe Geuzaine
committed
yymsg(GERROR, "Unknown numeric option '%s.%s'", yyvsp[-4].c, yyvsp[-2].c);

Christophe Geuzaine
committed
else
pNumOpt(0, GMSH_SET|GMSH_GUI, pNumOpt(0, GMSH_GET, 0)+yyvsp[-1].i) ;

Christophe Geuzaine
committed
if(!(pNumCat = Get_NumberOptionCategory(yyvsp[-7].c)))

Christophe Geuzaine
committed
yymsg(GERROR, "Unknown numeric option class '%s'", yyvsp[-7].c);

Christophe Geuzaine
committed
if(!(pNumOpt = (double (*) (int, int, double))Get_NumberOption(yyvsp[-2].c, pNumCat)))

Christophe Geuzaine
committed
yymsg(GERROR, "Unknown numeric option '%s[%d].%s'", yyvsp[-7].c, (int)yyvsp[-5].d, yyvsp[-2].c);

Christophe Geuzaine
committed
else
pNumOpt((int)yyvsp[-5].d, GMSH_SET|GMSH_GUI, pNumOpt((int)yyvsp[-5].d, GMSH_GET, 0)+yyvsp[-1].i) ;

Christophe Geuzaine
committed
if(!(pColCat = Get_ColorOptionCategory(yyvsp[-7].c)))

Christophe Geuzaine
committed
yymsg(GERROR, "Unknown color option class '%s'", yyvsp[-7].c);

Christophe Geuzaine
committed
if(!(pColOpt = (unsigned int (*) (int, int, unsigned int))Get_ColorOption(yyvsp[-3].c, pColCat)))

Christophe Geuzaine
committed
yymsg(GERROR, "Unknown color option '%s.Color.%s'", yyvsp[-7].c, yyvsp[-3].c);

Christophe Geuzaine
committed
else

Christophe Geuzaine
committed
if(!(pColCat = Get_ColorOptionCategory(yyvsp[-10].c)))

Christophe Geuzaine
committed
yymsg(GERROR, "Unknown color option class '%s'", yyvsp[-10].c);

Christophe Geuzaine
committed
if(!(pColOpt = (unsigned int (*) (int, int, unsigned int))Get_ColorOption(yyvsp[-3].c, pColCat)))

Christophe Geuzaine
committed
yymsg(GERROR, "Unknown color option '%s[%d].Color.%s'", yyvsp[-10].c, (int)yyvsp[-8].d, yyvsp[-3].c);

Christophe Geuzaine
committed
else
}
GmshColorTable *ct = Get_ColorTable(0);

Christophe Geuzaine
committed
yymsg(GERROR, "View[%d] does not exist", 0);
else{
ct->size = List_Nbr(yyvsp[-1].l);
if(ct->size > COLORTABLE_NBMAX_COLOR)

Christophe Geuzaine
committed
yymsg(GERROR, "Too many (%d>%d) colors in View[%d].ColorTable",
ct->size, COLORTABLE_NBMAX_COLOR, 0);
for(i = 0; i < ct->size; i++) List_Read(yyvsp[-1].l, i, &ct->table[i]);
if(ct->size == 1){
ct->size = 2;
ct->table[1] = ct->table[0];
}
GmshColorTable *ct = Get_ColorTable((int)yyvsp[-6].d);

Christophe Geuzaine
committed
if(!ct)

Christophe Geuzaine
committed
yymsg(GERROR, "View[%d] does not exist", (int)yyvsp[-6].d);

Christophe Geuzaine
committed
ct->size = List_Nbr(yyvsp[-1].l);
if(ct->size > COLORTABLE_NBMAX_COLOR)

Christophe Geuzaine
committed
yymsg(GERROR, "Too many (%d>%d) colors in View[%d].ColorTable",

Christophe Geuzaine
committed
ct->size, COLORTABLE_NBMAX_COLOR, (int)yyvsp[-6].d);
else
for(i = 0; i < ct->size; i++) List_Read(yyvsp[-1].l, i, &ct->table[i]);
if(ct->size == 1){
ct->size = 2;
ct->table[1] = ct->table[0];
}
}
try {
GMSH_PluginManager::instance()->setPluginOption(yyvsp[-6].c, yyvsp[-3].c, yyvsp[-1].d);
}
catch (...) {
yymsg(WARNING, "Unknown option '%s' or plugin '%s'", yyvsp[-3].c, yyvsp[-6].c);
try {
GMSH_PluginManager::instance()->setPluginOption(yyvsp[-6].c, yyvsp[-3].c, yyvsp[-1].c);
}
catch (...) {
yymsg(WARNING, "Unknown option '%s' or plugin '%s'", yyvsp[-3].c, yyvsp[-6].c);
Cdbpts101((int)yyvsp[-4].d, yyvsp[-1].v[0], yyvsp[-1].v[1], yyvsp[-1].v[2], yyvsp[-1].v[3], yyvsp[-1].v[4]);

Christophe Geuzaine
committed
yyval.s.Type = MSH_POINT;
yyval.s.Num = (int)yyvsp[-4].d;
Cdbz101((int)yyvsp[-4].d, MSH_PHYSICAL_POINT, 0, 0, 0, 0, 0, NULL, yyvsp[-1].l, NULL);
yyval.s.Type = MSH_PHYSICAL_POINT;
yyval.s.Num = (int)yyvsp[-4].d;
Vertex *v;
Attractor *a;
double p;
int ip;
for(int i = 0; i < List_Nbr(yyvsp[-9].l); i++){
List_Read(yyvsp[-9].l, i, &p);

Christophe Geuzaine
committed
yymsg(WARNING, "Unknown Point %d", ip);
else{
a = Create_Attractor(List_Nbr(THEM->Metric->Attractors)+1,
yyvsp[-6].d, yyvsp[-4].d, yyvsp[-2].d, v, NULL, NULL);
List_Add(THEM->Metric->Attractors, &a);
for(i = 0; i < List_Nbr(yyvsp[-3].l); i++){
List_Read(yyvsp[-3].l, i, &d);
Vertex *v = FindPoint((int)d, THEM);

Christophe Geuzaine
committed
yymsg(WARNING, "Unknown Point %d", (int)d);
else
v->lc = yyvsp[-1].d;
}
Cdbseg101((int)yyvsp[-4].d, MSH_SEGM_LINE, 1, yyvsp[-1].l, NULL, -1, -1, 0., 1., NULL, NULL, NULL);
yyval.s.Type = MSH_SEGM_LINE;
yyval.s.Num = (int)yyvsp[-4].d;
Cdbseg101((int)yyvsp[-4].d, MSH_SEGM_SPLN, 3, yyvsp[-1].l, NULL, -1, -1, 0., 1., NULL, NULL, NULL);
yyval.s.Type = MSH_SEGM_SPLN;
yyval.s.Num = (int)yyvsp[-4].d;
Curve *c;
Attractor *a;
double p;
int ip;
for(int i = 0; i < List_Nbr(yyvsp[-9].l); i++){
List_Read(yyvsp[-9].l, i, &p);