54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
|
(declare
(fixnum))
(cond-expand [paranoia]
[else
(declare (no-bound-checks))])
#> #include "hostinfo.h" <#
;; (require-extension srfi-4 lolevel posix)
(module hostinfo
;;; Short and sweet lookups
(current-hostname
hostname->ip ip->hostname
|
|
|
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
|
(declare
(fixnum))
(cond-expand [paranoia]
[else
(declare (no-bound-checks))])
#> #include "../hostinfo/hostinfo.h" <#
;; (require-extension srfi-4 lolevel posix)
(module hostinfo
;;; Short and sweet lookups
(current-hostname
hostname->ip ip->hostname
|