80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
|
;;; One-stop shops -- does what you want
host-information protocol-information service-information
;;; Utilities
string->ip ip->string)
(import chicken.fixnum chicken.string chicken.blob srfi-2 scheme
typed-records srfi-9 chicken.foreign srfi-4 chicken.base
foreigners
chicken.format)
(define (vector-map p v0) ; to avoid linking in vector-lib
(let* ((len (vector-length v0))
(v (make-vector len)))
(do ((i 0 (+ i 1)))
((>= i len) v)
|
|
|
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
|
;;; One-stop shops -- does what you want
host-information protocol-information service-information
;;; Utilities
string->ip ip->string)
(import chicken.fixnum chicken.string chicken.blob srfi-2 scheme
typed-records srfi-9 chicken.foreign srfi-4 chicken.base
foreigners system-information
chicken.format)
(define (vector-map p v0) ; to avoid linking in vector-lib
(let* ((len (vector-length v0))
(v (make-vector len)))
(do ((i 0 (+ i 1)))
((>= i len) v)
|