projects
/
m6w6
/
ext-psi
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
|
github
raw
|
inline
| side by side
deduct variable names from implementation
[m6w6/ext-psi]
/
psi.d
/
netdb.psi
diff --git
a/psi.d/netdb.psi
b/psi.d/netdb.psi
index 3eca2915c84438512c427f93d9e109c102814be5..11eccea638510088765c73b1900d22accbdf489b 100644
(file)
--- a/
psi.d/netdb.psi
+++ b/
psi.d/netdb.psi
@@
-1,35
+1,37
@@
+#include <netdb.h>
+
function psi\endhostent() : void {
function psi\endhostent() : void {
- return void(endhostent);
+ return
endhostent() as
void(endhostent);
}
}
-function psi\endneten
d
() : void {
- return void(endnetent);
+function psi\endneten
t
() : void {
+ return
endnetent() as
void(endnetent);
}
function psi\endprotoent() : void {
}
function psi\endprotoent() : void {
- return void(endprotoent);
+ return
endprotoent() as
void(endprotoent);
}
function psi\endservent() : void {
}
function psi\endservent() : void {
- return void(endservent);
+ return
endservent() as
void(endservent);
}
function psi\sethostent(bool $stayopen) : void {
let stayopen = intval($stayopen);
}
function psi\sethostent(bool $stayopen) : void {
let stayopen = intval($stayopen);
- return void(sethostent);
+ return
sethostent(stayopen) as
void(sethostent);
}
}
-function psi\setnet
se
t(bool $stayopen) : void {
+function psi\setnet
en
t(bool $stayopen) : void {
let stayopen = intval($stayopen);
let stayopen = intval($stayopen);
- return void(setnetent);
+ return
setnetent(stayopen) as
void(setnetent);
}
function psi\setprotoent(bool $stayopen) : void {
let stayopen = intval($stayopen);
}
function psi\setprotoent(bool $stayopen) : void {
let stayopen = intval($stayopen);
- return void(setprotoent);
+ return
setprotoent(stayopen) as
void(setprotoent);
}
function psi\setservent(bool $stayopen) : void {
let stayopen = intval($stayopen);
}
function psi\setservent(bool $stayopen) : void {
let stayopen = intval($stayopen);
- return void(setservent);
+ return
setservent(stayopen) as
void(setservent);
}
function psi\gethostent() : array {
}
function psi\gethostent() : array {
- return to_array(*gethostent,
+ return
gethostent() as
to_array(*gethostent,
to_string(h_name),
to_array(h_aliases, to_string(h_aliases)),
to_int(h_addrtype),
to_string(h_name),
to_array(h_aliases, to_string(h_aliases)),
to_int(h_addrtype),
@@
-40,16
+42,21
@@
function psi\gethostent() : array {
function psi\gai_strerror(int $errcode) : string {
let errcode = intval($errcode);
function psi\gai_strerror(int $errcode) : string {
let errcode = intval($errcode);
- return to_string(gai_strerror);
+ return
gai_strerror(errcode) as
to_string(gai_strerror);
}
// extern int getaddrinfo(const char *node, const char *service, const struct addrinfo *hints, struct addrinfo **res)
}
// extern int getaddrinfo(const char *node, const char *service, const struct addrinfo *hints, struct addrinfo **res)
-function psi\getaddrinfo(string $node, string $service, array $hints, object &$res = NULL) : int {
+function psi\getaddrinfo(string $node, string $service, array $hints
= NULL
, object &$res = NULL) : int {
let node = strval($node);
let service = strval($service);
let node = strval($node);
let service = strval($service);
- let hints = &arrval($hints);
+ let hints = &arrval($hints,
+ intval($ai_flags),
+ intval($ai_family),
+ intval($ai_socktype),
+ intval($ai_protocol)
+ );
let res = &NULL;
let res = &NULL;
- return to_int(getaddrinfo);
+ return
getaddrinfo(node, service, hints, res) as
to_int(getaddrinfo);
set $res = to_array(**res,
to_int(ai_flags),
to_int(ai_family),
set $res = to_array(**res,
to_int(ai_flags),
to_int(ai_family),
@@
-72,7
+79,7
@@
function psi\getnameinfo(string $addr, string &$host = NULL, string &$service =
let servlen = psi\NI_MAXSERV;
let serv = calloc(servlen, psi\SIZEOF_CHAR);
let flags = intval($flags);
let servlen = psi\NI_MAXSERV;
let serv = calloc(servlen, psi\SIZEOF_CHAR);
let flags = intval($flags);
- return to_int(getnameinfo);
+ return
getnameinfo(sa, salen, host, hostlen, serv, servlen, flags) as
to_int(getnameinfo);
set $host = to_string(host);
set $service = to_string(serv);
}
set $host = to_string(host);
set $service = to_string(serv);
}