src/extension/script/inkscape_perl.pm.h

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