use version from swi

This commit is contained in:
Vítor Santos Costa
2013-01-21 09:36:50 +00:00
parent 0e89a9c2ff
commit b9f1885f0a
4 changed files with 46 additions and 6 deletions

View File

@@ -43,6 +43,9 @@
#include "Yap.h"
#include "YapHeap.h"
#define PLVERSION YAP_VERSION
#define PLNAME "yap"
/* try not to pollute the SWI space */
#ifdef P
#undef P
@@ -893,6 +896,10 @@ COMMON(char) digitName(int n, int sm);
/**** stuff from pl-utf8.c ****/
size_t utf8_strlen(const char *s, size_t len);
/**** stuff from pl-version.c ****/
COMMON(void) setGITVersion(void);
/**** stuff from pl-write.c ****/
COMMON(char *) varName(term_t var, char *buf);
COMMON(int) writeUCSAtom(IOSTREAM *fd, atom_t atom, int flags);

View File

@@ -95,6 +95,8 @@ COMMON(bool) ChDir(const char *path);
COMMON(int) DeleteTemporaryFile(atom_t name);
COMMON(int) IsAbsolutePath(const char *spec);
COMMON(bool) sysError(const char *fm, ...);
/* TBD */
extern word globalString(size_t size, char *s);