===================================================================
RCS file: /home/cvs/OpenXM/src/kan96xx/Kan/ext.c,v
retrieving revision 1.8
retrieving revision 1.10
diff -u -p -r1.8 -r1.10
--- OpenXM/src/kan96xx/Kan/ext.c	2001/08/21 14:12:46	1.8
+++ OpenXM/src/kan96xx/Kan/ext.c	2002/07/28 02:48:16	1.10
@@ -1,4 +1,4 @@
-/* $OpenXM: OpenXM/src/kan96xx/Kan/ext.c,v 1.7 2001/08/10 13:48:38 takayama Exp $ */
+/* $OpenXM: OpenXM/src/kan96xx/Kan/ext.c,v 1.9 2002/02/24 10:27:18 takayama Exp $ */
 #include <stdio.h>
 #include <sys/types.h>
 #include <sys/stat.h>
@@ -12,6 +12,7 @@
 #include "extern2.h"
 #include <signal.h>
 #include "plugin.h"
+#include <ctype.h>
 
 #define MYCP_SIZE 100
 static int Mychildren[MYCP_SIZE];
@@ -35,9 +36,14 @@ static void mywait() {
 }
 
 #define SIZE_OF_ENVSTACK 5
-static jmp_buf EnvStack[SIZE_OF_ENVSTACK];
+#if defined(__CYGWIN__)
+#define JMP_BUF sigjmp_buf
+#else
+#define JMP_BUF jmp_buf
+#endif
+static JMP_BUF EnvStack[SIZE_OF_ENVSTACK];
 static int Envp = 0;
-static void pushEnv(jmp_buf jb) {
+static void pushEnv(JMP_BUF jb) {
   if (Envp < SIZE_OF_ENVSTACK) {
     *(EnvStack[Envp]) = *jb;
     Envp++;
@@ -46,7 +52,7 @@ static void pushEnv(jmp_buf jb) {
     exit(2);
   }
 }
-static void popEnv(jmp_buf jbp) {
+static void popEnv(JMP_BUF jbp) {
   if (Envp <= 0) {
     fprintf(stderr,"Underflow of EnvStack.\n");
     exit(3);
@@ -86,7 +92,11 @@ struct object Kextension(struct object obj)
   char *abc;
   char *abc2;
   extern struct context *CurrentContextp;
+#if (__CYGWIN__)
+  extern sigjmp_buf EnvOfStackMachine;
+#else
   extern jmp_buf EnvOfStackMachine;
+#endif
   extern void ctrlC();
   extern int SigIgn;
   extern errno;
@@ -152,6 +162,16 @@ 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{