trunk/MyGPGME/w32-glibc.c

/* w32-glibc.c - Missing W32 stuff from the GLIBC  
 *
 * This program is free software; you can redistribute it and/or modify
 * it under the terms of the GNU General Public License as published by
 * the Free Software Foundation; either version 2 of the License, or
 * (at your option) any later version.
 *
 * This programis distributed in the hope that it will be useful,
 * but WITHOUT ANY WARRANTY; without even the implied warranty of
 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
 * GNU General Public License for more details.
 *
 * You should have received a copy of the GNU General Public License
 * along with this program; if not, write to the Free Software
 * Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA
 */

#include <stdio.h>
#include <string.h>
#include <ctype.h>
#include <malloc.h>

/*********************************************
 ********** missing string functions *********
 *********************************************/
#ifndef HAVE_STPCPY
char *
stpcpy (char *a, const char *b)
{
    while( *b )
        *a++ = *b++;
    *a = 0;
    
    return a;
}
#endif

#ifndef HAVE_STRSEP
/* code taken from glibc-2.2.1/sysdeps/generic/strsep.c */
char *
strsep (char **stringp, const char *delim)
{
    char *begin, *end;
    begin = *stringp;

    if (begin == NULL)
        return NULL;

    /* A frequent case is when the delimiter string contains only one
       character.  Here we don't need to call the expensive `strpbrk'
       function and instead work using `strchr'.  */
    if (delim[0] == '\0' || delim[1] == '\0') {
        char ch = delim[0];
        if (ch == '\0')
            end = NULL;
        else {
            if (*begin == ch)
                end = begin;                         
            else if (*begin == '\0')
                end = NULL;
            else
                end = strchr (begin + 1, ch);
        }  
    }
    else /* Find the end of the token.  */
        end = strpbrk (begin, delim);
    if ( end ){
        /* Terminate the token and set *STRINGP past NUL character.  */
        *end++ = '\0';
        *stringp = end;
    }
    else
        /* No more delimiters; this is the last token.  */
        *stringp = NULL;

    return begin;
}

const char *
memistr( const char *buf, size_t buflen, const char *sub )
{
    const char *t, *s ;
    size_t n;

    for( t=buf, n=buflen, s=sub ; n ; t++, n-- ) {
        if( toupper(*t) == toupper(*s) ) {
            for( buf=t++, buflen = n--, s++;
                 n && toupper(*t) == toupper(*s); t++, s++, n-- )
                ;
            if( !*s )
                return buf;
            t = buf; n = buflen; s = sub ;
        }
    }
    return NULL ;
} /* memistr */
#endif


FILE *
my_fopen (const char * fname, const char * mode)
{
    FILE * fp;
    char * p;

    if (*fname == '"') {
        p = calloc (1, strlen (fname));
        if (!p)
            return NULL;
        memcpy (p, fname+1, strlen (fname) - 2);
    }
    else {
        p = strdup (fname);
        if (!p)
            return NULL;
    }
    fp = fopen (p, mode);
    free (p);
    return fp;
}
1	twoaday	2	/* w32-glibc.c - Missing W32 stuff from the GLIBC
2			*
3			* This program is free software; you can redistribute it and/or modify
4			* it under the terms of the GNU General Public License as published by
5			* the Free Software Foundation; either version 2 of the License, or
6			* (at your option) any later version.
7			*
8			* This programis distributed in the hope that it will be useful,
9			* but WITHOUT ANY WARRANTY; without even the implied warranty of
10			* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
11			* GNU General Public License for more details.
12			*
13			* You should have received a copy of the GNU General Public License
14			* along with this program; if not, write to the Free Software
15			* Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA
16			*/
17
18			#include <stdio.h>
19			#include <string.h>
20			#include <ctype.h>
21			#include <malloc.h>
22
23			/*********************************************
24			******** missing string functions *******
25			*********************************************/
26			#ifndef HAVE_STPCPY
27			char *
28			stpcpy (char a, const char b)
29			{
30			while( *b )
31			a++ = b++;
32			*a = 0;
33
34			return a;
35			}
36			#endif
37
38			#ifndef HAVE_STRSEP
39			/* code taken from glibc-2.2.1/sysdeps/generic/strsep.c */
40			char *
41			strsep (char *stringp, const char delim)
42			{
43			char begin, end;
44			begin = *stringp;
45
46			if (begin == NULL)
47			return NULL;
48
49			/* A frequent case is when the delimiter string contains only one
50			character. Here we don't need to call the expensive `strpbrk'
51			function and instead work using `strchr'. */
52			if (delim[0] == '\0' \|\| delim[1] == '\0') {
53			char ch = delim[0];
54			if (ch == '\0')
55			end = NULL;
56			else {
57			if (*begin == ch)
58			end = begin;
59			else if (*begin == '\0')
60			end = NULL;
61			else
62			end = strchr (begin + 1, ch);
63			}
64			}
65			else /* Find the end of the token. */
66			end = strpbrk (begin, delim);
67			if ( end ){
68			/* Terminate the token and set STRINGP past NUL character. /
69			*end++ = '\0';
70			*stringp = end;
71			}
72			else
73			/* No more delimiters; this is the last token. */
74			*stringp = NULL;
75
76			return begin;
77			}
78
79			const char *
80			memistr( const char buf, size_t buflen, const char sub )
81			{
82			const char t, s ;
83			size_t n;
84
85			for( t=buf, n=buflen, s=sub ; n ; t++, n-- ) {
86			if( toupper(t) == toupper(s) ) {
87			for( buf=t++, buflen = n--, s++;
88			n && toupper(t) == toupper(s); t++, s++, n-- )
89			;
90			if( !*s )
91			return buf;
92			t = buf; n = buflen; s = sub ;
93			}
94			}
95			return NULL ;
96			} /* memistr */
97			#endif
98
99
100			FILE *
101			my_fopen (const char * fname, const char * mode)
102			{
103			FILE * fp;
104			char * p;
105
106			if (*fname == '"') {
107			p = calloc (1, strlen (fname));
108			if (!p)
109			return NULL;
110			memcpy (p, fname+1, strlen (fname) - 2);
111			}
112			else {
113			p = strdup (fname);
114			if (!p)
115			return NULL;
116			}
117			fp = fopen (p, mode);
118			free (p);
119			return fp;
120			}