Changeset 19774 for gsdl/trunk/perllib/arcinfo.pm

Timestamp:

2009-06-09T14:34:05+12:00 (15 years ago)

Author:

davidb

Message:

support for reverse lookup operations

File:

• gsdl/trunk/perllib/arcinfo.pm (modified) (5 diffs)

gsdl/trunk/perllib/arcinfo.pm

@@ -55 +55 @@
     my ($class) = @_;
     my $self = {'info'=>{},
+        'reverse-info'=>{},
         'order'=>[],
         'reverse_sort'=>0};
@@ -103 +104 @@
 }
 
+
 sub load_info {
     my $self = shift (@_);
@@ -151 +153 @@
     }
 }
+
+sub load_revinfo_UNTESTED
+{
+    my $self = shift (@_);
+    my ($rev_filename) = @_;
+
+    my $rev_infodb_map = {};
+
+    &dbutil::read_infodb_file_gdbm($rev_filename,$rev_infodb_map);
+
+    foreach my $srcfile ( keys %$rev_infodb_map ) {
+    my $vals = $rev_infodb_map->{$srcfile};
+
+    foreach my $OID ($vals =~ m/^<oid>(.*)$/gm) {
+        $self->add_revinfo($srcfile,$OID);
+    }
+    }
+}
+
 
 sub _save_info_txt {
@@ -209 +230 @@
 }
 
+sub save_revinfo_gdbm {
+    my $self = shift (@_);
+    my ($rev_filename) = @_;
+
+    # Output reverse lookup database
+
+    my $rev_infodb_map = $self->{'reverse-info'};
+    my $rev_infodb_handle 
+    = &dbutil::open_infodb_write_handle_gdbm($rev_filename,"append");
+
+    foreach my $key ( keys %$rev_infodb_map ) {
+    my $val_hash = $rev_infodb_map->{$key};
+    &dbutil::write_infodb_entry_gdbm($rev_infodb_handle,$key,$val_hash);
+    }
+    &dbutil::close_infodb_write_handle_gdbm($rev_infodb_handle);
+
+}
+
 sub save_info {
     my $self = shift (@_);
@@ -308 +347 @@
 }
 
+
+sub add_reverseinfo {
+    my $self = shift (@_);
+    my ($key, $OID) = @_;
+
+    my $existing_key = $self->{'reverse-info'}->{$key};
+    if (!defined $existing_key) {
+    $existing_key = {};
+    $self->{'reverse-info'}->{$key} = $existing_key;
+    }
+
+    my $existing_oid = $existing_key->{'oid'};  
+    if (!defined $existing_oid) {
+    $existing_oid = [];
+    $existing_key->{'oid'} = $existing_oid;
+    }
+
+    push(@$existing_oid,$OID);
+}
+
+
 sub reverse_sort 
 {