version 1.4, 2015/10/10 11:29:46 |
version 1.6, 2021/03/12 06:45:55 |
|
|
/* $OpenXM: OpenXM/src/k097/sm1sm.c,v 1.3 2013/11/07 07:29:47 takayama Exp $ */ |
/* $OpenXM: OpenXM/src/k097/sm1sm.c,v 1.5 2020/10/07 23:53:25 takayama Exp $ */ |
/* This is imported from kxx/sm1stackmachine.c */ |
/* This is imported from kxx/sm1stackmachine.c */ |
#include <stdio.h> |
#include <stdio.h> |
#include <setjmp.h> |
#include <setjmp.h> |
|
|
#include <stdlib.h> |
#include <stdlib.h> |
#include "../kxx/ox_kan.h" |
#include "../kxx/ox_kan.h" |
#include "../kxx/serversm.h" |
#include "../kxx/serversm.h" |
|
#include "ox_k0.h" |
|
|
extern int OXprintMessage; |
extern int OXprintMessage; |
|
|
/* server stack machine */ |
/* server stack machine */ |
Line 29 int Sm1_setMathCap(ox_stream os) { |
|
Line 31 int Sm1_setMathCap(ox_stream os) { |
|
KSpush(ob); KSexecuteString(" (mathcap data is ) message message "); |
KSpush(ob); KSexecuteString(" (mathcap data is ) message message "); |
Kan_setMathCapToStream(os,ob); |
Kan_setMathCapToStream(os,ob); |
/* set the math cap data associated to the ox_stream. */ |
/* set the math cap data associated to the ox_stream. */ |
|
return 0; |
} |
} |
void Sm1_pops(void) { |
void Sm1_pops(void) { |
char data[100]; |
char data[100]; |
Line 105 int Sm1_pushError2(int serial, int no, char *s) |
|
Line 108 int Sm1_pushError2(int serial, int no, char *s) |
|
struct object ob = OINIT; |
struct object ob = OINIT; |
ob = KnewErrorPacket(serial,no,s); |
ob = KnewErrorPacket(serial,no,s); |
KSpush(ob); |
KSpush(ob); |
|
return 0; |
} |
} |
|
|
char *Sm1_popErrorMessage(char *s) { |
char *Sm1_popErrorMessage(char *s) { |