commit cb43e49cac12f2afd50855483ee4346392975fad
author Marc Kupietz <kupietz@ids-mannheim.de> Tue Dec 03 10:07:53 2019 +0100
committer Marc Kupietz <kupietz@ids-mannheim.de> Tue Dec 03 10:07:53 2019 +0100
tree 487f09898234ccf2ea8738006a24d9514dda5cd8
parent 969cab9c3172a771fdbed7b8e6af26e04a14b453

derecovecs: allow word string and index number in API calls

w2v-server.pl

diff --git a/w2v-server.pl b/w2v-server.pl
index f85748a..ae53f87 100755
--- a/w2v-server.pl
+++ b/w2v-server.pl
@@ -111,6 +111,15 @@
   return $_;
 }
 
+sub getWord {
+  ($_) = @_;
+  if ($_ =~ /^\d+/) {
+    return $_;
+  } else {
+    return getWordNumber($_);
+  }
+}
+
 sub getClassicCollocatorsCached {
   my ($c, $word) = @_;
   my $s2 = "";
@@ -177,12 +186,12 @@
 
 any '*/getClassicCollocators' => sub {
   my $self = shift;
-  $self->render(data => getClassicCollocatorsCached($self, $self->param("w") ? $self->param("w") : $self->req->json), format=>'json');
+  $self->render(data => getClassicCollocatorsCached($self, getWord($self->param("w") ? $self->param("w") : $self->req->json)), format=>'json');
 };
 
 any '/getClassicCollocators' => sub {
   my $self = shift;
-  $self->render(data => getClassicCollocatorsCached($self, $self->param("w") ? $self->param("w") : $self->req->json), format=>'json');
+  $self->render(data => getClassicCollocatorsCached($self, getWord($self->param("w") ? $self->param("w") : $self->req->json)), format=>'json');
 };
 
 any '/getBiggestVocabDistances' => sub {
@@ -215,12 +224,12 @@
 
 any '*/getSimilarProfiles' => sub {
   my $self = shift;
-  $self->render(data => getSimilarProfilesCached($self, $self->param("w") ? $self->param("w") : $self->req->json), format=>'json');
+  $self->render(data => getSimilarProfilesCached($self, getWord($self->param("w") ? $self->param("w") : $self->req->json)), format=>'json');
 };
 
 any '/getSimilarProfiles' => sub {
   my $self = shift;
-  $self->render(data => getSimilarProfilesCached($self, $self->param("w") ? $self->param("w") : $self->req->json), format=>'json');
+  $self->render(data => getSimilarProfilesCached($self, getWord($self->param("w") ? $self->param("w") : $self->req->json)), format=>'json');
 };
 
 any '/getSimilarity' => sub {