version 1.159, 2014/09/01 10:34:10
|
version 1.160, 2014/09/02 09:24:05
|
Line 1
|
Line 1
|
/* $Id$ |
/* $Id$ |
$State$ |
$State$ |
$Log$ |
$Log$ |
|
Revision 1.160 2014/09/02 09:24:05 brouard |
|
*** empty log message *** |
|
|
Revision 1.159 2014/09/01 10:34:10 brouard |
Revision 1.159 2014/09/01 10:34:10 brouard |
Summary: WIN32 |
Summary: WIN32 |
Author: Brouard |
Author: Brouard |
Line 786 char *cutl(char *blocc, char *alocc, cha
|
Line 789 char *cutl(char *blocc, char *alocc, cha
|
gives blocc="abcdef2ghi" and alocc="j". |
gives blocc="abcdef2ghi" and alocc="j". |
If occ is not found blocc is null and alocc is equal to in. Returns blocc |
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; |
t=in;s=in; |
while ((*in != occ) && (*in != '\0')){ |
while ((*in != occ) && (*in != '\0')){ |
*alocc++ = *in++; |
*alocc++ = *in++; |
Line 870 int nbocc(char *s, char occ)
|
Line 873 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 ********************/ |
/********************** nrerror ********************/ |
|
|
void nrerror(char error_text[]) |
void nrerror(char error_text[]) |