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

fixes to support condor better

Browse Source 
git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@575 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
vsc
2002-08-18 23:18:18 +00:00
parent 9e38e88084
commit b575ec7202
8 changed files with 3448 additions and 7108 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
C/iopreds.c
View File

@@ -290,11 +290,15 @@ unix_upd_stream_info (StreamDesc * s)
int filedes; /* visualc */
filedes = YP_fileno (s->u.file.file);
if (isatty (filedes)) {
#if HAVE_TTYNAME
char *ttys = ttyname(filedes);
if (ttys == NULL)
s->u.file.name = LookupAtom("tty");
else
s->u.file.name = LookupAtom(ttys);
#else
s->u.file.name = LookupAtom("tty");
#endif
s->status |= Tty_Stream_f|Reset_Eof_Stream_f|Promptable_Stream_f;
return;
}

4
C/sysbits.c
View File

@@ -817,6 +817,7 @@ p_srandom (void)
srandom(current_seed);
#elif HAVE_RAND
srand(current_seed);
#endif
return (TRUE);
}
@@ -2015,6 +2016,9 @@ p_alarm(void)
return(unify(ARG2,tout));
}
#else
/* not actually trying to set the alarm */
if (IntegerOfTerm(t) == 0)
return(TRUE);
Error(SYSTEM_ERROR, TermNil,
"alarm not available in this configuration");
return(FALSE);