src/HOL/Tools/ATP/scripts/remote_atp
changeset 42970 05d1dc9fefdb
parent 39152 f09b378cb252
child 43528 35f74aafc878
equal deleted inserted replaced
42969:10baeee358a5 42970:05d1dc9fefdb
    23     "ForceSystem" => "-force",
    23     "ForceSystem" => "-force",
    24     );
    24     );
    25 
    25 
    26 #----Get format and transform options if specified
    26 #----Get format and transform options if specified
    27 my %Options;
    27 my %Options;
    28 getopts("hws:t:c:",\%Options);
    28 getopts("hws:t:c:q:",\%Options);
    29 
    29 
    30 #----Usage
    30 #----Usage
    31 sub usage() {
    31 sub usage() {
    32   print("Usage: remote_atp [<options>] <file_name>\n");
    32   print("Usage: remote_atp [<options>] <file_name>\n");
    33   print("Options:\n");
    33   print("Options:\n");
    34   print("    -h              print this help\n");
    34   print("    -h              print this help\n");
    35   print("    -w              list available ATPs\n");
    35   print("    -w              list available ATPs\n");
    36   print("    -s<system>      ATP to use\n");
    36   print("    -s<system>      ATP to use\n");
    37   print("    -t<time_limit>  CPU time limit for ATP\n");
    37   print("    -t<time_limit>  CPU time limit for ATP\n");
    38   print("    -c<command>     custom ATP invocation command\n");
    38   print("    -c<command>     custom ATP invocation command\n");
       
    39   print("    -q<num>         quietness level (0 = most verbose, 3 = least verbose)\n");
    39   print("    <file_name>     TPTP problem file\n");
    40   print("    <file_name>     TPTP problem file\n");
    40   exit(0);
    41   exit(0);
    41 }
    42 }
    42 if (exists($Options{'h'})) {
    43 if (exists($Options{'h'})) {
    43   usage();
    44   usage();
    69     $URLParameters{"TimeLimit___$System"} = $Options{'t'};
    70     $URLParameters{"TimeLimit___$System"} = $Options{'t'};
    70 }
    71 }
    71 #----Custom command
    72 #----Custom command
    72 if (exists($Options{'c'})) {
    73 if (exists($Options{'c'})) {
    73     $URLParameters{"Command___$System"} = $Options{'c'};
    74     $URLParameters{"Command___$System"} = $Options{'c'};
       
    75 }
       
    76 #----Quietness
       
    77 if (exists($Options{'q'})) {
       
    78     $URLParameters{"QuietFlag"} = "-q" . $Options{'q'};
    74 }
    79 }
    75 
    80 
    76 #----Get single file name
    81 #----Get single file name
    77 if (exists($URLParameters{"ProblemSource"})) {
    82 if (exists($URLParameters{"ProblemSource"})) {
    78     if (scalar(@ARGV) >= 1) {
    83     if (scalar(@ARGV) >= 1) {