From: N. Brouard <brouard@ined.fr>
Date: Tue, 2 Sep 2014 09:24:05 +0000 (+0000)
Subject: *** empty log message ***
X-Git-Tag: imach-099s7~414
X-Git-Url: https://henry.ined.fr/git/?a=commitdiff_plain;h=18c54e058a2b09f2a5d95c9cd939e6002364f5b7;p=.git

*** empty log message ***
---

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[])