mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-20 11:40:18 +02:00
Code Activity

* boot-9.scm (netent:addrtype, servent:port): added missing

Browse source 
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.
This commit is contained in:
Gary Houston 1997-03-29 18:38:21 +00:00
parent 2b475559ff
commit 9337637f9a
2 changed files with 27 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

12
ice-9/ChangeLog
View file

@ -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

17
ice-9/boot-9.scm
View file

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