#!/usr/bin/perl use Getopt::Long; GetOptions("help!"=>\$help,"path=s"=>\$head_home,"input=s"=>\$input,"output=s",\$output); print "Unprocessed by Getopt::Long\n" if $ARGV[0]; foreach (@ARGV) { print "$_\n"; exit(0); } if($help eq 1) { print "Head Computation - Head Computation Version 1.8\n(30th May 2009)\n\n"; print "usage : ./run-headCompute.pl --path=/home/headComputation-1.8 [-i inputfile|--input=\"input_file\"] [-o outputfile|--output=\"output_file\"] \n"; print "\tIf the output file is not mentioned then the output will be printed to STDOUT\n"; exit(0); } if($head_home eq "") { print "Please Specify the Path as defined in --help\n"; exit(0); } my $src=$head_home . "/src"; require "$head_home/API/shakti_tree_api.pl"; require "$head_home/API/feature_filter.pl"; require "$src/copy_np_head.pl"; require "$src/copy_vg_head.pl"; require "$src/single_quote_changeName-0.1.pl"; if ($input eq "") { $input="/dev/stdin"; } &read_story($input); $numBody = &get_bodycount(); for(my($bodyNum)=1;$bodyNum<=$numBody;$bodyNum++) { $body = &get_body($bodyNum,$body); # Count the number of Paragraphs in the story my($numPara) = &get_paracount($body); #print STDERR "Paras : $numPara\n"; # Iterate through paragraphs in the story for(my($i)=1;$i<=$numPara;$i++) { my($para); # Read Paragraph $para = &get_para($i); # Count the number of sentences in this paragraph my($numSent) = &get_sentcount($para); # print STDERR "\n $i no.of sent $numSent"; #print STDERR "Para Number $i, Num Sentences $numSent\n"; #print $numSent."\n"; # Iterate through sentences in the paragraph for(my($j)=1;$j<=$numSent;$j++) { #print " ... Processing sent $j\n"; # Read the sentence which is in SSF format my($sent) = &get_sent($para,$j); #print STDERR "$sent"; # print "check--\n"; # &print_tree($sent); # Get the nodes of the sentence (words in our case) #Copy NP head # &AddID($sent); &make_chunk_name($sent); ©_np_head($sent,$head_home); #Copy NP VG head ©_vg_head($sent,$head_home); } } } if($output eq "") { &printstory(); } if($output ne "") { &printstory_file("$output"); }