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

upgrade to most recent version of pl-os 

fix some warnings.
This commit is contained in:
Costa Vitor 2009-06-01 17:30:08 -05:00
parent edfcfe9ddc
commit 9d5a049c8f
5 changed files with 136 additions and 638 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
include/SWI-Stream.h
View File

@ -374,6 +374,7 @@ PL_EXPORT(int) Sseek64(IOSTREAM *s, int64_t pos, int whence);
PL_EXPORT(int) ScheckBOM(IOSTREAM *s);
PL_EXPORT(int) SwriteBOM(IOSTREAM *s);
PL_EXPORT(ssize_t) Sread_user(void *handle, char *buf, size_t size);
#ifdef __cplusplus
}

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

@ -2827,7 +2827,7 @@ ok:
return TRUE;
}
int
static int
pl_seen(void)
{ GET_LD
IOSTREAM *s = getStream(Scurin);

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

@ -475,6 +475,9 @@ extern int get_atom_text(atom_t atom, PL_chars_t *text);
extern int get_string_text(word w, PL_chars_t *text);
extern char *format_float(double f, char *buf, const char *format);
/**** stuff from pl-ctype.c ****/
extern IOENC initEncoding(void);
/**** stuff from pl-error.c ****/
extern int PL_get_bool_ex(term_t t, int *i);
extern int PL_get_nchars_ex(term_t t, size_t *len, char **s, unsigned int flags);
@ -506,6 +509,7 @@ extern bool readLine(IOSTREAM *in, IOSTREAM *out, char *buffer);
extern bool tellString(char **s, size_t *size, IOENC enc);
extern bool tellString(char **s, size_t *size, IOENC enc);
extern bool toldString(void);
ssize_t Sread_user(void *handle, char *buf, size_t size);
extern int setupOutputRedirect(term_t to, redir_context *ctx, int redir);
extern void discardOutputRedirect(redir_context *ctx);
@ -553,6 +557,18 @@ extern void RemoveTemporaryFiles(void);
extern int Pause(real t);
char *findExecutable(const char *av0, char *buffer);
void setOSPrologFlags(void);
void setRandom(unsigned int *seedp);
char *canoniseFileName(char *path);
char *canonisePath(char *path);
void PL_changed_cwd(void);
struct tm *LocalTime(long *t, struct tm *r);
size_t getenv3(const char *name, char *buf, size_t len);
int Setenv(char *name, char *value);
int Unsetenv(char *name);
int System(char *cmd);
bool expandVars(const char *pattern, char *expanded, int maxlen);
/**** SWI stuff (emulated in pl-yap.c) ****/
extern int writeAtomToStream(IOSTREAM *so, atom_t at);
extern int valueExpression(term_t t, Number r ARG_LD);

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

File diff suppressed because it is too large Load Diff

6
packages/PLStream/pl-yap.c
View File

@ -112,7 +112,7 @@ int
PL_write_term(IOSTREAM *s, term_t term, int precedence, int flags)
{
YAP_Write(YAP_GetFromSlot(term), Sputc, flags);
YAP_Write(YAP_GetFromSlot(term), (void (*)(int))Sputc, flags);
return TRUE;
}
@ -120,7 +120,7 @@ int
writeAtomToStream(IOSTREAM *so, atom_t at)
{
YAP_Write(YAP_MkAtomTerm((YAP_Atom)at), Sputc, 0);
YAP_Write(YAP_MkAtomTerm((YAP_Atom)at), (void (*)(int))Sputc, 0);
return TRUE;
}
@ -195,7 +195,7 @@ switch(n->type)
int
_PL_unify_atomic(term_t t, PL_atomic_t a)
{
return YAP_Unify(Yap_GetFromSlot(t), (YAP_Term)a);
return YAP_Unify(YAP_GetFromSlot(t), (YAP_Term)a);
}
word lookupAtom(const char *s, size_t len)