[Scsh-checkins] CVS: scsh-0.6/scsh syscalls.scm,1.12,1.13 syscalls1.c,1.11,1.12 syscalls1.h,1.10,1.11

[Martin Gasbichler <mainzelm@users.sourceforge.net>]

Update of /cvsroot/scsh/scsh-0.6/scsh
In directory slayer.i.sourceforge.net:/tmp/cvs-serv24170

Modified Files:
        syscalls.scm syscalls1.c syscalls1.h 
Log Message:
Small bug fixes.


Index: syscalls.scm
===================================================================
RCS file: /cvsroot/scsh/scsh-0.6/scsh/syscalls.scm,v
retrieving revision 1.12
retrieving revision 1.13
diff -C2 -r1.12 -r1.13
*** syscalls.scm        2000/09/19 08:08:39     1.12
--- syscalls.scm        2000/09/20 10:14:11     1.13
***************
*** 105,109 ****
    (status) "scsh_exit")
  
! (define-foreign %exit/errno ; errno -- misnomer
    (status) "scsh__exit")
  
--- 105,109 ----
    (status) "scsh_exit")
  
! (define-stubless-foreign %exit/errno ; errno -- misnomer
    (status) "scsh__exit")
  

Index: syscalls1.c
===================================================================
RCS file: /cvsroot/scsh/scsh-0.6/scsh/syscalls1.c,v
retrieving revision 1.11
retrieving revision 1.12
diff -C2 -r1.11 -r1.12
*** syscalls1.c 2000/09/19 08:08:39     1.11
--- syscalls1.c 2000/09/20 10:14:11     1.12
***************
*** 172,176 ****
  {
    char linkpath[MAXPATHLEN+1];
!   int retval = readlink(path, linkpath, MAXPATHLEN);
    if (retval == -1)
      s48_raise_os_error(errno);
--- 172,176 ----
  {
    char linkpath[MAXPATHLEN+1];
!   int retval = readlink(s48_extract_string (path), linkpath, MAXPATHLEN);
    if (retval == -1)
      s48_raise_os_error(errno);

Index: syscalls1.h
===================================================================
RCS file: /cvsroot/scsh/scsh-0.6/scsh/syscalls1.h,v
retrieving revision 1.10
retrieving revision 1.11
diff -C2 -r1.10 -r1.11
*** syscalls1.h 2000/09/19 08:08:39     1.10
--- syscalls1.h 2000/09/20 10:14:11     1.11
***************
*** 15,23 ****
  s48_value scsh_kill (s48_value pid, s48_value signal);
  
! s48_value scm_readlink(const char *path, s48_value*);
  
  int scm_utime(char const *path, time_t ac, time_t  mod);
  
  int scm_utime_now(char const *path);
  
  int scheme_cwd(const char **dirp);
--- 15,25 ----
  s48_value scsh_kill (s48_value pid, s48_value signal);
  
! s48_value scm_readlink(s48_value path);
  
  int scm_utime(char const *path, time_t ac, time_t  mod);
  
  int scm_utime_now(char const *path);
+ 
+ s48_value set_cloexec(s48_value _fd, s48_value _val);
  
  int scheme_cwd(const char **dirp);