summaryrefslogtreecommitdiff
path: root/modules/language/python/module/_socket.scm
diff options
context:
space:
mode:
authorStefan Israelsson Tampe <stefan.itampe@gmail.com>2018-09-03 23:53:19 +0200
committerStefan Israelsson Tampe <stefan.itampe@gmail.com>2018-09-03 23:53:19 +0200
commit8223db0b1a660ad10830e9a5a2fe71858cf52481 (patch)
tree28b1659900a411318e567914a66c7695f1966dbc /modules/language/python/module/_socket.scm
parentd75a196fe299e3661e23d6f216008ab49660edec (diff)
bytes64 copmiles and testprogram works
Diffstat (limited to 'modules/language/python/module/_socket.scm')
-rw-r--r--modules/language/python/module/_socket.scm10
1 files changed, 9 insertions, 1 deletions
diff --git a/modules/language/python/module/_socket.scm b/modules/language/python/module/_socket.scm
index 5d7730b..000428f 100644
--- a/modules/language/python/module/_socket.scm
+++ b/modules/language/python/module/_socket.scm
@@ -128,7 +128,9 @@
gethostbyname_ex gethostname getnameinfo getprotobyn
getservbyname htonl htons if_indextoname if_nameindex
if_nametoindex inet_aton inet_ntop ntohl setdefaulttimeout
- getservbyport
+ getservbyport gethostbyaddr
+
+ error timeout
))
(define-syntax-rule (aif it p . l) (let ((it p)) (if it . l)))
@@ -471,6 +473,9 @@
(define scm-socket (@ (guile) socket))
+(define-python-class error (Exception))
+(define-python-class timeout (Exception))
+
(define-python-class socket ()
(define __init__
(lam (self (= family AF_INET) (= type SOCK_STREAM) (= proto 0)
@@ -630,6 +635,9 @@
(define (gethostbyname host)
((@ (guile) gethostbyname) host))
+(define (gethostbyaddr addr)
+ ((@ (guile) gethostbyname) addr))
+
(define (gethostbyname_ex host)
(error "not implemented"))