1234567891011121314151617181920212223242526272829303132333435363738394041424344454647484950515253545556575859606162636465666768697071727374757677787980818283848586878889909192939495 |
- ;;; installed-scm-file
- ;;;; Copyright (C) 1999, 2005, 2006, 2010 Free Software Foundation, Inc.
- ;;;;
- ;;;; This library is free software; you can redistribute it and/or
- ;;;; modify it under the terms of the GNU Lesser General Public
- ;;;; License as published by the Free Software Foundation; either
- ;;;; version 3 of the License, or (at your option) any later version.
- ;;;;
- ;;;; This library is distributed in the hope that it will be useful,
- ;;;; but WITHOUT ANY WARRANTY; without even the implied warranty of
- ;;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
- ;;;; Lesser General Public License for more details.
- ;;;;
- ;;;; You should have received a copy of the GNU Lesser General Public
- ;;;; License along with this library; if not, write to the Free Software
- ;;;; Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
- ;;;;
- (eval-when (compile)
- (set-current-module (resolve-module '(guile))))
- (define (gethostbyaddr addr) (gethost addr))
- (define (gethostbyname name) (gethost name))
- (define (getnetbyaddr addr) (getnet addr))
- (define (getnetbyname name) (getnet name))
- (define (getprotobyname name) (getproto name))
- (define (getprotobynumber addr) (getproto addr))
- (define (getservbyname name proto) (getserv name proto))
- (define (getservbyport port proto) (getserv port proto))
- (define (sethostent . stayopen)
- (if (pair? stayopen)
- (sethost (car stayopen))
- (sethost #f)))
- (define (setnetent . stayopen)
- (if (pair? stayopen)
- (setnet (car stayopen))
- (setnet #f)))
- (define (setprotoent . stayopen)
- (if (pair? stayopen)
- (setproto (car stayopen))
- (setproto #f)))
- (define (setservent . stayopen)
- (if (pair? stayopen)
- (setserv (car stayopen))
- (setserv #f)))
- (define (gethostent) (gethost))
- (define (getnetent) (getnet))
- (define (getprotoent) (getproto))
- (define (getservent) (getserv))
- (define (endhostent) (sethost))
- (define (endnetent) (setnet))
- (define (endprotoent) (setproto))
- (define (endservent) (setserv))
- (define (hostent:name obj) (vector-ref obj 0))
- (define (hostent:aliases obj) (vector-ref obj 1))
- (define (hostent:addrtype obj) (vector-ref obj 2))
- (define (hostent:length obj) (vector-ref obj 3))
- (define (hostent:addr-list obj) (vector-ref obj 4))
- (define (netent:name obj) (vector-ref obj 0))
- (define (netent:aliases obj) (vector-ref obj 1))
- (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))
- (define (protoent:proto obj) (vector-ref obj 2))
- (define (servent:name obj) (vector-ref obj 0))
- (define (servent:aliases obj) (vector-ref obj 1))
- (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 (sockaddr:flowinfo obj) (vector-ref obj 3))
- (define (sockaddr:scopeid obj) (vector-ref obj 4))
- (define (addrinfo:flags obj) (vector-ref obj 0))
- (define (addrinfo:fam obj) (vector-ref obj 1))
- (define (addrinfo:socktype obj) (vector-ref obj 2))
- (define (addrinfo:protocol obj) (vector-ref obj 3))
- (define (addrinfo:addr obj) (vector-ref obj 4))
- (define (addrinfo:canonname obj) (vector-ref obj 5))
|