Changeset 5902 for trunk/glueforge/glueforge.in

Timestamp:

Jan 5, 2006, 1:00:12 PM (21 years ago)

Author:

jhoblitt

Message:

split global data and per table

File:

• trunk/glueforge/glueforge.in (modified) (4 diffs)

trunk/glueforge/glueforge.in

@@ -3 +3 @@
 # Copyright (C) 2005  Joshua Hoblitt
 #
-# $Id: glueforge.in,v 1.35 2006-01-05 22:54:44 jhoblitt Exp $
+# $Id: glueforge.in,v 1.36 2006-01-05 23:00:12 jhoblitt Exp $
 
 use strict;
@@ -34 +34 @@
 my $config = parse_config( $input );
 
+die "file doesn't not contain a valid config" unless defined $config->[0];
+
 my %data;
 
 # find table name
+my $table_name;
 for (my $i = 0; $i < @{$config}; $i++) {
     my $elem = $config->[$i];
 
     if ( $elem->{name} eq "table" ) {
-        $data{table_name} = $elem->{value};
+        $table_name = $elem->{value};
 
         # delete element from array
@@ -50 +53 @@
 }
 
-$data{pkg_name}    = $data{table_name} . "db";
-$data{namespace}   = $data{table_name};
-$data{object_name} = $data{namespace} . "Row";
+# global data
+$data{pkg_name}    = $table_name . "db";
+
+# per table data
+my %table;
+$table{namespace}   = $table_name;
+$table{object_name} = $table{namespace} . "Row";
 
 my @items;
@@ -74 +81 @@
 }
 
-$data{columns} = \@items;
-
+$table{columns} = \@items;
+$data{tables} = [ \%table ];
 
 $output = $data{pkg_name} unless defined $output;