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