Hi all,
I'm trying to write a Guile/C RPC client (I know about guile-rpc but would
like to get this working also).
The dir.x and server code is the standard RPC example. I have only
modified the client (code below).
It works fine as far as the xdr_free at the bottom, which causes a
segmentation fault.
Any help appreciated.
/Tomas
---------- begin client.c ----------
#include <stdio.h>
#include "dir.h" /* generated by rpcgen */
#include <errno.h>
#include <libguile.h>
CLIENT* clnt;
SCM readdir_wrapper(SCM o) {
if (scm_is_string(o)) {
char* s;
readdir_res* result;
namelist nl;
scm_dynwind_begin(0);
s = scm_to_locale_string(o);
scm_dynwind_free(s);
result = readdir_1(s,clnt);
scm_dynwind_end();
if (result == (readdir_res*)NULL) {
clnt_perror(clnt,"localhost");
} else {
if (result->erna != 0) {
errno = result->erna;
perror(s);
} else {
for (nl = result->readdir_res_u.list; nl != NULL; nl = nl->next) {
printf("%s\n",nl->name);
}
printf("\n");
}
xdr_free((xdrproc_t)xdr_readdir_res,(char*)result);
}
} else {
scm_wrong_type_arg("read-dir",1,o);
}
}
static void inner_main(void* data,int argc,char** argv) {
scm_c_define_gsubr("read-dir",1,0,0,readdir_wrapper);
scm_shell(argc,argv);
}
int main(int argc,char* argv[]) {
clnt = clnt_create("localhost",DIRPROG,DIRVERS,"tcp");
if (clnt == (CLIENT*)NULL) {
clnt_pcreateerror("localhost");
exit(1);
}
scm_boot_guile(argc,argv,inner_main,NULL);
/*clnt_destroy(clnt);*/
return 0;
}
---------- end client.c ----------
