version 1.3, 2002/11/04 10:53:57 |
version 1.5, 2016/08/27 01:35:07 |
|
|
#include "ox_kan.h" |
#include "ox_kan.h" |
#include "serversm.h" |
#include "serversm.h" |
#include <setjmp.h> |
#include <setjmp.h> |
|
#include <errno.h> |
|
#include <malloc.h> |
jmp_buf EnvOfStackMachine; /* dummy data. */ |
jmp_buf EnvOfStackMachine; /* dummy data. */ |
|
|
int SerialCurrent = -1; |
int SerialCurrent = -1; |
int Quiet = 0; |
int Quiet = 0; |
|
|
void *GC_malloc(n) { |
void *sGC_malloc(int n) { |
return((void *)malloc(n)); |
return((void *)malloc(n)); |
} |
} |
|
|
/* internal use. */ |
/* internal use. */ |
int Sm1_popInt(); |
int Sm1_popInt(); |
|
|
Sm1_start() { |
Sm1_start(int argc,char *fnames[],char *myname) { |
fprintf(stderr,"nullstackmachine: sleep, pstack\n"); |
fprintf(stderr,"nullstackmachine: sleep, pstack\n"); |
} |
} |
|
|
Line 95 void printCMO_object(FILE *fp,CMO_Object *op) |
|
Line 97 void printCMO_object(FILE *fp,CMO_Object *op) |
|
void *Sm1_mathcap(void) { |
void *Sm1_mathcap(void) { |
int n,i; |
int n,i; |
struct mathCap *mathcap; |
struct mathCap *mathcap; |
|
static char *infoStr; |
|
infoStr = "nullserver00 Version=0.1; 199901160;"; |
mathcap = (struct mathCap *) malloc(sizeof(struct mathCap)); |
mathcap = (struct mathCap *) malloc(sizeof(struct mathCap)); |
strcpy(mathcap->name,"nullserver00 Version=0.1"); |
mathcap->infop = infoStr; /* string is OK? 2016.08.27 */ |
mathcap->version = 199901160; |
|
mathcap->cmo[0] = CMO_ERROR2; |
mathcap->cmo[0] = CMO_ERROR2; |
mathcap->cmo[1] = CMO_NULL; |
mathcap->cmo[1] = CMO_NULL; |
mathcap->cmo[2] = CMO_INT32; |
mathcap->cmo[2] = CMO_INT32; |
Line 269 int Sm1_pushCMO(ox_stream ostream) /* old one went to |
|
Line 272 int Sm1_pushCMO(ox_stream ostream) /* old one went to |
|
int Sm1_popCMO(ox_stream os,int serial) |
int Sm1_popCMO(ox_stream os,int serial) |
{ |
{ |
FILE *fp2; |
FILE *fp2; |
extern int errno; |
|
int c; |
int c; |
int p; |
int p; |
char data[1000]; |
char data[1000]; |