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.c

diff --git a/w2v-server.c b/w2v-server.c
index cc8734c..3a8092c 100644
--- a/w2v-server.c
+++ b/w2v-server.c
@@ -534,6 +534,13 @@
   return (wl);
 }
 
+long getWordNumber(char *word) {
+  wordlist *wl = getTargetWords(word, 0);
+  if(wl->length > 0)
+    return(wl->wordi[0]);
+  return(0);
+}
+
 float get_distance(long b, long c) {
   long a;
   float dist = 0;

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 {