/[hyperestraier_wrappers]/0.0.13/perl/HyperEstraier.pm
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Contents of /0.0.13/perl/HyperEstraier.pm

Parent Directory Parent Directory | Revision Log Revision Log


Revision 14 - (show annotations)
Fri Sep 9 15:26:39 2005 UTC (16 years, 1 month ago) by dpavlin
File size: 9289 byte(s)
import of 0.0.13
1 # This file was automatically generated by SWIG
2 package HyperEstraier;
3 require Exporter;
4 require DynaLoader;
5 @ISA = qw(Exporter DynaLoader);
6 package HyperEstraierc;
7 bootstrap HyperEstraier;
8 package HyperEstraier;
9 @EXPORT = qw( );
10
11 # ---------- BASE METHODS -------------
12
13 package HyperEstraier;
14
15 sub TIEHASH {
16 my ($classname,$obj) = @_;
17 return bless $obj, $classname;
18 }
19
20 sub CLEAR { }
21
22 sub FIRSTKEY { }
23
24 sub NEXTKEY { }
25
26 sub FETCH {
27 my ($self,$field) = @_;
28 my $member_func = "swig_${field}_get";
29 $self->$member_func();
30 }
31
32 sub STORE {
33 my ($self,$field,$newval) = @_;
34 my $member_func = "swig_${field}_set";
35 $self->$member_func($newval);
36 }
37
38 sub this {
39 my $ptr = shift;
40 return tied(%$ptr);
41 }
42
43
44 # ------- FUNCTION WRAPPERS --------
45
46 package HyperEstraier;
47
48
49 ############# Class : HyperEstraier::StrVector ##############
50
51 package HyperEstraier::StrVector;
52 @ISA = qw( HyperEstraier );
53 %OWNER = ();
54 %ITERATORS = ();
55 sub new {
56 my $pkg = shift;
57 my $self = HyperEstraierc::new_StrVector(@_);
58 bless $self, $pkg if defined($self);
59 }
60
61 *size = *HyperEstraierc::StrVector_size;
62 *empty = *HyperEstraierc::StrVector_empty;
63 *clear = *HyperEstraierc::StrVector_clear;
64 *push = *HyperEstraierc::StrVector_push;
65 *pop = *HyperEstraierc::StrVector_pop;
66 *get = *HyperEstraierc::StrVector_get;
67 *set = *HyperEstraierc::StrVector_set;
68 sub DESTROY {
69 return unless $_[0]->isa('HASH');
70 my $self = tied(%{$_[0]});
71 return unless defined $self;
72 delete $ITERATORS{$self};
73 if (exists $OWNER{$self}) {
74 HyperEstraierc::delete_StrVector($self);
75 delete $OWNER{$self};
76 }
77 }
78
79 sub DISOWN {
80 my $self = shift;
81 my $ptr = tied(%$self);
82 delete $OWNER{$ptr};
83 }
84
85 sub ACQUIRE {
86 my $self = shift;
87 my $ptr = tied(%$self);
88 $OWNER{$ptr} = 1;
89 }
90
91
92 ############# Class : HyperEstraier::IntVector ##############
93
94 package HyperEstraier::IntVector;
95 @ISA = qw( HyperEstraier );
96 %OWNER = ();
97 %ITERATORS = ();
98 sub new {
99 my $pkg = shift;
100 my $self = HyperEstraierc::new_IntVector(@_);
101 bless $self, $pkg if defined($self);
102 }
103
104 *size = *HyperEstraierc::IntVector_size;
105 *empty = *HyperEstraierc::IntVector_empty;
106 *clear = *HyperEstraierc::IntVector_clear;
107 *push = *HyperEstraierc::IntVector_push;
108 *pop = *HyperEstraierc::IntVector_pop;
109 *get = *HyperEstraierc::IntVector_get;
110 *set = *HyperEstraierc::IntVector_set;
111 sub DESTROY {
112 return unless $_[0]->isa('HASH');
113 my $self = tied(%{$_[0]});
114 return unless defined $self;
115 delete $ITERATORS{$self};
116 if (exists $OWNER{$self}) {
117 HyperEstraierc::delete_IntVector($self);
118 delete $OWNER{$self};
119 }
120 }
121
122 sub DISOWN {
123 my $self = shift;
124 my $ptr = tied(%$self);
125 delete $OWNER{$ptr};
126 }
127
128 sub ACQUIRE {
129 my $self = shift;
130 my $ptr = tied(%$self);
131 $OWNER{$ptr} = 1;
132 }
133
134
135 ############# Class : HyperEstraier::StrStrMap ##############
136
137 package HyperEstraier::StrStrMap;
138 @ISA = qw( HyperEstraier );
139 %OWNER = ();
140 %ITERATORS = ();
141 sub new {
142 my $pkg = shift;
143 my $self = HyperEstraierc::new_StrStrMap(@_);
144 bless $self, $pkg if defined($self);
145 }
146
147 *size = *HyperEstraierc::StrStrMap_size;
148 *empty = *HyperEstraierc::StrStrMap_empty;
149 *clear = *HyperEstraierc::StrStrMap_clear;
150 *get = *HyperEstraierc::StrStrMap_get;
151 *set = *HyperEstraierc::StrStrMap_set;
152 *del = *HyperEstraierc::StrStrMap_del;
153 *has_key = *HyperEstraierc::StrStrMap_has_key;
154 sub DESTROY {
155 return unless $_[0]->isa('HASH');
156 my $self = tied(%{$_[0]});
157 return unless defined $self;
158 delete $ITERATORS{$self};
159 if (exists $OWNER{$self}) {
160 HyperEstraierc::delete_StrStrMap($self);
161 delete $OWNER{$self};
162 }
163 }
164
165 sub DISOWN {
166 my $self = shift;
167 my $ptr = tied(%$self);
168 delete $OWNER{$ptr};
169 }
170
171 sub ACQUIRE {
172 my $self = shift;
173 my $ptr = tied(%$self);
174 $OWNER{$ptr} = 1;
175 }
176
177
178 ############# Class : HyperEstraier::Condition ##############
179
180 package HyperEstraier::Condition;
181 @ISA = qw( HyperEstraier );
182 %OWNER = ();
183 %ITERATORS = ();
184 *SURE = *HyperEstraierc::Condition_SURE;
185 *USUAL = *HyperEstraierc::Condition_USUAL;
186 *FAST = *HyperEstraierc::Condition_FAST;
187 *AGITO = *HyperEstraierc::Condition_AGITO;
188 *NOIDF = *HyperEstraierc::Condition_NOIDF;
189 *SIMPLE = *HyperEstraierc::Condition_SIMPLE;
190 *swig_cond_get = *HyperEstraierc::Condition_cond_get;
191 *swig_cond_set = *HyperEstraierc::Condition_cond_set;
192 sub new {
193 my $pkg = shift;
194 my $self = HyperEstraierc::new_Condition(@_);
195 bless $self, $pkg if defined($self);
196 }
197
198 sub DESTROY {
199 return unless $_[0]->isa('HASH');
200 my $self = tied(%{$_[0]});
201 return unless defined $self;
202 delete $ITERATORS{$self};
203 if (exists $OWNER{$self}) {
204 HyperEstraierc::delete_Condition($self);
205 delete $OWNER{$self};
206 }
207 }
208
209 *set_phrase = *HyperEstraierc::Condition_set_phrase;
210 *add_attr = *HyperEstraierc::Condition_add_attr;
211 *set_order = *HyperEstraierc::Condition_set_order;
212 *set_max = *HyperEstraierc::Condition_set_max;
213 *set_options = *HyperEstraierc::Condition_set_options;
214 sub DISOWN {
215 my $self = shift;
216 my $ptr = tied(%$self);
217 delete $OWNER{$ptr};
218 }
219
220 sub ACQUIRE {
221 my $self = shift;
222 my $ptr = tied(%$self);
223 $OWNER{$ptr} = 1;
224 }
225
226
227 ############# Class : HyperEstraier::Document ##############
228
229 package HyperEstraier::Document;
230 @ISA = qw( HyperEstraier );
231 %OWNER = ();
232 %ITERATORS = ();
233 *swig_doc_get = *HyperEstraierc::Document_doc_get;
234 *swig_doc_set = *HyperEstraierc::Document_doc_set;
235 sub new {
236 my $pkg = shift;
237 my $self = HyperEstraierc::new_Document(@_);
238 bless $self, $pkg if defined($self);
239 }
240
241 sub DESTROY {
242 return unless $_[0]->isa('HASH');
243 my $self = tied(%{$_[0]});
244 return unless defined $self;
245 delete $ITERATORS{$self};
246 if (exists $OWNER{$self}) {
247 HyperEstraierc::delete_Document($self);
248 delete $OWNER{$self};
249 }
250 }
251
252 *add_attr = *HyperEstraierc::Document_add_attr;
253 *add_text = *HyperEstraierc::Document_add_text;
254 *add_hidden_text = *HyperEstraierc::Document_add_hidden_text;
255 *id = *HyperEstraierc::Document_id;
256 *attr_names = *HyperEstraierc::Document_attr_names;
257 *attr = *HyperEstraierc::Document_attr;
258 *cat_texts = *HyperEstraierc::Document_cat_texts;
259 *texts = *HyperEstraierc::Document_texts;
260 *dump_draft = *HyperEstraierc::Document_dump_draft;
261 *make_snippet = *HyperEstraierc::Document_make_snippet;
262 sub DISOWN {
263 my $self = shift;
264 my $ptr = tied(%$self);
265 delete $OWNER{$ptr};
266 }
267
268 sub ACQUIRE {
269 my $self = shift;
270 my $ptr = tied(%$self);
271 $OWNER{$ptr} = 1;
272 }
273
274
275 ############# Class : HyperEstraier::Database ##############
276
277 package HyperEstraier::Database;
278 @ISA = qw( HyperEstraier );
279 %OWNER = ();
280 %ITERATORS = ();
281 *ERRNOERR = *HyperEstraierc::Database_ERRNOERR;
282 *ERRINVAL = *HyperEstraierc::Database_ERRINVAL;
283 *ERRACCES = *HyperEstraierc::Database_ERRACCES;
284 *ERRLOCK = *HyperEstraierc::Database_ERRLOCK;
285 *ERRDB = *HyperEstraierc::Database_ERRDB;
286 *ERRIO = *HyperEstraierc::Database_ERRIO;
287 *ERRNOITEM = *HyperEstraierc::Database_ERRNOITEM;
288 *ERRMISC = *HyperEstraierc::Database_ERRMISC;
289 *DBREADER = *HyperEstraierc::Database_DBREADER;
290 *DBWRITER = *HyperEstraierc::Database_DBWRITER;
291 *DBCREAT = *HyperEstraierc::Database_DBCREAT;
292 *DBTRUNC = *HyperEstraierc::Database_DBTRUNC;
293 *DBNOLCK = *HyperEstraierc::Database_DBNOLCK;
294 *DBLCKNB = *HyperEstraierc::Database_DBLCKNB;
295 *DBPERFNG = *HyperEstraierc::Database_DBPERFNG;
296 *PDCLEAN = *HyperEstraierc::Database_PDCLEAN;
297 *ODCLEAN = *HyperEstraierc::Database_ODCLEAN;
298 *OPTNOPURGE = *HyperEstraierc::Database_OPTNOPURGE;
299 *OPTNODBOPT = *HyperEstraierc::Database_OPTNODBOPT;
300 *GDNOATTR = *HyperEstraierc::Database_GDNOATTR;
301 *GDNOTEXT = *HyperEstraierc::Database_GDNOTEXT;
302 sub new {
303 my $pkg = shift;
304 my $self = HyperEstraierc::new_Database(@_);
305 bless $self, $pkg if defined($self);
306 }
307
308 sub DESTROY {
309 return unless $_[0]->isa('HASH');
310 my $self = tied(%{$_[0]});
311 return unless defined $self;
312 delete $ITERATORS{$self};
313 if (exists $OWNER{$self}) {
314 HyperEstraierc::delete_Database($self);
315 delete $OWNER{$self};
316 }
317 }
318
319 *open = *HyperEstraierc::Database_open;
320 *close = *HyperEstraierc::Database_close;
321 *put_doc = *HyperEstraierc::Database_put_doc;
322 *search = *HyperEstraierc::Database_search;
323 *err_msg = *HyperEstraierc::Database_err_msg;
324 *error = *HyperEstraierc::Database_error;
325 *fatal = *HyperEstraierc::Database_fatal;
326 *flush = *HyperEstraierc::Database_flush;
327 *sync = *HyperEstraierc::Database_sync;
328 *optimize = *HyperEstraierc::Database_optimize;
329 *out_doc = *HyperEstraierc::Database_out_doc;
330 *get_doc = *HyperEstraierc::Database_get_doc;
331 *uri_to_id = *HyperEstraierc::Database_uri_to_id;
332 *etch_doc = *HyperEstraierc::Database_etch_doc;
333 *iter_init = *HyperEstraierc::Database_iter_init;
334 *iter_next = *HyperEstraierc::Database_iter_next;
335 *name = *HyperEstraierc::Database_name;
336 *doc_num = *HyperEstraierc::Database_doc_num;
337 *word_num = *HyperEstraierc::Database_word_num;
338 *size = *HyperEstraierc::Database_size;
339 *set_cache_size = *HyperEstraierc::Database_set_cache_size;
340 *set_special_cache = *HyperEstraierc::Database_set_special_cache;
341 sub DISOWN {
342 my $self = shift;
343 my $ptr = tied(%$self);
344 delete $OWNER{$ptr};
345 }
346
347 sub ACQUIRE {
348 my $self = shift;
349 my $ptr = tied(%$self);
350 $OWNER{$ptr} = 1;
351 }
352
353
354 # ------- VARIABLE STUBS --------
355
356 package HyperEstraier;
357
358 1;

  ViewVC Help
Powered by ViewVC 1.1.26