OpenXM/src/ox_math/sm_ext.c - diff

Return to sm_ext.c CVS log

Up to [local] / OpenXM / src / ox_math

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

version 1.4, 2003/01/13 12:04:53

Line 1

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

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

/* $OpenXM: OpenXM/src/ox_math/sm_ext.c,v 1.3 2003/01/11 12:38:57 ohara Exp $ */

Line 51 void sm_popString()

cmo *err;

cmo *m;

#ifdef DEBUG

ox_printf("ox_math:: opecode = SM_popString.\n");

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

#endif

m = pop();

if (m->tag == CMO_STRING) {

send_ox_cmo(stack_oxfp, m);

Line 90 void sm_executeStringByLocalParser()

Line 87 void sm_executeStringByLocalParser()

symbol_t symp;

cmo* m = pop();

char *s = NULL;

#ifdef DEBUG

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

#endif

ox_printf("ox_math:: opecode = SM_executeStringByLocalParser.\n");

if (m->tag == CMO_STRING

&& strlen(s = ((cmo_string *)m)->s) != 0) {

if (s[0] == ':') {

Line 108 void sm_executeStringByLocalParser()

Line 103 void sm_executeStringByLocalParser()

}else {

#ifdef DEBUG

symp = lookup_by_tag(m->tag);

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

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

#endif

push_error(SM_executeStringByLocalParser, m);

}