COMPILATEUR V 0.9 beta 10 du 29 aout 2017

Demain est un autre jour.
Bonne nuit!

Super Jack et c'est vraiment bien ta façon de suivre les problème sur le forum. Tu devrais même en faire autant pour ta todo list. Comme ça, on aurait toujours ta liste de choses à faire sous les yeux avec leur priorité et leur état d'avancement.

Nous sommes "après-demain"...

Une nouvelle version est disponible ici :

http://panoramic-language.pagesperso-orange.fr/PANORAMIC_COMPILER_EDITOR.zip

C'est la version V 0.9 beta 7 du 10 aout 2017.

Elle corrige les bugs signalés sur le forum:
N°11 : ITEM_ADD
N°12 : TRIM$()
N°13 : TEXT$()

Elle corrige aussi d'autres bugs concernant les chaînes de caractères.

Bonjour à tous,
Bonjour Jack,
Je viens d'essayer la nouvelle version du compilateur, j'ai fait tourner un de mes programmes de recherche de mots dans un dico de mots de 2 à 7 lettres.
Résultats:
avec PANORAMIC_EDITOR V0928i12 plus d'une minute d'attente!
avec le compilateur, moins d'un quart de seconde!!!
Fantastique! Génial! Magnifique! Exceptionnel! etc... etc...
BRAVO JACK!!!!

Bignono a tout dit.
Que puis-je ajouter de plus ?
"Fantastique! Génial! Magnifique! Exceptionnel! etc... etc...
BRAVO JACK!!!! "

Voilà qui va redonner du sang neuf à Panoramic entre autre pour les jeux et autres programmes nécessitant une bonne dose d'opérations / calculs (programme de traduction par exemple ... )

Bonjour à tous.

Je viens de tester la dernière version du compilateur.

Toujours impossible pour moi de compiler mon programme de traduction.

Le problème des 'if' est toujours bloquant.

Le compilateur me signale une erreur sur une ligne vide !!

Bonjour mes amis panomariciens,
Mes contributions sont pratiquement inexistantes mais je suis ce forum depuis dix ans étant un des premiers membres.
Je fais des petits programmes sans les poster car je considère que je m'amuse dans ma petite retraite saupoudrée de maladies  
C'est une énorme avancée dans notre communauté  car ce compilateur va permettre de gérer vite des chaînes de caractères qui étaient un frein pour ceux qui comme moi aiment cet aspect.
Bignono (salué par notre Papydall) vient d'en faire un merveilleux constat.
Je voudrais aussi saluer l'immense travail de Jean Debord car son approche est vraiment très bien et se situe juste entre Free basic et Panoramic.
Tout est bien expliqué avec une sémantique à la portée d'un novice, ce qui demande une certaine approche de la vulgarisation.
Merci d'essayer car c'est géant, ça marche et c'est sans problèmes, notamment avec Geany et merci à toi Jean.
Je ne peux que te souhaiter de continuer et d'apporter plus de bibliothèques qui malgré tout sont la représentation de nos programmes.
A propos, comment afficher au départ un tree_view replié ?

Mais notre maître à tous est Jack par son projet, sa volonté de promouvoir ce merveilleux langage qu'il construit pendant ses temps libres avec passion et générosité.
C'est quelque chose qui doit être reconnu et félicité.
Alors Bravo Jack et merci.
J'espère que quelques donateurs dont je fais partie sauront saluer ton travail et ton investissement.
 
Merci à tous et grande vie à ce forum que je consulte journellement et qui me donne tant de bonheur.
Maintenant que je vais un peu mieux, je vais poster mes petits programmes lorsque j'aurai compris comment l'on fait.

Toutes mes amitiés à notre communauté.
Mike  

Merci pour lui Mike. Je pense que c'est le genre de messages qui doivent lui faire du bien de temps en temps. Surtout quand il se casse la tête sur une problématique à résoudre.

 Bravo Jack !

Les problèmes avec Right$, Left$ et Mid$ que j' ai rencontré 
sont résolus avec cette version.

Merci Mike, et merci de tester FBPano.

Ta question sur le TREEVIEW est très judicieuse. Je te répondrai sur le forum FBPano... quand j'aurai résolu le problème

Pedro Alvarez a écrit:

Toujours impossible pour moi de compiler mon programme de traduction.

Le problème des 'if' est toujours bloquant.

Le compilateur me signale une erreur sur une ligne vide !!

Je regarde ce problème

PRINT_LOCATE X,Y < --- équivalent à  print_locate 0,0 quelque soit x et y




PRINT_X_LOCATE et PRINT_Y_LOCATE : < --- OK

@Jack,

J' ai ce message à la fermeture du compilateur.

Bonjour tout le monde.

@Jack

J’ai voulu pousser un peu plus le test du compilateur, alors je lui ai soumis un assez gros programme (un peu plus de 40 000 lignes, la quasi-totalité sont des lignes DATA).
Après sauvegarde du code, j’ai lancé la compilation tout en laissant sous mes yeux le dossier du programme ouvert.
La compilation commence et la fenêtre de la console s’ouvre et tout le processus se déroule : création des dossiers win, lib, crt, bin et les autres fichiers intermédiaires, etc.
Et puis rien ne se passe : seul le curseur de la console clignote.
J’ai du attendre entre 5 et 6 minutes pour qu’enfin le message compilation is Ok… apparaisse.

Je trouve qu’attendre devant un écran 5 ou 6 minutes pour compiler un programme n’est pas tout à fait satisfaisant.
Qu'en penses-tu ?
C’est vrai que le programme est volumineux, mais tout de même 5 minutes c’est beaucoup.

NB :
1- j’ai récupéré le fichier .asm pour le consulter : il fait plus de 2.5 millions de lignes.
2- L’exécution a duré une bonne minute avant de pouvoir voir le résultat à l’écran.
3- Le même programme soumis à l'interpréteur a nécessité environ deux minutes.


Le programme étant trop volumineux pour être posté sur le Forum, vous pouvez le récupérer sur mon webdav sous : Carte_De_France_2.zip
Il contient :
Carte_De_France_2.bas
Carte_De_France_2.exe
et le résultat de l'exécution : Carte_De_France_2.jpg

Chez moi le *.exe ne répond pas. (Même si je ne lui pose pas de question  )
Avec l' interpréteur c' est....long,très long.
Mieux vaut un fichier annexe et file_load pour des fichiers de cette taille.

On_Close 0 provoque un .
Dans certains cas comme le suivant j' ai un message "...a cessé de fonctionner".
Dans un autre plus long (beaucoup plus long ) la fenêtre principale s' ouvre et se referme aussi tôt.

Code:

label Fermer

on_close 0,Fermer
end

Fermer:
  message "La fenêtre va se fermer !"
return

Pb avec Timer :

Code:

dim tps% : tps%=100
dim etat%

label clic,compte

button 1
caption 1,"Timer on"
on_click 1,clic

timer 2
timer_off 2
timer_interval 2,1000
on_timer 2,compte
end

clic:
  if etat%=0
      etat%=1
      caption 1,"Timer off"
      timer_on 2
  else
      etat%=0
      caption 1,"Timer_on"
      timer_off 2
  end_if     
return

compte:
  tps%=tps%-1
  caption 0,str$(tps%)
return

Bon, le chat noir sort...

Comme Yannick n'a pas écrit ce qu'était le problème avec Timer, l'éxécution du code donne :





Le "chat noir" habite-t-il à l'adresse 8*0 ?

Le chat noir est de retour.

Pb avec item_select N,i% qui ne selecte pas...

Code:

dim i%

combo 1
for i%=1 to 10
   item_add 1,str$(i%)
next i%
item_select 1,8
end

Heu...ils sont où les Panoramiciens ?...

Peut-être ici:

Bonjour à tous.

Je pense que Jack devrait nous informer plus souvent de l'avancement de ses travaux sur le compilateur.

Franchement, cela me soûle de devoir attendre plusieurs jours la correction d'un bug, sachant qu'il doit en rester des dizaines à corriger.

Citation :

Je pense que Jack devrait nous informer plus souvent de l'avancement de ses travaux sur le compilateur.

Je pense que je communique suffisamment sur l'avancement du compilateur. Il y a eu 7 versions en un mois et demi !
J'ai même créé une rubrique https://panoramic.1fr1.net/f37-le-suivi-des-problemes-signales pour donner l'état d'avancement de la résolution des bugs.

Citation :

cela me soûle de devoir attendre plusieurs jours la correction d'un bug, sachant qu'il doit en rester des dizaines à corriger

Le compilateur est un logiciel conçu par un homme qui n'est pas parfait, à qui il arrive de faire des erreurs, de se tromper, mais qui essaye tant bien que mal de corriger ses erreurs...
Ah si je savais le nombre de bugs que le compilateur contient encore !!!
Ma politique est de cumuler le maximum de corrections à chaque nouvelle version. Cela prend du temps de générer une nouvelle version et je ne veux pas en sortir une à chaque fois que je corrige un bug. Il faut donc attendre quelques jours que plusieurs bugs soient corrigés.

De plus, tu oublies que je n'ai pas une équipe de développeurs à ma disposition.
Je ne suis pas une entreprise.
Je ne travaille pas pour des clients.
Je sais que les panoramiciens sont impatients mais je pense être suffisamment réactif.

Alors désolé, mais il va falloir patienter encore quelques jours ...

Voilà un code qui ne pose pas de problèmes avec l' interpréteur.
Il est lu et exécuté.
Avec le compilateur, aucune erreur signalée mais l' exécution du *.exe donne droit à un message "...a cessé de fonctionner".

Code:

dim a$
label Voitures,Animaux

list 1
full_space 1

restore_label Animaux
item_add 1,""
item_add 1,"Animaux"
item_add 1,""
read a$
if a$<>"fin" : item_add 1,a$ : end_if
while a$<>"fin"
  read a$
  if a$<>"fin" : item_add 1,a$ : end_if
end_while

pause 2000

restore_label Voitures
item_add 1,""
item_add 1,"Voitures"
item_add 1,""
read a$
if a$<>"fin" : item_add 1,a$ : end_if
while a$<>"fin"
  read a$
  if a$<>"fin" : item_add 1,a$ : end_if
end_while
 
end


Voitures:
Data "Peugeot","Citroën","Renault","Fiat","BMW","fin"
return
Animaux:
Data "Chien","Coq","Cheval","Mouton","Renard","fin"
return

Bonjour.

Si cela peut aider Jack, je pense avoir trouvé la source de l'erreur dans le code de Yannick.
Le problème vient de la commande restore_label.
En effet, lorsque la ligne 'restore_label Animaux' est mise en commentaire, tout fonctionne parfaitement, le compilateur exécute le code sans problème.

Code:

dim a$
label Voitures, Animaux

list 1
full_space 1

restore_label Animaux
item_add 1,""
item_add 1,"Animaux"
item_add 1,""
read a$
if a$<>"fin" : item_add 1,a$ : end_if
while a$<>"fin"
  read a$
  if a$<>"fin" : item_add 1,a$ : end_if
end_while

pause 2000

' restore_label Voitures
' item_add 1,""
' item_add 1,"Voitures"
' item_add 1,""
' read a$
' if a$<>"fin" : item_add 1,a$ : end_if
' while a$<>"fin"
  ' read a$
  ' if a$<>"fin" : item_add 1,a$ : end_if
' end_while
 
end

Animaux:
Data "Chien","Coq","Cheval","Mouton","Renard","fin"
return
Voitures:
Data "Peugeot","Citroën","Renault","Fiat","BMW","fin"
return