version 1.6, 2006/02/01 00:30:05 |
version 1.9, 2020/10/07 07:47:23 |
|
|
#include <stdio.h> |
#include <stdio.h> |
#include <setjmp.h> |
#include <setjmp.h> |
|
#include <stdlib.h> |
#include "ox_kan.h" |
#include "ox_kan.h" |
#include "serversm.h" |
#include "serversm.h" |
extern int OXprintMessage; |
extern int OXprintMessage; |
Line 7 extern char *MsgStackTrace; |
|
Line 8 extern char *MsgStackTrace; |
|
extern char *MsgSourceTrace; |
extern char *MsgSourceTrace; |
extern struct object *MsgStackTraceInArrayp; |
extern struct object *MsgStackTraceInArrayp; |
|
|
|
void KSstart(); // kan96xx/Kan/datatype.h |
|
int KSexecuteString(char *s); // kan96xx/Kan/datatype.h |
|
int Kan_pushCMOFromStream(FILE2 *fp); //kan96xx/Kan/plugin.h |
|
int Kan_popCMOToStream(FILE2 *fp,int serial); // |
|
int KgetCmoTagOfObject(struct object obj); // |
|
int KSstackPointer(void); //kan96xx/Kan/extern.h |
|
int Kan_setMathCapToStream(FILE2 *fp,struct object ob); // kan96xx/plugin/cmo.c |
|
|
|
|
/* server stack machine */ |
/* server stack machine */ |
|
|
int Sm1_start(int argc, char *fnames[],char *myname) { |
int Sm1_start(int argc, char *fnames[],char *myname) { |
Line 144 int Sm1_pushError2(int serial, int no, char *s) |
|
Line 154 int Sm1_pushError2(int serial, int no, char *s) |
|
struct object core = OINIT; |
struct object core = OINIT; |
struct object core1 = OINIT; |
struct object core1 = OINIT; |
char *ss; |
char *ss; |
|
|
|
ss = (char *)sGC_malloc(strlen(s)+1); |
|
strcpy(ss,s); |
|
/* |
char *error_message="<ox103:error_message>"; |
char *error_message="<ox103:error_message>"; |
char *message="<ox103:message>"; |
char *message="<ox103:message>"; |
char *stack_trace="<ox103:stack_trace>"; |
char *stack_trace="<ox103:stack_trace>"; |
Line 174 int Sm1_pushError2(int serial, int no, char *s) |
|
Line 188 int Sm1_pushError2(int serial, int no, char *s) |
|
strcat(ss,source_trace2); |
strcat(ss,source_trace2); |
} |
} |
strcat(ss,error_message2); |
strcat(ss,error_message2); |
|
*/ |
|
|
if (MsgStackTraceInArrayp != NULL) { |
if (MsgStackTraceInArrayp != NULL) { |
core = KSnewObjectArray(2); |
core = KSnewObjectArray(2); |