#!/usr/local/bin/perl

#
# Creates a binary index for the document database.  Each document ends with
#   two carriage returns.
#
#     usage: makeDocIndex inFile outFile
#


$sizeofInt = 4;


$/ = "\n\n";

$inFile = @ARGV[0];
$outFile = @ARGV[1];

print("inFile = $inFile\n");
print("outFile = $outFile\n");

open(INFILE, "$inFile");
open(OUTFILE, ">$outFile");

$currentPos = 0;
while ( $line = <INFILE> )
{
    print("line = $line");
    print(OUTFILE pack("i", $currentPos));
    $currentPos += length($line);
}

print(OUTFILE pack("i", $currentPos));

close(OUTFILE);
close(INFILE);