From 18c54e058a2b09f2a5d95c9cd939e6002364f5b7 Mon Sep 17 00:00:00 2001
From: "N. Brouard" <brouard@ined.fr>
Date: Tue, 2 Sep 2014 09:24:05 +0000
Subject: [PATCH] *** empty log message ***

---
 src/imach.c | 24 +++++++++++++++++++++++-
 1 file changed, 23 insertions(+), 1 deletion(-)

diff --git a/src/imach.c b/src/imach.c
index 369bbca..fb56f5f 100644
--- 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[])
-- 
2.43.0