ArcRef

arcref.pl

#!perl
use strict;
use warnings;
use File::Basename;

unless(@ARGV){
  print "usage: $0 {def/mac name}\n";
  exit 1;
}

chdir dirname $0;
our $re = qr/\((?:x?def|mac|=)\s+$ARGV[0]\s+/;
for my $f ('ac.scm', glob '*.arc'){
  exit if findref($f);
}

sub findref {
  my $file = shift;
  unless(open Arc, "< $file"){
    warn "failed to open $file";
    return 0;
  }
  while(<Arc>){
    next unless $_ =~ $re;
    print "$file\n";
    print;
    print while ($_ = <Arc>) =~ /^./;
    return 1;
  }
  0
}