Diff for /gforth/Attic/primitives between versions 1.15 and 1.16

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);

Removed from v.1.15  
changed lines
  Added in v.1.16


FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>