Changeset 10155

Timestamp:

2005-06-23T11:18:41+12:00 (19 years ago)

Author:

davidb

Message:

deinit subroutine added that balances out init routine. 'init' called only
once when pipeline is set up. deinit now called when *every* pass using
the pipeline has finished. Note this is different to the 'begin' and 'end'
subroutines that can potentially be called just before a new round of
file processing with the pipeline (note: presently only buildcol.pl makes
multiple passes using the pipeline, importing only uses one pass).

Location:

trunk/gsdl/perllib

Files:

• plugin.pm (modified) (2 diffs)
• plugins/BasPlug.pm (modified) (1 diff)

trunk/gsdl/perllib/plugin.pm

@@ -105 +105 @@
 }
 
+
 sub metadata_read {
     my ($pluginfo, $base_dir, $file, $metadata, $extrametakeys, $extrametadata, $processor, $maxdocs, $gli, $aux) = @_;
@@ -289 +290 @@
 }
 
+sub deinit {
+    my ($pluginfo, $processor) = @_;
+   
+
+    map { $_->deinit($processor); } @$pluginfo;
+}
+
 1;

trunk/gsdl/perllib/plugins/BasPlug.pm

@@ -453 +453 @@
 
 sub end {
+    # potentially called at the end of each plugin pass 
+    # import.pl only has one plugin pass, but buildcol.pl has multiple ones
+
     my ($self) = @_;
     $self->finalise_extractors();
+}
+
+sub deinit {
+    # called only once, after all plugin passes have been done
+
+    my ($self) = @_;
 }