# Fragment of Perl code included from some .PL files.  Arguments
#
# Input filename to read from
# Output filename to write to
# Share directory to set
#
# $Id: set_share_dir.pl,v 1.5 2004/01/03 14:52:53 epaepa Exp $
#
use IO::File;
use strict;
sub set_share_dir( $$$ ) {
    my $in = shift;
    my $out = shift; die "no output file given" if not defined $out;
    my $share_dir = shift;
    die "no final share/ location given" if not defined $share_dir;
    my $out_fh = new IO::File "> $out" or die "cannot write to $out: $!";
    my $in_fh = new IO::File "< $in" or die "cannot read $in: $!";
    my $seen = 0;
    while (<$in_fh>) {
	# Perl
	s/^my \$SHARE_DIR =.*/my \$SHARE_DIR='$share_dir'; \# by $0/ && $seen++;
	
	# Python
	s/^SHARE_DIR\s*=\s*None$/SHARE_DIR='$share_dir' \# by $0/ && $seen++;
	
	print $out_fh $_;
    }
    if ($seen == 0) {
	die "did not see SHARE_DIR line in $in";
    }
    elsif ($seen == 1) {
	# Okay.
    }
    elsif ($seen >= 2) {
	warn "more than one SHARE_DIR line in $in";
    }
    else { die }
    close $out_fh or die "cannot close $out: $!";
    close $in_fh or die "cannot close $in: $!";
}

1;