scriptators/perl/sample.pl [33:46]:
- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
sub typeSystemInit {
  my $ts = shift;
  if ($main::debug > 10) {
    print "$main::thisScript: Type sytem init called"
  }
  my $keytype = "com.ibm.uima.examples.keyword";
  $main::keywordtype = $ts->getType($keytype);
  if (!$main::keywordtype->isValid()) {
    my $error = "$main::thisScript: $keytype is NOT found in type system!";
    $main::ac->logError($error);
    # set eval error to cause annotator to exit prematurely
    $@ = $error;
  }
}
- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -



scriptators/perl/ae.pl [33:46]:
- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
sub typeSystemInit {
  my $ts = shift;
  if ($main::debug > 10) {
    print "$main::thisScript: Type sytem init called"
  }
  my $keytype = "com.ibm.uima.examples.keyword";
  $main::keywordtype = $ts->getType($keytype);
  if (!$main::keywordtype->isValid()) {
    my $error = "$main::thisScript: $keytype is NOT found in type system!";
    $main::ac->logError($error);
    # set eval error to cause annotator to exit prematurely
    $@ = $error;
  }
}
- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -