/*
	Scriptol example
	Comparing two files loaded into arrays.
*/

include "libphp.sol"


int main(int argsize, array arglist)
	
	array f1, f2

	if argsize <> 3 ? die("usage:  fcomp file1 file2")

	echo "Comparing ", arglist[1]," ", arglist[2] , ": "
	
	if not file_exists(arglist[1]) ? die(arglist[1] + " not found")
	if not file_exists(arglist[2]) ? die(arglist[2] + " not found")
	f1.load(arglist[1])
	f2.load(arglist[2])

	if f1.size() <> f2.size() ? die("sizes differ")
	for int i in 0..f1.size() - 1
		if f1[i] <> f2[i] ? die("files differ")
	/for
	print "no difference found."
return 0


main($argc, $argv)  ` argc, argv are external PHP or C variables.