#!/usr/bin/perl

$R=$ARGV[0];

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

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

$learner = ("trees.J48");

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

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

DO_FILE: foreach $file (@train_files) {

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

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

} 
