OpenXM/src/ox_math/mlo.c - diff

Return to mlo.c CVS log

Up to [local] / OpenXM / src / ox_math

version 1.6, 2000/03/10 12:38:46

version 1.7, 2000/10/10 19:58:29

Line 1

/* -*- mode: C -*- */

/* $OpenXM: OpenXM/src/ox_math/mlo.c,v 1.5 2000/01/22 06:29:18 ohara Exp $ */

/* $OpenXM: OpenXM/src/ox_math/mlo.c,v 1.6 2000/03/10 12:38:46 ohara Exp $ */

Line 57 cmo *receive_mlo_function()

MLGetFunction(stdlink, &s, &n);

fprintf(stderr, "--debug: MLO == MLTKFUNC (%s[#%d]).\n", s, n);

m = new_cmo_list();

append_cmo_list((cmo_list *)m, new_cmo_string(s));

list_append((cmo_list *)m, new_cmo_string(s));

for (i=0; i<n; i++) {

fprintf(stderr, " --debug: arg[%d]\n", i);

fflush(stderr);

ob = receive_mlo();

append_cmo_list((cmo_list *)m, ob);

list_append((cmo_list *)m, ob);

}

MLDisownString(stdlink, s);

Line 108 cmo *receive_mlo_function_newer()

fprintf(stderr, "--debug: arg[%d]\n", i);

fflush(stderr);

ob = receive_mlo();

append_cmo_list((cmo_list *)m, ob);

list_append((cmo_list *)m, ob);

}

MLDisownString(stdlink, s);

Line 223 int send_mlo_zz(cmo *m)

int send_mlo_list(cmo *c)

{

char *s;

cell *cp = ((cmo_list *)c)->head;

cell *cp = list_first((cmo_list *)c);

int len = length_cmo_list((cmo_list *)c);

int len = list_length((cmo_list *)c);

MLPutFunction(stdlink, "List", len);

while(cp->next != NULL) {

while(!list_endof(c, cp)) {

send_mlo(cp->cmo);

cp = cp->next;

cp = list_next(cp);

}