| version 1.4, 1999/11/27 01:41:11 |
version 1.6, 2000/02/02 03:30:48 |
|
|
| /*$OpenXM: OpenXM/src/kan96xx/plugin/cmo.c,v 1.3 1999/11/18 23:57:19 takayama Exp $*/ |
/*$OpenXM: OpenXM/src/kan96xx/plugin/cmo.c,v 1.5 2000/01/25 05:07:11 takayama Exp $*/ |
| #include <stdio.h> |
#include <stdio.h> |
| #include <string.h> |
#include <string.h> |
| /* #include <netinet/in.h> */ |
/* #include <netinet/in.h> */ |
| Line 1389 void *KSmathCapByStruct(void) |
|
| Line 1389 void *KSmathCapByStruct(void) |
|
| putoa(ob,1,KpoString(sys)); |
putoa(ob,1,KpoString(sys)); |
| putoa(ob,2,KpoString(sysVersion)); |
putoa(ob,2,KpoString(sysVersion)); |
| s1 = getenv("HOSTTYPE"); |
s1 = getenv("HOSTTYPE"); |
| |
if (s1 == NULL) s1="unknown"; |
| s2 = (char *)sGC_malloc(strlen(s1)+2+strlen("HOSTTYPE=")); |
s2 = (char *)sGC_malloc(strlen(s1)+2+strlen("HOSTTYPE=")); |
| strcpy(s2,"HOSTTYPE="); |
strcpy(s2,"HOSTTYPE="); |
| strcat(s2,s1); |
strcat(s2,s1); |
| Line 1442 void *KSmathCapByStruct(void) |
|
| Line 1443 void *KSmathCapByStruct(void) |
|
| mathcap->sm[8] = SM_setMathCap; |
mathcap->sm[8] = SM_setMathCap; |
| mathcap->sm[9] = SM_getsp; |
mathcap->sm[9] = SM_getsp; |
| mathcap->sm[10] = SM_dupErrors; |
mathcap->sm[10] = SM_dupErrors; |
| mathcap->smSize = 11; |
mathcap->sm[11] = SM_pushCMOtag; |
| |
mathcap->smSize = 12; |
| |
|
| return((void *)mathcap); |
return((void *)mathcap); |
| } |
} |