#!/usr/bin/perl -w
#      /\
#     /  \		(C) Copyright 2008 Parliament Hill Computers Ltd.
#     \  /		All rights reserved.
#      \/
#       .		Author: Alain Williams, February 2008.
#       .		addw@phcomp.co.uk
#        .
#          .
#
#	SCCS: @(#)BasicUse.pl	1.2 02/13/08 13:57:24
#
# Examples in basic use of the module.

use strict;
use Math::Expression;
use Data::Dumper;

my $trace = 0;	# Debugging

my $ArithEnv = new Math::Expression;


my $tree0 = $ArithEnv->Parse(' 12 * 4');
# Print: 48
print qq[12 * 4 yeilds: ] . $ArithEnv->EvalToScalar($tree0) . "\n";

my $treeList = $ArithEnv->Parse(' split(":", "ab:cde:fg")');
# Print: fg -- because the scalar is the last element
print qq[split(":", "ab:cde:fg") yeilds: ] . $ArithEnv->EvalToScalar($treeList) . "\n";

# Evaluate getting back a list (array):
my @result = $ArithEnv->Eval($treeList);
print Dumper(\@result);

# end