| version 1.4, 2000/11/30 10:27:02 |
version 1.5, 2000/12/03 14:32:40 |
|
|
| /* -*- mode: C -*- */ |
/* -*- mode: C -*- */ |
| /* $OpenXM: OpenXM/src/oxc/sm.c,v 1.3 2000/11/28 18:11:42 ohara Exp $ */ |
/* $OpenXM: OpenXM/src/oxc/sm.c,v 1.4 2000/11/30 10:27:02 ohara Exp $ */ |
| |
|
| #include <stdio.h> |
#include <stdio.h> |
| #include <stdlib.h> |
#include <stdlib.h> |
|
|
| |
|
| void push_error(int errcode, cmo* pushback) |
void push_error(int errcode, cmo* pushback) |
| { |
{ |
| return push((cmo *)make_error_object(errcode, pushback)); |
return push((cmo *)make_error_object(errcode, pushback)); |
| } |
} |
| |
|
| /* |
/* |
|
|
| if (m->tag == CMO_INT32) { |
if (m->tag == CMO_INT32) { |
| pops(((cmo_int32 *)m)->i); |
pops(((cmo_int32 *)m)->i); |
| }else { |
}else { |
| push_error(-1, m); /* m is invalid. */ |
push_error(-1, m); /* m is invalid. */ |
| } |
} |
| } |
} |
| |
|
| void sm_run(int code) |
void sm_run(int code) |
| Line 129 int oxf_error(OXFILE *oxfp) |
|
| Line 129 int oxf_error(OXFILE *oxfp) |
|
| |
|
| int sm(OXFILE *oxfp) |
int sm(OXFILE *oxfp) |
| { |
{ |
| stack_oxfp = oxfp; |
stack_oxfp = oxfp; |
| stack_extend(); |
stack_extend(); |
| while (sm_receive_ox()) { |
while (sm_receive_ox()) { |
| } |
} |
![[BACK]](/icons/cvsweb/back.gif){kind=icon}
Return to sm.c CVS log ![[TXT]](/icons/cvsweb/text.gif){kind=icon}
![[DIR]](/icons/cvsweb/dir.gif){kind=icon}
Up to [local] / OpenXM / src / oxc