Retour de fonction étrange dans Flex/Bison en C
Bonjour,
J'aurais besoin de vos talents en matière de Flex/Bison car je suis face à un bug dont je ne comprend pas grand chose. J'ai beau chercher depuis des jours, rien n'y fait.
Je suis en train de développer un interpréteur BASIC genre Amstrad CPC. (ci dessous la partie du code qui ne fonctionne bizarrement pas bien)
1) functionstring retourne une chaine en fonction de ce que je lui rentre comme paramlist, qui est une liste de paramètres numériques ou chainés. Par exemple CHR$(65) me retournera le caractère 'A'.
2) stringterm est donc un terme contenant une chaine de caractère, ou le résultat de la fonction CHR$.
3) stringexp sera donc un stringterm ou plusieurs stringterm concaténés.
4) param sera une liste d'expressions mathématiques et de chaines. Elles sont contenues dans une structure (dans le union principal)
5) paramlist sera une combinaison de chaines stockées dans une structure (dans le union principal).
Mon problème est que si je fais une somme de CHR$, j'ai des données qui se perdent dans stringexp, qui ne fonctionne pas comme je le souhaite.
Par exemple, CHR$(65)+CHR$(66), qui est censé me retourner dans paramlist "AB", me retoune "BB".
Et CHR$(65)+CHR$(66)+CHR$(67) me retourne carrément "CHR$(C".
Auriez-vous une idée ?
Merci d'avance.
EDIT: Si j'affiche ce que contient $1 dans les parametres de stringterm, j'obtiens 'A' et 'B'.
Si j'affiche ce que contient $1 dans stringexp: stringterm, j'obtiens 'A'.
Mais si j'affiche $1 et $3 dans stringexp ADD stringterm, $1 contient l'erreur au lieu de 'A'. $3 contient 'B'.
Code:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135
| functionstring:
STRINGFUNC paramlist CP
{
int count = $2.count;
if(strcmp($1,"CHR$(") == 0)
{
if(count == 1)
{
if($2.t[1] == _TYPEINT_)
{
int i = $2.i[1];
if((i >= 0) && (i <= 255))
{
char c[2];
c[0] = (char)i;
c[1] = '\0';
$$ = c;
}
else
{
printf("Improper argument\n");
return;
}
}
else if($2.t[1] == _TYPEFLOAT_)
{
int i = (int)$2.f[1];
if((i >= 0) && (i <= 255))
{
char c[2];
c[0] = (char)i;
c[1] = '\0';
$$ = c;
}
else
{
printf("Improper argument\n");
return;
}
}
else
{
printf("Type mismatch\n");
return;
}
}
else
{
printf("Syntax error\n");
return;
}
}
else {
printf("Syntax error\n");
return;
}
}
;
paramlist:
param
| paramlist COMMA param
{
if(($3.t[$3.count] == _TYPEFLOAT_) || ($3.t[$3.count] == _TYPEINT_))
{
$$.count++;
$$.t[$$.count] = $3.t[$3.count];
$$.f[$$.count] = $3.f[$3.count];
$$.i[$$.count] = $3.i[$3.count];
}
else {
$$.count++;
$$.t[$$.count] = $3.t[$3.count];
$$.s[$$.count] = $3.s[$3.count];
}
}
;
param:
boolexp
{
$$.count = 1;
$$.t[$$.count] = $1.t;
$$.f[$$.count] = $1.f;
$$.i[$$.count] = $1.i;
}
| stringexp
{
$$.count = 1;
$$.t[$$.count] = _TYPESTRI_;
$$.s[$$.count] = $1;
}
;
stringexp:
stringterm { stype = _NOTYPE_; $$ = $1; }
| stringexp ADD stringterm
{
if((stype == _NOTYPE_) || (stype == _TYPEADDSTRING_))
{
char* s=malloc(sizeof(char)*(strlen($1)+strlen($3)+1));
strcpy(s,$1);
strcat(s,$3);
$$=s;
free(s);
stype = _TYPEADDSTRING_;
}
else {
printf("Syntax error\n");
return;
}
}
| stringexp SEMICOLON stringterm
{
if((stype == _NOTYPE_) || (stype == _TYPESEMICOLONSTRING_))
{
char* s=malloc(sizeof(char)*(strlen($1)+strlen($3)+1));
strcpy(s,$1);
strcat(s,$3);
$$=s;
free(s);
stype = _TYPESEMICOLONSTRING_;
}
else {
printf("Syntax error\n");
return;
}
}
;
stringterm:
STRING
| functionstring
; |