Logo Search packages:      
Sourcecode: inkscape version File versions  Download package

inkscape_perl.pm.h

/* ###################################################
## 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"
"";

Generated by  Doxygen 1.6.0   Back to index