• Your recent searches
Lingua-NATools
6 results

 view release on metacpan or  search on metacpan

cgis/nat-about.cgi  view on Meta::CPAN 

	     "Number of Translation Units: ",
	     "Source Language Tokens Count: ",
	     "Target Language Tokens Count: ",
             "Source Forms: ",
             "Target Forms: ",
	    );

print h1("NAT-QI: NATools Corpora Query Interface");

print start_form({-class=>"main"});
print "Get information about:  ", popup_menu(-name=>'crp',
						  -values=>[keys %$corpora]);
print " ", submit(">>");
print end_form;

if ($crp) {
  my %data;
  $data{"Source Forms: "}    = $server->attribute({crp=>$crp}, "source-forms");
  $data{"Target Forms: "}    = $server->attribute({crp=>$crp}, "target-forms");
  $data{"Source Language: "}    = $server->attribute({crp=>$crp}, "source-language");
  $data{"Target Language: "}    = $server->attribute({crp=>$crp}, "target-language");

cgis/nat-dict.cgi  view on Meta::CPAN 


print div({-class=>"hlpbt",
           -onclick=>"help()"}, "Help");

print h1("NATools Probabilistic Dictionaries Browsing Interface");

print start_form({-class=>"main"});;
print "<table>";
print Tr(td({-rowspan=>'2'},submit("Search")),
	 td({-rowspan=>'2'},"&nbsp;&nbsp;&nbsp"),
	 td({-style=>"text-align: left"},"corpus",popup_menu(-onchange=>"changeLanguages();",
                                                             -name=>'crp',
                                                             -id => 'crp',
									      -default => $name,
									      -values=>[keys %$corpora]) ),
	 td({-rowspan=>'2'},"&nbsp;&nbsp;&nbsp"),
       td(["search ".span({id=>"source"}, $corpora->{$name}{source})." language: ", textfield("l1")]));

print Tr(td({-align=>'left'},label(checkbox(-name=>'compact', -checked=>1,
					    -value=>'ON', -label=>' compact mode'))),
        td([

cgis/nat-matrix.cgi  view on Meta::CPAN 

print div({-class=>"hlpbt",
           -onclick=>"help()"}, "Help");

print h1("NATools Simple Generalization Engine Interface");

print start_form({-class=>"main"});
print "<table>";
print Tr(td({-rowspan=>"3"},submit("Calculate Matrix")),
	 td({-rowspan=>"3"},"&nbsp;"),
	 td({-colspan=>2, -style=>"text-align: left"},
	    "Corpus: ",popup_menu(-name=>'crp',
				  -default => $name,
				  -values=>[keys %$corpora]) ));

print Tr(td(["Sentence in source language: ", textfield(-name=>"s1", -size=>"80")]));
print Tr(td(["Sentence in target language: ", textfield(-name=>"s2", -size=>"80")]));

print "</table>\n";
print end_form;

cgis/nat-ngrams.cgi  view on Meta::CPAN 

# Print form HTML
print div({-class=>"hlpbt",
           -onclick=>"help()"}, "Help  ");

print h1("NAT-QI: NATools Corpora Query Interface");

print start_form({-class=>"main"});
print "<table>\n";
print Tr(td({-rowspan=>'1'},submit("Search")),
	 td({-colspan=>'2', -style=>"text-align: left"},
	    "Corpus: ",popup_menu(-onchange=>"changeLanguages();",
				  -name=>'crp',
				  -id => 'crp',
				  -default=>$name,
				  -values=>[keys %$corpora])));
print Tr(td(["",
             "Search on ".
	     span({id=>"source"}, $corpora->{$name}{source}). " language: ",
             textfield("l1")
	    ]));
print Tr(td(["",

cgis/nat-ntd-browse.cgi  view on Meta::CPAN 

  my $x = shift;
  if ($x > .75) { return "background-color: #afa" }
  if ($x > .35) { return "background-color: #ffa" }
  return "background-color: #faa"
}

sub form {
  my ($l1,$l2) = @_;
  return start_form .
    p("Search ", textfield('search'), " on ",
      popup_menu(-name    => 'language',
		 -values  => ["Both",$l1,$l2],
		 -default => "Both"), " language(s)&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;",
      hidden("dict", $dict),
      submit(" Go! ")) . end_form;
}

__DATA__
<html>
 <head>
  <title>NATools Dictionary Browse</title>

cgis/nat-search.cgi  view on Meta::CPAN 

print div({-class=>"hlpbt",
           -onclick=>"help()"}, "Help  ");

print h1("NAT-QI: NATools Corpora Query Interface");

print start_form({-class=>"main"});
print "<table>\n";
print Tr(td({-rowspan=>'3'},submit("Search")),
	 td({-rowspan=>'3'}, "&nbsp;&nbsp;&nbsp;"),
	 td({-colspan=>6, -style=>"text-align: left"},
	    "Corpus: ",popup_menu(-onchange=>"changeLanguages();",
				  -name=>'crp',
				  -id => 'crp',
				  -default=>$name,
				  -values=>[keys %$corpora])));
print Tr(td(["Search on ",
	     span({id=>"source"}, $corpora->{$name}{source}), " language: ",
             textfield("l1"),
	     "&nbsp;&nbsp;&nbsp;&nbsp;",
	    ]),
	 td({-style=>"text-align: left"},label(checkbox(-name=>'sequence', -checked=>0,
							-value=>'ON', -label=>'Pattern Matching'))),
	 td(["&nbsp;&nbsp;&nbsp;&nbsp;",
	     "Result-set size",popup_menu(-name=>'count',
					  -values=>['20','50','100','500'])
	    ]));
print Tr(td(["Search on ",
	     span({id=>"target"}, $corpora->{$name}{target}), " language: ",
             textfield("l2"),
	     "&nbsp;&nbsp;&nbsp;&nbsp;"]),
	 td({-style=>"text-align: left"},
	    label(checkbox(-name=>'horiz', -checked=>0,
			    -value=>'ON', -label=>'Horizontal Mode')),
	   ));



( run in 1.017 second using v1.01-cache-2.11-cpan-364913b4093 )