#!/usr/bin/perl

# Typical example of using the module in a presentation...


use Lingua::LinkParser;

{
  local $|=1; print "loading analyser...";
  $parser = new Lingua::LinkParser;
  print "done\n";
}

use IO::Prompt;

$parser->opts(
                'verbosity'           => 0,
                'max_sentence_length' => 70,
                'panic_mode'          => 1,
                'max_parse_time'      => 30,
                'linkage_limit'       => 1000,
                'short_length'        => 10,
                'disjunct_cost'       => 2,
                'min_null_count'      => 0,
                'max_null_count'      => 0,
            );

while (prompt "> ", -wipefirst) {
  my $sentence = $parser->create_sentence($_);

  if ($sentence->num_linkages == 0) {
      $parser->opts('min_null_count' => 1,
                    'max_null_count' => $sentence->length);

      $sentence = $parser->create_sentence($_);
      if ($sentence->num_linkages == 0) {
          $parser->opts('disjunct_cost'    => 3,
                        'min_null_count'   => 1,
                        'max_null_count'   => 30,
                        'max_parse_time'   => 60,
                        'islands_ok'       => 1,
                        'short_length'     => 6,
                        'all_short_connectors' => 1,
                        'linkage_limit'    => 100
          );
           my $sentence = $parser->create_sentence($_);
      }
  }

  for $i (1 .. $sentence->num_linkages) {
      $linkage = $sentence->linkage($i);
      $linkage->compute_union;
      $sublinkage = $linkage->sublinkage($linkage->num_sublinkages);
      print $parser->get_diagram($sublinkage), "\n";
  }
}






















__DATA__ 
__PROMPT__
The issue of gene patents is a vexing one
Patents on genes are a vexed issue
Gene patenting is an issue that vexes     
The vexacious issue is patented genes
Patentable genes vex the issue
Time flies like an arrow
