/*
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.