void f_thread() {
int sv[2];
fd = find_new_socket();
if (fd < 0)
return fd;
if (socketpair(PF_UNIX, SOCK_STREAM, 0, sv) == -1)
return EESOCKET;
ret = fork();
if (ret == -1) {
error("fork() in debug() failed: %s\n", strerror(errno));
}
if(ret){
close(sv[1]);
lpc_socks[fd].fd = sv[0];
lpc_socks[fd].flags = S_EXTERNAL;
set_read_callback(fd, sp-3);
set_write_callback(fd, sp-2);
set_close_callback(fd, sp-1);
lpc_socks[fd].owner_ob = current_object;
lpc_socks[fd].mode = MUD;
lpc_socks[fd].state = STATE_DATA_XFER;
memset((char *) &lpc_socks[fd].l_addr, 0, sizeof(lpc_socks[fd].l_addr));
memset((char *) &lpc_socks[fd].r_addr, 0, sizeof(lpc_socks[fd].r_addr));
lpc_socks[fd].owner_ob = current_object;
lpc_socks[fd].release_ob = NULL;
lpc_socks[fd].r_buf = NULL;
lpc_socks[fd].r_off = 0;
lpc_socks[fd].r_len = 0;
lpc_socks[fd].w_buf = NULL;
lpc_socks[fd].w_off = 0;
lpc_socks[fd].w_len = 0;
current_object->flags |= O_EFUN_SOCKET;
return fd;
}
close(sv[0]);
function_to_call_t cb;
memset(&cb, 0, sizeof(function_to_call_t));
process_efun_callback(0, &cb, F_THREAD);
for(i=0; i<5; i++)
if(external_port[i].port)
close(external_port[i].fd); //close external ports
for(i=0;i<sizeof(lpc_socks)/sizeof(lpc_socks[0]);i++)
close(lpc_sock[i].fd);
svalue_t *res = call_efun_callback(&cb, 1);
switch (res->type) {
case T_OBJECT:
break;
default:
save_svalue_depth = 0;
int len = svalue_save_size(message);
if (save_svalue_depth > MAX_SAVE_SVALUE_DEPTH) {
OS_socket_write(sv[1], "\x00\x00\x00\x11\"result too big\"", 21);
break;
}
char *buf = (char *)
DMALLOC(len + 5, TAG_TEMPORARY, "socket_write: default");
if (buf == NULL)
break;
*(INT_32 *) buf = htonl((long) len);
len += 4;
buf[4] = '\0';
p = buf + 4;
save_svalue(message, &p);
int ret,written = 0;
while(written < len){
ret = OS_socket_write(sv[1], buf+written, len-written);
if(ret < 0)
break;
written += ret;
}
break;
}
fflush(0);
exit(0);
}
INLINE void save_svalue P2(struct svalue *, v, char **, buf)
{
switch(v->type){
case T_STRING:
{
register char *cp = *buf, *str = v->u.string;
char c;
*cp++ = '"';
while (c = *str++){
if (c == '"' || c == '\\'){
*cp++ = '\\';
*cp++ = c;
}
#ifndef MSDOS
else *cp++ = (c == '\n') ? '\r' : c;
#else
else *cp++ = (c == '\n') ? 30 : c;
#endif
}
*cp++ = '"';
*(*buf = cp) = '\0';
return;
}
case T_POINTER:
{
int i = v->u.vec->size;
struct svalue *sv = v->u.vec->item;
*(*buf)++ = '(';
*(*buf)++ = '{';
while (i--){
save_svalue(sv++, buf);
*(*buf)++ = ',';
}
*(*buf)++ = '}';
*(*buf)++ = ')';
*(*buf) = '\0';
return;
}
case T_NUMBER:
{
int res = v->u.number, fact, len = 1, neg = 0;
register char *cp;
if (res < 0) { len++, neg = 1, res = (-res) & 0x7fffffff; }
fact = res;
while (fact > 9) { fact /= 10; len++; }
*(cp = (*buf += len)) = '\0';
do {
*--cp = res % 10 + '0';
res /= 10;
} while (res);
if (neg) *(cp-1) = '-';
return;
}
case T_REAL:
{
sprintf(*buf, "%g", v->u.real);
(*buf) += strlen(*buf);
return;
}
case T_MAPPING:
{
int j = v->u.map->table_size;
struct node **a = v->u.map->table, *elt;
*(*buf)++ = '(';
*(*buf)++ = '[';
do {
for (elt = a[j]; elt; elt = elt = elt->next){
save_svalue(elt->values, buf);
*(*buf)++ = ':';
save_svalue(elt->values + 1, buf);
*(*buf)++ = ',';
}
} while (j--);
*(*buf)++ = ']';
*(*buf)++ = ')';
*(*buf) = '\0';
return;
}
}
INLINE void save_svalue P2(svalue_t *, v, char **, buf)
{
switch(v->type) {
case T_STRING:
{
register char *cp = *buf, *str = v->u.string;
char c;
*cp++ = '"';
while ((c = *str++)) {
if (c == '"' || c == '\\') {
*cp++ = '\\';
*cp++ = c;
}
else *cp++ = (c == '\n') ? '\r' : c;
}
*cp++ = '"';
*(*buf = cp) = '\0';
return;
}
case T_ARRAY:
{
int i = v->u.arr->size;
svalue_t *sv = v->u.arr->item;
*(*buf)++ = '(';
*(*buf)++ = '{';
while (i--) {
save_svalue(sv++, buf);
*(*buf)++ = ',';
}
*(*buf)++ = '}';
*(*buf)++ = ')';
*(*buf) = '\0';
return;
}
case T_CLASS:
{
int i = v->u.arr->size;
svalue_t *sv = v->u.arr->item;
*(*buf)++ = '(';
*(*buf)++ = '/'; /* Why yes, this *is* a kludge! */
while (i--) {
save_svalue(sv++, buf);
*(*buf)++ = ',';
}
*(*buf)++ = '/';
*(*buf)++ = ')';
*(*buf) = '\0';
return;
}
case T_NUMBER:
{
int res = v->u.number, fact, len = 1, neg = 0;
register char *cp;
if (res < 0) { len++, neg = 1, res = (-res) & 0x7fffffff; }
fact = res;
while (fact > 9) { fact /= 10; len++; }
*(cp = (*buf += len)) = '\0';
do {
*--cp = res % 10 + '0';
res /= 10;
} while (res);
if (neg) *(cp-1) = '-';
return;
}
case T_REAL:
{
sprintf(*buf, "%f", v->u.real);
(*buf) += strlen(*buf);
return;
}
case T_MAPPING:
{
int j = v->u.map->table_size;
mapping_node_t **a = v->u.map->table, *elt;
*(*buf)++ = '(';
*(*buf)++ = '[';
do {
for (elt = a[j]; elt; elt = elt = elt->next) {
save_svalue(elt->values, buf);
*(*buf)++ = ':';
save_svalue(elt->values + 1, buf);
*(*buf)++ = ',';
}
} while (j--);
*(*buf)++ = ']';
*(*buf)++ = ')';
*(*buf) = '\0';
return;
}
}
}
