#!/usr/bin/perl -w

# Fixes up mistakes in some @param and @see tags in the javadoc
# comments of the comp2100.oops source.
# Use at your own risk! Backing up your files manually is recommended.
# by Jan Vaughan


# backup files emacs style
$^I = '~';

while(<>) {
    $old = $_;
    
    # remove incorrect colons in @param lines
    s/(\@param\s+\w+):/$1/;

    # fix up incorrect @see references
    s/(\@see\s+\w+(?:\.\w+)*)\.(\w+(?>\s*)(?:[^\.]|$))/$1#$2/;
    
    print STDERR "In $ARGV, changed:\n${old}To:\n$_" if($old ne $_);
    
    # put the line back in the file
    print;
}