moving trunk for module inkscape

(bzr r1)

1 files changed, 187 insertions, 0 deletions

diff --git a/src/extension/script/inkscape_perl.pm.h b/src/extension/script/inkscape_perl.pm.h
new file mode 100644
index 000000000..b33b16045
--- /dev/null
+++ b/src/extension/script/inkscape_perl.pm.h
@@ -0,0 +1,187 @@
+
+/* ###################################################
+## This file generated by quotefile.pl from
+## inkscape_perl.pm on Thu Dec 16 15:35:48 2004
+## DO NOT EDIT
+################################################### */
+
+static char *inkscape_module_script =
+"# This file was automatically generated by SWIG\n"
+"package inkscape_perl;\n"
+"require Exporter;\n"
+"@ISA = qw(Exporter);\n"
+"package inkscape_perlc;\n"
+"boot_inkscape_perl();\n"
+"package inkscape_perl;\n"
+"@EXPORT = qw( );\n"
+"\n"
+"# ---------- BASE METHODS -------------\n"
+"\n"
+"package inkscape_perl;\n"
+"\n"
+"sub TIEHASH {\n"
+"    my ($classname,$obj) = @_;\n"
+"    return bless $obj, $classname;\n"
+"}\n"
+"\n"
+"sub CLEAR { }\n"
+"\n"
+"sub FIRSTKEY { }\n"
+"\n"
+"sub NEXTKEY { }\n"
+"\n"
+"sub FETCH {\n"
+"    my ($self,$field) = @_;\n"
+"    my $member_func = \"swig_${field}_get\";\n"
+"    $self->$member_func();\n"
+"}\n"
+"\n"
+"sub STORE {\n"
+"    my ($self,$field,$newval) = @_;\n"
+"    my $member_func = \"swig_${field}_set\";\n"
+"    $self->$member_func($newval);\n"
+"}\n"
+"\n"
+"sub this {\n"
+"    my $ptr = shift;\n"
+"    return tied(%$ptr);\n"
+"}\n"
+"\n"
+"\n"
+"# ------- FUNCTION WRAPPERS --------\n"
+"\n"
+"package inkscape_perl;\n"
+"\n"
+"*getInkscape = *inkscape_perlc::getInkscape;\n"
+"\n"
+"############# Class : inkscape_perl::Inkscape ##############\n"
+"\n"
+"package inkscape_perl::Inkscape;\n"
+"@ISA = qw( inkscape_perl );\n"
+"%OWNER = ();\n"
+"%ITERATORS = ();\n"
+"sub DESTROY {\n"
+"    return unless $_[0]->isa('HASH');\n"
+"    my $self = tied(%{$_[0]});\n"
+"    return unless defined $self;\n"
+"    delete $ITERATORS{$self};\n"
+"    if (exists $OWNER{$self}) {\n"
+"        inkscape_perlc::delete_Inkscape($self);\n"
+"        delete $OWNER{$self};\n"
+"    }\n"
+"}\n"
+"\n"
+"*getDesktop = *inkscape_perlc::Inkscape_getDesktop;\n"
+"*getDialogManager = *inkscape_perlc::Inkscape_getDialogManager;\n"
+"sub DISOWN {\n"
+"    my $self = shift;\n"
+"    my $ptr = tied(%$self);\n"
+"    delete $OWNER{$ptr};\n"
+"}\n"
+"\n"
+"sub ACQUIRE {\n"
+"    my $self = shift;\n"
+"    my $ptr = tied(%$self);\n"
+"    $OWNER{$ptr} = 1;\n"
+"}\n"
+"\n"
+"\n"
+"############# Class : inkscape_perl::DialogManager ##############\n"
+"\n"
+"package inkscape_perl::DialogManager;\n"
+"@ISA = qw( inkscape_perl );\n"
+"%OWNER = ();\n"
+"%ITERATORS = ();\n"
+"sub DESTROY {\n"
+"    return unless $_[0]->isa('HASH');\n"
+"    my $self = tied(%{$_[0]});\n"
+"    return unless defined $self;\n"
+"    delete $ITERATORS{$self};\n"
+"    if (exists $OWNER{$self}) {\n"
+"        inkscape_perlc::delete_DialogManager($self);\n"
+"        delete $OWNER{$self};\n"
+"    }\n"
+"}\n"
+"\n"
+"*showAbout = *inkscape_perlc::DialogManager_showAbout;\n"
+"sub DISOWN {\n"
+"    my $self = shift;\n"
+"    my $ptr = tied(%$self);\n"
+"    delete $OWNER{$ptr};\n"
+"}\n"
+"\n"
+"sub ACQUIRE {\n"
+"    my $self = shift;\n"
+"    my $ptr = tied(%$self);\n"
+"    $OWNER{$ptr} = 1;\n"
+"}\n"
+"\n"
+"\n"
+"############# Class : inkscape_perl::Desktop ##############\n"
+"\n"
+"package inkscape_perl::Desktop;\n"
+"@ISA = qw( inkscape_perl );\n"
+"%OWNER = ();\n"
+"%ITERATORS = ();\n"
+"sub DESTROY {\n"
+"    return unless $_[0]->isa('HASH');\n"
+"    my $self = tied(%{$_[0]});\n"
+"    return unless defined $self;\n"
+"    delete $ITERATORS{$self};\n"
+"    if (exists $OWNER{$self}) {\n"
+"        inkscape_perlc::delete_Desktop($self);\n"
+"        delete $OWNER{$self};\n"
+"    }\n"
+"}\n"
+"\n"
+"*getDocument = *inkscape_perlc::Desktop_getDocument;\n"
+"sub DISOWN {\n"
+"    my $self = shift;\n"
+"    my $ptr = tied(%$self);\n"
+"    delete $OWNER{$ptr};\n"
+"}\n"
+"\n"
+"sub ACQUIRE {\n"
+"    my $self = shift;\n"
+"    my $ptr = tied(%$self);\n"
+"    $OWNER{$ptr} = 1;\n"
+"}\n"
+"\n"
+"\n"
+"############# Class : inkscape_perl::Document ##############\n"
+"\n"
+"package inkscape_perl::Document;\n"
+"@ISA = qw( inkscape_perl );\n"
+"%OWNER = ();\n"
+"%ITERATORS = ();\n"
+"sub DESTROY {\n"
+"    return unless $_[0]->isa('HASH');\n"
+"    my $self = tied(%{$_[0]});\n"
+"    return unless defined $self;\n"
+"    delete $ITERATORS{$self};\n"
+"    if (exists $OWNER{$self}) {\n"
+"        inkscape_perlc::delete_Document($self);\n"
+"        delete $OWNER{$self};\n"
+"    }\n"
+"}\n"
+"\n"
+"*hello = *inkscape_perlc::Document_hello;\n"
+"sub DISOWN {\n"
+"    my $self = shift;\n"
+"    my $ptr = tied(%$self);\n"
+"    delete $OWNER{$ptr};\n"
+"}\n"
+"\n"
+"sub ACQUIRE {\n"
+"    my $self = shift;\n"
+"    my $ptr = tied(%$self);\n"
+"    $OWNER{$ptr} = 1;\n"
+"}\n"
+"\n"
+"\n"
+"# ------- VARIABLE STUBS --------\n"
+"\n"
+"package inkscape_perl;\n"
+"\n"
+"1;\n"
+"";