Changeset 10478

Timestamp:

2005-08-11T10:35:04+12:00 (19 years ago)

Author:

kjdon

Message:

arcPlug now knows about keepold, and if its not set, it wont try to do incremental building

Location:

trunk/gsdl/perllib

Files:

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

trunk/gsdl/perllib/basebuilder.pm

@@ -94 +94 @@
     push @global_opts, "-separate_cjk";
     }
-    $self->{'pluginfo'} = &plugin::load_plugins ($plugins, $verbosity, $outhandle, $failhandle, \@global_opts);
+    $self->{'pluginfo'} = &plugin::load_plugins ($plugins, $verbosity, $outhandle, $failhandle, \@global_opts, $keepold);
    
     if (scalar(@{$self->{'pluginfo'}}) == 0) {

trunk/gsdl/perllib/plugin.pm

@@ -45 +45 @@
 sub load_plugins {
     my ($plugin_list) = shift @_;
-    ($verbosity, $outhandle, $failhandle, $globaloptions) = @_; # globals
+    my $keepold;
+    ($verbosity, $outhandle, $failhandle, $globaloptions, $keepold) = @_; # globals
     my @plugin_objects = ();
-
+    $keepold = 0 unless (defined $keepold && $keepold == 1);
+    print STDERR "keepold = $keepold\n";
     $verbosity = 2 unless defined $verbosity;
     $outhandle = 'STDERR' unless defined $outhandle;
@@ -89 +91 @@
     # initialize plugin
     $plugobj->init($verbosity, $outhandle, $failhandle);
+    
+    $plugobj->set_keepold($keepold);
 
     # add this object to the list

trunk/gsdl/perllib/plugins/ArcPlug.pm

@@ -148 +148 @@
         }
         else {
-        if (!$processor->is_incremental_capable()) {
+        if (!$processor->is_incremental_capable() || !$self->{'keepold'}) {
             $process_file = 1;
         }

trunk/gsdl/perllib/plugins/BasPlug.pm

@@ -210 +210 @@
 
 
+sub set_keepold {
+    my $self = shift(@_);
+    my ($keepold) = @_;
+
+    $self->{'keepold'} = $keepold;
+}
+
 sub get_arguments
 {