/[hyperestraier_wrappers]/0.0.12/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

Annotation of /0.0.12/perl/HyperEstraier.pm

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1 - (hide annotations)
Sat Sep 3 18:02:31 2005 UTC (16 years, 8 months ago) by dpavlin
File size: 9289 byte(s)
import of hyper_estraier_wrappers-0.0.12.tar.gz

1 dpavlin 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