src/extension/script/inkscape_perl.pm

   1 # This file was automatically generated by SWIG
   2 package inkscape_perl;
   3 require Exporter;
   4 @ISA = qw(Exporter);
   5 package inkscape_perlc;
   6 boot_inkscape_perl();
   7 package inkscape_perl;
   8 @EXPORT = qw( );
   9
  10 # ---------- BASE METHODS -------------
  11
  12 package inkscape_perl;
  13
  14 sub TIEHASH {
  15     my ($classname,$obj) = @_;
  16     return bless $obj, $classname;
  17 }
  18
  19 sub CLEAR { }
  20
  21 sub FIRSTKEY { }
  22
  23 sub NEXTKEY { }
  24
  25 sub FETCH {
  26     my ($self,$field) = @_;
  27     my $member_func = "swig_${field}_get";
  28     $self->$member_func();
  29 }
  30
  31 sub STORE {
  32     my ($self,$field,$newval) = @_;
  33     my $member_func = "swig_${field}_set";
  34     $self->$member_func($newval);
  35 }
  36
  37 sub this {
  38     my $ptr = shift;
  39     return tied(%$ptr);
  40 }
  41
  42
  43 # ------- FUNCTION WRAPPERS --------
  44
  45 package inkscape_perl;
  46
  47 *getInkscape = *inkscape_perlc::getInkscape;
  48
  49 ############# Class : inkscape_perl::Inkscape ##############
  50
  51 package inkscape_perl::Inkscape;
  52 @ISA = qw( inkscape_perl );
  53 %OWNER = ();
  54 %ITERATORS = ();
  55 sub DESTROY {
  56     return unless $_[0]->isa('HASH');
  57     my $self = tied(%{$_[0]});
  58     return unless defined $self;
  59     delete $ITERATORS{$self};
  60     if (exists $OWNER{$self}) {
  61         inkscape_perlc::delete_Inkscape($self);
  62         delete $OWNER{$self};
  63     }
  64 }
  65
  66 *getDesktop = *inkscape_perlc::Inkscape_getDesktop;
  67 *getDialogManager = *inkscape_perlc::Inkscape_getDialogManager;
  68 sub DISOWN {
  69     my $self = shift;
  70     my $ptr = tied(%$self);
  71     delete $OWNER{$ptr};
  72 }
  73
  74 sub ACQUIRE {
  75     my $self = shift;
  76     my $ptr = tied(%$self);
  77     $OWNER{$ptr} = 1;
  78 }
  79
  80
  81 ############# Class : inkscape_perl::DialogManager ##############
  82
  83 package inkscape_perl::DialogManager;
  84 @ISA = qw( inkscape_perl );
  85 %OWNER = ();
  86 %ITERATORS = ();
  87 sub DESTROY {
  88     return unless $_[0]->isa('HASH');
  89     my $self = tied(%{$_[0]});
  90     return unless defined $self;
  91     delete $ITERATORS{$self};
  92     if (exists $OWNER{$self}) {
  93         inkscape_perlc::delete_DialogManager($self);
  94         delete $OWNER{$self};
  95     }
  96 }
  97
  98 *showAbout = *inkscape_perlc::DialogManager_showAbout;
  99 sub DISOWN {
 100     my $self = shift;
 101     my $ptr = tied(%$self);
 102     delete $OWNER{$ptr};
 103 }
 104
 105 sub ACQUIRE {
 106     my $self = shift;
 107     my $ptr = tied(%$self);
 108     $OWNER{$ptr} = 1;
 109 }
 110
 111
 112 ############# Class : inkscape_perl::Desktop ##############
 113
 114 package inkscape_perl::Desktop;
 115 @ISA = qw( inkscape_perl );
 116 %OWNER = ();
 117 %ITERATORS = ();
 118 sub DESTROY {
 119     return unless $_[0]->isa('HASH');
 120     my $self = tied(%{$_[0]});
 121     return unless defined $self;
 122     delete $ITERATORS{$self};
 123     if (exists $OWNER{$self}) {
 124         inkscape_perlc::delete_Desktop($self);
 125         delete $OWNER{$self};
 126     }
 127 }
 128
 129 *getDocument = *inkscape_perlc::Desktop_getDocument;
 130 sub DISOWN {
 131     my $self = shift;
 132     my $ptr = tied(%$self);
 133     delete $OWNER{$ptr};
 134 }
 135
 136 sub ACQUIRE {
 137     my $self = shift;
 138     my $ptr = tied(%$self);
 139     $OWNER{$ptr} = 1;
 140 }
 141
 142
 143 ############# Class : inkscape_perl::Document ##############
 144
 145 package inkscape_perl::Document;
 146 @ISA = qw( inkscape_perl );
 147 %OWNER = ();
 148 %ITERATORS = ();
 149 sub DESTROY {
 150     return unless $_[0]->isa('HASH');
 151     my $self = tied(%{$_[0]});
 152     return unless defined $self;
 153     delete $ITERATORS{$self};
 154     if (exists $OWNER{$self}) {
 155         inkscape_perlc::delete_Document($self);
 156         delete $OWNER{$self};
 157     }
 158 }
 159
 160 *hello = *inkscape_perlc::Document_hello;
 161 sub DISOWN {
 162     my $self = shift;
 163     my $ptr = tied(%$self);
 164     delete $OWNER{$ptr};
 165 }
 166
 167 sub ACQUIRE {
 168     my $self = shift;
 169     my $ptr = tied(%$self);
 170     $OWNER{$ptr} = 1;
 171 }
 172
 173
 174 # ------- VARIABLE STUBS --------
 175
 176 package inkscape_perl;
 177
 178 1;