#! /usr/local/bin/perl
#
# $Revision: 1.1 $   
#
# Copyright (C) 1997, B. Narasimhan (naras@stat.Stanford.EDU)
#
# This program is free software; you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by
# the Free Software Foundation; either version 2 of the License, or
# (at your option) any later version.
#
# This program is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
# GNU General Public License for more details.
#
# You should have received a copy of the GNU General Public License
# along with this program; if not, write to the Free Software
# Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
#
#
$cis_directory = '/usr/local/lib/cis/cis95/files';
$cis_ext = '.v95';
@years = (85..94);
$sj = 0; # No of single author journal articles.
$sp = 0; # No of single author proceedings articles.
$mj = 0; # No of multiple author journal articles.
$mja = 0; # No of multiple author alphabetic journal articles.
$mp = 0;  # No of multiple author proceedings articles.
$mpa = 0;  # No of multiple author alphabetic proceedings articles.
YEAR:
  foreach $year (@years) {
    $filename = $cis_directory . '/' . 'cis' . $year . $cis_ext;
    next YEAR unless -T $filename;
    if (!open(FH, $filename)) {
      print STDERR "Can't open $filename---continuing...\n";
      next YEAR;
    }
    while (<FH>) {
      ($null,$field1,$title,$authors) = split('#');
      $cite_ind = substr($field1,-1,1);
      # Skip books, electronic literature or administrative records
      next if ($cite_ind =~ /[Bb]/) || ($cite_ind =~ /C/) 
        || ($cite_ind =~ /Z/);
      # Skip reviews of books.            
      next if ($authors =~ /\(Rev\)/);
      @authors = split(';', $authors);
      $no_authors = $#authors + 1;
      if ($no_authors > 1) {
        $sorted_authors = join(';', sort @authors);
      }
      if ($cite_ind =~ /[Jj]/) { # article in Journal
        if ($no_authors > 1) {
          $mj++;
          if ($sorted_authors eq $authors) {
            $mja++;
          }
        } else {
          $sj++;
        }
      } else { # article in proceedings or edited book
        if ($no_authors > 1) {
          $mp++;
          if ($sorted_authors eq $authors) {
            $mpa++;
          }
        } else {
          $sp++;
        }
      }
    }
  }
print "Statistics from CIS for years @years \n";
printf "Single author papers in Journals: %d\n", $sj;
printf "Multiple author papers in Journals (alph): %d\n", $mja;
printf "Multiple author papers in Journals (Non-alph): %d\n", $mj - $mja;
printf "Single author papers in Proceedings: %d\n", $sp;
printf "Multiple author papers in Proceedings (alph): %d\n", $mpa;
printf "Multiple author papers in Proceedings (Non-alph): %d\n", $mp - $mpa;