BCJ – 3 – Extensions de Basilic

Ce chapitre spécifie comment étendre Basilic en ajoutant des nouveaux modules (classes).

Un module ( fichier source ) correspond à une classe Java. Les procédures et fonctions définies dans le module sont les « méthodes » de la classe. Ces procédures et fonctions doivent obligatoirement avoir l’attribut static ou public. L’opérateur . Java permettant d’appliquer une méthode à un objet est remplacé en mettant l’objet en paramètre de la procédure ou de la fonction. Un exemple intéressant est l’étude du module textfile implantant les fichiers de type texte

TypeScript

import java.io.*;
java
   BufferedReader fichierIn=null;
   PrintWriter fichierOut=null;
   File fichierTmp=null;
   static String repTemp="tmptmp";
end java
string nomFichier


proc public open(textfile fichier,string nom,int mode)exception
   /*!
   Ouvre un fichier.
   Mode
   0 INPUT                 Lecture
   1 OUTPUT                Creation
   2 EXTEND                Ajout de lignes a la fin du fichier
   3 OUTPUT TEMPORARY FILE Creation d'un fichier temporaire detruit a la fin de l'execution de l'application
   */
   fichier.nomFichier=nom
   switch
   case mode==0
      java
         fichier.fichierIn=new BufferedReader(new FileReader(nom.val));
      end java
   case mode==1
      java
         fichier.fichierOut=new PrintWriter(new FileOutputStream(nom.val));
      end java
   case mode==2
      java
         fichier.fichierOut=new PrintWriter(new FileOutputStream(nom.val,true));
      end java
   case mode==3
      java
         fichier.fichierTmp=new File(nom.val);
         fichier.fichierTmp.deleteOnExit();
         fichier.fichierOut=new PrintWriter(new FileOutputStream(fichier.fichierTmp));
      end java
   default
      throwex("Mode d'ouverture incorrect pour le fichier '"+nom+"'")
   end switch
end proc

proc public setTmp(string nomRepTmp)exception
   /*!
   Initialise le nom du repertoire repTmp contenant les fichiers temporaires,
   par defaut, ce nom est egal a "tmptmp"
   */
   if trim(nomRepTmp)==""
      throwex("Nom de repertoire temporaire vide")
   end if
   java
      repTemp=nomRepTmp.val;
   end java
end proc

func public string openTmp(textfile fichier,string nom,int mode)exception
   /*!
   cree un fichier temporaire avec generation automatique du nom:
   repTmp+"/"+nomUtilisateur+"/"+nom+stamp()
   le parametre mode ne sert a rien, il est conserve pour compatibilite
   avec l'open classique
   */
   string r
   java
      r.val=repTemp;
   end java
   r=r+"/"+systemGetProperty("user.name")+"/"+nom+stamp()
/*   
   java
      r.val=r.val+bcjprofun.systemGetProperty(new bcjstring("user.name")).val;
   end java
   r=r+"/"+nom

   java
      r.val=r.val+bcjsystem.stamp().val;
      bcjsystem.createDirectories(r);
   end java
*/
   createDirectories(r)
   open(fichier,r,3)
   return r
end func

func public boolean readLine(textfile fichier,string ligne)exception
   /*!
   Lit une ligne
   Retourne vrai si OK
   Retourne faux si on est arrive en fin de fichier
   Exemple:
   textfile fich
   string ligne
   boolean b
   try
      open(fich,"toto.txt",0)
      b=readLine(fich,ligne)
      while b
         println(ligne)
         b=readLine(fich,ligne)
      end while
      close(fich)
   catch
      println(exceptionToString())
   end catch
   */
   boolean r
   java
      String w;
      w=fichier.fichierIn.readLine();
      if(w==null)
      {
         ligne.val="";
         r.val=false;
      }
      else
      {
         ligne.val=w;
         r.val=true;
      }
   end java
   return r
end func

proc public close(textfile fichier)exception
   /*!
   Fermeture du fichier
   */
   java
      if(fichier.fichierIn!=null)
      {
         fichier.fichierIn.close();
         fichier.fichierIn=null;
         return;
      }
      if(fichier.fichierOut!=null)
      {
         fichier.fichierOut.close();
         fichier.fichierOut=null;
         return;
      }
   end java
   throwex("'close' sur le fichier '"+fichier.nomFichier+"' non ouvert")
end proc

proc public print(textfile fichier,string d)exception
   /*!
   Ecrit dans le fichier sans passer a la ligne
   */
   java
      fichier.fichierOut.print(d.val);
   end java
end proc

proc public println(textfile fichier,string d)exception
   /*!
   Ecrit dans le fichier en passant a la ligne
   */
   java
      fichier.fichierOut.println(d.val);
   end java
end proc

func public int getLineNumber(string nomFichier)exception
   /*!
   Retourne le nombre de lignes du fichier
   */
   textfile fichIn
   int n
   boolean b
   string ligne
   n=0
   open(fichIn,nomFichier,0)
   b=readLine(fichIn,ligne)
   while b
      n=n+1
      b=readLine(fichIn,ligne)
   end while
   close(fichIn)
   return n
end func

func public string[] getFileArray(string nomFichier)exception
   /*!
   Charger un tableau directement
   */
   string[]t
   int n,i
   boolean b
   textfile fichIn
   dim t[getLineNumber(nomFichier)]
   n=length(t)
   open(fichIn,nomFichier,0)
   for i while i<n
      b=readLine(fichIn,t[i])
   end for
   close(fichIn)
   return t
end func

proc public putFileArray(string nomFichier,string[]t)exception
   /*!
   Ecrit le contenu d'un tableau
   */
   int n,i
   textfile fichOut
   n=length(t)
   open(fichOut,nomFichier,1)
   for i while i<n
      println(fichOut,t[i])
   end for
   close(fichOut)
end proc

proc public putFileString(string nomFichier,string data)exception
   /*!
   Ecrit un fichier contenant la chaine data
   */
   textfile fichOut
   open(fichOut,nomFichier,1)
   print(fichOut,data)
   close(fichOut)
end proc

func public string getFileString(string nomFichier)exception
/*!
Retourne le contenu d'un fichier texte
*/
   string r
   java
      FileInputStream fich;
      fich=new FileInputStream(nomFichier.val);
      byte[]b=new byte[fich.available()];
      fich.read(b,0,b.length);
      fich.close();
      r.val=new String(b,0,b.length);
   end java
   r=replace(r,"\r","")
   return r
end func

Remarques

Ligne 20, l’opérateur . permet de référencer un attribut (variable) de l’objet.
Les procédures et fonctions ayant l’attribut public peuvent être utilisées, celles possédant l’attribut static sont « privées » (utilisables uniquement dans le module).

Opérateurs

Il est possible de définir des opérateurs pour les objets d’un module. Pour cela il suffit d’implanter une procédure ou une fonction « spéciale » pour disposer de l’opérateur correspondant.

Opérateur  Fonction
=          proc public set(*,*)
or         func public boolean or(*,*)
and        func public boolean and(*,*)
<          func public boolean cmplt(*,*)
<=         func public boolean cmple(*,*)
>          func public boolean cmpgt(*,*)
>=         func public boolean cmpge(*,*)
==         func public boolean cmpeq(*,*)
!=         func public boolean cmpne(*,*)
+          func public * add(*.*)
-          func public * sub(*.*)
*          func public * mul(*.*)
/          func public * div(*.*)
%          func public * mod(*.*)
- unaire   func public * neg(*)

Dans le tableau ci-dessus, le symbole * représente une variable de type quelconque. Pour une fonction ou une procédure d’opérateur, le type désigné par * doit être le même. On regardera avec intérêt le module string défini dans cbstring.bcj. Il convient de définir un constructeur (ligne 4 ci-dessous) pour implanter les notations et une fonction get (ligne 8) pour récupérer la valeur correspondant au type natif.

TypeScript

java
   
   String val="";
   cbstring(String d)
   {
      val=d;
   }
   static String get(cbstring d)
   {
    return d.val;
   }
end java

proc public set(string r,string d)
   java
      r.val=d.val;
   end java
end proc

func public boolean cmplt(string op1,string op2)
   boolean r
   java
      r.val=op1.val.compareTo(op2.val)<0;
   end java
   return r
end func

func public boolean cmple(string op1,string op2)
   boolean r
   java
      r.val=op1.val.compareTo(op2.val)<=0;
   end java
   return r

end func

func public boolean cmpgt(string op1,string op2)
   boolean r
   java
      r.val=op1.val.compareTo(op2.val)>0;
   end java
   return r

end func

func public boolean cmpge(string op1,string op2)
   boolean r
   java
      r.val=op1.val.compareTo(op2.val)>=0;
   end java
   return r

end func

func public boolean cmpeq(string op1,string op2)
 
   boolean r
   java
      r.val=op1.val.compareTo(op2.val)==0;
   end java
   return r

end func

func public boolean cmpne(string op1,string op2)
  
   boolean r
   java
      r.val=op1.val.compareTo(op2.val)!=0;
   end java
   return r

end func

func public string add(string op1,string op2)
   string r
   java
      r.val=op1.val+op2.val;
   end java
   return r

end func

Règles de recherche des modules

Pour utiliser un module basilic, il n’est pas nécessaire d’utiliser de directive de style #include (langage C) ou import (Java). On dispose automatiquement de tous les modules définis dans le fichier bcj.ini

TypeScript

[types]
type=boolean:core/cbboolean.bcj
type=int:core/cbint.bcj
type=string:core/cbstring.bcj
type=double:core/cbdouble.bcj
type=long:core/cblong.bcj
type=byte:core/cbbyte.bcj
type=system:core/cbsystem.bcj
type=console:core/cbconsole.bcj
type=stringvector:core/cbstringvector.bcj
type=conversions:core/cbconversions.bcj
type=lexical:core/cblexical.bcj
type=datetime:core/cbdatetime.bcj
type=filedirectory:core/cbfiledirectory.bcj
type=textfile:core/cbtextfile.bcj
type=inifile:core/cbinifile.bcj
type=arraytools:core/cbarraytools.bcj
type=stringhashmap:core/cbstringhashmap.bcj
type=stringstack:core/cbstringstack.bcj
type=zip:core/cbzip.bcj
type=property:core/cbproperty.bcj
type=task:core/cbtask.bcj
type=taskmanager:core/cbtaskmanager.bcj
type=tools:core/cbtools.bcj

Pour ajouter un module, il suffit d’ajouter une ligne

type=nom du module:chemin du source

Dans un module, on peut utiliser toutes les procédures et fonctions décrites dans les modules précédents.

L’ordre d’écriture dans le fichier bcj.ini est donc important. C’est pour cela que l’on trouve au début de ce fichier les définitions correspondant aux types primitifs (boolean, int,…)

Grimeco

BCJ – 3 – Extensions de Basilic

A DECOUVRIR EGALEMENT

Basilic, Client FTP

Basilic, Fichiers Jars, Java Derby

Goodies pour Basilic

Laisser un commentaire Annuler la réponse