Changeset 6474

Timestamp:

Feb 23, 2006, 4:51:31 PM (20 years ago)

Author:

jhoblitt

Message:

first pass DateStore::FileSet::Parser->parse() implementation

Location:

trunk/DataStore

Files:

• lib/DataStore/FileSet/Parser.pm (modified) (3 diffs)
• t/02_fileset_parse.t (added)

trunk/DataStore/lib/DataStore/FileSet/Parser.pm

@@ -1 +1 @@
 # Copyright (C) 2006  Joshua Hoblitt
 #
-# $Id: Parser.pm,v 1.1 2006-02-24 00:52:14 jhoblitt Exp $
+# $Id: Parser.pm,v 1.2 2006-02-24 02:51:31 jhoblitt Exp $
 
 package DataStore::FileSet::Parser;
@@ -13 +13 @@
 use Carp qw( carp );
 use Params::Validate qw( validate_pos SCALAR);
+
+my $time_field = qr/^ (\d{4})-(\d\d)-(\d\d) T (\d\d):(\d\d):(\d\d) Z $/x;
+my $std_field = qr/^[a-z0-9-_.]+$/;
+#my %known_types = map { $_ => 1 } qw( OBJECT DOMEFLAT SKYFLAT BIAS DARK );
+my %known_types = map { $_ => 1 } qw( object domeflat skyflat bias dark );
 
 =pod
@@ -80 +85 @@
     );
 
-#    @ = qw( OBJECT DOMEFLAT SKYFLAT BIAS DARK );
+    my @data;
+    my $lineno = 1;
+LINE: foreach my $line (split /\n/, $doc) {
+        # blank lines
+        next LINE if $line =~ /^\s*$/;
+
+        # comment lines   
+        next LINE if $line =~ /^\s*\#/;
+
+        my @fields = split /\|/, $line;
+
+        # at least fileset, datatime, and type fields are required
+        if (scalar @fields < 3) {
+            carp "line $lineno: not enough fields: $line";
+            next LINE;
+        }
+
+        my ($fileset, $datetime, $type) = @fields;
+
+        # validate format of fileset and type
+        foreach my $field ($fileset, $type) {
+            unless ($field =~ $std_field) {
+                carp "line $lineno: field $field:"
+                   . " does not conform to $std_field: $line";
+                next LINE;
+            }
+        }
+
+        # validate format of datetime
+        unless ($datetime =~ $time_field) {
+            carp "line $lineno: field $datetime:"
+               . " does not conform to $time_field";
+            next LINE;
+        }
+
+        unless (exists $known_types{$type}) {
+            carp "line $lineno: type $type unknown: $line";
+            next LINE;
+        } 
+
+        unshift @data, DataStore::FileSet::Record->new({
+            fileset     => $fileset,
+            datetime    => $datetime,
+            type        => $type,
+        });
+    } continue {
+        $lineno++;
+    }
+
+    return @data ? \@data : undef;
 }
 
-package DataStore::FileSetRecord;
+package DataStore::FileSet::Record;
 
 use base qw( Class::Accessor::Fast );