) et donc j'ai quelques problèmes pour le passage de paramètres entre autres :/
lis les tutos.
)
désolé.
).
void _main(void)
{
ESI ap;
clrscr();
InitArgPtr(ap);
if (ArgCount()>0)
{
if (GetArgType(ap) == LIST_TAG)
{
printf("LIST_TAG\n");
top_estack--;
}
ngetchx();
if (GetArgType(top_estack) == POSINT_TAG)
printf("%lu",GetIntArg(top_estack));
ngetchx();
}
}
// C Source File
// Created 31/03/2005; 16:15:06
// Delete or comment out the items you do not need.
#define COMMENT_STRING "Place your comment here."
#define COMMENT_PROGRAM_NAME "Place your program name here."
#define COMMENT_VERSION_STRING "Place your version string here."
#include <tigcclib.h>
static int sizeMat;
int **StackToMat(ESI stack)
{
ESI save_stack=stack;
int nb_row=0, nb_line=0, nb_tag=1;
int i,j;
int **mat;
//si on pointe pas sur le début d'une liste on retourne null
if (GetArgType(stack)!=LIST_TAG)
return NULL;
stack--;
//calcul des dimension de la matrice
while (nb_tag!=0 && GetArgType(stack)!=ENDSTACK_TAG)
{
printf("%d\n",nb_tag);
switch(GetArgType(stack))
{
case LIST_TAG:
nb_tag++;
stack--;
break;
case END_TAG:
nb_tag--;
nb_line++;
stack--;
break;
case POSINT_TAG:
SkipArg(stack);
nb_row++;
break;
case NEGINT_TAG:
SkipArg(stack);
nb_row++;
break;
default:
return NULL;
}
}
// la liste n'est pas fini correctement
if (GetArgType(stack)==ENDSTACK_TAG)
return NULL;
//restoration du pointeur de pile d'origine
stack=save_stack;
nb_line--;
nb_row=(int)sqrt(nb_row);
//allocation de la matrice
mat=malloc(nb_line*sizeof(int*));
for (i=0; i<nb_line; i++)
mat[i]=malloc(nb_row*sizeof(int));
sizeMat=nb_line;
//remplissage de la matrice
i=0;
j=0;
nb_tag=1;
while (nb_tag!=0)
{
switch(GetArgType(stack))
{
case POSINT_TAG:
mat[i][j]=(int)GetIntArg(stack);
j++;
break;
case NEGINT_TAG:
mat[i][j]=-(int)GetIntArg(stack);
j++;
break;
case END_TAG:
j=0;
i++;
nb_tag--;
stack--;
break;
default:
nb_tag++;
stack--;
}
}
return mat;
}
void libererMat(int **mat)
{
int i;
for (i=0; i<sizeMat; i++)
free(mat[i]);
free(mat);
}
void _main(void)
{
ESI ap;
int **mat;
clrscr();
InitArgPtr(ap);
if (ArgCount()>0)
{
if (GetArgType(ap) == LIST_TAG)
{
int i,j;
printf("LIST_TAG");
mat=StackToMat(top_estack);
if (mat != NULL)
printf("!= NULL");
else
printf("== NULL");
for(i=0; i<sizeMat; i++)
for (j=0; j<sizeMat; j++)
printf("%d ",mat[i][j]);
libererMat(mat);
}
ngetchx();
}
}
Lionel Debroux :
* Déjà, une grosse faute: ne pas vérifier le résultat de malloc.
Lionel Debroux :
* Comme la plupart des fonctions de stdio.h, printf n'est pas une fonction directement disponible dans le système. En passant à DrawStr (ou printf_xy, moins adapté ici), tu vas gagner de la place.
.
Lionel Debroux :
* Il est sensiblement plus efficace en taille et en vitesse d'allouer ta matrice en un seul bloc (mat=(int **)malloc(nb_line*nb_row*sizeof(int))). Ca utilise moins de blocs de mémoire. Dans ce cas-là, tu peux toujours accéder à la matrice comme à un tableau unidimensionnel, moyennant une petite fonction d'index facile à écrire.
Lionel Debroux :
En cas d'accès séquentiels (comme lors du remplissage), utilise un pointeur postincrémenté (*ptr++ = GetIntArg(...)). Les recalculs d'index prennent du temps et de la place.
static short sizeMat;
short *StackToMat(const ESI stack)
{
ESI ptr=stack,tmp;
short size,i,j;
short *mat;
//si on pointe pas sur le début d'une liste on retourne null
if (!is_square_matrix(stack))
usage();
ptr--;
//calcul des dimensions de la matrice carre
size=remaining_element_count(ptr-1);
sizeMat=size;
//allocation de la matrice
mat=malloc(size*size*sizeof(int*));
if (mat==NULL)
message("Erreur! Memoire insuffisante");
//remplissage de la matrice
for(i=0; i<size; i++)
{
tmp=ptr-1;
for(j=0; j<size; j++)
{
if(estack_to_short(tmp,&(mat[i*size+j]))!=1)
usage();
tmp=next_expression_index(tmp);
}
ptr=next_expression_index(ptr);
}
return mat;
}
short locate(short *mat, short i, short j)
{
return mat[i*sizeMat+j];
}
fpgforce :
Le delete between est beaucoup plus simple. Voir: http://www.tiwiki.org/Delete_between et aussi http://www.tiwiki.org/Estack.
Voir en général aussi http://www.tiwiki.org
Il s'agit tout bonnement de remonter à travers l'ESTACK avec 'next_expression_index' pour trouver le END_TAG indiquant le début de l'ESTACK ( il ne faut jamais l'effacer ). Il ne reste plus qu'à lui rajouter 1 pour redéfinir la valeur de top_estack.
Dans la mésur où tu es obligé de nettoyer l'estack, autant le faire avant de déposer le résultat.Je ne vois pas où est le problème
Ma technique reste la plus simple et la plus rapide ici. (et si tu definit OPTIMIZE_ROMCALL tu dois gagner encore plus en taille)
je ne veux pas briser ton enthousiasme mais comment fait tu pour connaître la valeur de old_top_estack ? c'est bien beau de dire 'top_estack = old_top_estack' mais ce n'est pas une solution miracle delete_between , le tout est de savoir ce que vaut ce old_top_estack.Mais on s'en fout completement de savoir ce que ça vaut. Regarde si tu procède comme ça:
old_estack = top_estack ; [...]
delete_between (old_estack, top_estack) ;Et ça marche très bien!
push_expression (ton_resultat_final) ;
top_estack = bottom_estack + 1 ;
A part ça, il n'est pas mal ton site, c'est en quelque sorte le manuel de TIGCC en français avec des truc en plus. Dommage qu'il n'est pas été mis en ligne 9 mois plus tôt lorsque j'apprenais le C sur TIGCCCe n'est pas mon site, c'est celui de Spectras, en effet il est bien et toute personne qui pense pouvoir aider est encouragée à participer.
old_estack = top_estack ;
[...]
je ne veux pas briser ton enthousiasme ...
Ensuite ta technique qui s'amuse a descendre dans l'estack à la recherche de l'ENDSTACK_TAG ... est débile, il suffit de faire à ce moment là:
Mais on s'en fout completement de savoir ce que ça vaut..
top_estack = bottom_estack + 1 ;
Et comme bottom_estack représente une position absolu indiquant le début de l'estack, par ta méthode tu vides systématiquement tout ce que le prog basic ( ou un autre prog C ou ASM ) aurait pu laisser sur l'estack.Ben c'est bien ce qu'on veut faire il me semble, rétablir l'etat initial de l'estack, avant l'appel au programme...
Euh ben ça n'est pas ma technique, c'est toi qui l'a proposée et je te démontre qu'elle n'est pas adaptée. Bien entendu elle supprime tout l'estack! Par contre je suis intérréssé par tes teststop_estack = bottom_estack + 1 ;
tu risques d'obtenir des résultats inattendus voir des bugs. je me trompe peut-être car je n'ai pas testé le fait que bottom_estack refletait une valeur absolu. Mais je vais essayer ta méthode
et je te ferai part de mes test.
Je pense qu'il n'y a pas lieu de de s'emporter un instant dans ce débat. tu fait part de tes connaissances et moi des mienne, alors sachons resté amicale même si l'on ne se connait pas encore.Je te signale que c'est toi qui a commencé a me parler sur un ton douteux
De plus tu as l'air de ne pas vraiment connaitre ce dont tu parle celà dit j'ai rien cnotre toi.
le END_TAG indiquant le début de l'ESTACK
Algebraic form: my_func (a, b, c)
RPN form: END_TAG c b a my_func USERFUNC_TAG
Sequence of bytes: [E5] [0D] [0C] [0B] [00 6D 79 5F 66 75 6E 63 00] [DA]
