File Manager

#! /usr/bin/crm
#
#	mathalgtest.crm - Test demo program for extended eval

# Copyright 2009 William S. Yerazunis.
# This file is under GPLv3, as described in COPYING.

#	Test demo program for extended eval (can do string lengths,
#       algebraic math, and inequalities.
window
output / \n  Algebraic math test \n/
{
	isolate (:z:)
	isolate (:x:) /12345/
	isolate (:pi:) /3.14159/
	output / string value of x is :*:x:, string value of pi is :*:pi:\n/
	eval (:z:) / length of x is :#::*:x:: , length of pi is :#::*:pi::\n/
	output /:*:z:/
	{
		{
			eval (:z:) /:@: :#::*:x:: > :#::*:pi:::/
			output / string rep of X is longer than pi\n/
		}
		alius
		{
			output / string rep of X is shorter than pi\n/
		}
	}
	eval (:z:) / matheval of x + pi is :@:    :*:x: + :*:pi: :\n/
	output /:*:z:/
	eval (:z:) /:@: (2 * 3) + ( 4 * 5) :/
	output / Algebraic matheval of (2*3)+(4*5) is :*:z: \n/
	eval (:z:) /  and adding 3.14159 to that is :@: :*:z: + 3.14159:\n/
	output /:*:z:/
	#output /With TDW: >:*:_iso:<\n/
}