cmdoption.pm

普通的ETL工具

# vim:ts=4 sw=4
# ----------------------------------------------------------------------------------------------------
#  Name		: ETL::Pequel3::Type::CmdOption.pm
#  Created	: 14 March 2007
#  Author	: Mario Gaffiero (gaffie)
#
# Copyright 1999-2007 Mario Gaffiero.
# 
# This file is part of Pequel(TM).
# 
# Pequel is free software; you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by
# the Free Software Foundation; version 2 of the License.
# 
# Pequel is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
# GNU General Public License for more details.
# 
# You should have received a copy of the GNU General Public License
# along with Pequel; if not, write to the Free Software
# Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA  02110-1301  USA
# ----------------------------------------------------------------------------------------------------
# Modification History
# When          Version     Who     What
# ----------------------------------------------------------------------------------------------------
package ETL::Pequel3::Type::CmdOption;
require 5.005_62;
use strict;
use warnings;
use stl;
# ----------------------------------------------------------------------------------------------------
{
	package ETL::Pequel3::Type::CmdOption::Abstract;
	use base qw(Class::STL::Element);
	use Class::STL::ClassMembers 
		qw( 
			long_name 
			short_name
			default 
			description 
			prop_name
		),
		Class::STL::ClassMembers::DataMember->new(name => 'flag', default => 0),
		Class::STL::ClassMembers::DataMember->new(name => 'user_option', default => 0);
	use Class::STL::ClassMembers::Constructor;
	sub new_extra
	{
		my $self = shift;
		$self->data(1) if ($self->flag() && !defined($self->data()))
	}
	sub prep #NOTE: called before produce()
	{
		my $self = shift;
		my $POM = shift;
	}
	sub exec #NOTE: called after produce()
	{
		my $self = shift;
		my $POM = shift;
	}
}
# ----------------------------------------------------------------------------------------------------
{
	package ETL::Pequel3::Type::CmdOption::UserOption;
	use base qw(ETL::Pequel3::Type::CmdOption::Abstract);
	use ETL::Pequel3;
	use Class::STL::ClassMembers
		Class::STL::ClassMembers::DataMember->new(name => 'long_name', default => 'user_option'),
		Class::STL::ClassMembers::DataMember->new(name => 'description', default => 'User defined option');
	use Class::STL::ClassMembers::Constructor;
}
# ----------------------------------------------------------------------------------------------------
{
	package ETL::Pequel3::Type::CmdOption::Version;
	use base qw(ETL::Pequel3::Type::CmdOption::Abstract);
	use ETL::Pequel3;
	use Class::STL::ClassMembers
		Class::STL::ClassMembers::DataMember->new(name => 'long_name', default => 'version'),
		Class::STL::ClassMembers::DataMember->new(name => 'short_name', default => 'v'),
		Class::STL::ClassMembers::DataMember->new(name => 'flag', default => 1),
		Class::STL::ClassMembers::DataMember->new(name => 'description', default => 'Display Pequel version information');
	use Class::STL::ClassMembers::Constructor;
	sub prep
	{
		my $self = shift;
		my $POM = shift;
		print STDERR "Pequel3 version @{[ $POM->properties()->version() ]}\n";
		print STDERR "-->please check http://sourceforge.net/projects/pequel/ for updates.\n";
	}
}
# ----------------------------------------------------------------------------------------------------
{
	package ETL::Pequel3::Type::CmdOption::Prefix;
	use base qw(ETL::Pequel3::Type::CmdOption::Abstract);
	use Class::STL::ClassMembers
		Class::STL::ClassMembers::DataMember->new(name => 'long_name', default => 'prefix'),
		Class::STL::ClassMembers::DataMember->new(name => 'short_name', default => 'pre'),
		Class::STL::ClassMembers::DataMember->new(name => 'prop_name', default => 'prefix'),
		Class::STL::ClassMembers::DataMember->new(name => 'default', default => ''),
		Class::STL::ClassMembers::DataMember->new(name => 'flag', default => 0),
		Class::STL::ClassMembers::DataMember->new(name => 'user_option', default => 1),
		Class::STL::ClassMembers::DataMember->new(name => 'description', default => 'Directory pathname prefix');
	use Class::STL::ClassMembers::Constructor;
}
# ----------------------------------------------------------------------------------------------------
{
	package ETL::Pequel3::Type::CmdOption::XmlParser;
	use base qw(ETL::Pequel3::Type::CmdOption::Abstract);
	use Class::STL::ClassMembers
		Class::STL::ClassMembers::DataMember->new(name => 'long_name', default => 'xml_parser'),
		Class::STL::ClassMembers::DataMember->new(name => 'prop_name', default => 'xml_parser'),
		Class::STL::ClassMembers::DataMember->new(name => 'default', default => 'element'),
		Class::STL::ClassMembers::DataMember->new(name => 'flag', default => 0),
		Class::STL::ClassMembers::DataMember->new(name => 'description', default => 'XML parser type name');
	use Class::STL::ClassMembers::Constructor;
}
# ----------------------------------------------------------------------------------------------------
{
	package ETL::Pequel3::Type::CmdOption::ExecDir;
	use base qw(ETL::Pequel3::Type::CmdOption::Abstract);
	use Class::STL::ClassMembers
		Class::STL::ClassMembers::DataMember->new(name => 'long_name', default => 'exec_dir'),
		Class::STL::ClassMembers::DataMember->new(name => 'short_name', default => 'ed'),
		Class::STL::ClassMembers::DataMember->new(name => 'prop_name', default => 'exec_dir'),
		Class::STL::ClassMembers::DataMember->new(name => 'default', default => './_Pequel'),
		Class::STL::ClassMembers::DataMember->new(name => 'flag', default => 0),
		Class::STL::ClassMembers::DataMember->new(name => 'user_option', default => 1),
		Class::STL::ClassMembers::DataMember->new(name => 'description', default => 'Temporary directory for generated programs');
	use Class::STL::ClassMembers::Constructor;
}
# ----------------------------------------------------------------------------------------------------
{
	package ETL::Pequel3::Type::CmdOption::TraceDir;
	use base qw(ETL::Pequel3::Type::CmdOption::Abstract);
	use Class::STL::ClassMembers
		Class::STL::ClassMembers::DataMember->new(name => 'long_name', default => 'trace_dir'),
		Class::STL::ClassMembers::DataMember->new(name => 'prop_name', default => 'td'),
		Class::STL::ClassMembers::DataMember->new(name => 'default', default => './_Pequel'),
		Class::STL::ClassMembers::DataMember->new(name => 'flag', default => 0),
		Class::STL::ClassMembers::DataMember->new(name => 'user_option', default => 1),
		Class::STL::ClassMembers::DataMember->new(name => 'description', default => 'Temporary directory for trace log files and generated programs');
	use Class::STL::ClassMembers::Constructor;
}
# ----------------------------------------------------------------------------------------------------
{
	package ETL::Pequel3::Type::CmdOption::TraceFile;
	use base qw(ETL::Pequel3::Type::CmdOption::Abstract);
	use Class::STL::ClassMembers
		Class::STL::ClassMembers::DataMember->new(name => 'long_name', default => 'trace_file'),
		Class::STL::ClassMembers::DataMember->new(name => 'short_name', default => 'tf'),
		Class::STL::ClassMembers::DataMember->new(name => 'flag', default => 0),
		Class::STL::ClassMembers::DataMember->new(name => 'user_option', default => 1),
		Class::STL::ClassMembers::DataMember->new(name => 'description', default => 'Trace log filename');
	use Class::STL::ClassMembers::Constructor;
}
# ----------------------------------------------------------------------------------------------------
{
	package ETL::Pequel3::Type::CmdOption::Trace;
	use base qw(ETL::Pequel3::Type::CmdOption::Abstract);
	use Class::STL::ClassMembers
		Class::STL::ClassMembers::DataMember->new(name => 'long_name', default => 'trace'),
		Class::STL::ClassMembers::DataMember->new(name => 'default', default => 0),
		Class::STL::ClassMembers::DataMember->new(name => 'flag', default => 0),
		Class::STL::ClassMembers::DataMember->new(name => 'user_option', default => 1),
		Class::STL::ClassMembers::DataMember->new(name => 'description', default => 'Save trace information in trace-file during generated program execution');
	use Class::STL::ClassMembers::Constructor;
}
# ----------------------------------------------------------------------------------------------------
{
	package ETL::Pequel3::Type::CmdOption::Diag;
	use base qw(ETL::Pequel3::Type::CmdOption::Abstract);
	use Class::STL::ClassMembers
		Class::STL::ClassMembers::DataMember->new(name => 'long_name', default => 'diagnostics'),
		Class::STL::ClassMembers::DataMember->new(name => 'short_name', default => 'diag'),
		Class::STL::ClassMembers::DataMember->new(name => 'default', default => 0),
		Class::STL::ClassMembers::DataMember->new(name => 'flag', default => 1),
		Class::STL::ClassMembers::DataMember->new(name => 'user_option', default => 1),
		Class::STL::ClassMembers::DataMember->new(name => 'description', default => 'Display diagnostic information during generated program execution');
	use Class::STL::ClassMembers::Constructor;
	sub prep
	{
		my $self = shift;
		my $POM = shift;
		ETL::Pequel3::Error->new()->diag_level(1);
	}
}
# ----------------------------------------------------------------------------------------------------
{
	package ETL::Pequel3::Type::CmdOption::DiagLevel;
	use base qw(ETL::Pequel3::Type::CmdOption::Abstract);
	use Class::STL::ClassMembers
		Class::STL::ClassMembers::DataMember->new(name => 'long_name', default => 'diagnostics_level'),
		Class::STL::ClassMembers::DataMember->new(name => 'short_name', default => 'diag_level'),
		Class::STL::ClassMembers::DataMember->new(name => 'default', default => 0),
		Class::STL::ClassMembers::DataMember->new(name => 'flag', default => 0),
		Class::STL::ClassMembers::DataMember->new(name => 'user_option', default => 1),
		Class::STL::ClassMembers::DataMember->new(name => 'description', default => 'Specify diagnostic detail level');
	use Class::STL::ClassMembers::Constructor;
	sub prep
	{
		my $self = shift;
		my $POM = shift;
		ETL::Pequel3::Error->new()->diag_level($self->data());
	}
}
# ----------------------------------------------------------------------------------------------------
{
	package ETL::Pequel3::Type::CmdOption::Check;
	use base qw(ETL::Pequel3::Type::CmdOption::Abstract);
	use Class::STL::ClassMembers
		Class::STL::ClassMembers::DataMember->new(name => 'long_name', default => 'check'),
		Class::STL::ClassMembers::DataMember->new(name => 'short_name', default => 'c'),
		Class::STL::ClassMembers::DataMember->new(name => 'flag', default => 1),
		Class::STL::ClassMembers::DataMember->new(name => 'description', default => 'Syntax check the generated program');
	use Class::STL::ClassMembers::Constructor;
	sub prep
	{
		my $self = shift;
		my $POM = shift;
		my $getopt = ETL::Pequel3::GetOpt->new();
		$getopt->user()->push_back(ETL::Pequel3::Type::CmdOption::NoExec->new())
			unless ($getopt->user()->exists('noexec'));
	}
	sub exec
	{
		my $self = shift;
		my $POM = shift;
		if ($POM->check() !~ /syntax OK/i)
		{
			print STDERR "Script failed syntax check!\n";
			print STDERR "-->for debugging please check end of generated code dump in '@{[
				$POM->generator()->user_prog()->program_name() ]}.DEBUG' for error messages.\n";
		}
		else
		{
			print STDERR "@{[ $POM->generator()->user_prog()->program_name() ]} syntax OK\n";
		}
	}
}
# ----------------------------------------------------------------------------------------------------
{
	package ETL::Pequel3::Type::CmdOption::Xsdgen;
	use base qw(ETL::Pequel3::Type::CmdOption::Abstract);
	use Class::STL::ClassMembers