my $result = $t->FindNext(-forwards, -exact, -nocase, "the");
#                                /^\

##</code><code>##

eval {
  if ($direction eq '-forward')
   {
   $w->markSet('insert', 'sel.last');
   $w->markSet('current', 'sel.last');
   }
  else
   {
   $w->markSet('insert', 'sel.first');
   $w->markSet('current', 'sel.first');
   }
 };

##</code><code>##

arg = argv[i];
...
length = strlen(arg);
...
c = arg[1];
if ((c == 'b') && (strncmp(argv[i], "-backwards", length) == 0)) {
    backwards = 1;
...
} else if ((c == 'f') && (strncmp(argv[i], "-forwards", length) == 0)) {
    backwards = 0;