ga_merge

#!/usr/bin/env perl
use strict;
use warnings;
use File::Path qw(mkpath);

my $GA_DOC_DIR = "./";
my $GA_API_DOC = "ga_api_tmp.tex";
my $GA_API_DIR = "./tmp/";
if ($#ARGV == 0) {
    $GA_API_DIR = "$ARGV[0]/";
}
mkpath $GA_API_DIR;

opendir(APIDIR,"$GA_API_DIR");
my @files = readdir(APIDIR);
closedir(APIDIR);

my @files2 = ();
foreach my $file (@files) {
  # Skip any non-.tex file.
  if ($file =~ m/\.tex/) {
    # strip of .tex from filenames
    my $shorter = substr $file,0,-4;
    push (@files2, $shorter);
  }
  else {
    print "skipping file: $file\n";
  }
}

my $api_text = "";
my $begin = 0;
my $frag = "";
foreach my $file (sort @files2) {
  # add .tex back on
  $file = "$file.tex";
  open(INFILE, "$GA_API_DIR/$file");
  while (<INFILE>) {
    my $line = $_;
    if ($begin == 0) {
      if ($line =~ /begin\{document\}/) {
        $begin = 1;
        $frag = "";
      }
    } else {
      if ($line =~ /end\{document\}/) {
        $begin = 0;
      } else {
        $frag .= $line;
        if ($line =~/\S/) {
          $api_text .= $frag;
          $frag = "";
        }
      }
    }
  }
  close(INFILE);
}

my $API_DECS = "\\documentclass\[12pt\]\{article\}\n";
#$API_DECS .= "\\usepackage\{fullpage\}\n";
#$API_DECS .= "\\usepackage\{color\}\n";
#$API_DECS .= "\\usepackage\{alltt\}\n";
#$API_DECS .= "\\usepackage\{underscore\}\n";
#$API_DECS .= "\\usepackage\{environ\}\n";
#$API_DECS .= "\\usepackage\{graphicx\}\n";
$API_DECS .= "\\include\{preamble\/preamble\}\n";
#$API_DECS .= "\\include\{otype\}\n\n";

open(OUTFILE, ">$GA_DOC_DIR/$GA_API_DOC");

my $api_doc = "";
$api_doc = $API_DECS;
$api_doc .= "\\begin\{document\}\n\n";
$api_doc .= $api_text;
$api_doc .= "\\end\{document\}\n";
 
print OUTFILE "$api_doc";
close(OUTFILE);