#!/usr/bin/perl -w use strict; use lib "$ENV{HOME}/public_perl/"; use Zot; my $zotfile = shift; die "Usage: $0 ER.zot" unless $zotfile; my $zot = Zot->new($zotfile)->parse; print "\n \n"; foreach my $table ($zot->tables) { printf " \n", $table->name; printf " \n"; foreach ($table->attrs) { my $attr = $_; $attr =~ s/^_/$table->name . '_'/e; printf " attr($_); print " primary_key=\"yes\"" if ($_ eq 'id'); print "/>\n"; } foreach ($table->rels) { my $rel = $_; $rel =~ s/^_/$table->name . '_'/e; printf " \n", $rel, $table->rel($_); } printf " \n"; if ($table->styles) { printf " \n"; printf "