*** empty log message ***

diff --git a/src/imach.c b/src/imach.c
index 369bbcadea3c81d132e9bab22162101a7b63d618..fb56f5f1d22885e4e6fa42418b4a5704f85c457a 100644 (file)
--- a/src/imach.c
+++ b/src/imach.c
@@ -1,6 +1,10 @@
 /* $Id$
   $State$
   $Log$
+  Revision 1.159  2014/09/01 10:34:10  brouard
+  Summary: WIN32
+  Author: Brouard
+
   Revision 1.158  2014/08/27 17:11:51  brouard
   *** empty log message ***
 
@@ -782,7 +786,7 @@ char *cutl(char *blocc, char *alocc, char *in, char occ)
      gives blocc="abcdef2ghi" and alocc="j".
      If occ is not found blocc is null and alocc is equal to in. Returns blocc
   */
-  char *s, *t, *bl;
+  char *s, *t;
   t=in;s=in;
   while ((*in != occ) && (*in != '\0')){
     *alocc++ = *in++;
@@ -866,6 +870,24 @@ int nbocc(char *s, char occ)
 /*   } */
 /* } */
 
+#ifdef _WIN32
+char * strsep(char **pp, const char *delim)
+{
+  char *p, *q;
+         
+  if ((p = *pp) == NULL)
+    return 0;
+  if ((q = strpbrk (p, delim)) != NULL)
+  {
+    *pp = q + 1;
+    *q = '\0';
+  }
+  else
+    *pp = 0;
+  return p;
+}
+#endif
+
 /********************** nrerror ********************/
 
 void nrerror(char error_text[])