Changeset 31907

Timestamp:

Jul 19, 2011, 1:33:38 PM (15 years ago)

Author:

eugene

Message:

adding metadataLookupF32 perl function (only used by camera_exp.pl)

File:

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

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

@@ -40 +40 @@
                     metadataLookupBool
                     metadataLookupS32
+                    metadataLookupF32
                     caturi
                     file_scheme
@@ -1576 +1577 @@
 }
 
+# Lookup the metadata, checking the type is F32
+sub metadataLookupF32
+{
+    my $item = metadataLookup(@_);
+    return undef if not defined $item;
+    my $name = shift;                # Name of item
+    carp "$name within metadata is type $item->{type} not F32.\n" unless $item->{type} eq "F32";
+    return $item->{value};
+}
+
 # Lookup the metadata, checking the type is MD
 sub metadataLookupMD