Changeset 12630

Timestamp:

2006-08-31T14:57:50+12:00 (18 years ago)

Author:

mdewsnip

Message:

Plugins now output a <Processes> and <Blocks> information field, so the GLI can tell what each plugin will handle without having to parse all the arguments.

File:

• trunk/gsdl/perllib/plugins/BasPlug.pm (modified) (2 diffs)

trunk/gsdl/perllib/plugins/BasPlug.pm

@@ -260 +260 @@
     return if (!defined($pluginoptions));
 
+    # Find the process and block default expressions in the plugin arguments
+    my $process_exp = "";
+    my $block_exp = "";
+    if (defined($pluginoptions->{'args'})) {
+    foreach my $option (@{$pluginoptions->{'args'}}) {
+        if ($option->{'name'} eq "process_exp") {
+        $process_exp = $option->{'deft'};
+        }
+        if ($option->{'name'} eq "block_exp") {
+        $block_exp = $option->{'deft'};
+        }
+    }
+    }
+
     gsprintf(STDERR, "<PlugInfo>\n");
     gsprintf(STDERR, "  <Name>$pluginoptions->{'name'}</Name>\n");
@@ -268 +282 @@
     gsprintf(STDERR, "  <Abstract>$pluginoptions->{'abstract'}</Abstract>\n");
     gsprintf(STDERR, "  <Inherits>$pluginoptions->{'inherits'}</Inherits>\n");
+    gsprintf(STDERR, "  <Processes>$process_exp</Processes>\n");
+    gsprintf(STDERR, "  <Blocks>$block_exp</Blocks>\n");
     gsprintf(STDERR, "  <Explodes>" . ($pluginoptions->{'explodes'} || "no") . "</Explodes>\n");
     unless (defined($high_level_information_only)) {