[ return ]

support.pl



############################################################
#
#  file: support.pl
#
#
#
#  Random support functions
#
sub Abs
{
    local($val) = @_;

    return ($val > 0) ? $val : -$val;
};



# 
#  sub member
#
#  Return 1 if the string $elem is a member of @lis.
#         0 otherwise
#

sub member
{
    local($elem, @lis) = @_;
    local($i);

    foreach $i (@lis)
    {
	if($elem eq $i)
	{
	    return 1;
	};
    }
    return 0;
};

1;


[ return ]