OpenXM/src/ox_math/mlo.c - diff

Return to mlo.c CVS log

Up to [local] / OpenXM / src / ox_math

Diff for /OpenXM/src/ox_math/mlo.c between version 1.4 and 1.7

version 1.4, 2000/01/05 06:09:11

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

Line 1

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

/* $OpenXM: OpenXM/src/ox_math/mlo.c,v 1.3 1999/12/14 09:31:55 ohara Exp $ */

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

You must see OpenXM/Copyright/Copyright.generic.

The MathLink Library is licensed from Wolfram Research Inc..

See OpenXM/Copyright/Copyright.mathlink for detail.

#include <stdio.h>

#include <stdlib.h>

#include <unistd.h>

#include <gmp.h>

#include <mathlink.h>

#include "oxtag.h"

#include <ox_toolkit.h>

#include "ox.h"

#include "mlo.h"

#include "serv2.h"

Line 50 cmo *receive_mlo_function()

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 101 cmo *receive_mlo_function_newer()

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 216 int send_mlo_zz(cmo *m)

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);

}

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>