diff options
| author | bouyssou | 2008-01-09 14:32:59 +0000 |
|---|---|---|
| committer | bouyssou | 2008-01-09 14:32:59 +0000 |
| commit | f52ffa82f1eb73b11e27ea1daddc468ee84adf2a (patch) | |
| tree | 64de8e15f8a21e5657276f11908a37222edf0ab2 /src | |
| parent | 937c7a8e097a6ef0af3989cfcc492b06d95b35ad (diff) | |
| download | mtc-f52ffa82f1eb73b11e27ea1daddc468ee84adf2a.zip mtc-f52ffa82f1eb73b11e27ea1daddc468ee84adf2a.tar.gz mtc-f52ffa82f1eb73b11e27ea1daddc468ee84adf2a.tar.bz2 mtc-f52ffa82f1eb73b11e27ea1daddc468ee84adf2a.tar.xz | |
On peut désormais accéder aux objets zinc via une table de hash. Attention ! il est impératif de supprimer et regénérer vos fichiers contenu dans les répertoires AUTOGEN.
Diffstat (limited to 'src')
| -rw-r--r-- | src/SVG/SVG2zinc/Backend/PerlClass.pm | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/src/SVG/SVG2zinc/Backend/PerlClass.pm b/src/SVG/SVG2zinc/Backend/PerlClass.pm index 7b0df4d..9d2f9e9 100644 --- a/src/SVG/SVG2zinc/Backend/PerlClass.pm +++ b/src/SVG/SVG2zinc/Backend/PerlClass.pm @@ -92,6 +92,7 @@ sub treatLines { { $l =~ s/^(\s*)->/$1\$_zinc->/g; $l =~ s/(\W)->/$1\$_zinc->/g; + $l =~ s/HASHKEY{\'(\w+)\'}/\$self -> {children} -> {$1} = /g; $self -> printLines($l); } } @@ -105,7 +106,7 @@ sub dtreatLines { $l =~ s/^(\s*)->/$1\$_zinc-> /g; $l =~ s/(\W)->/$1\$_zinc-> /g; - + $l =~ s/HASHKEY{\'([0-9a-zA-Z_\-]+)\'}/\$self -> {children} -> {\'$1\'} = /g; } if (@lines) { |