version 1.15, 1994/08/31 19:42:50
|
version 1.16, 1994/09/05 17:36:23
|
Line 610 return (Label *)n;
|
Line 610 return (Label *)n;
|
system c_addr u -- n own |
system c_addr u -- n own |
n=system(cstr(c_addr,u)); |
n=system(cstr(c_addr,u)); |
|
|
|
getenv c_addr1 u1 -- c_addr2 u2 new |
|
c_addr2 = getenv(cstr(c_addr1,u1)); |
|
u2=strlen(c_addr2); |
|
|
popen c_addr u n -- wfileid own |
popen c_addr u n -- wfileid own |
static char* mode[2]={"r","w"}; |
static char* mode[2]={"r","w"}; |
wfileid=(Cell)popen(cstr(c_addr,u),mode[n]); |
wfileid=(Cell)popen(cstr(c_addr,u),mode[n]); |
|
|
pclose wfileid -- wior own |
pclose wfileid -- wior own |
wior=pclose((FILE *)wfileid); |
wior=pclose((FILE *)wfileid); |
|
|
time&date -- nyear nmonth nday nhour nmin nsec ansi time_and_date |
time&date -- nyear nmonth nday nhour nmin nsec facility-ext time_and_date |
struct timeval time1; |
struct timeval time1; |
struct timezone zone1; |
struct timezone zone1; |
struct tm *ltime; |
struct tm *ltime; |
Line 630 nhour =ltime->tm_hour;
|
Line 634 nhour =ltime->tm_hour;
|
nmin =ltime->tm_min; |
nmin =ltime->tm_min; |
nsec =ltime->tm_sec; |
nsec =ltime->tm_sec; |
|
|
ms n -- ansi |
ms n -- facility-ext |
struct timeval timeout; |
struct timeval timeout; |
timeout.tv_sec=n/1000; |
timeout.tv_sec=n/1000; |
timeout.tv_usec=1000*(n%1000); |
timeout.tv_usec=1000*(n%1000); |