#!/usr/bin/gawk -f
#!/usr/gnu/bin/gawk -f

###############################################################################
#
# Written by Craig C. Douglas
# Last modified:
#   06  August      1999
#
###############################################################################

###############################################################################
#
# Field separator is a comma.
#
###############################################################################

BEGIN {
    FS = ",";
#   bibfile = "mgnet.bib mg_new.bib";
    bibfile = "mgnet.bib";
    print "Checking against " bibfile ;
    }

###############################################################################
#
# For each line, see if there is a list of processors in use:
#         @bibtextype{name,
#
###############################################################################

# { print $1; }

/\@[a-z]*\{[.]*/ {
    n = split( $1, fields, "{" );
    printf( "------------------------------\n%s\n", fields[2] );
    system( "fgrep " fields[2] " " bibfile );
    }