diff options
-rw-r--r-- | ice-9/ChangeLog | 12 | ||||
-rw-r--r-- | ice-9/boot-9.scm | 17 |
2 files changed, 27 insertions, 2 deletions
diff --git a/ice-9/ChangeLog b/ice-9/ChangeLog index 59606a735..6c5dba4f9 100644 --- a/ice-9/ChangeLog +++ b/ice-9/ChangeLog @@ -1,3 +1,15 @@ +Thu Mar 27 05:06:00 1997 Gary Houston <ghouston@actrix.gen.nz> + + * boot-9.scm (netent:addrtype, servent:port): added missing + procedures. + (netent:net, servent:proto): repaired. + (utsname:sysname etc.): new accessors for uname. + +Tue Mar 25 03:04:03 1997 Gary Houston <ghouston@actrix.gen.nz> + + * boot-9.scm (sockaddr:fam, sockaddr:path, sockaddr:addr, + sockaddr:port): new functions. + Wed Mar 19 04:50:34 1997 Gary Houston <ghouston@actrix.gen.nz> * boot-9.scm: define accessor procedures for the objects returned diff --git a/ice-9/boot-9.scm b/ice-9/boot-9.scm index 923894c8e..470c03949 100644 --- a/ice-9/boot-9.scm +++ b/ice-9/boot-9.scm @@ -695,7 +695,8 @@ (define (netent:name obj) (vector-ref obj 0)) (define (netent:aliases obj) (vector-ref obj 1)) -(define (netent:net obj) (vector-ref obj 2)) +(define (netent:addrtype obj) (vector-ref obj 2)) +(define (netent:net obj) (vector-ref obj 3)) (define (protoent:name obj) (vector-ref obj 0)) (define (protoent:aliases obj) (vector-ref obj 1)) @@ -703,7 +704,19 @@ (define (servent:name obj) (vector-ref obj 0)) (define (servent:aliases obj) (vector-ref obj 1)) -(define (servent:proto obj) (vector-ref obj 2)) +(define (servent:port obj) (vector-ref obj 2)) +(define (servent:proto obj) (vector-ref obj 3)) + +(define (sockaddr:fam obj) (vector-ref obj 0)) +(define (sockaddr:path obj) (vector-ref obj 1)) +(define (sockaddr:addr obj) (vector-ref obj 1)) +(define (sockaddr:port obj) (vector-ref obj 2)) + +(define (utsname:sysname obj) (vector-ref obj 0)) +(define (utsname:nodename obj) (vector-ref obj 1)) +(define (utsname:release obj) (vector-ref obj 2)) +(define (utsname:version obj) (vector-ref obj 3)) +(define (utsname:machine obj) (vector-ref obj 4)) (define (file-position . args) (apply ftell args)) (define (file-set-position . args) (apply fseek args)) |