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

move arch-independent file to share

Browse Source 
git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@200 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
stasinos
2001-11-26 16:05:19 +00:00
parent 42de8a6f82
commit e0ff7e9fb2
8 changed files with 87 additions and 70 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
C/sysbits.c
View File

@@ -20,7 +20,7 @@ static char SccsId[] = "%W% %G%";
/*
* In this routine we shall try to include the inevitably machine dependant
* routines. These include, for the moment : Time, A rudimentar form of
* routines. These include, for the moment : Time, A rudimentary form of
* signal handling, OS calls,
*
* Vitor Santos Costa, February 1987
@@ -142,7 +142,7 @@ dir_separator (int ch)
void
InitSysPath(void) {
strncpy(FileNameBuf, LIB_DIR, YAP_FILENAME_MAX);
strncpy(FileNameBuf, SHARE_DIR, YAP_FILENAME_MAX);
#ifdef MAC
strncat(FileNameBuf,":", YAP_FILENAME_MAX);
#elif ATARI || _MSC_VER || defined(__MINGW32__)
@@ -150,7 +150,7 @@ InitSysPath(void) {
#else
strncat(FileNameBuf,"/", YAP_FILENAME_MAX);
#endif
strncat(FileNameBuf, "library", YAP_FILENAME_MAX);
strncat(FileNameBuf, "Yap", YAP_FILENAME_MAX);
PutValue(LookupAtom("system_library_directory"),
MkAtomTerm(LookupAtom(FileNameBuf)));
}