#!/home/jmc/bin/perl

=head1 NAME

=head1 SYNOPSIS

=head1 DESCRIPTION

=head1 BUGS

=head1 SEE ALSO

=head1 AUTHOR
John Chambers <jc@trillian.mit.edu>

=cut

use Carp;

# Allocate a new tune and fill in it's X field.
sub Tune {
	local $obj = {};		# New hash for abc tune object.
	$obj->{X} = @_ ? shift : '1';
	$obj->{type} = 'Tune';
	return $obj;
}
return 1;

# - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - #
# - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - #
package abc;

# - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - #
package tune;
#require Exporter;
#@ISA    = qw(Exporter);
@EXPORT = qw(new,C,K,L,M,O,T,X,wrapup);
#@EXPORT_OK = qw();

sub new {
	my $that = shift;	# package/module/class
	my $obj = bless {};	# New tune.
	print "tune::new(@_) called.\n" if $main::D;
	my $Xid = @_ ? shift : '1';
	$obj{X}   = "+$Xid";
	$obj->{X} = "-$Xid";
	return $obj;
}

sub DESTROY {
	print "tune::DESTROY called.\n" if $main::D;
}

sub C {my($obj,$val) = @_;$obj{C} = $val}
sub K {my($obj,$val) = @_;$obj{K} = $val}
sub L {my($obj,$val) = @_;$obj{L} = $val}
sub M {my($obj,$val) = @_;$obj{M} = $val}
sub O {my($obj,$val) = @_;$obj{O} = $val}
sub T {
	my($obj,$val) = @_;
	$obj{T} = $val
}
sub X {
	my($obj,$val) = @_;
	$obj{X} = $val
}

sub wrapup {
	print "tune::wrapup called for X:",$obj{"X"},"T:",$obj{"T"},".\n" if $main::D;
}

# - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - #
1;