diff options
author | Gary Houston <ghouston@arglist.com> | 1997-03-29 18:38:21 +0000 |
---|---|---|
committer | Gary Houston <ghouston@arglist.com> | 1997-03-29 18:38:21 +0000 |
commit | 9337637f9a078de747d54e1448107a9a9d09e92d (patch) | |
tree | 974143a52b64f5df50f7929013aef1a34cbd0c2e | |
parent | 2b475559ff0088eedcb9012cbf2413d0c59cdeb5 (diff) | |
download | guile-9337637f9a078de747d54e1448107a9a9d09e92d.tar.gz |
* boot-9.scm (netent:addrtype, servent:port): added missing
procedures.
(netent:net, servent:proto): repaired.
(utsname:sysname etc.): new accessors for uname.
* boot-9.scm (sockaddr:fam, sockaddr:path, sockaddr:addr,
sockaddr:port): new functions.
-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)) |