Newer
Older
{ yyval.l = yyvsp[0].l; ;
break;}
{ yyval.l = yyvsp[0].l; ;
break;}
{ yyval.l = yyvsp[0].l; ;
break;}
{
yyval.l = List_Create(3,3,sizeof(Shape));
;
break;}
{
List_Add(yyval.l,&yyvsp[0].s);
yyval.l = yyvsp[-1].l;
;
break;}
{
yyval.l = List_Create(3,3,sizeof(Shape));
for(i=0;i<List_Nbr(yyvsp[-1].l);i++){
List_Read (yyvsp[-1].l,i,&TheShape);
CopyShape(TheShape.Type,TheShape.Num,&j);
TheShape.Num = j;
List_Add(yyval.l,&TheShape);
}
;
break;}
{
for(i=0;i<List_Nbr(yyvsp[-1].l);i++){
List_Read (yyvsp[-1].l,i,&TheShape);
DeleteShape(TheShape.Type,TheShape.Num);
}
;
break;}
{
yyinTab[RecursionLevel++] = yyin;
strcpy(tmpstring, ThePathForIncludes);
if((yyin = fopen(strcat(tmpstring,yyvsp[-1].c),"r"))){
strcpy(yynameTab[RecursionLevel-1],yyname);
yylinenoTab[RecursionLevel-1]=yylineno;
yylineno=1;
strcpy(yyname,yyvsp[-1].c);
while(!feof(yyin)){
yyparse();
}
fclose(yyin);
yyin = yyinTab[--RecursionLevel];
strcpy(yyname,yynameTab[RecursionLevel]);
yylineno = yylinenoTab[RecursionLevel];
}
else{
vyyerror("Unknown File '%s'", yyvsp[-1].c) ;
yyin = yyinTab[--RecursionLevel];
}
;
break;}
{
Curve *pc, *prc;
Extrude_ProtudePoint(1,(int)yyvsp[-4].d,yyvsp[-2].v[0],yyvsp[-2].v[1],yyvsp[-2].v[2],0.,0.,0.,0.,&pc,&prc,NULL);
;
break;}
{
Curve *pc, *prc;
Extrude_ProtudePoint(0,(int)yyvsp[-8].d,yyvsp[-6].v[0],yyvsp[-6].v[1],yyvsp[-6].v[2],yyvsp[-4].v[0],yyvsp[-4].v[1],yyvsp[-4].v[2],yyvsp[-2].d,
&pc,&prc,NULL);
;
break;}
{
Extrude_ProtudeCurve(1,(int)yyvsp[-4].d,yyvsp[-2].v[0],yyvsp[-2].v[1],yyvsp[-2].v[2],0.,0.,0.,0.,NULL);
;
break;}
{
Extrude_ProtudeCurve(0,(int)yyvsp[-8].d,yyvsp[-6].v[0],yyvsp[-6].v[1],yyvsp[-6].v[2],yyvsp[-4].v[0],yyvsp[-4].v[1],yyvsp[-4].v[2],yyvsp[-2].d,NULL);
;
break;}
{
Extrude_ProtudeSurface(1,(int)yyvsp[-4].d,yyvsp[-2].v[0],yyvsp[-2].v[1],yyvsp[-2].v[2],0.,0.,0.,0.,0,NULL);
;
break;}
{
Extrude_ProtudeSurface(0,(int)yyvsp[-8].d,yyvsp[-6].v[0],yyvsp[-6].v[1],yyvsp[-6].v[2],yyvsp[-4].v[0],yyvsp[-4].v[1],yyvsp[-4].v[2],yyvsp[-2].d,0,NULL);
;
break;}
{
int vol = NEWREG();
Extrude_ProtudeSurface(1,(int)yyvsp[-7].d,yyvsp[-5].v[0],yyvsp[-5].v[1],yyvsp[-5].v[2],0.,0.,0.,0.,vol,&extr);
;
break;}
{
int vol = NEWREG();
Extrude_ProtudeSurface(0,(int)yyvsp[-11].d,yyvsp[-9].v[0],yyvsp[-9].v[1],yyvsp[-9].v[2],yyvsp[-7].v[0],yyvsp[-7].v[1],yyvsp[-7].v[2],yyvsp[-5].d,vol,&extr);
;
break;}
{
;
break;}
{
;
break;}
{
double d;
int j;
extr.mesh.NbLayer = List_Nbr(yyvsp[-6].l);
extr.mesh.ExtrudeMesh = true;
for(int i=0;i<List_Nbr(yyvsp[-6].l);i++){
List_Read(yyvsp[-6].l,i,&d);
j = (int)d;
extr.mesh.NbElmLayer[i] = j;
List_Read(yyvsp[-4].l,i,&d);
j = (int)d;
extr.mesh.ZonLayer[i] = j;
List_Read(yyvsp[-2].l,i,&d);
extr.mesh.hLayer[i] = d;
}
;
break;}
{
extr.mesh.Recombine = true;
;
break;}
{
Curve *c;
for(i=0;i<List_Nbr(yyvsp[-3].l);i++){
List_Read(yyvsp[-3].l,i,&d);
j = (int)fabs(d);
c = FindCurve(j,THEM);
if(!c)
vyyerror("Unkown Curve %d", j);
else{
c->Method = TRANSFINI;
c->ipar[0] = (int)yyvsp[-1].d;
c->ipar[1] = sign(d);
c->dpar[0] = 1.0;
}
}
;
break;}
{
Curve *c;
for(i=0;i<List_Nbr(yyvsp[-6].l);i++){
List_Read(yyvsp[-6].l,i,&d);
j = (int)fabs(d);
c = FindCurve(j,THEM);
if(!c)
vyyerror("Unkown Curve %d", j);
else{
c->Method = TRANSFINI;
c->ipar[0] = (int)yyvsp[-4].d;
c->ipar[1] = sign(d); /* Progresion : code 1 ou -1 */
c->dpar[0] = fabs(yyvsp[-1].d);
}
}
;
break;}
{
Curve *c;
for(i=0;i<List_Nbr(yyvsp[-6].l);i++){
List_Read(yyvsp[-6].l,i,&d);
j = (int)fabs(d);
c = FindCurve(j,THEM);
if(!c)
vyyerror("Unkown Curve %d", j);
else{
c->Method = TRANSFINI;
c->ipar[0] = (int)yyvsp[-4].d;
c->ipar[1] = 2*sign(d); /* Bump : code 2 ou -2 */
}
}
;
break;}
{
Surface *s = FindSurface((int)yyvsp[-4].d,THEM);
if(!s)
vyyerror("Unkown Surface %d", (int)yyvsp[-4].d);
else{
s->Method = TRANSFINI;
k = List_Nbr(yyvsp[-1].l);
if(k!=3 && k!=4){
vyyerror("Wrong Definition of Transfinite Surface %d: "
"%d Points Instead of 3 or 4" , yyvsp[-4].d, k) ;
}
else{
for(i=0;i<k;i++){
List_Read(yyvsp[-1].l,i,&d);
j = (int)fabs(d);
s->ipar[i] = j;
}
}
}
;
break;}
{
Surface *s = FindSurface((int)yyvsp[-4].d,THEM);
if(!s)
vyyerror("Unkown Surface %d", (int)yyvsp[-4].d);
else{
s->Method = ELLIPTIC;
k = List_Nbr(yyvsp[-1].l);
if(k != 4)
vyyerror("Wrong Definition of Elliptic Surface %d: "
"%d Points Instead of 4" , yyvsp[-4].d, k) ;
else{
for(i=0;i<k;i++){
List_Read(yyvsp[-1].l,i,&d);
j = (int)fabs(d);
s->ipar[i] = j;
}
}
}
;
break;}
{
Volume *v = FindVolume((int)yyvsp[-4].d,THEM);
if(!v)
vyyerror("Unkown Volume %d", (int)yyvsp[-4].d);
else{
v->Method = TRANSFINI;
k = List_Nbr(yyvsp[-1].l);
if(k!=6 && k!=8)
vyyerror("Wrong Definition of Transfinite Volume %d: "
"%d Points Instead of 6 or 8" , yyvsp[-4].d, k) ;
else{
for(i=0;i<k;i++){
List_Read(yyvsp[-1].l,i,&d);
j = (int)fabs(d);
v->ipar[i] = j;
}
}
}
;
break;}
{
Surface *s;
for(i=0;i<List_Nbr(yyvsp[-3].l);i++){
List_Read(yyvsp[-3].l,i,&d);
j = (int)d;
s = FindSurface(j,THEM);
if(!s){
/* Allow generic lists, even if the surfaces don't exist
vyyerror("Unkown Surface %d", j); */
}
else{
s->Recombine = 1;
s->RecombineAngle = yyvsp[-1].d;
}
}
;
break;}
{
Surface *s;
for(i=0;i<List_Nbr(yyvsp[-1].l);i++){
List_Read(yyvsp[-1].l,i,&d);
j = (int)d;
s = FindSurface(j,THEM);
if(!s){
/* Allow generic lists, even if the surfaces don't exist
vyyerror("Unkown Surface %d", j); */
}
else{
s->Recombine = 1;
s->RecombineAngle = 30.;
}
}
;
break;}
{
Coherence_PS();
;
break;}
if(i < 0 || i > 5)
vyyerror("Wrong Clip Plane Number %d", i);
else{
CTX.clip[i] = 1;
CTX.clip_plane[i][0] = yyvsp[-8].d;
CTX.clip_plane[i][1] = yyvsp[-6].d;
CTX.clip_plane[i][2] = yyvsp[-4].d;
CTX.clip_plane[i][3] = yyvsp[-2].d;
}
;
break;}
case 194:
#line 1336 "Gmsh.y"
{ ColorField = ColorGeneral; ;
break;}
{ ColorField = ColorGeometry; ;
break;}
{ ColorField = ColorMesh; ;
break;}
{
i = Get_ColorForString(ColorString, -1, yyvsp[-1].c, &flag);
if(flag) vyyerror("Unknown Color '%s'", yyvsp[-1].c);
Get_ColorPointerForString(ColorField, yyvsp[-3].c, &flag, &ptr);
if(flag)
vyyerror("Unknown Color Field '%s'", yyvsp[-3].c);
else
*ptr = i ;
;
break;}
{
i = Get_ColorForString(ColorString, (int)yyvsp[-2].d, yyvsp[-4].c, &flag);
if(flag) vyyerror("Unknown Color '%s'", yyvsp[-4].c);
Get_ColorPointerForString(ColorField, yyvsp[-7].c, &flag, &ptr);
if(flag)
vyyerror("Unknown Color Field '%s'", yyvsp[-7].c);
else
*ptr = i ;
;
break;}
{
Get_ColorPointerForString(ColorField, yyvsp[-3].c, &flag, &ptr);
if(flag)
vyyerror("Unknown Color Field '%s'", yyvsp[-1].v);
else
*ptr = PACK_COLOR((int)yyvsp[-1].v[0], (int)yyvsp[-1].v[1], (int)yyvsp[-1].v[2], (int)yyvsp[-1].v[3]);
;
break;}
{
yyval.v[0]=yyvsp[-7].d;
yyval.v[1]=yyvsp[-5].d;
yyval.v[2]=yyvsp[-3].d;
yyval.v[3]=yyvsp[-1].d;
;
break;}
{
yyval.v[0]=yyvsp[-5].d;
yyval.v[1]=yyvsp[-3].d;
yyval.v[2]=yyvsp[-1].d;
yyval.v[3]=255.;
;
break;}
break;}
{yyval.i = -1;;
break;}
{yyval.i = -1;;
break;}
break;}
break;}
break;}
#line 1477 "Gmsh.y"
{ yyval.d = yyvsp[-2].d - yyvsp[0].d; ;
break;}
#line 1478 "Gmsh.y"
{ yyval.d = yyvsp[-2].d + yyvsp[0].d; ;
break;}
#line 1479 "Gmsh.y"
{ yyval.d = yyvsp[-2].d * yyvsp[0].d; ;
break;}
#line 1480 "Gmsh.y"
{ yyval.d = yyvsp[-2].d / yyvsp[0].d; ;
break;}
#line 1481 "Gmsh.y"
{ yyval.d = pow(yyvsp[-2].d, yyvsp[0].d); ;
break;}
break;}
break;}
break;}
break;}
#line 1486 "Gmsh.y"
{ yyval.d = log10(yyvsp[-1].d); ;
break;}
break;}
break;}
break;}
break;}
break;}
break;}
break;}
#line 1494 "Gmsh.y"
{ yyval.d = atan2(yyvsp[-3].d,yyvsp[-1].d); ;
break;}
break;}
break;}
break;}
break;}
#line 1499 "Gmsh.y"
{ yyval.d = floor(yyvsp[-1].d); ;
break;}
break;}
{ yyval.d = fmod(yyvsp[-3].d,yyvsp[-1].d); ;
break;}
#line 1502 "Gmsh.y"
{ yyval.d = fmod(yyvsp[-3].d,yyvsp[-1].d); ;
break;}
#line 1503 "Gmsh.y"
{ yyval.d = sqrt(yyvsp[-3].d*yyvsp[-3].d+yyvsp[-1].d*yyvsp[-1].d); ;
break;}
#line 1508 "Gmsh.y"
{ yyval.d = 3.141592653589793; ;
break;}
case 243:
#line 1510 "Gmsh.y"
{
TheSymbol.Name = yyvsp[0].c ;
if (!List_Query(Symbol_L, &TheSymbol, CompareSymbols)) {
vyyerror("Unknown variable '%s'", yyvsp[0].c) ; yyval.d = 0. ;
}
else yyval.d = TheSymbol.val ;
Free(yyvsp[0].c);
;
break;}
{
ListOfDouble2_L = List_Create(2,1,sizeof(double)) ;
for(d=yyvsp[-2].d ; (yyvsp[-2].d<yyvsp[0].d)?(d<=yyvsp[0].d):(d>=yyvsp[0].d) ; (yyvsp[-2].d<yyvsp[0].d)?(d+=1.):(d-=1.))
List_Add(ListOfDouble2_L, &d) ;
;
break;}
{
ListOfDouble2_L = List_Create(2,1,sizeof(double)) ;
if(!yyvsp[-2].d || (yyvsp[-5].d<yyvsp[0].d && yyvsp[-2].d<0) || (yyvsp[-5].d>yyvsp[0].d && yyvsp[-2].d>0)){
vyyerror("Wrong Increment in '%g :[%g] %g'", yyvsp[-5].d, yyvsp[-2].d, yyvsp[0].d) ;
List_Add(ListOfDouble2_L, &(yyvsp[-5].d)) ;
}
else
for(d=yyvsp[-5].d ; (yyvsp[-2].d>0)?(d<=yyvsp[0].d):(d>=yyvsp[0].d) ; d+=yyvsp[-2].d)
List_Add(ListOfDouble2_L, &d) ;
;
break;}
{
yyval.v[0]=yyvsp[-9].d;
yyval.v[1]=yyvsp[-7].d;
yyval.v[2]=yyvsp[-5].d;
yyval.v[3]=yyvsp[-3].d;
yyval.v[4]=yyvsp[-1].d;
;
break;}
{
yyval.v[0]=yyvsp[-7].d;
yyval.v[1]=yyvsp[-5].d;
yyval.v[2]=yyvsp[-3].d;
yyval.v[3]=yyvsp[-1].d;
yyval.v[4]=1.0;
;
break;}
{
yyval.v[0]=yyvsp[-5].d;
yyval.v[1]=yyvsp[-3].d;
yyval.v[2]=yyvsp[-1].d;
yyval.v[3]=0.0;
yyval.v[4]=1.0;
;
break;}
{
yyval.v[0]=yyvsp[-5].d;
yyval.v[1]=yyvsp[-3].d;
yyval.v[2]=yyvsp[-1].d;
yyval.v[3]=0.0;
yyval.v[4]=1.0;
;
break;}
{
;
break;}
{
;
break;}
{
;
break;}
{
yyval.l=ListOfListOfDouble_L;
;
break;}
{
;
break;}
{
List_Add(ListOfListOfDouble_L, &(yyvsp[0].l)) ;
;
break;}
{
;
break;}
#line 1621 "Gmsh.y"
{
;
break;}
case 260:
#line 1624 "Gmsh.y"
{
ListOfDouble_L = List_Create(2,1,sizeof(double)) ;
List_Add(ListOfDouble_L, &(yyvsp[0].d)) ;
yyval.l=ListOfDouble_L;
;
break;}
{
yyval.l=ListOfDouble_L;
;
break;}
{
ListOfDouble_L = List_Create(2,1,sizeof(double)) ;
List_Add(ListOfDouble_L, &(yyvsp[0].d)) ;
;
break;}
{
ListOfDouble_L = List_Create(2,1,sizeof(double)) ;
for(i=0 ; i<List_Nbr(ListOfDouble2_L) ; i++){
List_Read(ListOfDouble2_L, i, &d) ;
List_Add(ListOfDouble_L, &d) ;
}
List_Delete(ListOfDouble2_L);
;
break;}
{
List_Add(ListOfDouble_L, &(yyvsp[0].d)) ;
;
break;}
{
for(i=0 ; i<List_Nbr(ListOfDouble2_L) ; i++){
List_Read(ListOfDouble2_L, i, &d) ;
List_Add(ListOfDouble_L, &d) ;
}
List_Delete(ListOfDouble2_L);
;
break;}
}
/* the action file gets copied in in place of this dollarsign */
3727
3728
3729
3730
3731
3732
3733
3734
3735
3736
3737
3738
3739
3740
3741
3742
3743
3744
3745
3746
3747
3748
3749
3750
3751
3752
3753
3754
3755
3756
3757
3758
3759
3760
3761
3762
3763
3764
3765
3766
3767
3768
3769
3770
3771
3772
3773
3774
3775
3776
3777
3778
3779
3780
3781
3782
3783
3784
3785
3786
3787
3788
3789
3790
3791
3792
3793
3794
3795
3796
3797
3798
3799
3800
3801
3802
3803
3804
3805
3806
3807
3808
3809
3810
3811
3812
3813
3814
3815
3816
3817
3818
3819
3820
3821
3822
3823
3824
3825
3826
3827
3828
3829
3830
3831
3832
3833
3834
3835
3836
3837
3838
3839
3840
3841
3842
3843
3844
3845
3846
3847
3848
3849
3850
3851
3852
3853
3854
3855
3856
3857
3858
3859
3860
3861
3862
3863
3864
3865
3866
3867
3868
3869
3870
3871
3872
3873
3874
3875
3876
3877
3878
3879
3880
3881
3882
3883
3884
3885
3886
3887
3888
3889
3890
3891
3892
3893
3894
3895
3896
3897
3898
3899
3900
3901
3902
3903
3904
3905
3906
3907
3908
3909
3910
3911
3912
3913
3914
3915
3916
3917
3918
3919
3920
yyvsp -= yylen;
yyssp -= yylen;
#ifdef YYLSP_NEEDED
yylsp -= yylen;
#endif
#if YYDEBUG != 0
if (yydebug)
{
short *ssp1 = yyss - 1;
fprintf (stderr, "state stack now");
while (ssp1 != yyssp)
fprintf (stderr, " %d", *++ssp1);
fprintf (stderr, "\n");
}
#endif
*++yyvsp = yyval;
#ifdef YYLSP_NEEDED
yylsp++;
if (yylen == 0)
{
yylsp->first_line = yylloc.first_line;
yylsp->first_column = yylloc.first_column;
yylsp->last_line = (yylsp-1)->last_line;
yylsp->last_column = (yylsp-1)->last_column;
yylsp->text = 0;
}
else
{
yylsp->last_line = (yylsp+yylen-1)->last_line;
yylsp->last_column = (yylsp+yylen-1)->last_column;
}
#endif
/* Now "shift" the result of the reduction.
Determine what state that goes to,
based on the state we popped back to
and the rule number reduced by. */
yyn = yyr1[yyn];
yystate = yypgoto[yyn - YYNTBASE] + *yyssp;
if (yystate >= 0 && yystate <= YYLAST && yycheck[yystate] == *yyssp)
yystate = yytable[yystate];
else
yystate = yydefgoto[yyn - YYNTBASE];
goto yynewstate;
yyerrlab: /* here on detecting error */
if (! yyerrstatus)
/* If not already recovering from an error, report this error. */
{
++yynerrs;
#ifdef YYERROR_VERBOSE
yyn = yypact[yystate];
if (yyn > YYFLAG && yyn < YYLAST)
{
int size = 0;
char *msg;
int x, count;
count = 0;
/* Start X at -yyn if nec to avoid negative indexes in yycheck. */
for (x = (yyn < 0 ? -yyn : 0);
x < (sizeof(yytname) / sizeof(char *)); x++)
if (yycheck[x + yyn] == x)
size += strlen(yytname[x]) + 15, count++;
msg = (char *) malloc(size + 15);
if (msg != 0)
{
strcpy(msg, "parse error");
if (count < 5)
{
count = 0;
for (x = (yyn < 0 ? -yyn : 0);
x < (sizeof(yytname) / sizeof(char *)); x++)
if (yycheck[x + yyn] == x)
{
strcat(msg, count == 0 ? ", expecting `" : " or `");
strcat(msg, yytname[x]);
strcat(msg, "'");
count++;
}
}
yyerror(msg);
free(msg);
}
else
yyerror ("parse error; also virtual memory exceeded");
}
else
#endif /* YYERROR_VERBOSE */
yyerror("parse error");
}
goto yyerrlab1;
yyerrlab1: /* here on error raised explicitly by an action */
if (yyerrstatus == 3)
{
/* if just tried and failed to reuse lookahead token after an error, discard it. */
/* return failure if at end of input */
if (yychar == YYEOF)
YYABORT;
#if YYDEBUG != 0
if (yydebug)
fprintf(stderr, "Discarding token %d (%s).\n", yychar, yytname[yychar1]);
#endif
yychar = YYEMPTY;
}
/* Else will try to reuse lookahead token
after shifting the error token. */
yyerrstatus = 3; /* Each real token shifted decrements this */
goto yyerrhandle;
yyerrdefault: /* current state does not do anything special for the error token. */
#if 0
/* This is wrong; only states that explicitly want error tokens
should shift them. */
yyn = yydefact[yystate]; /* If its default is to accept any token, ok. Otherwise pop it.*/
if (yyn) goto yydefault;
#endif
yyerrpop: /* pop the current state because it cannot handle the error token */
if (yyssp == yyss) YYABORT;
yyvsp--;
yystate = *--yyssp;
#ifdef YYLSP_NEEDED
yylsp--;
#endif
#if YYDEBUG != 0
if (yydebug)
{
short *ssp1 = yyss - 1;
fprintf (stderr, "Error: state stack now");
while (ssp1 != yyssp)
fprintf (stderr, " %d", *++ssp1);
fprintf (stderr, "\n");
}
#endif
yyerrhandle:
yyn = yypact[yystate];
if (yyn == YYFLAG)
goto yyerrdefault;
yyn += YYTERROR;
if (yyn < 0 || yyn > YYLAST || yycheck[yyn] != YYTERROR)
goto yyerrdefault;
yyn = yytable[yyn];
if (yyn < 0)
{
if (yyn == YYFLAG)
goto yyerrpop;
yyn = -yyn;
goto yyreduce;
}
else if (yyn == 0)
goto yyerrpop;
if (yyn == YYFINAL)
YYACCEPT;
#if YYDEBUG != 0
if (yydebug)
fprintf(stderr, "Shifting error token, ");
#endif
*++yyvsp = yylval;
#ifdef YYLSP_NEEDED
*++yylsp = yylloc;
#endif
yystate = yyn;
goto yynewstate;
3921
3922
3923
3924
3925
3926
3927
3928
3929
3930
3931
3932
3933
3934
3935
3936
3937
3938
3939
3940
3941
3942
3943
3944
yyacceptlab:
/* YYACCEPT comes here. */
if (yyfree_stacks)
{
free (yyss);
free (yyvs);
#ifdef YYLSP_NEEDED
free (yyls);
#endif
}
return 0;
yyabortlab:
/* YYABORT comes here. */
if (yyfree_stacks)
{
free (yyss);
free (yyvs);
#ifdef YYLSP_NEEDED
free (yyls);
#endif
}
return 1;
}
3947
3948
3949
3950
3951
3952
3953
3954
3955
3956
3957
3958
3959
3960
3961
3962
3963
3964
3965
3966
3967
3968
3969
3970
3971
3972
3973
3974
3975
3976
3977
3978
3979
3980
3981
3982
3983
3984
3985
3986
3987
3988
3989
3990
3991
3992
3993
3994
3995
3996
void InitSymbols(void){
Symbol_L = List_Create(10,1,sizeof(Symbol));
}
void DeleteSymbols(void){
List_Delete(Symbol_L);
}
int CompareSymbols (const void *a, const void *b){
return(strcmp(((Symbol*)a)->Name,((Symbol*)b)->Name));
}
void yyerror(char *s){
Msg(PARSER_ERROR, "'%s', line %d : %s (%s)",yyname,yylineno-1,s,yytext);
yyerrorstate=1;
}
void vyyerror (char *fmt, ...){
va_list args;
char tmp[TEXT_BUFFER_SIZE];
va_start (args, fmt);
vsprintf (tmp, fmt, args);
va_end (args);
Msg(PARSER_ERROR, "'%s', line %d : %s", yyname, yylineno-1, tmp);
yyerrorstate=1;
}
int Get_ColorForString(StringX4Int SX4I[], int alpha,
char * string, int * FlagError) {
int i = 0 ;
while ((SX4I[i].string != NULL) && (strcmp(SX4I[i].string, string))) i++ ;
*FlagError = (SX4I[i].string == NULL)? 1 : 0 ;
if(alpha > 0)
return PACK_COLOR(SX4I[i].int1,SX4I[i].int2,SX4I[i].int3,alpha) ;
else
return PACK_COLOR(SX4I[i].int1,SX4I[i].int2,SX4I[i].int3,SX4I[i].int4) ;
}
void Get_ColorPointerForString(StringXPointer SXP[], char * string,
int * FlagError, unsigned int **Pointer) {
int i = 0 ;
while ((SXP[i].string != NULL) && (strcmp(SXP[i].string, string))) i++ ;
*FlagError = (SXP[i].string == NULL)? 1 : 0 ;
*Pointer = (unsigned int *)SXP[i].Pointer ;
}