#!/usr/local/bin/perl
#
# Generic startup script read into XML Compile
#
#################

use Getopt::Long;

print "snapper bootstrap starting...\n";
use Snapper;
print " loaded library Snapper\n";

my ($debug);

GetOptions(
"debug" => \$debug,
);
$Snapper::debug = defined($debug);

# create new object
$Main::xml = Snapper->new();
if ($Main::xml) {
print " new Snapper object created\n";
} else {
die " could not create Snapper object\n";
}
print " reading xml embedded data...\n";
$Main::xml_text = join('',<DATA>);
print " --> done.\n";
print " building GladeXML object...\n";
$Main::xml->build_memory($Main::xml_text,'__SNAPPER_PIXMAP__');
print " --> done\n";
print " jumping in with source scripts...\n\n";
$Main::xml->source_scripts("MAIN");

__DATA__