#!/usr/local/bin/perl

# 
# before, after: その単語「以前/以後」を出力する
# 
#     [1997/07/05] OSHIRO Naoki.
# 
#     $Log:$
#

$before=($0=~/\/before$/)? 1:0;

$word=shift(@ARGV);
if ($#ARGV<0) {
    &print_before_after('', STDIN);
}    
foreach $f (@ARGV) {
    unless (open(F, "<$f")) {
	print STDERR "Cannot open $f\n";
	next;
    }
    &print_before_after($f, F);
    close(F);
}

sub print_before_after {
    local($f, $h)=@_;
    local($p);

    $p="$f: " if $f;
    while (<$h>) {
	print "$p$_" if ($before);
	last if /$word/;
    }
    if ($before) {
	close();
	next;
    }
    print "$p$_";
    while (<$h>) {
	print "$p$_";
    }
}