From f52ffa82f1eb73b11e27ea1daddc468ee84adf2a Mon Sep 17 00:00:00 2001
From: bouyssou
Date: Wed, 9 Jan 2008 14:32:59 +0000
Subject: 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.

---
 src/SVG/SVG2zinc/Backend/PerlClass.pm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'src/SVG/SVG2zinc')

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)
     {
-- 
cgit v1.1