#!/usr/bin/perl

# Author M.S.Martin (Johns Hopkins) Feb 2004

use Getopt::Long;

GetOptions(\%option, "filename=s");

die("Usage: addRuns.perl -filename=<filename>\n")
  unless $option{'filename'};

$lorun =0;
$hirun =0;

@runAr;
$runAr_size=0;

$flag=0;
$flag2=0;

open(SOURCE,"cat get_cid_tables_template.sql |");
while(<SOURCE>){

  chomp;

  print STDOUT "$_\n";

  if($flag2==1){

    $flag2=0;

    print STDOUT '  the_run_size NUMBER :=';
    print STDOUT "$runAr_size";
    print STDOUT ';';
    print STDOUT "\n";

  }#if


  if($flag==1){

    print STDOUT "\n";


    open(SOURCE2,"cat $option{'filename'} |");
    while(<SOURCE2>){

      chomp;

      #print STDOUT "$_\n";

      split;

      $lorun = @_[0];
      $hirun = @_[1];

      if($lorun > $hirun){
	print STDOUT '(\'ERROR IN THIS SQL!!!!!!!!!!!!! In the runfile, lorun is bigger than hirun: (lorun,hirun) = (';
	print STDOUT "$lorun,$hirun)";
	print STDOUT '\');';
      }#if


      #protect against blank lines
      if($lorun > 100){

	for($j=$lorun; $j<($hirun+1); $j++){
	  $runAr[$runAr_size] = $j;
	  $runAr_size++;
	}#for
	
      }#if

    }#while



    for($i=0; $i<$runAr_size; $i++){

#      print STDOUT '       \'155150\'';

      print STDOUT '       \'';
      print STDOUT "$runAr[$i]";
      print STDOUT '\'';

      if($i<($runAr_size-1)){
	print STDOUT ',';
      }#if

      print STDOUT "\n";

    }#for

    $flag=0;

  }#if



  if(/PERLTRIGGER/){
    $flag=1;
  }#if


  if(/ANOTHERPERLTRIG/){
    $flag2=1;
  }#if

}#while