# This script generates default infocontent files for WordNet::Similarity
# (Last updated $Id: Infocontent.PL,v 1.2 2008/03/07 22:06:49 sidz1979 Exp $)
#
# ----------------------------------------------------------------------------

use File::Spec;

# Set up @ARGV
print STDERR "Generating default information content files.\n";
my $fname = shift;
die "Undefined information content file specified.\n" if(!defined($fname));
@ARGV = ("--outfile=$fname"); 
if(open(WNPATH, "build/wnpath.txt"))
{
  my $wndictpath = <WNPATH>;
  $wndictpath =~ s/[\r\f\n]+//g;
  $wndictpath =~ s/^\s+//;
  $wndictpath =~ s/\s+$//;
  $wndictpath = File::Spec->catfile($wndictpath, 'dict');
  push(@ARGV, "--wnpath=$wndictpath");
  close(WNPATH);
}

# Call the semCorFreq command
require "utils/semCorFreq.pl";

# Check if the file was generated
if(-z $fname) 
{
  print STDERR "Error: Failed to create default infocontent file.\n";
  exit(1);
}