Changeset 12799 for trunk/PS-IPP-Config/lib/PS/IPP/Config.pm

Timestamp:

Apr 10, 2007, 3:58:02 PM (19 years ago)

Author:

eugene

Message:

added extrule lookup (commented out for now)

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.33 2007-03-09 22:31:15 price Exp $
+# $Id: Config.pm,v 1.34 2007-04-11 01:58:02 eugene Exp $
 
 package PS::IPP::Config;
@@ -377 +377 @@
 }   
 
+# Return an EXTNAME From the EXTNAME.RULE table in the camera configuration
+##  sub extname_rule
+##  {
+##      my $self = shift;               # Configuration object
+##      my $name = shift;               # Name of the EXTNAME to build
+##      my $component = shift;  # For replacing {CHIP.NAME}
+##  
+##      unless (defined $self and defined $name) {
+##      carp "Programming error";
+##      exit($PS_EXIT_PROG_ERROR);
+##      }
+##  
+##      my $camera = $self->{camera}; # Camera configuration
+##      unless (defined $camera) {
+##      carp "Camera has not yet been defined.\n";
+##      return undef;
+##      }
+##  
+##      my $extname_rules = _mdLookupMD($camera, 'EXTNAME.RULES');      # File rules
+##      unless (defined $extname_fules) {
+##      carp "Can't find EXTNAME.RULES in camera configuration.\n";
+##      return undef;
+##      }
+##  
+##      my $extname = _mdLookupStr($file, $name); # File name
+##      unless (defined $extname) {
+##      carp "Can't find $name within EXTNAME.RULES in camera configuration.\n";
+##      return undef;
+##      }
+##  
+##      if ($extname =~ /\{CHIP\.NAME\}/) {
+##      unless (defined $component) {
+##          carp "Programming error";
+##          exit($PS_EXIT_PROG_ERROR);
+##      }
+##      $extname =~ s/\{CHIP\.NAME\}/$component/;
+##      }
+##  
+##      return $extname;
+##  }   
+
 # Return the DVO.CAMERADIR in the camera configuration
 sub dvo_cameradir