OpenXM/src/kxx/sm1stackmachine.c - diff

Return to sm1stackmachine.c CVS log

Up to [local] / OpenXM / src / kxx

version 1.6, 2006/02/01 00:30:05

version 1.9, 2020/10/07 07:47:23

Line 1

#include <stdio.h>

#include <setjmp.h>

#include <stdlib.h>

#include "ox_kan.h"

#include "serversm.h"

extern int OXprintMessage;

Line 7 extern char *MsgStackTrace;

Line 8 extern char *MsgStackTrace;

extern char *MsgSourceTrace;

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 */

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 core1 = OINIT;

char *ss;

ss = (char *)sGC_malloc(strlen(s)+1);

strcpy(ss,s);

char *error_message="<ox103:error_message>";

char *message="<ox103:message>";

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,error_message2);

if (MsgStackTraceInArrayp != NULL) {

core = KSnewObjectArray(2);