view release on metacpan or  search on metacpan

lib/Lingua/CollinsParser.xs  view on Meta::CPAN

      RETVAL = 1;
    }
  OUTPUT:
    RETVAL

void
parse_sentence (self, words_in, tags_in)
    SV    *self
    SV    *words_in
    SV    *tags_in
  PPCODE:
    {
      int i, j, best, numwords;
      sentence_type *s;
      SV *output, **fetched;
      AV *words, *tags;
      PERL_UNUSED_VAR(self);

      words = unpack_aref(words_in);
      tags = unpack_aref(tags_in);

lib/Lingua/CollinsParser.xs  view on Meta::CPAN

      /*       print_edge(best, 0); */
      /* print_edges_flat(best); */
      output = edge_as_tree(best);
      Safefree(s);
      XPUSHs(sv_2mortal(output));
    }

void dump_events_hash (self, file)
    SV    *self
    char  *file
  PPCODE:
    {
      PERL_UNUSED_VAR(self);
      hash_dump(&new_hash, file);
    }

void undump_events_hash (self, file)
    SV    *self
    char  *file
  PPCODE:
    {
      hash_table *my_hash;
      PERL_UNUSED_VAR(self);
      hash_undump(&my_hash, file);
      new_hash.num = my_hash->num;
      new_hash.size = my_hash->size;
      new_hash.table = my_hash->table;
    }