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

small fixes

Browse Source
This commit is contained in:
Vítor Santos Costa
2011-02-15 19:24:15 +00:00
parent b9a7cce232
commit 49f980a7a7
6 changed files with 12 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
packages/PLStream/pl-file.c
View File

@@ -3687,7 +3687,7 @@ stream_close_on_exec_prop(IOSTREAM *s, term_t prop ARG_LD)
typedef struct
{ functor_t functor; /* functor of property */
int (*function)(); /* function to generate */
int (*function)(); /* function to generate */
} sprop;

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

@@ -1064,6 +1064,8 @@ PL_EXPORT(int) PL_get_file_nameW(term_t n, wchar_t **name, int flags);
COMMON(int) unifyTime(term_t t, time_t time);
COMMON(char) digitName(int n, int small);
/**** stuff from pl-utf8.c ****/
size_t utf8_strlen(const char *s, size_t len);
@@ -1100,6 +1102,8 @@ COMMON(int) numberVars(term_t t, nv_options *opts, int n ARG_LD);
COMMON(Buffer) codes_or_chars_to_buffer(term_t l, unsigned int flags,
int wide, CVT_result *status);
COMMON(int) uflagsW(int code);
static inline word
setBoolean(int *flag, term_t old, term_t new)
{ if ( !PL_unify_bool_ex(old, *flag) ||

2
packages/PLStream/pl-read.c
View File

@@ -15,6 +15,8 @@ init_read_data(ReadData _PL_rd, IOSTREAM *in ARG_LD)
{
_PL_rd->varnames = 0;
_PL_rd->stream = in;
_PL_rd->has_exception = 0;
_PL_rd->exception = 0;
}
static void

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

@@ -31,8 +31,9 @@ typedef YAP_Term (*Func)(term_t); /* foreign functions */
extern const char *Yap_GetCurrentPredName(void);
extern YAP_Int Yap_GetCurrentPredArity(void);
extern int Yap_read_term(term_t t, IOSTREAM *st, term_t *vs);
extern int Yap_read_term(term_t t, IOSTREAM *st, term_t vs);
extern int Yap_LookupSWIStream(void *swi_s);
extern term_t Yap_fetch_module_for_format(term_t args, YAP_Term *modp);
extern atom_t codeToAtom(int chrcode);