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

empty strings

Browse Source
This commit is contained in:
Vitor Santos Costa 2016-08-30 08:26:14 -05:00
parent 269e7b8806
commit 5fcf173d0a
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
os/files.c
View File

@ -68,8 +68,11 @@ static Int file_name_extension(USES_REGS1) {
char *ss = strrchr(f, '.');
if (pts > ss) {
ss = f + strlen(f);
} else
} else if (ss == NULL) {
ss = "";
} else {
ss++;
}
if (IsVarTerm(t2)) {
Term t = Yap_MkTextTerm(ss, ENC_ISO_UTF8, t3);
Yap_unify(t2, t);
@ -86,7 +89,7 @@ static Int file_name_extension(USES_REGS1) {
return false;
}
}
if (f[0] && ss[0] != '.') {
if (f[0] && ss[0] && ss[0] != '.') {
ss[-1] = '\0';
}
if (IsVarTerm(t1)) {