version 1.13, 2005/06/16 05:07:24 |
version 1.17, 2020/10/04 06:10:36 |
|
|
/*$OpenXM: OpenXM/src/kan96xx/plugin/cmo.c,v 1.12 2004/08/28 12:50:06 takayama Exp $*/ |
/*$OpenXM: OpenXM/src/kan96xx/plugin/cmo.c,v 1.16 2020/10/04 03:14:07 noro Exp $*/ |
#include <stdio.h> |
#include <stdio.h> |
#include <string.h> |
#include <string.h> |
/* #include <netinet/in.h> */ |
/* #include <netinet/in.h> */ |
Line 162 dumpCmoBuf(struct cmoBuffer *cb) |
|
Line 162 dumpCmoBuf(struct cmoBuffer *cb) |
|
char *s; |
char *s; |
if (cb->isStream) { |
if (cb->isStream) { |
printf("cmoBuffer is directed to a stream.\n"); |
printf("cmoBuffer is directed to a stream.\n"); |
return; |
return 0; |
} |
} |
size = cb->pos; |
size = cb->pos; |
s = (char *)(cb->buf); |
s = (char *)(cb->buf); |
Line 173 dumpCmoBuf(struct cmoBuffer *cb) |
|
Line 173 dumpCmoBuf(struct cmoBuffer *cb) |
|
printf("%3x",(int)(unsigned char)s[i]); |
printf("%3x",(int)(unsigned char)s[i]); |
} |
} |
putchar('\n'); |
putchar('\n'); |
|
return 0; |
} |
} |
|
|
/* This obsolete function is used to write data |
/* This obsolete function is used to write data |
Line 1462 void *KSmathCapByStruct(void) |
|
Line 1463 void *KSmathCapByStruct(void) |
|
mathcap->sm[10] = SM_dupErrors; |
mathcap->sm[10] = SM_dupErrors; |
mathcap->sm[11] = SM_pushCMOtag; |
mathcap->sm[11] = SM_pushCMOtag; |
mathcap->sm[12] = SM_executeFunctionWithOptionalArgument; |
mathcap->sm[12] = SM_executeFunctionWithOptionalArgument; |
mathcap->smSize = 13; |
mathcap->sm[13] = SM_nop; |
|
mathcap->smSize = 14; |
|
|
return((void *)mathcap); |
return((void *)mathcap); |
} |
} |
Line 1474 int cmoOutRawInt(int k) |
|
Line 1476 int cmoOutRawInt(int k) |
|
cmoOutputToBuf(CMOPUT,tmp,sizeof(cmoint)); |
cmoOutputToBuf(CMOPUT,tmp,sizeof(cmoint)); |
} |
} |
|
|
warningCmo(char *s) { |
int warningCmo(char *s) { |
fprintf(stderr,"Warning: plugin/cmo.c : %s\n",s); |
fprintf(stderr,"Warning: plugin/cmo.c : %s\n",s); |
} |
} |
|
|
errorCmo(char *s) { |
int errorCmo(char *s) { |
fprintf(stderr,"plugin/cmo.c : %s\n",s); |
fprintf(stderr,"plugin/cmo.c : %s\n",s); |
errorKan1("%s\n","cmo fatal error. ox servers need SM_control_reset_connection."); |
errorKan1("%s\n","cmo fatal error. ox servers need SM_control_reset_connection."); |
/* ErrorPacket is automatically push on the ErrorStack. |
/* ErrorPacket is automatically push on the ErrorStack. |