← Back to branch summary

~valavanisalex/ubuntu/oneiric/inkscape/inkscape_0.48.1-2ubuntu4

« back to all changes in this revision

Viewing changes to src/extension/script/inkscape_perl.pm

  • Committer: Bazaar Package Importer
  • Author(s): Kees Cook, Ted Gould, Kees Cook
  • Date: 2009-06-24 14:00:43 UTC
  • mfrom: (1.1.8 upstream)
  • Revision ID: james.westby@ubuntu.com-20090624140043-07stp20mry48hqup
Tags: 0.47~pre0-0ubuntu1
* New upstream release

[ Ted Gould ]
* debian/control: Adding libgsl0 and removing version specifics on boost

[ Kees Cook ]
* debian/watch: updated to run uupdate and mangle pre-release versions.
* Dropped patches that have been taken upstream:
  - 01_mips
  - 02-poppler-0.8.3
  - 03-chinese-inkscape
  - 05_fix_latex_patch
  - 06_gcc-4.4
  - 07_cdr2svg
  - 08_skip-bad-utf-on-pdf-import
  - 09_gtk-clist
  - 10_belarussian
  - 11_libpng
  - 12_desktop
  - 13_slider
  - 100_svg_import_improvements
  - 102_sp_pattern_painter_free
  - 103_bitmap_type_print

Show diffs side-by-side

added added

removed removed

Lines of Context:
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;