#! /usr/bin/perl -w
#
use greendb;
use strict;
sub mktable {
my $env = greendb::new_GreenEnv(".");
greendb::GreenEnv_open($env);
my $table_name = $ARGV[0];
my $table = greendb::new_Table($table_name, $env);
my $row = greendb::Table_new_row($table);
my $schema = greendb::Table_get_schema($table);
my $size = greendb::Schema_size($schema);
for my $i (0 .. ($size -1) ) {
my $value = $ARGV[$i+1];
print $i .") adding ". $value . "\n";
greendb::Row_from_string_n($row, $i, $value);
$i = $i + 1;
}
greendb::Table_save($table, $row);
greendb::Table_close($table);
greendb::GreenEnv_close($env);
}
mktable();
syntax highlighted by Code2HTML, v. 0.9.1