File Coverage

blib/lib/Ufal/UDPipe.pm
Criterion Covered Total %
statement 63 387 16.2
branch 0 146 0.0
condition n/a
subroutine 21 101 20.7
pod n/a
total 84 634 13.2


line stmt bran cond sub pod time code
1             # This file was automatically generated by SWIG (http://www.swig.org).
2             # Version 2.0.11
3             #
4             # Do not make changes to this file unless you know what you are doing--modify
5             # the SWIG interface file instead.
6              
7             package Ufal::UDPipe;
8             our $VERSION = '1.2.0.1';
9 2     2   83577 use base qw(Exporter);
  2         7  
  2         230  
10 2     2   13 use base qw(DynaLoader);
  2         6  
  2         617  
11             package Ufal::UDPipec;
12             our $VERSION = '1.2.0.1';
13             bootstrap Ufal::UDPipe;
14             package Ufal::UDPipe;
15             @EXPORT = qw();
16              
17             # ---------- BASE METHODS -------------
18              
19             package Ufal::UDPipe;
20              
21             sub TIEHASH {
22 0     0     my ($classname,$obj) = @_;
23 0           return bless $obj, $classname;
24             }
25              
26       0     sub CLEAR { }
27              
28       0     sub FIRSTKEY { }
29              
30       0     sub NEXTKEY { }
31              
32             sub FETCH {
33 0     0     my ($self,$field) = @_;
34 0           my $member_func = "swig_${field}_get";
35 0           $self->$member_func();
36             }
37              
38             sub STORE {
39 0     0     my ($self,$field,$newval) = @_;
40 0           my $member_func = "swig_${field}_set";
41 0           $self->$member_func($newval);
42             }
43              
44             sub this {
45 0     0     my $ptr = shift;
46 0           return tied(%$ptr);
47             }
48              
49              
50             # ------- FUNCTION WRAPPERS --------
51              
52             package Ufal::UDPipe;
53              
54              
55             ############# Class : Ufal::UDPipe::Children ##############
56              
57             package Ufal::UDPipe::Children;
58             our $VERSION = '1.2.0.1';
59 2     2   15 use vars qw(@ISA %OWNER %ITERATORS %BLESSEDMEMBERS);
  2         4  
  2         799  
60             @ISA = qw( Ufal::UDPipe );
61             %OWNER = ();
62             %ITERATORS = ();
63             sub new {
64 0     0     my $pkg = shift;
65 0           my $self = Ufal::UDPipec::new_Children(@_);
66 0 0         bless $self, $pkg if defined($self);
67             }
68              
69             *size = *Ufal::UDPipec::Children_size;
70             *empty = *Ufal::UDPipec::Children_empty;
71             *clear = *Ufal::UDPipec::Children_clear;
72             *push = *Ufal::UDPipec::Children_push;
73             *pop = *Ufal::UDPipec::Children_pop;
74             *get = *Ufal::UDPipec::Children_get;
75             *set = *Ufal::UDPipec::Children_set;
76             sub DESTROY {
77 0 0   0     return unless $_[0]->isa('HASH');
78 0           my $self = tied(%{$_[0]});
  0            
79 0 0         return unless defined $self;
80 0           delete $ITERATORS{$self};
81 0 0         if (exists $OWNER{$self}) {
82 0           Ufal::UDPipec::delete_Children($self);
83 0           delete $OWNER{$self};
84             }
85             }
86              
87             sub DISOWN {
88 0     0     my $self = shift;
89 0           my $ptr = tied(%$self);
90 0           delete $OWNER{$ptr};
91             }
92              
93             sub ACQUIRE {
94 0     0     my $self = shift;
95 0           my $ptr = tied(%$self);
96 0           $OWNER{$ptr} = 1;
97             }
98              
99              
100             ############# Class : Ufal::UDPipe::Comments ##############
101              
102             package Ufal::UDPipe::Comments;
103             our $VERSION = '1.2.0.1';
104 2     2   14 use vars qw(@ISA %OWNER %ITERATORS %BLESSEDMEMBERS);
  2         12  
  2         703  
105             @ISA = qw( Ufal::UDPipe );
106             %OWNER = ();
107             %ITERATORS = ();
108             sub new {
109 0     0     my $pkg = shift;
110 0           my $self = Ufal::UDPipec::new_Comments(@_);
111 0 0         bless $self, $pkg if defined($self);
112             }
113              
114             *size = *Ufal::UDPipec::Comments_size;
115             *empty = *Ufal::UDPipec::Comments_empty;
116             *clear = *Ufal::UDPipec::Comments_clear;
117             *push = *Ufal::UDPipec::Comments_push;
118             *pop = *Ufal::UDPipec::Comments_pop;
119             *get = *Ufal::UDPipec::Comments_get;
120             *set = *Ufal::UDPipec::Comments_set;
121             sub DESTROY {
122 0 0   0     return unless $_[0]->isa('HASH');
123 0           my $self = tied(%{$_[0]});
  0            
124 0 0         return unless defined $self;
125 0           delete $ITERATORS{$self};
126 0 0         if (exists $OWNER{$self}) {
127 0           Ufal::UDPipec::delete_Comments($self);
128 0           delete $OWNER{$self};
129             }
130             }
131              
132             sub DISOWN {
133 0     0     my $self = shift;
134 0           my $ptr = tied(%$self);
135 0           delete $OWNER{$ptr};
136             }
137              
138             sub ACQUIRE {
139 0     0     my $self = shift;
140 0           my $ptr = tied(%$self);
141 0           $OWNER{$ptr} = 1;
142             }
143              
144              
145             ############# Class : Ufal::UDPipe::ProcessingError ##############
146              
147             package Ufal::UDPipe::ProcessingError;
148             our $VERSION = '1.2.0.1';
149 2     2   19 use vars qw(@ISA %OWNER %ITERATORS %BLESSEDMEMBERS);
  2         5  
  2         653  
150             @ISA = qw( Ufal::UDPipe );
151             %OWNER = ();
152             %ITERATORS = ();
153             *occurred = *Ufal::UDPipec::ProcessingError_occurred;
154             *swig_message_get = *Ufal::UDPipec::ProcessingError_message_get;
155             *swig_message_set = *Ufal::UDPipec::ProcessingError_message_set;
156             sub new {
157 0     0     my $pkg = shift;
158 0           my $self = Ufal::UDPipec::new_ProcessingError(@_);
159 0 0         bless $self, $pkg if defined($self);
160             }
161              
162             sub DESTROY {
163 0 0   0     return unless $_[0]->isa('HASH');
164 0           my $self = tied(%{$_[0]});
  0            
165 0 0         return unless defined $self;
166 0           delete $ITERATORS{$self};
167 0 0         if (exists $OWNER{$self}) {
168 0           Ufal::UDPipec::delete_ProcessingError($self);
169 0           delete $OWNER{$self};
170             }
171             }
172              
173             sub DISOWN {
174 0     0     my $self = shift;
175 0           my $ptr = tied(%$self);
176 0           delete $OWNER{$ptr};
177             }
178              
179             sub ACQUIRE {
180 0     0     my $self = shift;
181 0           my $ptr = tied(%$self);
182 0           $OWNER{$ptr} = 1;
183             }
184              
185              
186             ############# Class : Ufal::UDPipe::Token ##############
187              
188             package Ufal::UDPipe::Token;
189             our $VERSION = '1.2.0.1';
190 2     2   14 use vars qw(@ISA %OWNER %ITERATORS %BLESSEDMEMBERS);
  2         5  
  2         830  
191             @ISA = qw( Ufal::UDPipe );
192             %OWNER = ();
193             %ITERATORS = ();
194             *swig_form_get = *Ufal::UDPipec::Token_form_get;
195             *swig_form_set = *Ufal::UDPipec::Token_form_set;
196             *swig_misc_get = *Ufal::UDPipec::Token_misc_get;
197             *swig_misc_set = *Ufal::UDPipec::Token_misc_set;
198             sub new {
199 0     0     my $pkg = shift;
200 0           my $self = Ufal::UDPipec::new_Token(@_);
201 0 0         bless $self, $pkg if defined($self);
202             }
203              
204             *getSpaceAfter = *Ufal::UDPipec::Token_getSpaceAfter;
205             *setSpaceAfter = *Ufal::UDPipec::Token_setSpaceAfter;
206             *getSpacesBefore = *Ufal::UDPipec::Token_getSpacesBefore;
207             *setSpacesBefore = *Ufal::UDPipec::Token_setSpacesBefore;
208             *getSpacesAfter = *Ufal::UDPipec::Token_getSpacesAfter;
209             *setSpacesAfter = *Ufal::UDPipec::Token_setSpacesAfter;
210             *getSpacesInToken = *Ufal::UDPipec::Token_getSpacesInToken;
211             *setSpacesInToken = *Ufal::UDPipec::Token_setSpacesInToken;
212             *getTokenRange = *Ufal::UDPipec::Token_getTokenRange;
213             *getTokenRangeStart = *Ufal::UDPipec::Token_getTokenRangeStart;
214             *getTokenRangeEnd = *Ufal::UDPipec::Token_getTokenRangeEnd;
215             *setTokenRange = *Ufal::UDPipec::Token_setTokenRange;
216             sub DESTROY {
217 0 0   0     return unless $_[0]->isa('HASH');
218 0           my $self = tied(%{$_[0]});
  0            
219 0 0         return unless defined $self;
220 0           delete $ITERATORS{$self};
221 0 0         if (exists $OWNER{$self}) {
222 0           Ufal::UDPipec::delete_Token($self);
223 0           delete $OWNER{$self};
224             }
225             }
226              
227             sub DISOWN {
228 0     0     my $self = shift;
229 0           my $ptr = tied(%$self);
230 0           delete $OWNER{$ptr};
231             }
232              
233             sub ACQUIRE {
234 0     0     my $self = shift;
235 0           my $ptr = tied(%$self);
236 0           $OWNER{$ptr} = 1;
237             }
238              
239              
240             ############# Class : Ufal::UDPipe::Word ##############
241              
242             package Ufal::UDPipe::Word;
243             our $VERSION = '1.2.0.1';
244 2     2   14 use vars qw(@ISA %OWNER %ITERATORS %BLESSEDMEMBERS);
  2         6  
  2         972  
245             @ISA = qw( Ufal::UDPipe::Token Ufal::UDPipe );
246             %OWNER = ();
247             %ITERATORS = ();
248             *swig_id_get = *Ufal::UDPipec::Word_id_get;
249             *swig_id_set = *Ufal::UDPipec::Word_id_set;
250             *swig_lemma_get = *Ufal::UDPipec::Word_lemma_get;
251             *swig_lemma_set = *Ufal::UDPipec::Word_lemma_set;
252             *swig_upostag_get = *Ufal::UDPipec::Word_upostag_get;
253             *swig_upostag_set = *Ufal::UDPipec::Word_upostag_set;
254             *swig_xpostag_get = *Ufal::UDPipec::Word_xpostag_get;
255             *swig_xpostag_set = *Ufal::UDPipec::Word_xpostag_set;
256             *swig_feats_get = *Ufal::UDPipec::Word_feats_get;
257             *swig_feats_set = *Ufal::UDPipec::Word_feats_set;
258             *swig_head_get = *Ufal::UDPipec::Word_head_get;
259             *swig_head_set = *Ufal::UDPipec::Word_head_set;
260             *swig_deprel_get = *Ufal::UDPipec::Word_deprel_get;
261             *swig_deprel_set = *Ufal::UDPipec::Word_deprel_set;
262             *swig_deps_get = *Ufal::UDPipec::Word_deps_get;
263             *swig_deps_set = *Ufal::UDPipec::Word_deps_set;
264             *swig_children_get = *Ufal::UDPipec::Word_children_get;
265             *swig_children_set = *Ufal::UDPipec::Word_children_set;
266             sub new {
267 0     0     my $pkg = shift;
268 0           my $self = Ufal::UDPipec::new_Word(@_);
269 0 0         bless $self, $pkg if defined($self);
270             }
271              
272             sub DESTROY {
273 0 0   0     return unless $_[0]->isa('HASH');
274 0           my $self = tied(%{$_[0]});
  0            
275 0 0         return unless defined $self;
276 0           delete $ITERATORS{$self};
277 0 0         if (exists $OWNER{$self}) {
278 0           Ufal::UDPipec::delete_Word($self);
279 0           delete $OWNER{$self};
280             }
281             }
282              
283             sub DISOWN {
284 0     0     my $self = shift;
285 0           my $ptr = tied(%$self);
286 0           delete $OWNER{$ptr};
287             }
288              
289             sub ACQUIRE {
290 0     0     my $self = shift;
291 0           my $ptr = tied(%$self);
292 0           $OWNER{$ptr} = 1;
293             }
294              
295              
296             ############# Class : Ufal::UDPipe::Words ##############
297              
298             package Ufal::UDPipe::Words;
299             our $VERSION = '1.2.0.1';
300 2     2   15 use vars qw(@ISA %OWNER %ITERATORS %BLESSEDMEMBERS);
  2         4  
  2         840  
301             @ISA = qw( Ufal::UDPipe );
302             %OWNER = ();
303             %ITERATORS = ();
304             sub new {
305 0     0     my $pkg = shift;
306 0           my $self = Ufal::UDPipec::new_Words(@_);
307 0 0         bless $self, $pkg if defined($self);
308             }
309              
310             *size = *Ufal::UDPipec::Words_size;
311             *empty = *Ufal::UDPipec::Words_empty;
312             *clear = *Ufal::UDPipec::Words_clear;
313             *push = *Ufal::UDPipec::Words_push;
314             *pop = *Ufal::UDPipec::Words_pop;
315             *get = *Ufal::UDPipec::Words_get;
316             *set = *Ufal::UDPipec::Words_set;
317             sub DESTROY {
318 0 0   0     return unless $_[0]->isa('HASH');
319 0           my $self = tied(%{$_[0]});
  0            
320 0 0         return unless defined $self;
321 0           delete $ITERATORS{$self};
322 0 0         if (exists $OWNER{$self}) {
323 0           Ufal::UDPipec::delete_Words($self);
324 0           delete $OWNER{$self};
325             }
326             }
327              
328             sub DISOWN {
329 0     0     my $self = shift;
330 0           my $ptr = tied(%$self);
331 0           delete $OWNER{$ptr};
332             }
333              
334             sub ACQUIRE {
335 0     0     my $self = shift;
336 0           my $ptr = tied(%$self);
337 0           $OWNER{$ptr} = 1;
338             }
339              
340              
341             ############# Class : Ufal::UDPipe::MultiwordToken ##############
342              
343             package Ufal::UDPipe::MultiwordToken;
344             our $VERSION = '1.2.0.1';
345 2     2   14 use vars qw(@ISA %OWNER %ITERATORS %BLESSEDMEMBERS);
  2         6  
  2         689  
346             @ISA = qw( Ufal::UDPipe::Token Ufal::UDPipe );
347             %OWNER = ();
348             %ITERATORS = ();
349             *swig_idFirst_get = *Ufal::UDPipec::MultiwordToken_idFirst_get;
350             *swig_idFirst_set = *Ufal::UDPipec::MultiwordToken_idFirst_set;
351             *swig_idLast_get = *Ufal::UDPipec::MultiwordToken_idLast_get;
352             *swig_idLast_set = *Ufal::UDPipec::MultiwordToken_idLast_set;
353             sub new {
354 0     0     my $pkg = shift;
355 0           my $self = Ufal::UDPipec::new_MultiwordToken(@_);
356 0 0         bless $self, $pkg if defined($self);
357             }
358              
359             sub DESTROY {
360 0 0   0     return unless $_[0]->isa('HASH');
361 0           my $self = tied(%{$_[0]});
  0            
362 0 0         return unless defined $self;
363 0           delete $ITERATORS{$self};
364 0 0         if (exists $OWNER{$self}) {
365 0           Ufal::UDPipec::delete_MultiwordToken($self);
366 0           delete $OWNER{$self};
367             }
368             }
369              
370             sub DISOWN {
371 0     0     my $self = shift;
372 0           my $ptr = tied(%$self);
373 0           delete $OWNER{$ptr};
374             }
375              
376             sub ACQUIRE {
377 0     0     my $self = shift;
378 0           my $ptr = tied(%$self);
379 0           $OWNER{$ptr} = 1;
380             }
381              
382              
383             ############# Class : Ufal::UDPipe::MultiwordTokens ##############
384              
385             package Ufal::UDPipe::MultiwordTokens;
386             our $VERSION = '1.2.0.1';
387 2     2   27 use vars qw(@ISA %OWNER %ITERATORS %BLESSEDMEMBERS);
  2         5  
  2         729  
388             @ISA = qw( Ufal::UDPipe );
389             %OWNER = ();
390             %ITERATORS = ();
391             sub new {
392 0     0     my $pkg = shift;
393 0           my $self = Ufal::UDPipec::new_MultiwordTokens(@_);
394 0 0         bless $self, $pkg if defined($self);
395             }
396              
397             *size = *Ufal::UDPipec::MultiwordTokens_size;
398             *empty = *Ufal::UDPipec::MultiwordTokens_empty;
399             *clear = *Ufal::UDPipec::MultiwordTokens_clear;
400             *push = *Ufal::UDPipec::MultiwordTokens_push;
401             *pop = *Ufal::UDPipec::MultiwordTokens_pop;
402             *get = *Ufal::UDPipec::MultiwordTokens_get;
403             *set = *Ufal::UDPipec::MultiwordTokens_set;
404             sub DESTROY {
405 0 0   0     return unless $_[0]->isa('HASH');
406 0           my $self = tied(%{$_[0]});
  0            
407 0 0         return unless defined $self;
408 0           delete $ITERATORS{$self};
409 0 0         if (exists $OWNER{$self}) {
410 0           Ufal::UDPipec::delete_MultiwordTokens($self);
411 0           delete $OWNER{$self};
412             }
413             }
414              
415             sub DISOWN {
416 0     0     my $self = shift;
417 0           my $ptr = tied(%$self);
418 0           delete $OWNER{$ptr};
419             }
420              
421             sub ACQUIRE {
422 0     0     my $self = shift;
423 0           my $ptr = tied(%$self);
424 0           $OWNER{$ptr} = 1;
425             }
426              
427              
428             ############# Class : Ufal::UDPipe::EmptyNode ##############
429              
430             package Ufal::UDPipe::EmptyNode;
431             our $VERSION = '1.2.0.1';
432 2     2   15 use vars qw(@ISA %OWNER %ITERATORS %BLESSEDMEMBERS);
  2         4  
  2         870  
433             @ISA = qw( Ufal::UDPipe );
434             %OWNER = ();
435             %ITERATORS = ();
436             *swig_id_get = *Ufal::UDPipec::EmptyNode_id_get;
437             *swig_id_set = *Ufal::UDPipec::EmptyNode_id_set;
438             *swig_index_get = *Ufal::UDPipec::EmptyNode_index_get;
439             *swig_index_set = *Ufal::UDPipec::EmptyNode_index_set;
440             *swig_form_get = *Ufal::UDPipec::EmptyNode_form_get;
441             *swig_form_set = *Ufal::UDPipec::EmptyNode_form_set;
442             *swig_lemma_get = *Ufal::UDPipec::EmptyNode_lemma_get;
443             *swig_lemma_set = *Ufal::UDPipec::EmptyNode_lemma_set;
444             *swig_upostag_get = *Ufal::UDPipec::EmptyNode_upostag_get;
445             *swig_upostag_set = *Ufal::UDPipec::EmptyNode_upostag_set;
446             *swig_xpostag_get = *Ufal::UDPipec::EmptyNode_xpostag_get;
447             *swig_xpostag_set = *Ufal::UDPipec::EmptyNode_xpostag_set;
448             *swig_feats_get = *Ufal::UDPipec::EmptyNode_feats_get;
449             *swig_feats_set = *Ufal::UDPipec::EmptyNode_feats_set;
450             *swig_deps_get = *Ufal::UDPipec::EmptyNode_deps_get;
451             *swig_deps_set = *Ufal::UDPipec::EmptyNode_deps_set;
452             *swig_misc_get = *Ufal::UDPipec::EmptyNode_misc_get;
453             *swig_misc_set = *Ufal::UDPipec::EmptyNode_misc_set;
454             sub new {
455 0     0     my $pkg = shift;
456 0           my $self = Ufal::UDPipec::new_EmptyNode(@_);
457 0 0         bless $self, $pkg if defined($self);
458             }
459              
460             sub DESTROY {
461 0 0   0     return unless $_[0]->isa('HASH');
462 0           my $self = tied(%{$_[0]});
  0            
463 0 0         return unless defined $self;
464 0           delete $ITERATORS{$self};
465 0 0         if (exists $OWNER{$self}) {
466 0           Ufal::UDPipec::delete_EmptyNode($self);
467 0           delete $OWNER{$self};
468             }
469             }
470              
471             sub DISOWN {
472 0     0     my $self = shift;
473 0           my $ptr = tied(%$self);
474 0           delete $OWNER{$ptr};
475             }
476              
477             sub ACQUIRE {
478 0     0     my $self = shift;
479 0           my $ptr = tied(%$self);
480 0           $OWNER{$ptr} = 1;
481             }
482              
483              
484             ############# Class : Ufal::UDPipe::EmptyNodes ##############
485              
486             package Ufal::UDPipe::EmptyNodes;
487             our $VERSION = '1.2.0.1';
488 2     2   14 use vars qw(@ISA %OWNER %ITERATORS %BLESSEDMEMBERS);
  2         4  
  2         718  
489             @ISA = qw( Ufal::UDPipe );
490             %OWNER = ();
491             %ITERATORS = ();
492             sub new {
493 0     0     my $pkg = shift;
494 0           my $self = Ufal::UDPipec::new_EmptyNodes(@_);
495 0 0         bless $self, $pkg if defined($self);
496             }
497              
498             *size = *Ufal::UDPipec::EmptyNodes_size;
499             *empty = *Ufal::UDPipec::EmptyNodes_empty;
500             *clear = *Ufal::UDPipec::EmptyNodes_clear;
501             *push = *Ufal::UDPipec::EmptyNodes_push;
502             *pop = *Ufal::UDPipec::EmptyNodes_pop;
503             *get = *Ufal::UDPipec::EmptyNodes_get;
504             *set = *Ufal::UDPipec::EmptyNodes_set;
505             sub DESTROY {
506 0 0   0     return unless $_[0]->isa('HASH');
507 0           my $self = tied(%{$_[0]});
  0            
508 0 0         return unless defined $self;
509 0           delete $ITERATORS{$self};
510 0 0         if (exists $OWNER{$self}) {
511 0           Ufal::UDPipec::delete_EmptyNodes($self);
512 0           delete $OWNER{$self};
513             }
514             }
515              
516             sub DISOWN {
517 0     0     my $self = shift;
518 0           my $ptr = tied(%$self);
519 0           delete $OWNER{$ptr};
520             }
521              
522             sub ACQUIRE {
523 0     0     my $self = shift;
524 0           my $ptr = tied(%$self);
525 0           $OWNER{$ptr} = 1;
526             }
527              
528              
529             ############# Class : Ufal::UDPipe::Sentence ##############
530              
531             package Ufal::UDPipe::Sentence;
532             our $VERSION = '1.2.0.1';
533 2     2   14 use vars qw(@ISA %OWNER %ITERATORS %BLESSEDMEMBERS);
  2         4  
  2         977  
534             @ISA = qw( Ufal::UDPipe );
535             %OWNER = ();
536             %ITERATORS = ();
537             sub new {
538 0     0     my $pkg = shift;
539 0           my $self = Ufal::UDPipec::new_Sentence(@_);
540 0 0         bless $self, $pkg if defined($self);
541             }
542              
543             *swig_words_get = *Ufal::UDPipec::Sentence_words_get;
544             *swig_words_set = *Ufal::UDPipec::Sentence_words_set;
545             *swig_multiwordTokens_get = *Ufal::UDPipec::Sentence_multiwordTokens_get;
546             *swig_multiwordTokens_set = *Ufal::UDPipec::Sentence_multiwordTokens_set;
547             *swig_emptyNodes_get = *Ufal::UDPipec::Sentence_emptyNodes_get;
548             *swig_emptyNodes_set = *Ufal::UDPipec::Sentence_emptyNodes_set;
549             *swig_comments_get = *Ufal::UDPipec::Sentence_comments_get;
550             *swig_comments_set = *Ufal::UDPipec::Sentence_comments_set;
551             *rootForm = *Ufal::UDPipec::Sentence_rootForm;
552             *empty = *Ufal::UDPipec::Sentence_empty;
553             *clear = *Ufal::UDPipec::Sentence_clear;
554             *addWord = *Ufal::UDPipec::Sentence_addWord;
555             *setHead = *Ufal::UDPipec::Sentence_setHead;
556             *unlinkAllNodes = *Ufal::UDPipec::Sentence_unlinkAllNodes;
557             *getNewDoc = *Ufal::UDPipec::Sentence_getNewDoc;
558             *getNewDocId = *Ufal::UDPipec::Sentence_getNewDocId;
559             *setNewDoc = *Ufal::UDPipec::Sentence_setNewDoc;
560             *getNewPar = *Ufal::UDPipec::Sentence_getNewPar;
561             *getNewParId = *Ufal::UDPipec::Sentence_getNewParId;
562             *setNewPar = *Ufal::UDPipec::Sentence_setNewPar;
563             *getSentId = *Ufal::UDPipec::Sentence_getSentId;
564             *setSentId = *Ufal::UDPipec::Sentence_setSentId;
565             *getText = *Ufal::UDPipec::Sentence_getText;
566             *setText = *Ufal::UDPipec::Sentence_setText;
567             sub DESTROY {
568 0 0   0     return unless $_[0]->isa('HASH');
569 0           my $self = tied(%{$_[0]});
  0            
570 0 0         return unless defined $self;
571 0           delete $ITERATORS{$self};
572 0 0         if (exists $OWNER{$self}) {
573 0           Ufal::UDPipec::delete_Sentence($self);
574 0           delete $OWNER{$self};
575             }
576             }
577              
578             sub DISOWN {
579 0     0     my $self = shift;
580 0           my $ptr = tied(%$self);
581 0           delete $OWNER{$ptr};
582             }
583              
584             sub ACQUIRE {
585 0     0     my $self = shift;
586 0           my $ptr = tied(%$self);
587 0           $OWNER{$ptr} = 1;
588             }
589              
590              
591             ############# Class : Ufal::UDPipe::Sentences ##############
592              
593             package Ufal::UDPipe::Sentences;
594             our $VERSION = '1.2.0.1';
595 2     2   16 use vars qw(@ISA %OWNER %ITERATORS %BLESSEDMEMBERS);
  2         5  
  2         755  
596             @ISA = qw( Ufal::UDPipe );
597             %OWNER = ();
598             %ITERATORS = ();
599             sub new {
600 0     0     my $pkg = shift;
601 0           my $self = Ufal::UDPipec::new_Sentences(@_);
602 0 0         bless $self, $pkg if defined($self);
603             }
604              
605             *size = *Ufal::UDPipec::Sentences_size;
606             *empty = *Ufal::UDPipec::Sentences_empty;
607             *clear = *Ufal::UDPipec::Sentences_clear;
608             *push = *Ufal::UDPipec::Sentences_push;
609             *pop = *Ufal::UDPipec::Sentences_pop;
610             *get = *Ufal::UDPipec::Sentences_get;
611             *set = *Ufal::UDPipec::Sentences_set;
612             sub DESTROY {
613 0 0   0     return unless $_[0]->isa('HASH');
614 0           my $self = tied(%{$_[0]});
  0            
615 0 0         return unless defined $self;
616 0           delete $ITERATORS{$self};
617 0 0         if (exists $OWNER{$self}) {
618 0           Ufal::UDPipec::delete_Sentences($self);
619 0           delete $OWNER{$self};
620             }
621             }
622              
623             sub DISOWN {
624 0     0     my $self = shift;
625 0           my $ptr = tied(%$self);
626 0           delete $OWNER{$ptr};
627             }
628              
629             sub ACQUIRE {
630 0     0     my $self = shift;
631 0           my $ptr = tied(%$self);
632 0           $OWNER{$ptr} = 1;
633             }
634              
635              
636             ############# Class : Ufal::UDPipe::InputFormat ##############
637              
638             package Ufal::UDPipe::InputFormat;
639             our $VERSION = '1.2.0.1';
640 2     2   13 use vars qw(@ISA %OWNER %ITERATORS %BLESSEDMEMBERS);
  2         5  
  2         803  
641             @ISA = qw( Ufal::UDPipe );
642             %OWNER = ();
643             %ITERATORS = ();
644             sub DESTROY {
645 0 0   0     return unless $_[0]->isa('HASH');
646 0           my $self = tied(%{$_[0]});
  0            
647 0 0         return unless defined $self;
648 0           delete $ITERATORS{$self};
649 0 0         if (exists $OWNER{$self}) {
650 0           Ufal::UDPipec::delete_InputFormat($self);
651 0           delete $OWNER{$self};
652             }
653             }
654              
655             *resetDocument = *Ufal::UDPipec::InputFormat_resetDocument;
656             *setText = *Ufal::UDPipec::InputFormat_setText;
657             *nextSentence = *Ufal::UDPipec::InputFormat_nextSentence;
658             *newInputFormat = *Ufal::UDPipec::InputFormat_newInputFormat;
659             *newConlluInputFormat = *Ufal::UDPipec::InputFormat_newConlluInputFormat;
660             *newGenericTokenizerInputFormat = *Ufal::UDPipec::InputFormat_newGenericTokenizerInputFormat;
661             *newHorizontalInputFormat = *Ufal::UDPipec::InputFormat_newHorizontalInputFormat;
662             *newVerticalInputFormat = *Ufal::UDPipec::InputFormat_newVerticalInputFormat;
663             *newPresegmentedTokenizer = *Ufal::UDPipec::InputFormat_newPresegmentedTokenizer;
664             *CONLLU_V1 = *Ufal::UDPipec::InputFormat_CONLLU_V1;
665             *CONLLU_V2 = *Ufal::UDPipec::InputFormat_CONLLU_V2;
666             *GENERIC_TOKENIZER_NORMALIZED_SPACES = *Ufal::UDPipec::InputFormat_GENERIC_TOKENIZER_NORMALIZED_SPACES;
667             *GENERIC_TOKENIZER_PRESEGMENTED = *Ufal::UDPipec::InputFormat_GENERIC_TOKENIZER_PRESEGMENTED;
668             *GENERIC_TOKENIZER_RANGES = *Ufal::UDPipec::InputFormat_GENERIC_TOKENIZER_RANGES;
669             sub DISOWN {
670 0     0     my $self = shift;
671 0           my $ptr = tied(%$self);
672 0           delete $OWNER{$ptr};
673             }
674              
675             sub ACQUIRE {
676 0     0     my $self = shift;
677 0           my $ptr = tied(%$self);
678 0           $OWNER{$ptr} = 1;
679             }
680              
681              
682             ############# Class : Ufal::UDPipe::OutputFormat ##############
683              
684             package Ufal::UDPipe::OutputFormat;
685             our $VERSION = '1.2.0.1';
686 2     2   15 use vars qw(@ISA %OWNER %ITERATORS %BLESSEDMEMBERS);
  2         3  
  2         781  
687             @ISA = qw( Ufal::UDPipe );
688             %OWNER = ();
689             %ITERATORS = ();
690             sub DESTROY {
691 0 0   0     return unless $_[0]->isa('HASH');
692 0           my $self = tied(%{$_[0]});
  0            
693 0 0         return unless defined $self;
694 0           delete $ITERATORS{$self};
695 0 0         if (exists $OWNER{$self}) {
696 0           Ufal::UDPipec::delete_OutputFormat($self);
697 0           delete $OWNER{$self};
698             }
699             }
700              
701             *writeSentence = *Ufal::UDPipec::OutputFormat_writeSentence;
702             *finishDocument = *Ufal::UDPipec::OutputFormat_finishDocument;
703             *newOutputFormat = *Ufal::UDPipec::OutputFormat_newOutputFormat;
704             *newConlluOutputFormat = *Ufal::UDPipec::OutputFormat_newConlluOutputFormat;
705             *newEpeOutputFormat = *Ufal::UDPipec::OutputFormat_newEpeOutputFormat;
706             *newMatxinOutputFormat = *Ufal::UDPipec::OutputFormat_newMatxinOutputFormat;
707             *newHorizontalOutputFormat = *Ufal::UDPipec::OutputFormat_newHorizontalOutputFormat;
708             *newPlaintextOutputFormat = *Ufal::UDPipec::OutputFormat_newPlaintextOutputFormat;
709             *newVerticalOutputFormat = *Ufal::UDPipec::OutputFormat_newVerticalOutputFormat;
710             *CONLLU_V1 = *Ufal::UDPipec::OutputFormat_CONLLU_V1;
711             *CONLLU_V2 = *Ufal::UDPipec::OutputFormat_CONLLU_V2;
712             *HORIZONTAL_PARAGRAPHS = *Ufal::UDPipec::OutputFormat_HORIZONTAL_PARAGRAPHS;
713             *PLAINTEXT_NORMALIZED_SPACES = *Ufal::UDPipec::OutputFormat_PLAINTEXT_NORMALIZED_SPACES;
714             *VERTICAL_PARAGRAPHS = *Ufal::UDPipec::OutputFormat_VERTICAL_PARAGRAPHS;
715             sub DISOWN {
716 0     0     my $self = shift;
717 0           my $ptr = tied(%$self);
718 0           delete $OWNER{$ptr};
719             }
720              
721             sub ACQUIRE {
722 0     0     my $self = shift;
723 0           my $ptr = tied(%$self);
724 0           $OWNER{$ptr} = 1;
725             }
726              
727              
728             ############# Class : Ufal::UDPipe::Model ##############
729              
730             package Ufal::UDPipe::Model;
731             our $VERSION = '1.2.0.1';
732 2     2   14 use vars qw(@ISA %OWNER %ITERATORS %BLESSEDMEMBERS);
  2         3  
  2         850  
733             @ISA = qw( Ufal::UDPipe );
734             %OWNER = ();
735             %ITERATORS = ();
736             sub DESTROY {
737 0 0   0     return unless $_[0]->isa('HASH');
738 0           my $self = tied(%{$_[0]});
  0            
739 0 0         return unless defined $self;
740 0           delete $ITERATORS{$self};
741 0 0         if (exists $OWNER{$self}) {
742 0           Ufal::UDPipec::delete_Model($self);
743 0           delete $OWNER{$self};
744             }
745             }
746              
747             *load = *Ufal::UDPipec::Model_load;
748             *newTokenizer = *Ufal::UDPipec::Model_newTokenizer;
749             *tag = *Ufal::UDPipec::Model_tag;
750             *parse = *Ufal::UDPipec::Model_parse;
751             *DEFAULT = *Ufal::UDPipec::Model_DEFAULT;
752             *TOKENIZER_NORMALIZED_SPACES = *Ufal::UDPipec::Model_TOKENIZER_NORMALIZED_SPACES;
753             *TOKENIZER_PRESEGMENTED = *Ufal::UDPipec::Model_TOKENIZER_PRESEGMENTED;
754             *TOKENIZER_RANGES = *Ufal::UDPipec::Model_TOKENIZER_RANGES;
755             sub DISOWN {
756 0     0     my $self = shift;
757 0           my $ptr = tied(%$self);
758 0           delete $OWNER{$ptr};
759             }
760              
761             sub ACQUIRE {
762 0     0     my $self = shift;
763 0           my $ptr = tied(%$self);
764 0           $OWNER{$ptr} = 1;
765             }
766              
767              
768             ############# Class : Ufal::UDPipe::Pipeline ##############
769              
770             package Ufal::UDPipe::Pipeline;
771             our $VERSION = '1.2.0.1';
772 2     2   15 use vars qw(@ISA %OWNER %ITERATORS %BLESSEDMEMBERS);
  2         5  
  2         767  
773             @ISA = qw( Ufal::UDPipe );
774             %OWNER = ();
775             %ITERATORS = ();
776             sub new {
777 0     0     my $pkg = shift;
778 0           my $self = Ufal::UDPipec::new_Pipeline(@_);
779 0 0         bless $self, $pkg if defined($self);
780             }
781              
782             *setModel = *Ufal::UDPipec::Pipeline_setModel;
783             *setInput = *Ufal::UDPipec::Pipeline_setInput;
784             *setTagger = *Ufal::UDPipec::Pipeline_setTagger;
785             *setParser = *Ufal::UDPipec::Pipeline_setParser;
786             *setOutput = *Ufal::UDPipec::Pipeline_setOutput;
787             *setImmediate = *Ufal::UDPipec::Pipeline_setImmediate;
788             *setDocumentId = *Ufal::UDPipec::Pipeline_setDocumentId;
789             *process = *Ufal::UDPipec::Pipeline_process;
790             *DEFAULT = *Ufal::UDPipec::Pipeline_DEFAULT;
791             *NONE = *Ufal::UDPipec::Pipeline_NONE;
792             sub DESTROY {
793 0 0   0     return unless $_[0]->isa('HASH');
794 0           my $self = tied(%{$_[0]});
  0            
795 0 0         return unless defined $self;
796 0           delete $ITERATORS{$self};
797 0 0         if (exists $OWNER{$self}) {
798 0           Ufal::UDPipec::delete_Pipeline($self);
799 0           delete $OWNER{$self};
800             }
801             }
802              
803             sub DISOWN {
804 0     0     my $self = shift;
805 0           my $ptr = tied(%$self);
806 0           delete $OWNER{$ptr};
807             }
808              
809             sub ACQUIRE {
810 0     0     my $self = shift;
811 0           my $ptr = tied(%$self);
812 0           $OWNER{$ptr} = 1;
813             }
814              
815              
816             ############# Class : Ufal::UDPipe::Trainer ##############
817              
818             package Ufal::UDPipe::Trainer;
819             our $VERSION = '1.2.0.1';
820 2     2   22 use vars qw(@ISA %OWNER %ITERATORS %BLESSEDMEMBERS);
  2         6  
  2         702  
821             @ISA = qw( Ufal::UDPipe );
822             %OWNER = ();
823             %ITERATORS = ();
824             *train = *Ufal::UDPipec::Trainer_train;
825             *DEFAULT = *Ufal::UDPipec::Trainer_DEFAULT;
826             *NONE = *Ufal::UDPipec::Trainer_NONE;
827             sub new {
828 0     0     my $pkg = shift;
829 0           my $self = Ufal::UDPipec::new_Trainer(@_);
830 0 0         bless $self, $pkg if defined($self);
831             }
832              
833             sub DESTROY {
834 0 0   0     return unless $_[0]->isa('HASH');
835 0           my $self = tied(%{$_[0]});
  0            
836 0 0         return unless defined $self;
837 0           delete $ITERATORS{$self};
838 0 0         if (exists $OWNER{$self}) {
839 0           Ufal::UDPipec::delete_Trainer($self);
840 0           delete $OWNER{$self};
841             }
842             }
843              
844             sub DISOWN {
845 0     0     my $self = shift;
846 0           my $ptr = tied(%$self);
847 0           delete $OWNER{$ptr};
848             }
849              
850             sub ACQUIRE {
851 0     0     my $self = shift;
852 0           my $ptr = tied(%$self);
853 0           $OWNER{$ptr} = 1;
854             }
855              
856              
857             ############# Class : Ufal::UDPipe::Evaluator ##############
858              
859             package Ufal::UDPipe::Evaluator;
860             our $VERSION = '1.2.0.1';
861 2     2   16 use vars qw(@ISA %OWNER %ITERATORS %BLESSEDMEMBERS);
  2         6  
  2         769  
862             @ISA = qw( Ufal::UDPipe );
863             %OWNER = ();
864             %ITERATORS = ();
865             sub new {
866 0     0     my $pkg = shift;
867 0           my $self = Ufal::UDPipec::new_Evaluator(@_);
868 0 0         bless $self, $pkg if defined($self);
869             }
870              
871             *setModel = *Ufal::UDPipec::Evaluator_setModel;
872             *setTokenizer = *Ufal::UDPipec::Evaluator_setTokenizer;
873             *setTagger = *Ufal::UDPipec::Evaluator_setTagger;
874             *setParser = *Ufal::UDPipec::Evaluator_setParser;
875             *evaluate = *Ufal::UDPipec::Evaluator_evaluate;
876             *DEFAULT = *Ufal::UDPipec::Evaluator_DEFAULT;
877             *NONE = *Ufal::UDPipec::Evaluator_NONE;
878             sub DESTROY {
879 0 0   0     return unless $_[0]->isa('HASH');
880 0           my $self = tied(%{$_[0]});
  0            
881 0 0         return unless defined $self;
882 0           delete $ITERATORS{$self};
883 0 0         if (exists $OWNER{$self}) {
884 0           Ufal::UDPipec::delete_Evaluator($self);
885 0           delete $OWNER{$self};
886             }
887             }
888              
889             sub DISOWN {
890 0     0     my $self = shift;
891 0           my $ptr = tied(%$self);
892 0           delete $OWNER{$ptr};
893             }
894              
895             sub ACQUIRE {
896 0     0     my $self = shift;
897 0           my $ptr = tied(%$self);
898 0           $OWNER{$ptr} = 1;
899             }
900              
901              
902             ############# Class : Ufal::UDPipe::Version ##############
903              
904             package Ufal::UDPipe::Version;
905             our $VERSION = '1.2.0.1';
906 2     2   16 use vars qw(@ISA %OWNER %ITERATORS %BLESSEDMEMBERS);
  2         4  
  2         1226  
907             @ISA = qw( Ufal::UDPipe );
908             %OWNER = ();
909             %ITERATORS = ();
910             *swig_major_get = *Ufal::UDPipec::Version_major_get;
911             *swig_major_set = *Ufal::UDPipec::Version_major_set;
912             *swig_minor_get = *Ufal::UDPipec::Version_minor_get;
913             *swig_minor_set = *Ufal::UDPipec::Version_minor_set;
914             *swig_patch_get = *Ufal::UDPipec::Version_patch_get;
915             *swig_patch_set = *Ufal::UDPipec::Version_patch_set;
916             *swig_prerelease_get = *Ufal::UDPipec::Version_prerelease_get;
917             *swig_prerelease_set = *Ufal::UDPipec::Version_prerelease_set;
918             *current = *Ufal::UDPipec::Version_current;
919             sub new {
920 0     0     my $pkg = shift;
921 0           my $self = Ufal::UDPipec::new_Version(@_);
922 0 0         bless $self, $pkg if defined($self);
923             }
924              
925             sub DESTROY {
926 0 0   0     return unless $_[0]->isa('HASH');
927 0           my $self = tied(%{$_[0]});
  0            
928 0 0         return unless defined $self;
929 0           delete $ITERATORS{$self};
930 0 0         if (exists $OWNER{$self}) {
931 0           Ufal::UDPipec::delete_Version($self);
932 0           delete $OWNER{$self};
933             }
934             }
935              
936             sub DISOWN {
937 0     0     my $self = shift;
938 0           my $ptr = tied(%$self);
939 0           delete $OWNER{$ptr};
940             }
941              
942             sub ACQUIRE {
943 0     0     my $self = shift;
944 0           my $ptr = tied(%$self);
945 0           $OWNER{$ptr} = 1;
946             }
947              
948              
949             # ------- VARIABLE STUBS --------
950              
951             package Ufal::UDPipe;
952              
953             *Sentence_rootForm = *Ufal::UDPipec::Sentence_rootForm;
954             *InputFormat_CONLLU_V1 = *Ufal::UDPipec::InputFormat_CONLLU_V1;
955             *InputFormat_CONLLU_V2 = *Ufal::UDPipec::InputFormat_CONLLU_V2;
956             *InputFormat_GENERIC_TOKENIZER_NORMALIZED_SPACES = *Ufal::UDPipec::InputFormat_GENERIC_TOKENIZER_NORMALIZED_SPACES;
957             *InputFormat_GENERIC_TOKENIZER_PRESEGMENTED = *Ufal::UDPipec::InputFormat_GENERIC_TOKENIZER_PRESEGMENTED;
958             *InputFormat_GENERIC_TOKENIZER_RANGES = *Ufal::UDPipec::InputFormat_GENERIC_TOKENIZER_RANGES;
959             *OutputFormat_CONLLU_V1 = *Ufal::UDPipec::OutputFormat_CONLLU_V1;
960             *OutputFormat_CONLLU_V2 = *Ufal::UDPipec::OutputFormat_CONLLU_V2;
961             *OutputFormat_HORIZONTAL_PARAGRAPHS = *Ufal::UDPipec::OutputFormat_HORIZONTAL_PARAGRAPHS;
962             *OutputFormat_PLAINTEXT_NORMALIZED_SPACES = *Ufal::UDPipec::OutputFormat_PLAINTEXT_NORMALIZED_SPACES;
963             *OutputFormat_VERTICAL_PARAGRAPHS = *Ufal::UDPipec::OutputFormat_VERTICAL_PARAGRAPHS;
964             *Model_DEFAULT = *Ufal::UDPipec::Model_DEFAULT;
965             *Model_TOKENIZER_NORMALIZED_SPACES = *Ufal::UDPipec::Model_TOKENIZER_NORMALIZED_SPACES;
966             *Model_TOKENIZER_PRESEGMENTED = *Ufal::UDPipec::Model_TOKENIZER_PRESEGMENTED;
967             *Model_TOKENIZER_RANGES = *Ufal::UDPipec::Model_TOKENIZER_RANGES;
968             *Pipeline_DEFAULT = *Ufal::UDPipec::Pipeline_DEFAULT;
969             *Pipeline_NONE = *Ufal::UDPipec::Pipeline_NONE;
970             *Trainer_DEFAULT = *Ufal::UDPipec::Trainer_DEFAULT;
971             *Trainer_NONE = *Ufal::UDPipec::Trainer_NONE;
972             *Evaluator_DEFAULT = *Ufal::UDPipec::Evaluator_DEFAULT;
973             *Evaluator_NONE = *Ufal::UDPipec::Evaluator_NONE;
974             1;