Pour les inconditionnels, cette section présente les fonctions Perl et Javascript qui implémentent la syntaxe présentée.
1. Syntaxe de l'éditeur structuré
| refText | Retourner la valeur d'environnement d'un « texte » sous la forme d'un tableau des noms d'attributs | ||||||||||||
| Syntaxe | refText(nom,TIN) | ||||||||||||
| Paramètres |
| ||||||||||||
| Fonctions util. | Néant. |
| Code Perl |
sub refText {local($nom,$TIN) = @_;
if (!(defined $$TIN{$nom})) {return ()}
local $x = $$TIN{$nom};
local(@T,$y);
@T = ();
while($x=~/(\/#\w+=)/) {
$y = $1; $x = substr($x,index($x,$y)+length($y));
$y=~/\/#(\w+)=/; $T[scalar(@T)] = $1;
}
return @T;
}
|
| Code JavaScript |
function refText(nom,TIN) {
if (typeof(TIN[0][nom])=="undefined") {return []}
var x = TIN[0][nom];
var T,y;
T = [];
while(x.match(/(\/#\w+=)/)) {
y = RegExp.$1; x = x.substr(x.indexOf(y)+y.length);
y.match(/\/#(\w+)=/); T[T.length] = RegExp.$1;
}
return T;
}
|