Interpréteur GFA-Basic - Page 1

Après avoir codé beaucoup de fonctions et avoir revue entièrement le projet, voici une version qui permet de faire des petits programmes (pas encore des jeux avec sprites...).
Il faut avoir sur sa TI un programme qui permet d'executer un projet de plus de 24 Ko. Preos suffit.

Téléchargez la dernière version

Cette version comporte plus de 50 fonctions avec les structures suivantes:
label:
Goto label

If ... [Then]
Elseif ... [Then]
Else If ... [Then]
Else
Endif

L'opérateur Not est entièrement géré sans problème.
Il y a quelques erreurs d'espaces avec le détokeniseur.

Dans le pack il y a un programme d'exemple, un petit jeu ou il faut remettre les lettres ou les chiffres dans l'ordre.

Pour lancer l'exemple il faut faire:
gfabasic("invers")
Cette ligne transforme le fichier texte en fichier tokenisé portant le nom de {b]tokens[/b]
Ensuite il faut taper la ligne suivante pour executer le programme:
gfabasic("tokens")
Cette ligne restaure le fichier texte en untoken avec indentation automatique... et execute le programme. Il créer un fichier dit d'executions tokenbuf contenant que des tokens d'executions.

Voici la source du programme Inversion:

Rem ---------
Rem INVERSION
Rem ---------
Dim A$(2)
Cls
Setfont 1
T=Int(Rnd*2)+1
A$(1)="ABCDEFGHI"
A$(2)="123456789"
T$=A$(T)
Rem -------
Rem MELANGE
Rem -------
I=1
Boucle1:
If I<=20 Then
  V=Int(Rnd*9)+1
  W=Int(Rnd*9)+1
  X$=Mid$(T$,V,1)
  T$=Left$(T$,V-1)+Mid$(T$,W,1)+Right$(T$,9-V)
  T$=Left$(T$,W-1)+X$+Right$(T$,9-W)
  Inc I
  Goto Boucle1
Endif
Rem -------------
Rem DESSIN DU JEU
Rem -------------
Setfont 2
Print Space$(3);"INVERSION"
Setfont 1
Recom:
I=1
Boucle2:
If I<=9 Then
  Print At(I*2,5);I
  Print At(I*2,3);Mid$(T$,I,1)
  Inc I
  Goto Boucle2
Endif
If T$=A$(T) Then
  Goto Fin
Endif
Rem ------
Rem SAISIE
Rem ------
Print At(2,8);"NB INVERSIONS ? ";
Boucle3:
N=Ngetchx()
If N=264 Then
  End
Else If Not(N-48>=2 And N-48<=9)
  Goto Boucle3
Endif
Sub N,48
Print N
I=1
Boucle4:
If I<=N/2 Then
  X$=Mid$(T$,I,1)
  T$=Left$(T$,I-1)+Mid$(T$,N-I+1,1)+Right$(T$,9-I)
  T$=Left$(T$,N-I)+X$+Right$(T$,8-N+I)
  Inc I
  Goto Boucle4
Endif
Inc E
Goto Recom
Rem ---
Rem FIN
Rem ---
Fin:
Print At(1,10);"VOUS AVEZ TROUVE "
Print At(1,11);"EN ";E;" ESSAIS"
End

Les sources du projet sont incluses dans le pack. Il y a encore beaucoup à faire avant d'avoir une version facile à utiliser et finie.

On pourra faire des zoulis sprites ?

Pas pour l'instant mais oui avec Mki$ et tralala.

On veut aussi un editeur de sprite on-calc!!!!!!!! (eventuellement realisé par quelqu'un d'autre vu le boulot que geoffrey a)

je veux bien le faire mais faut d'abord attendre de cannaitre le format des sprites

Juste pour vous dire que le projet avance : historique ici.

Un petit résumé en plus du lien, ça aurait été sympa, qd même...

Hé bien, geogeo avance (petit à petit).

Il a réussi à avoir des gains de quelques secondes en optimisant la pile NumStack, mais il est toujours déçu car le GFA Basic "d'origine" sur l'ATARI est toujours plus rapide. Il cherche donc à gagner du temps en optimisant les tokens maintenant (il essaye d'en utiliser de moins en moins, afin de rendre le tout plus rapide). Il va également essayer d'optimiser le transtypage.

Voila voila, il n'en dit pas plus. Je vous rapelle que quasiment toutes les discussions se font sur le forum officiel GFA Basic que je vous invite à consulter si vous souhaitez en savoir plus.

@squale92 > désolé pour le résumé, et pour la pub.

Merci

pour ce qui est de la pub, en fait, ça ne me gène pas vraiment ; tigen, yN, tant que ça permet de faire avancer la communauté, et que des gens développent, je m'en fou un peu des liens postés d'un coté ou de l'autre
là où ça me gène un peu, c qd je vois Kevin éditer les liens vers yN sur tigen (enfin, j'ai vu ça qu'une fois, mais je ne lis quasiment pas le forum de tigen ; je ne sais donc pas si je sis "mal tombé", ou si c quelque chose de fréquent)... et mettre plein de liens pour tigen sur yN ; cela dit, il est relativement rare que je supprime ces liens... du moins si la réponse n'a pas été donnée avant (je privilégie généralement le fait que la réponse soit donnée, plutôt que la "gueguerre" tigen-yN )

pour le résumé, disons que c'est toujours plus agréable d'avoir quelques informations, que uniquement un lien
(avis perso ; sans le moindre rapport avec le fait que ton lien pointait vers tigen ; il aurait pointé vers ti-fr, j'aurai fait pareil ; enfin, dans le cas d'un lien que je remarque, bien entendu )

(bon, j'arrête là le HS )

pour ce qui est de la pub, en fait, ça ne me gène pas vraiment ; tigen, yN, tant que ça permet de faire avancer la communauté, et que des gens développent, je m'en fou un peu des liens postés d'un coté ou de l'autre

là où ça me gène un peu, c qd je vois Kevin éditer les liens vers yN sur tigen

aussi, mais c'était il n'y a pas mal de temps, maintenant je ne crois plus qu'il le fasse.

J'arrête là aussi le HS

Geogeo a vraiment fait un travail de fou qui va marquer la communaute TI pour les futurs generations. En plus comme cest un outil de developpement, il va y avoir plein de choses cree grace a son soft.

C'est toujours ce qu'on dit au debut

Geogeo a vraiment fait un travail de fou qui va marquer la communaute TI pour les futurs generations. En plus comme cest un outil de developpement, il va y avoir plein de choses cree grace a son soft.

oui et dans un un an ou deux, (cad quand il sera *réellement* passé à autre chose) il se fera casser du sucre sur le dos et se fera taxer de "tueur de la communauté"

On peut revenir au sujet? Rappel: c'est GFA-Basic, pas geogeo.

Marrant on dirait que la "mode" des shells est passé

Now c'est la mode des interpreteur/compilateur basic

enfin bon

pourquoi pas

D'un autre coté, c déjas plus utils (si ça reste aussi flexible et plus rapide que le TI-Basic à défaut d'être compatible source à source).

aussi flexible et plus rapide, c pas possible sans réimplanter un tas (ou alors le gain de vitesse sera minime dans pas mal d'exemples)

A moi je c pas, g pas de vapor d'interpréteur basic en cours^^

réimplanter un tas

tu peux expliquer stp?

refaire un HeapAlloc etc...

gamine !

trompé de topic là... fallait répondre à sab...

mdr

j'ai reussi un cross topic

je sais meme pas comment que j'ai fait

#triouéééé#

MacIntoc :
A moi je c pas, g pas de vapor d'interpréteur basic en cours^^

tu dis ca pour qui?? geogeo ou pollux??

pour godzil je pense...

pourquoi refaire un heap?

regarde combien de tps prend HeapFree(HeapAlloc(8)) ...

Il peut utiliser genalib.

erf...