Scripts en formules dynamiques

On avait déjà la possibilité d'exécuter des scripts avec VBScript (outil gratuit de Microsoft), mais cet outil n'est pas installé partout, et ce n'est pas si facile que ça à utiliser.

Quelques fois, on aimerait juste exécuter une expression, mais dont on ne connaît pas la formule au moment où on écrit le programme. On aimerait bien pouvoir construire des formules dynamiquement, et pourquoi pas, de petits morceaux de code.

J'ai trouvé un petit module en Delphi qui fait exactement ça, et je l'ai rendu accessible par une DLL nommée Scripting.dll. Tout est disponible sur mon WebDav;
Site: http://www.mydrive.ch/
Identifiant: panoramic@klausgunther
Mot de passe: panoramic123
Dossier: Scripting

Vous y trouverez les fichiers suivants:

CalcDemo.exe - un programme de démonstration fait en Delphi par l'auteur du module. Ce programme contient aussi une documentation succinte mais précise des possibilités du programme.

panoramic_script.bas - programme fait par moi pour montrer ces mêmes possibilités en Panoramic

Scripting.dll - la fameuse DLL

Scripting.txt - la doc (en anglais) extraite de CalcDemo.exe

Informations générales:
Cette DLL permet d'évaluer une expres​sion(numérique, logique ou texte), ou d'excuter un script réalisé dans un langage simple qui est documenté dans Scripting.txt. Pour cela, on a des variables qu'on peut utiliser en entrée et qui peuvent recevoir des valeurs en sortie. Ces variables sont définies dans le MEMO de gauche sous la forme:
mavariable=valeur

Un champ EDIT permet de saisir une formule, telle que
(x-3*sin(y))+20
Le bouton "Exec. Expr." donne le résultat de la formule à droite, et affiche les variables modifiées dans le MEMO de droite.

Le MEMO du milieu permet de saisir un programme (script) et de l'exécuter avec le bouton "Exec. script". En guise de résultat, on a cette fois les variables modifiées dans le MEMO de droite, et la remarque "OK" dans le champ de résultat. Un programme simple pourrait être celui-ci:
Variables:
pi=0
Programme:
pi := 4*arctg(1);
END.

Dans tous les cas, une erreur est signalée dans le champ de résultat, sous forme d'un message explicite.

La DLL se pilote par 5 fonctions:

Initialisation OBLIGATOIRE du système, après dll_on:
res%=dll_call0("ScriptInit")

Arrêt du système (conseillé avantg dll_off):
res% = dll_call0("ScriptReset")

Retour de l'état du système:
res% = dll_call0("ScriptStatus") retourne 1 si ScriptInit a été exécuté, et 0 sinon

Evaluation d'une expression:
res% = dll_call4("ScriptExpression",adr(var$),adr(expression$),adr(varout$),adr(res$))
var$ est la liste des déclarations de variables, séparées per CR LF
expression$ est l'expression à évaluer
varout$ est une variable avsc suffisamment d'espaces pour recevoir les variables en sortie
res$ est une variable avec suffisamment d'espaces pour recevoir le résultat ou le message d'erreur.
Construisez ces variables par string$(255," ") avant l'appel de la fonction.

Exécution d'un programme:
res% = dll_call4("ScriptProgram",adr(var$),adr(script$),adr(varout$),adr(res$))
script$ est la liste des lignes du programme, séparées par des CR LF
les autres paramètres sont identiques à ceux de la routine précédente.

Ce qui est sympa avec la fonction "programme", c'est qu'on peut définir ses propres sous-programmes et les utiliser dans ce script, et tout ça dynamiquement.

Je mets tout ça à disposition tel quel. Je vais regarder plus en détail comment on peut étendre le langage pour la programmation des scripts, en lui ajoutant des commandes.

Hum, ça à l'air prometteur, je regarde ça ce soir...

Merci Klaus. Je viens de télécharger.

La possibilité de traiter des programmes de plusieurs lignes est très intéressante. J'avais déjà fait une DLL en FreeBasic pour les formules mathématiques, mais elle ne traite que des formules d'une ligne.

Rappel : outre le VBS, on peut aussi faire des scripts en C (mais il faut installer le compilateur) :

http://www.unilim.fr/pages_perso/jean.debord/panoramic/tccpano.zip

Oui, j'avais cité VBScript dans mon post initial.

L'avantage de la solution que je propose, c'est qu'en-dehors d'une DLL, il n'y a rien à ajouter, aucun utilitaire à installer. Et tout est interprété directement, sans compilateur. De façon interne, il y a bien une sorte de "compilation", mais dès qu'une expression partielle est analysée, elle est exécutée directement et son résultat utilisé à la place de l'expression, pour la suite de l'analyse.

Autre point fort: la possibilité d'utiliser des variables, même indicées (oui, on a droit à des tableaux de n dimensions !). Des variables texte peuvent contenir elles-mêmes des expressions qu'on peut exécuter avec eval(variable) ! On a droit à des procédures (comme les gosub en Panoramic), et on peut utiliser des données de type entier, flottant ou chaîne de caractères. C'est assez complet.

Je suis en train d'étudier la possibilité d'ajouter des commandes de gestion de fichiers texte...

Pour information : le programme d'origine (daté de 2004) se trouve ici :

http://www.tsoft.szm.com/calcul.zip

Pour ma part, je l'ai trouvé sur SourceForge, mais c'est bien ce logiciel.

La différence, c'est que je suis parti de la version 2.4 du module de calcul, et le lien que tu cites, donne la version 3.3 - plus récente, donc plus intéressante. Je vais m'adapter et revoir ma copie.

Pour les amateurs de fonctions mathématiques, voici un exemple de script :

Code:

/* Calcul de exp(1) avec 12 décimales */
/* par le développement en série      */

x:=1; y:=0; k:=0; u:=1;
while u > 1.0E-12 do
{
  y:=y+u;
  k:=k+1;
  u:=u*x/k;
};
end.

A noter que :

- il ne doit pas y avoir d'espace entre le nom de la variable et l'opérateur d'affectation ( := )
- la syntaxe est un mélange de Pascal (pour les instructions) et de C (pour les commentaires et les accolades)
- il n'y a que la boucle WHILE, pas de FOR..NEXT

En tout cas, c'est un logiciel remarquable. On pourrait s'en servir p. ex. pour faire une calculatrice.

Un autre grand intérêt, ce sont les puissantes fonctions sur les chaînes de caractères. Y compris des substitutions de caractères, traitement des dates et heures, etc. Voilà qui complète utilement les fonctions natives de Panoramic !

Tu fais en ce moment des choses intéressantes.
Je prendrais un jour ou l'autre de regarder de très près ton travail. Tant qu'on peut télécharger, on peut faire l'urgence en premier. A moins qu'il soit nécessaire de faire des évaluations.

Il n'y a aucune urgence. Je propose des choses qui sont liées à ce que je fais pour moi, dans le contexte de mes programmes personnels. Si cela plaît, tant mieux. Et qui sait, cela servira peut-être à quelqu'un, plus tard... En tout cas, c'est mis à disposition, et il est peut-être bon de savoir que cela existe.