#/*****************************************************************************
##   Copyright (C) 1994-2008 by David Gordon.
##   All rights reserved.                           
##                                                                           
##   This software is part of a beta-test version of the Consed/Autofinish
##   package.  It should not be redistributed or
##   used for any commercial purpose, including commercially funded
##   sequencing, without written permission from the author and the
##   University of Washington.
##   
##   This software is provided ``AS IS'' and any express or implied
##   warranties, including, but not limited to, the implied warranties of
##   merchantability and fitness for a particular purpose, are disclaimed.
##   In no event shall the authors or the University of Washington be
##   liable for any direct, indirect, incidental, special, exemplary, or
##   consequential damages (including, but not limited to, procurement of
##   substitute goods or services; loss of use, data, or profits; or
##   business interruption) however caused and on any theory of liability,
##   whether in contract, strict liability, or tort (including negligence
##   or otherwise) arising in any way out of the use of this software, even
##   if advised of the possibility of such damage.
##
##   Building Consed from source is error prone and not simple which is
##   why I provide executables.  Due to time limitations I cannot
##   provide any assistance in building Consed.  Even if you do not
##   modify the source, you may introduce errors due to using a
##   different version of the compiler, a different version of motif,
##   different versions of other libraries than I used, etc.  For this
##   reason, if you discover Consed bugs, I can only offer help with
##   those bugs if you first reproduce those bugs with an executable
##   provided by me--not an executable you have built.
## 
##   Modifying Consed is also difficult.  Although Consed is modular,
##   some modules are used by many other modules.  Thus making a change
##   in one place can have unforeseen effects on many other features.
##   It may takes months for you to notice these other side-effects
##   which may not seen connected at all.  It is not feasable for me to
##   provide help with modifying Consed sources because of the
##   potentially huge amount of time involved.
##
##*****************************************************************************/
#!/usr/local/bin/perl -w
# processReadme.perl




# use the file README.txt to create a file readme.h that is used by
# guiPopupDocumentation.cpp




if ( -e "readme.h" ) {
  unlink( "readme.h" ) || die "couldn't delete old readme.h";
}



open( filIn, "README.txt" ) || die "couldn't open README.txt";
open( filOut, ">readme.h" ) || die "couldn't write readme.h";

$nVariable = 1;

# this is supposed to write:
# static char szReadMe1[] = "\n\
$szNewVariableLine = "static char szReadMe" . $nVariable .
    "[] = \"\\n\\\n";
print filOut $szNewVariableLine;


$nLineInVariable = 0;
while( <filIn> ) {
    chomp;
    # escape any double quotes
    s/"/\\"/g;
    ++$nLineInVariable;
    if ( $nLineInVariable > 100 ) {
        $nLineInVariable = 1;
        ++$nVariable;
        print filOut "\";\n";
        print filOut "\n";
        print filOut "\n";
        print filOut "\n";
        # this is supposed to write:
        # static char szReadMe1[] = "\n\
        $szNewVariableLine = "static char szReadMe" . $nVariable .
            "[] = \"\\n\\\n";
        print filOut $szNewVariableLine;

    }
    
    print filOut $_;
    print filOut "\\n\\";
    print filOut "\n";
}
    
# terminate final variable
print filOut "\";\n";
close( filOut );
close( filIn );


if ( -e "consedParameters2.cpp" ) {
  unlink( "consedParameters2.cpp" ) || die "couldn't delete consedParameters2.cpp";
}



open( filCP, ">consedParameters2.cpp" ) || die "couldn't write consedParameters2.cpp";

print filCP "#include   \"readme.h\"\n";
print filCP "#include   \"consedParameters.h\"\n";
print filCP "\n";
print filCP "\n";
print filCP "\n";
print filCP "void consedParameters :: setDocumentation() {\n";

print filCP "   soDocumentation_ = \"\";\n";
print filCP "   soDocumentation_.capacity( (size_t) ($nVariable * 60 ) );\n";


for( $n = 1; $n <= $nVariable; ++$n ) {
  print filCP "   soDocumentation_ += szReadMe${n};\n";
}

print filCP "}\n";

close( filCP );


die "couldn't chmod consedParameters2.cpp" 
    if ( chmod( 0444, "consedParameters2.cpp" ) != 1 );