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