Les macros 4D évoluent avec la 2004

Avec la version 2003 vous aviez pris l'habitude d'avoir un fichier Macros.xml. Dorénavant, comme nous venons de le voir plus haut, les macros 2004 peuvent prendre place dans divers fichiers XML situés dans un dossier spécial du dossier 4D actif. Cette caractéristique va permettre aux auteurs de macros de les répartir et ainsi mieux organiser leur usage.

Encore une nouveauté : la balise <method> </method> qui permet de dynamiser les macros en y ajoutant des méthodes 4D :

   <macro name="FirstTable">
      <text>
         <method>FirstTable</method>
      </text>
   </macro>

La balise macros (avec un s) est la plus haute de toutes dans le fichier XML. On ne peut la trouver qu'une seule fois par fichier XML.

   <macros>
      <macro name="TestMacro">
         <!-- Définition de la macro ici-->
      </macro>
   </macros>

La balise macro (sans s) débute la description d'une macro. À l'intérieur de ce tag, vous définissez ce que doit faire la macro.

Les balises suivantes s'utilisent en solitaire et ne sont pas attachées à une valeur. Notez la position du slash / : <caret/> et non <caret></caret>.

<Selection/> cette balise est remplacée par la sélection

<caret/> quand la macro est appliquée, le point d'insertion se trouve à la place de « caret »

<user_4D/> cette balise est remplacée par le nom d'utilisateur de la session 4D

<user_os/> cette balise est remplacée par le nom de l'utilisateur système courant

<method_name/> cette balise est remplacée par le nom de la méthode 4D executée

<date/> cette balise est remplacée par la date système

<time/> cette balise est remplacée par l'heure système

<clipboard/> cette balise est remplacée par le contenu du presse-papiers.

<method> cette balise est remplacée par le résultat de la méthode exécutée

<text> encadre les valeurs de votre méthode.

Tout texte contenu entre les balises text sera inséré dans la méthode. Il n'est pas possible d'imbriquer deux balises text l'une dans l'autre :

Cette forme d'écriture est impossible :

   <macro name="SayHello">
      <text>
         <text>Hello, <user_os/></text>
      </text>
   </macro>

La bonne syntaxe est :

   <macro name="SayHello">
      <text>
         Hello, <user_os/>! 
      </text>
   </macro>

La balise method permet à une macro d'exécuter une méthode 4D de la base de données. À l'intérieur de cette balise, vous écrivez le nom de la méthode et de ses paramètres s'ils existent.

Imaginons que nous ayons une méthode projet SuperMethode qui utilise un paramètre de type texte. La macro peut faire cet appel :

   <macro name="Appel_Methode">
      <text>
         <method>SuperMethode("<method_name/>")</method>
      </text>
   </macro>

4D 2004 permet l'usage de plusieurs fichiers de macro. Ces fichiers XML doivent être placés dans un dossier « Macros » lui-même placé à côté du fichier de macros Macros.xml, le fichier par défaut.

Nous allons nous essayer à la création d'une petite macro. Ouvrez votre éditeur de texte favori (Sur Mac BBedit est idéal) et écrivez :

   <macros>
      <macro name="TestMacro">
         <text>
            ` Salut, mon nom est <user_os/>
            ` Et je vous donne l'heure. Il est : <time/>
            ` J'ai selectionné le texte <selection/>
            ` Et je continue de saisir ici <caret/>
         </text>
      </macro>
   </macros>

Sauvegardez le tout sous le nom « testMacros.xml ». S'il n'existe pas déjà, créez un dossier Macros dans le dossier 4D actif. Mettez-y « testMacros.xml ». Si vous souhaitez aller plus vite, utilisez le fichier SampleMacros.xml livré avec la démo de la Note technique.

À partir de 4D, ouvrez une méthode et appelez la macro. En version 2004 un nouveau bouton d'appel des macros est accessible depuis la barre d'entête de l'éditeur de méthode. Comme dans la version précédente, vous avez toujours la possibilité de faire un clic droit sur Windows ou contrôle clic sur Mac et choisir la macro.

Et voici le résultat après application de la macro :

Avec l'explication qui suit, vous serez en mesure d'appeler une méthode depuis une macro. Cela est rendu possible grâce à la balise <method>. Exemple suivant appelle la méthode FirstTable :

   <macros>
      <!-- macros -->
      <macro name="FirstTable">
            <text>
            <method>FirstTable</method>
            </text>
      </macro>
   </macros>

Jetons un œil sur la méthode FirstTable (ma première table)

   ` La variable fait savoir à 4D quel type de substitution aura lieu

C_ENTIER LONG(_action)

` On fixe le remplacement de blob en utilisant cette variable
C_BLOB(_blobReplace)

   ` La méthode ne fait que créer du code pour créer des champs
C_POINTEUR($pTable)
$pTable:=Table(1)

TABLEAU TEXTE($fieldTitles;0)
TABLEAU ENTIER LONG($fieldNums;0)

LIRE TITRES CHAMPS($pTable->;$fieldTitles;$fieldNums)

C_ENTIER LONG($i)
C_TEXTE($codeLine;$tableName)

   ` Construction du code et renseignement de la variable de sortie
$tableName:="["+Nom de la table($pTable)+"]"
Boucle ($i;1;Taille tableau($fieldTitles))
   $codeLine:=$tableName+$fieldTitles{$i}+":="+Caractere(Retour chariot )
   TEXTE VERS BLOB($codeLine;_blobReplace;Texte sans longueur ;*)
Fin de boucle

   ` Disons à 4D que nous voulons insérer _blobReplace dans la méthode

_action:=2

Ouvrons une nouvelle méthode et exécutons la macro FirstTable :

La méthode génère le code qui va vous permettre d'assigner une valeur à chacun des champs de la table 1 comme ceci :

[Table 1]Field1:=
[Table 1]Field2:=
[Table 1]Field3:=

Il y a deux variables à remarquer dans la méthode FirstTable : _action et _blobReplace.

Ces variables process réservées disent à 4D que certaines actions doivent être exécutées quand la macro est appliquée. Ces variables process sont gérées par 4D et sont soit des variables d'entrée (contenant des valeurs fournies par 4D), soit des variables de sortie, que vous, développeur, devez assigner.

À présent nous ne souhaitons qu'effectuer des actions sans procéder à des remplacements.

Tout ce que la balise <method> sait faire est d'exécuter une méthode. C'est comme si elle était exécutée dans 4D lui-même, une méthode projet, méthode-objet, etc.

Ceci étant posé, la prochaine macro appellera une méthode TouchTable, créera un enregistrement selon les paramètres passés, sauvegardera et ouvrira une fenêtre affichant le résultat.

   <macro name="TouchTable">
      <text>
         <method> TouchTable("Ajouté par <user_os/>";"<time/>") </method>
      </text>
   </macro>

La macro est toujours du même type si ce n'est que nous passons des paramètres de type chaîne.

Le code de la méthode Touchtable :

   ` Méthode appelée de la macro TouchTable

C_TEXTE($1;$description)
C_TEXTE($2;$timeString)
C_HEURE($time)

$description:=$1
$timeString:=$2

$time:=Heure($timeString)

   ` Créé un enregistrement pour la table Logs et règle certaines valeurs
CREER ENREGISTREMENT([Logs])
[Logs]Description:=$description
[Logs]Timestamp:=$time
[Logs]Id:=Numerotation automatique([Logs])
STOCKER ENREGISTREMENT([Logs])

   ` Affichage du formulaire sortie de la table logs
TOUT SELECTIONNER([Logs])

   ` Ouverture du formulaire sortie
C_ENTIER LONG($window)
$window:=Creer fenetre(100;100;500;500;Fenêtre standard ;"Logs";"CancelButton")
MODIFIER SELECTION([Logs];*)

FERMER FENETRE($window)

Cette fois-ci il n'a pas de variables process réservées. La méthode projet est des plus classique et peut être appelée de n'importe où. Essayez vous-même…