#!/usr/bin/perl
#
# A perl script to help extract symbols from a cvs working directory.
#
# Use it like so:
# cvs log | extract_symbols.pl | sort -u
#

$srch = 0;

while (<>) {
   if ( $srch ) {
      if ( /keyword substitution:/ ) {
         $srch = 0;
      } else {
         s/:.*$//;
         print $_;
         print "\n";
      }
   } else {
      if ( /symbolic names:/ ) {
         $srch = 1;
      }
   }
}

#EOF