OpenXM/src/ox_math/sm_ext.c - diff

Return to sm_ext.c CVS log

Up to [local] / OpenXM / src / ox_math

version 1.2, 2000/12/03 22:09:34

version 1.3, 2003/01/11 12:38:57

Line 1

/* -*- mode: C; coding: euc-japan -*- */

/* $OpenXM: OpenXM/src/ox_math/sm_ext.c,v 1.1 2000/12/03 21:45:48 ohara Exp $ */

/* $OpenXM: OpenXM/src/ox_math/sm_ext.c,v 1.2 2000/12/03 22:09:34 ohara Exp $ */

Line 52 void sm_popString()

cmo *m;

#ifdef DEBUG

fprintf(stderr, "ox_math:: opecode = SM_popString.\n");

fprintf(ox_stderr, "ox_math:: opecode = SM_popString.\n");

#endif

m = pop();

Line 91 void sm_executeStringByLocalParser()

cmo* m = pop();

char *s = NULL;

#ifdef DEBUG

fprintf(stderr, "ox_math:: opecode = SM_executeStringByLocalParser.\n");

fprintf(ox_stderr, "ox_math:: opecode = SM_executeStringByLocalParser.\n");

#endif

if (m->tag == CMO_STRING

Line 108 void sm_executeStringByLocalParser()

}else {

#ifdef DEBUG

symp = lookup_by_tag(m->tag);

fprintf(stderr, "ox_math:: error. the top of stack is %s.\n", symbol_get_key(symp));

fprintf(ox_stderr, "ox_math:: error. the top of stack is %s.\n", symbol_get_key(symp));

#endif

push_error(SM_executeStringByLocalParser, m);

}