#!/usr/bin/perl

$R=$ARGV[0];

system("rm -rf $R/costing-train");
system("mkdir -p $R/costing-train");
#system("ls -l $R/$R.im");
system("./costing $R/$R.im $R/costing-train 20");

opendir(TRAIN_DIR, "$R/costing-train")
      || die "Can't open directory: $!\n";

@train_files = sort (grep(!/^\.\.?$/, readdir(TRAIN_DIR)));
closedir(TRAIN_DIR);

$learner = ("trees.J48");
#$learner = ("functions.SMO");

system("rm -rf $R/$learner/costing");
system("mkdir -p $R/$learner/costing");

DO_FILE: foreach $file (@train_files) {

    system("java -classpath ../weka.jar weka.classifiers.$learner -t $R/costing-train/$file -T $R/$R.test -p 0 > $R/$learner/costing/$file.predict");

    #print("java -classpath ../weka.jar weka.classifiers.$learner -t $R/costing-train/$file -T $R/$R.test -p 0 > $R/$learner/costing/$file.predict\n");
    #print(".");

} 

system("./costing-test $R/$learner/costing 20 $ARGV[1]");
