OpenXM/src/kan96xx/Kan/ext.c - diff

Return to ext.c CVS log

Up to [local] / OpenXM / src / kan96xx / Kan

version 1.9, 2002/02/24 10:27:18

version 1.11, 2002/08/03 03:35:40

Line 1

/* $OpenXM: OpenXM/src/kan96xx/Kan/ext.c,v 1.8 2001/08/21 14:12:46 takayama Exp $ */

/* $OpenXM: OpenXM/src/kan96xx/Kan/ext.c,v 1.10 2002/07/28 02:48:16 takayama Exp $ */

#include <stdio.h>

#include <sys/types.h>

#include <sys/stat.h>

Line 12

#include "extern2.h"

#include <signal.h>

#include "plugin.h"

#include <ctype.h>

#define MYCP_SIZE 100

static int Mychildren[MYCP_SIZE];

Line 161 struct object Kextension(struct object obj)

Line 162 struct object Kextension(struct object obj)

obj1 = getoa(obj,1);

if (obj1.tag != Sdollar) errorKan1("%s\n","[(getenv) envstr] extension");

abc = getenv(KopString(obj1));

#if defined(__CYGWIN__)

if (abc == NULL) {

abc2 = (char *)sGC_malloc(sizeof(char)*(strlen(KopString(obj1))+2));

strcpy(abc2,KopString(obj1));

for (i=0; i<strlen(abc2); i++) {

abc2[i] = toupper(abc2[i]);

}

abc = getenv(abc2);

}

#endif

if (abc == NULL) {

rob = NullObject;

}else{