View of /trunk/webwork/system/scripts/convert_capa_2_PG.pl

    1 #!/usr/local/bin/perl
    2 
    3 use lib '.'; use webworkInit; # WeBWorKInitLine
    4 use capa2PG;
    5 use Benchmark;
    6 
    7 
    8 
    9 # Called by
   10 # convert_capa_2_PG.pl indirectory outdirectory
   11 
   12 unless (defined($ARGV[0]) ) {
   13   print qq!
   14   Useage:
   15   convert_capa_2_PG.pl in_directory_path out_directory_path
   16 
   17 and will convert all *.txt files in the in directory from CAPA to PG files,
   18 placing them in *.pg files in the out directory.
   19 Files named prob1a.txt prob1b.txt will be concatenated
   20 and placed into the file prob1.pg.
   21 
   22 For example:
   23 
   24      convert_capa_2.PG.pl type1 type1pg
   25 
   26 If out_directory_path is omitted then the out_directory_path is obtained by adding pg to the
   27 in_directory
   28 \n\n
   29 !;
   30 exit;
   31 }
   32 
   33 
   34 $directory = $ARGV[0];
   35 $indirectory = $directory;         # no final slash
   36 $outdirectory = "${directory}pg";
   37 $outdirectory = $ARGV[1] if defined($ARGV[1]);
   38 
   39 print "Converting all *.txt files in the directory
   40 $directory
   41 to the PG language and placing them in
   42 *.pg files in the directory
   43 $outdirectory.
   44 Proceed?>";
   45 my $response = <STDIN>;
   46 exit unless $response =~ /y/i ;
   47 
   48 
   49 
   50 # $outdirectory = "${directory}pg";  # no final slash
   51 opendir(DIRHANDLE, "$indirectory" ) || die "Can't open $indirectory $!";
   52 
   53 @allfiles = sort grep /\.txt/, readdir DIRHANDLE;
   54 closedir DIRHANDLE;
   55 
   56 $first_file = shift(@allfiles);
   57 
   58 
   59 
   60 
   61 my @all_lines = slurp("$indirectory/$first_file");
   62 
   63 while (1) {
   64   my $file = shift @allfiles;
   65 
   66   if (   root($first_file)  eq root($file)  ) {
   67     #     $out_line .= "$directory/$file ";
   68     push(@all_lines, slurp("$directory/$file") );
   69   } else {
   70       # we're done time to ship the file
   71       my $newName = root($first_file);
   72          #$newName =~ s/prob/capa/;
   73 
   74        print STDERR "Creating $outdirectory/$newName.pg\n";
   75        open(FILE_OUT, ">$outdirectory/$newName.pg") || print STDERR "Unable to output to $outdirectory/$newName.pg\n";
   76 
   77        ## begin Timing code
   78         my $beginTime = new Benchmark;
   79        ## end Timing code
   80       print FILE_OUT parse_CAPA_file(\@all_lines);
   81        ## begin Timing code
   82       my $endTime = new Benchmark;
   83       print FILE_OUT "\n#################################################\n## Processing time = ", timestr( timediff($endTime,$beginTime) ),
   84             "\n#################################################\n";
   85        ## end Timing code
   86 
   87        close(FILE_OUT);
   88       # print $out_line;
   89        #  system( $out_line);
   90       # and prepare the next
   91        $first_file = $file;
   92        #$out_line = "cat $directory/$first_file ";
   93        @all_lines = slurp("$directory/$first_file");
   94        last unless defined($first_file);
   95    }
   96 }
   97 
   98 sub slurp {
   99   my $path = shift;
  100   my @lines = ();
  101   if (open(FILE, "<$path") ) {
  102       print STDERR "Reading $path\n";
  103     @lines = <FILE>;
  104   } else {
  105     print STDERR "Can't open $path for reading.  Skipping.";
  106   }
  107   @lines;
  108 }
  109 
  110 
  111 
  112 
  113 sub root {
  114   my $in = shift;
  115   $in =~ s/[abcdefg]*\.txt$//;
  116   $in;
  117 }