Forum de Ti-Gen.org, le site francophone des TI

Bienvenue Invité ! Se connecter Mes sujets	Administrer
Utilisateurs actifs : Aucun membre + 1 visiteur

Avant de poster sur le forum, il y a des régles de bases à respecter pour une bonne entente et un respect de tous.
Veuillez lire la charte du forum.

:: Index » Forum Ti68K » Programmation C » recuperer les elements d'une liste (30 réponse(s))

./POST DE DEPART (post n°0) Marquer comme non lu.

kaz00

Ecrit le: Lundi 29 août 2005 à 18:32

Membre privilégié

Messages: 2950

Membre n°111

Inscrit le 17 mars 2004

Comment faire en C :

for a,1,dim(maliste)
disp maliste[a]
endfor

sachant que maliste est une liste enregistrée dans la TI.

je pense que ca va plus vite comme ca a expliquer.
-Edité le Lundi 29 août 2005 à 18:32 par k@z00-

./Post n°1 Marquer comme non lu.

Jfg

Ecrit le: Lundi 29 août 2005 à 18:37

Administrateur

Groupe: Staff de Ti-Gen

Groupe: Orage Studio

Messages: 1260

Membre n°60

Inscrit le 23 février 2004

fffpppggg ?

Kill Mario

./Post n°2 Marquer comme non lu.

Kevin Kofler

Ecrit le: Lundi 29 août 2005 à 18:59

Administrateur

Groupe: Staff de Ti-Gen

Messages: 4814

Membre n°40

Inscrit le 08 février 2004

Notre FAQ dit comment faire pour les matrices: http://tigcc.ticalc.org/doc/faq.html#63. Pour les listes, c'est encore plus simple (les matrices sont des listes de listes).

Pour commencer, tu peux utiliser la propriété de push_disp de pouvoir afficher plusieurs expressions à la fois: push_disp(top_estack-1); fait l'équivalent de toute la boucle TI-BASIC pour toi! Mais bien sûr, si tu veux utiliser autre chose que Disp, ça ne va plus passer.

Donc voici comment on traverse une liste:

top_estack--; // skip LIST_TAG
while (*top_estack != END_TAG) {
affiche(top_estack);
}

top_estack--; // skip LIST_TAG
int a;
for (a=0; a<remaining_element_count(top_estack); a++) {
affiche(EX_getArg(a));
}

remaining_element_count

dim

remaining_element_count

Membre de l'équipe de TIGCC: http://tigcc.ticalc.org
Mainteneur du portage Linux/Unix de TIGCC: http://tigcc.ticalc.org/linux/
Membre de l'équipe de CalcForge: http://www.calcforge.org:70/

Participez à la reprise de Ti-Gen!

./Post n°3 Marquer comme non lu.

kaz00

Ecrit le: Lundi 29 août 2005 à 19:06

Membre privilégié

Messages: 2950

Membre n°111

Inscrit le 17 mars 2004

mais ce que je veux, c'est lire une liste du var-link, et enregistrer chaque element dans une variable differente

exemple : {1,2,3,4}->maliste

et en C :

maliste[1]->az
maliste[2]->er
maliste[3]->ty
...

./Post n°4 Marquer comme non lu.

Kevin Kofler

Ecrit le: Lundi 29 août 2005 à 19:09

Administrateur

Groupe: Staff de Ti-Gen

Messages: 4814

Membre n°40

Inscrit le 08 février 2004

Ben, à la manipulation avec estack.h, tu devras rajouter celle de la VAT avec vat.h.

Tu "ouvres" le fichier avec SymFindPtr, tu vérifies que le pointeur et le handle sont non-nuls, tu fais top_estack=HToESI(symentry->handle); et c'est parti. (Sauvegarde l'ancien top_estack pour le remettre à la fin.)

Pour créer les fichiers, tu utilises soit VarStore, soit SymAdd et HeapAlloc.

Toutes ces fonctions sont documentées dans la documentation de TIGCC.
-Edité le Lundi 29 août 2005 à 19:09 par Kevin Kofler-

./Post n°5 Marquer comme non lu.

kaz00

Ecrit le: Lundi 29 août 2005 à 19:24

Membre privilégié

Messages: 2950

Membre n°111

Inscrit le 17 mars 2004

j'y arrive pas

j'ai ce bout de code :

SYM_ENTRY *sym_entry = SymFindPtr ("protsave", 0);
if (peek (HToESI (sym_entry->handle)) == LIST_TAG)
{

}

mais je ne sais pas quoi mettre dedans, j'ai eu le droit a des "internal error".

./Post n°6 Marquer comme non lu.

Kevin Kofler

Ecrit le: Lundi 29 août 2005 à 19:40

Administrateur

Groupe: Staff de Ti-Gen

Messages: 4814

Membre n°40

Inscrit le 08 février 2004

C'est parce que tu n'as pas bien lu la doc:
SYM_ENTRY *sym_entry = SymFindPtr (SYMSTR("protsave"), 0);

Et je me demande pourquoi je t'ai dit de tester si le sym_entry est non-nul. #roll#

Et le handle aussi, d'ailleurs.
-Edité le Lundi 29 août 2005 à 19:41 par Kevin Kofler-

./Post n°7 Marquer comme non lu.

andoh_wilfried

Ecrit le: Lundi 29 août 2005 à 20:05

Envoyer un message privé à andoh_wilfried

Membre: Maître

Messages: 145

Membre n°888

Inscrit le 17 juin 2005

C'est l'imanquable debut. Si tu veux bien aprendre va vraiment falloir lire correctement la Doc sur l'estack et la recherche de fichier comme l'a precise K.K.

- top_estack
- next_expression_index
-GetIntArg
-GetStrinArg

De toute facon cela va te servir a chaque fois que tu codera un truc sur Ti.
pour la recherche et l'ecriture dans les fichiers, tu trouvera un article sur ce site.

./Post n°8 Marquer comme non lu.

kaz00

Ecrit le: Lundi 29 août 2005 à 20:10

Membre privilégié

Messages: 2950

Membre n°111

Inscrit le 17 mars 2004

SYM_ENTRY *sym_entry = SymFindPtr (SYMSTR("protsave"), 0);
if (!sym_entry) break;
if (peek (HToESI (sym_entry->handle)) == LIST_TAG)
{

}

Je precise que le break sert pour sortir d'un switch.

Mon soucis est de trouver le bout de code a mettre a l'interieur des acolades...
-Edité le Lundi 29 août 2005 à 22:19 par k@z00-

./Post n°9 Marquer comme non lu.

Kevin Kofler

Ecrit le: Lundi 29 août 2005 à 21:57

Administrateur

Groupe: Staff de Ti-Gen

Messages: 4814

Membre n°40

Inscrit le 08 février 2004

Tu n'as toujours pas corrigé ton erreur. #roll#

SymFindPtr prend un SYM_STR, pas une chaîne C.

./Post n°10 Marquer comme non lu.

kaz00

Ecrit le: Lundi 29 août 2005 à 22:19

Membre privilégié

Messages: 2950

Membre n°111

Inscrit le 17 mars 2004

c'est quand j'ai recopié, dans la source j'ai corrigé ce pb. mais c'est pour "extraire" les elements de la liste que je bloc.

./Post n°11 Marquer comme non lu.

RHJPP

Ecrit le: Lundi 29 août 2005 à 22:43

Administrateur

Groupe: Staff de Ti-Gen

Groupe: Omega staff

Messages: 2174

Membre n°776

Inscrit le 06 avril 2005

Comme ça, peut-être :

ESI element=HToESI (sym_entry->handle);
if (GetArgType(element)== LIST_TAG)
{
  element--;
  while(GetArgType(element)==POSINT_TAG)
  {
    printf("%d\n",GetIntArg (element));
  }
}

./Post n°12 Marquer comme non lu.

kaz00

Ecrit le: Lundi 29 août 2005 à 23:09

Membre privilégié

Messages: 2950

Membre n°111

Inscrit le 17 mars 2004

ton code marche bien, mais il ne m'affiche que des 0.
alors que j'ai dans ma liste 0, 321, 40, 50

-Edité le Lundi 29 août 2005 à 23:13 par k@z00-

./Post n°13 Marquer comme non lu.

limmt

Ecrit le: Lundi 29 août 2005 à 23:20

Administrateur

Groupe: Staff de Ti-Gen

Groupe: Orage Studio

Groupe: Omega staff

Messages: 4712

Membre n°20

Inscrit le 01 février 2004

ESI element=HToESI (sym_entry->handle);
if (GetArgType(element)== LIST_TAG)
{
  element--;
  while(GetArgType(element)==POSINT_TAG)
  {
    printf("%d\n",GetIntArg (element));
    element--;
  }
}

peut-etre?

http://www.falco-fr.com/ - http://www.jump67.com/ - http://www.msf-league.com/

./Post n°14 Marquer comme non lu.

kaz00

Ecrit le: Lundi 29 août 2005 à 23:27

Membre privilégié

Messages: 2950

Membre n°111

Inscrit le 17 mars 2004

format %d excepts type 'int', but argument 2 has type 'long unsigned int'

pour vos deux codes

./Post n°15 Marquer comme non lu.

kaz00

Ecrit le: Lundi 29 août 2005 à 23:44

Membre privilégié

Messages: 2950

Membre n°111

Inscrit le 17 mars 2004

dans ma liste j'ai
{0,21,336,48}
et avec :
printf("%u%u",GetIntArg (element));
j'ai a l'ecran

000,210,336,048

./Post n°16 Marquer comme non lu.

RHJPP

Ecrit le: Lundi 29 août 2005 à 23:49

Administrateur

Groupe: Staff de Ti-Gen

Groupe: Omega staff

Messages: 2174

Membre n°776

Inscrit le 06 avril 2005

Et avec :
printf("%u\n",(unsigned int)GetIntArg (element));

./Post n°17 Marquer comme non lu.

kaz00

Ecrit le: Lundi 29 août 2005 à 23:49

Membre privilégié

Messages: 2950

Membre n°111

Inscrit le 17 mars 2004

j'ai trouvé :

printf("%lu",GetIntArg (element));

./Post n°18 Marquer comme non lu.

kaz00

Ecrit le: Lundi 29 août 2005 à 23:50

Membre privilégié

Messages: 2950

Membre n°111

Inscrit le 17 mars 2004

il ne me reste plus qu'a enregistrer ces valeurs dans des variables C.

./Post n°19 Marquer comme non lu.

kaz00

Ecrit le: Lundi 29 août 2005 à 23:52

Membre privilégié

Messages: 2950

Membre n°111

Inscrit le 17 mars 2004

le code final est donc :

SYM_ENTRY *sym_entry = SymFindPtr (SYMSTR("protsave"), 0);
    ESI element=HToESI (sym_entry->handle);
if (GetArgType(element)== LIST_TAG)
{
  element--;
  while(GetArgType(element)==POSINT_TAG)
  {

    printf("%lu\n",GetIntArg (element));

  }
  ngetchx();
}