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

more fixes to PLStream

Browse Source
This commit is contained in:
Costa Vitor 2009-06-01 16:56:00 -05:00
parent 4a823a5065
commit edfcfe9ddc
3 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
packages/PLStream/pl-ctype.c
View File

@ -220,6 +220,7 @@ mkfunction(iswspace)
INIT_DEF(char_type, char_types, 26) INIT_DEF(char_type, char_types, 26)
ADD_DEF2(ATOM_alnum, fiswalnum) ADD_DEF2(ATOM_alnum, fiswalnum)
ADD_DEF2(ATOM_alpha, fiswalpha)
ADD_DEF2(ATOM_csym, fiscsym ) ADD_DEF2(ATOM_csym, fiscsym )
ADD_DEF2(ATOM_csymf, fiscsymf ) ADD_DEF2(ATOM_csymf, fiscsymf )
ADD_DEF2(ATOM_ascii, fisascii ) ADD_DEF2(ATOM_ascii, fisascii )

3
packages/PLStream/pl-os.c
View File

@ -24,6 +24,9 @@
/* Modified (M) 1993 Dave Sherratt */ /* Modified (M) 1993 Dave Sherratt */
#ifdef __YAP_PROLOG__
#define IN_PL_OS_C 1
#endif
/*#define O_DEBUG 1*/ /*#define O_DEBUG 1*/
#if __TOS__ #if __TOS__

4
packages/PLStream/pl-yap.h
View File

@ -185,7 +185,7 @@ valHandle(term_t tt)
#endif /* __YAP_PROLOG__ */ #endif /* __YAP_PROLOG__ */
#if IN_PL_OS_C
static int static int
stripostfix(const char *s, const char *e) stripostfix(const char *s, const char *e)
{ size_t ls = strlen(s); { size_t ls = strlen(s);
@ -196,6 +196,6 @@ stripostfix(const char *s, const char *e)
return FALSE; return FALSE;
} }
#endif
#endif /* PL_YAP_H */ #endif /* PL_YAP_H */