Meta::Utils::Opts::Sopt - Object to store a definition for a command line option.

Meta documentation Contained in the Meta distribution.

Index

Code Index:

NAME

Top

Meta::Utils::Opts::Sopt - Object to store a definition for a command line option.

COPYRIGHT

Top

Copyright (C) 2001, 2002 Mark Veltzer; All rights reserved.

LICENSE

Top

This program 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; either version 2 of the License, or (at your option) any later version.

This program 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 this program; if not, write to the Free Software Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111, USA.

DETAILS

Top

	MANIFEST: Sopt.pm
	PROJECT: meta
	VERSION: 0.34

SYNOPSIS

Top

	package foo;
	use Meta::Utils::Opts::Sopt qw();
	my($sopt)=Meta::Utils::Opts::Sopt->new();
	$sopt->set_name("name");

DESCRIPTION

Top

This object is used by the Opts object to store information about a single command line argument.

FUNCTIONS

Top

	new($)
	setup_value($$)
	verify($)
	TEST($)

FUNCTION DOCUMENTATION

Top

BEGIN()

Setup routine which creates constructor, print method and accessor methods for the following attributes: 1. name - name of the parameter. 2. description - short description of the parameter. 3. type - type of the parameter. 4. default - default value of the parameter. 5. pointer - pointer for the parameter storage area. 6. value - value of the parameter. 7. enum - enumerated set from which to select an enumerated parameter. 8. set - set from which to select a set parameter. 9. tt - should the value pass through TT before going to user.

setup_value($$)

This method sets the current value for the current parameter. The reason that you can just use the set_valu accessor is that some values (like sets) are not really strings and need some processing.

verify($)

This will run sanity checks on the value inside. The sanity checks are according to the type of argument. 1. Files are checked for existance. 2. Directories are checked for existance. 3. New files are checkeed for absense. 4. Paths are checked for existance of each component. 5. URL are checked for correct specification and optionally for existance (over the net).

TEST($)

Test suite for this module. This test suite should be called by some higher level regression test suite to test the entire distribution. The test suite currently just creates an object and prints it out.

SUPER CLASSES

Top

None.

BUGS

Top

None.

AUTHOR

Top

	Name: Mark Veltzer
	Email: mailto:veltzer@cpan.org
	WWW: http://www.veltzer.org
	CPAN id: VELTZER

HISTORY

Top

	0.00 MV make Meta::Utils::Opts object oriented
	0.01 MV fix todo items look in pod documentation
	0.02 MV add enumerated types to options
	0.03 MV more on tests/more checks to perl
	0.04 MV change new methods to have prototypes
	0.05 MV perl code quality
	0.06 MV more perl quality
	0.07 MV more perl quality
	0.08 MV get basic Simul up and running
	0.09 MV perl documentation
	0.10 MV more perl quality
	0.11 MV perl qulity code
	0.12 MV more perl code quality
	0.13 MV revision change
	0.14 MV better general cook schemes
	0.15 MV languages.pl test online
	0.16 MV Pdmt stuff
	0.17 MV perl packaging
	0.18 MV PDMT
	0.19 MV tree type organization in databases
	0.20 MV md5 project
	0.21 MV database
	0.22 MV perl module versions in files
	0.23 MV movies and small fixes
	0.24 MV thumbnail user interface
	0.25 MV more thumbnail issues
	0.26 MV paper writing
	0.27 MV website construction
	0.28 MV web site automation
	0.29 MV SEE ALSO section fix
	0.30 MV move tests to modules
	0.31 MV download scripts
	0.32 MV web site development
	0.33 MV finish papers
	0.34 MV md5 issues

SEE ALSO

Top

Data::Dumper(3), LWP::Simple(3), Meta::Baseline::Aegis(3), Meta::Class::MethodMaker(3), Meta::Development::Module(3), Meta::Template::Sub(3), Meta::Utils::File::Dir(3), Meta::Utils::File::File(3), Meta::Utils::File::Path(3), Meta::Utils::File::Patho(3), Meta::Utils::Output(3), strict(3)

TODO

Top

-add limited range intergers.

-add regular expression match limited strings.

-add a write_file type which is a file that could be written (as opposed to a file which doesnt exist in new_file).

-add clean character strings types (only nice characters...).

-add checks for integers, floating points etc...

-add dictorionary word type and check.

-add enumerated our() variable which stores all the types that we support and check it.

Meta documentation Contained in the Meta distribution. 
#!/bin/echo This is a perl module and should not be run

package Meta::Utils::Opts::Sopt;

use strict qw(vars refs subs);
use Meta::Utils::File::File qw();
use Meta::Utils::File::Dir qw();
use Meta::Baseline::Aegis qw();
use Meta::Class::MethodMaker qw();
use Meta::Utils::File::Path qw();
use LWP::Simple qw();
use Meta::Utils::Output qw();
use Meta::Development::Module qw();
use Data::Dumper qw();
use Meta::Template::Sub qw();
use Meta::Utils::File::Patho qw();

our($VERSION,@ISA);
$VERSION="0.34";
@ISA=qw();

#sub BEGIN();
#sub setup_value($$);
#sub verify($);
#sub TEST($);

#__DATA__

sub BEGIN() {
	Meta::Class::MethodMaker->new("new");
	Meta::Class::MethodMaker->get_set(
		-java=>"_name",
		-java=>"_description",
		-java=>"_type",
		-java=>"_default",
		-java=>"_pointer",
		-java=>"_value",
		-java=>"_enum",
		-java=>"_set",
		-java=>"_tt",
	);
}

sub setup_value($$) {
	my($self,$valu)=@_;
	if($self->get_type() eq "setx") {
		my($poin)=$self->get_pointer();
		$$poin->clear();
		my(@list)=split(',',$valu);
		for(my($i)=0;$i<=$#list;$i++) {
	#		Meta::Utils::Output::print("poin is [".$poin."]\n");
			$$poin->insert($list[$i]);
		}
		return;
	}
	if($self->get_type() eq "urls") {
		$self->set_value(LWP::Simple::get($valu));
		return;
	}
	if($self->get_type() eq "modu") {
		my($modu)=Meta::Development::Module->new();
		$modu->set_name($valu);
		$self->set_value($modu);
		return;
	}
	if($self->get_type() eq "dire") {
		while($valu=~/\/$/) {
			chop($valu);
		}
		$self->set_value($valu);
		return;
	}
	$self->set_value($valu);
}

sub verify($) {
	my($self)=@_;
	my($type)=$self->get_type();
	my($valu)=$self->get_value();
	#Meta::Utils::Output::print("in here with type [".$type."]\n");
	if($type eq "dire") {
		$valu=Meta::Template::Sub::interpolate($valu);#FIXME
		Meta::Utils::File::Dir::check_exist($valu);
	}
	if($type eq "newd") {
		$valu=Meta::Template::Sub::interpolate($valu);#FIXME
		Meta::Utils::File::Dir::check_notexist($valu);
	}
	if($type eq "devd") {
		$valu=Meta::Template::Sub::interpolate($valu);#FIXME
		Meta::Baseline::Aegis::check_direxists($valu);
	}
	if($type eq "file") {
		$valu=Meta::Template::Sub::interpolate($valu);#FIXME
		Meta::Utils::File::File::check_exist($valu);
	}
	if($type eq "newf") {
		$valu=Meta::Template::Sub::interpolate($valu);#FIXME
		Meta::Utils::File::File::check_notexist($valu);
	}
	if($type eq "ovwf") {
		$valu=Meta::Template::Sub::interpolate($valu);#FIXME
		Meta::Utils::File::File::check_exist($valu);
	}
	if($type eq "devf") {
		$valu=Meta::Template::Sub::interpolate($valu);#FIXME
		Meta::Baseline::Aegis::check_exists($valu);
	}
	if($type eq "urls") {
		#$valu=Meta::Template::Sub::interpolate($valu);#FIXME
		#check that the value is of valid URL form.
		#check that URL can be fetched.
		return(1);
	}
	if($type eq "modu") {
		# interpolating here is bad since the $valu is not
		# a string that can be interpolated
		#$valu=Meta::Template::Sub::interpolate($valu);#FIXME
		#check that the value is a valid path to a dev module
		return(1);
	}
	if($type eq "enum") {
		my($enum)=$self->get_enum();
		$enum->check_has($valu);
	}
	if($type eq "setx") {
		my($setx)=$self->get_enum();
		my(@list)=split(',',$valu);
		for(my($i)=0;$i<=$#list;$i++) {
			my($curr)=$list[$i];
			$setx->check_has($curr);
		}
	}
	if($type eq "path") {
		#$valu=Meta::Template::Sub::interpolate($valu);#FIXME
		my($patho)=Meta::Utils::File::Patho->new($valu,':');
		$patho->check();
	}
	if($type eq "flst") {
		Meta::Utils::File::Path::check_flst($valu,':');
	}
	if($type eq "dlst") {
		my($patho)=Meta::Utils::File::Patho->new($valu,':');
		$patho->check();
	}
	if($type eq "bool") {
		if($valu ne "true" && $valu ne "false" && $valu!=1 && $valu!=0) {
			throw Meta::Error::Simple("boolean value [".$valu."] bad");
		}
	}
}

sub TEST($) {
	my($context)=@_;
	my($name);
	my($obje)=Meta::Utils::Opts::Sopt->new();
	$obje->set_name("options");
	$obje->set_description("name of user");
	$obje->set_type("stri");
	$obje->set_default("mark");
	$obje->set_pointer(\$name);
	Data::Dumper::Dumper($obje);
	return(1);
}

1;

__END__