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

predicate

Browse Source
This commit is contained in:
Vitor Santos Costa 2016-07-31 04:41:25 -05:00
parent 2422417a05
commit d4b77458e9
1 changed files with 142 additions and 80 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

80
C/text.c
View File

@ -392,7 +392,6 @@ void *Yap_readText(void *buf, seq_tv_t *inp, encoding_t *enc, int *minimal,
return NULL;
}
static Term write_strings(void *s0, seq_tv_t *out, encoding_t enc, int minimal,
size_t leng USES_REGS) {
size_t min = 0, max = leng;
@ -1059,11 +1058,9 @@ bool write_Text(void *inp, seq_tv_t *out, encoding_t enc, int minimal,
return false;
}
static size_t upcase(void *s0, seq_tv_t *out, encoding_t enc USES_REGS) {
size_t max = -1;
switch (enc) {
case ENC_ISO_UTF8: {
unsigned char *s = s0;
@ -1105,7 +1102,6 @@ static size_t upcase(void *s0, seq_tv_t *out, encoding_t enc USES_REGS) {
default:
Yap_Error(SYSTEM_ERROR_INTERNAL, TermNil, "Unsupported Encoding ~s in %s",
enc_name(enc), __FUNCTION__);
}
return false;
}
@ -1113,7 +1109,6 @@ static size_t upcase(void *s0, seq_tv_t *out, encoding_t enc USES_REGS) {
static size_t downcase(void *s0, seq_tv_t *out, encoding_t enc USES_REGS) {
size_t max = -1;
switch (enc) {
case ENC_ISO_UTF8: {
unsigned char *s = s0;
@ -1154,7 +1149,6 @@ static size_t downcase(void *s0, seq_tv_t *out, encoding_t enc USES_REGS) {
default:
Yap_Error(SYSTEM_ERROR_INTERNAL, TermNil, "Unsupported Encoding ~s in %s",
enc_name(enc), __FUNCTION__);
}
return false;
}
@ -1435,14 +1429,14 @@ static void *slice(size_t min, size_t max, void *buf, seq_tv_t *out,
nbuf += put_utf8(nbuf, chr);
}
} else if (enc == ENC_ISO_LATIN1) {
unsigned char *ptr = (unsigned char *)buf + min;
const unsigned char *ptr = (const unsigned char *)buf + min;
utf8proc_int32_t chr;
while (min++ < max) {
chr = *ptr++;
nbuf += put_utf8(nbuf, chr);
}
} else {
unsigned char *ptr = skip_utf8(buf, min);
const unsigned char *ptr = skip_utf8(buf, min);
utf8proc_int32_t chr;
if (!ptr)
return NULL;
@ -1483,7 +1477,7 @@ static void *slice(size_t min, size_t max, void *buf, seq_tv_t *out,
} else {
/* atom */
wchar_t *nbuf = (wchar_t *)HR;
unsigned char *ptr = skip_utf8((unsigned char *)buf, min);
const unsigned char *ptr = skip_utf8(buf, min);
utf8proc_int32_t chr;
LOCAL_ERROR(MkAtomTerm(Yap_LookupAtom(buf)), max - min);
@ -1657,6 +1651,74 @@ const char *Yap_TextTermToText(Term t, char *buf, size_t len, encoding_t enc) {
return out.val.c;
}
/**
* Convert from a predicate structure to an UTF-8 string of the form
*
* module:name/arity.
*
* The result is in very volatile memory.
*
* @param s the buffer
*
* @return the temporary string
*/
const char *Yap_PredIndicatorToUTF8String(PredEntry *ap) {
CACHE_REGS
char *s = LOCAL_FileNameBuf, *smax = s + YAP_FILENAME_MAX;
Atom at;
arity_t arity;
Functor f;
Term tmod = ap->ModuleOfPred;
if (tmod) {
Yap_AtomToUTF8Text(AtomOfTerm(tmod), s);
s += strlen(s);
if (smax -s > 1)
strcpy(s, ":");
else
{
return NULL;
}
s++;
} else {
if (smax -s > strlen("prolog:") ) {
s = strcpy(s, "prolog:");
}
else
{
return NULL;
}
}
// follows the actual functor
if (ap->ModuleOfPred == IDB_MODULE) {
if (ap->PredFlags & NumberDBPredFlag) {
Int key = ap->src.IndxId;
snprintf(s, smax - s, "%" PRIdPTR, key);
return LOCAL_FileNameBuf;
} else if (ap->PredFlags & AtomDBPredFlag) {
at = (Atom)(ap->FunctorOfPred);
if (!Yap_AtomToUTF8Text(at, s))
return NULL;
} else {
f = ap->FunctorOfPred;
at = NameOfFunctor(f);
arity = ArityOfFunctor(f);
}
} else {
arity = ap->ArityOfPE;
if (arity) {
at = NameOfFunctor(ap->FunctorOfPred);
} else {
at = (Atom)(ap->FunctorOfPred);
}
}
if (!Yap_AtomToUTF8Text(at, s))
return NULL;
s += strlen(s);
snprintf(s, smax - s, "/%" PRIdPTR, arity);
return LOCAL_FileNameBuf;
}
/**
* Convert from a text buffer (8-bit) to a term that has the same type as
* _Tguide_