Changeset 9870

Timestamp:

Nov 6, 2006, 5:18:39 PM (20 years ago)

Author:

Paul Price

Message:

Adding filenames to configuration parsing.

File:

• trunk/PS-IPP-Config/lib/PS/IPP/Config.pm (modified) (2 diffs)

trunk/PS-IPP-Config/lib/PS/IPP/Config.pm

@@ -1 +1 @@
 # Copyright (c) 2006  Paul Price, Joshua Hoblitt
 #
-# $Id: Config.pm,v 1.2 2006-10-12 20:12:14 price Exp $
+# $Id: Config.pm,v 1.3 2006-11-07 03:18:39 price Exp $
 
 package PS::IPP::Config;
@@ -142 +142 @@
 }
 
+# Return a filename from the camera configuration FILERULES
+sub filename
+{
+    my $self = shift;           # Configuration object
+    my $name = shift;           # Name of the file
+    my $output = shift;         # For replacing {OUTPUT}
+    my $component = shift;      # For replacing {CHIP.NAME} and {CELL.NAME}
+
+    my $camera = $self->{camera}; # Camera configuration
+    unless (defined $camera) {
+        carp "Camera has not yet been defined.\n";
+        return undef;
+    }
+
+    my $filerules = _mdLookupMD($camera, 'FILERULES');  # File rules
+    unless (defined $filerules) {
+        carp "Can't find FILERULES list in camera configuration.\n";
+        return undef;
+    }
+
+    my $file = _mdLookupMD($filerules, $name); # The file of interest
+    unless (defined $file) {
+        carp "Can't find $name within FILERULES in camera configuration.\n";
+        return undef;
+    }
+
+    my $filename = _mdLookupStr($file, "FILENAME.RULE"); # File name
+    unless (defined $filename) {
+        carp "Can't find FILENAME.RULE for $name within FILERULES in camera configuration.\n";
+        return undef;
+    }
+
+    $filename =~ s/\{OUTPUT\}/$output/;
+    $filename =~ s/\{CHIP\.NAME\}/$component/;
+    $filename =~ s/\{CELL\.NAME\}/$component/;
+
+    return $filename;
+}   
+
 
 # Lookup the metadata, checking the type is STR