` fcomp - Comparing two files
` www.scriptol.org

include "libphp.sol"


int main(int argsize, array arglist)
	if argsize <> 3 ? die("usage:  fcomp file1 file2")
	echo "Comparing ", arglist[1]," ", arglist[2] , ": "

	array f1, f2
	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)