diogo/yap-6.3
Archived
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

more improvements to interface

Browse Source
This commit is contained in:
Vitor Santos Costa 2012-10-28 18:22:09 +00:00
parent 06051f05fb
commit eb79049bdb
2 changed files with 39 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
packages/pyswip/pl2py_examples/nltk.pl
View File

@ -1,3 +1,14 @@
/*
import nltk
sentence = """At eight o'clock on Thursday morning
... Arthur didn't feel very good."""
tokens = nltk.word_tokenize(sentence)
tagged = nltk.pos_tag(tokens)
tagged[0:6]
entities = nltk.chunk.ne_chunk(tagged)
entities
*/
:- use_module(library(python)). :- use_module(library(python)).
:- use_module(library(maplist)). :- use_module(library(maplist)).

32
packages/pyswip/python.c
View File

@ -20,6 +20,18 @@ static functor_t FUNCTOR_dollar1,
static PyObject *py_Main; static PyObject *py_Main;
static inline int
proper_ascii_string(const char *s)
{
unsigned int c;
while ((c = *s++)) {
if (c > 127)
return FALSE;
}
return TRUE;
}
static PyObject * static PyObject *
term_to_python(term_t t) term_to_python(term_t t)
{ {
@ -31,9 +43,21 @@ term_to_python(term_t t)
{ {
char *s; char *s;
if (!PL_get_atom_chars(t, &s)) if (!PL_get_atom_chars(t, &s)) {
return NULL; wchar_t *w;
return PyString_FromStringAndSize(s, strlen(s) ); atom_t at;
size_t len;
if (!PL_get_atom(t, &at))
return NULL;
if (!(w = PL_atom_wchars(at, &len)))
return NULL;
return PyUnicode_FromWideChar(w, wcslen(w) );
}
if (proper_ascii_string(s))
return PyString_FromStringAndSize(s, strlen(s) );
else
return PyUnicode_DecodeLatin1(s, strlen(s), NULL);
} }
case PL_INTEGER: case PL_INTEGER:
{ {
@ -49,7 +73,7 @@ term_to_python(term_t t)
if (!PL_get_string_chars(t, &s, &len)) if (!PL_get_string_chars(t, &s, &len))
return NULL; return NULL;
return PyByteArray_FromStringAndSize(s, len ); return PyByteArray_FromStringAndSize(s, len);
} }
case PL_FLOAT: case PL_FLOAT:
{ {