4 * Copyright 2003 Dimitrie O. Paun
5 * Copyright 2003 Ferenc Wagner
7 * This library is free software; you can redistribute it and/or
8 * modify it under the terms of the GNU Lesser General Public
9 * License as published by the Free Software Foundation; either
10 * version 2.1 of the License, or (at your option) any later version.
12 * This library is distributed in the hope that it will be useful,
13 * but WITHOUT ANY WARRANTY; without even the implied warranty of
14 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
15 * Lesser General Public License for more details.
17 * You should have received a copy of the GNU Lesser General Public
18 * License along with this library; if not, write to the Free Software
19 * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA
30 void *heap_alloc (size_t len
)
32 void *p
= HeapAlloc(GetProcessHeap(), 0, len
);
34 if (!p
) report (R_FATAL
, "Out of memory.");
38 void *heap_realloc (void *op
, size_t len
)
40 void *p
= HeapReAlloc(GetProcessHeap(), 0, op
, len
);
42 if (len
&& !p
) report (R_FATAL
, "Out of memory.");
46 char *heap_strdup( const char *str
)
48 int len
= strlen(str
) + 1;
49 char* res
= HeapAlloc(GetProcessHeap(), 0, len
);
50 if (!res
) report (R_FATAL
, "Out of memory.");
51 memcpy(res
, str
, len
);
55 void heap_free (void *op
)
57 HeapFree(GetProcessHeap(), 0, op
);
60 static char *vstrfmtmake (size_t *lenp
, const char *fmt
, va_list ap
)
66 p
= HeapAlloc(GetProcessHeap(), 0, size
);
69 n
= vsnprintf (p
, size
, fmt
, ap
);
70 if (n
< 0) size
*= 2; /* Windows */
71 else if ((unsigned)n
>= size
) size
= n
+1; /* glibc */
73 q
= HeapReAlloc(GetProcessHeap(), 0, p
, size
);
84 char *vstrmake (size_t *lenp
, va_list ap
)
88 fmt
= va_arg (ap
, const char*);
89 return vstrfmtmake (lenp
, fmt
, ap
);
92 char * WINAPIV
strmake (size_t *lenp
, ...)
98 p
= vstrmake (lenp
, ap
);
99 if (!p
) report (R_FATAL
, "Out of memory.");
104 void WINAPIV
xprintf (const char *fmt
, ...)
112 buffer
= vstrfmtmake (&size
, fmt
, ap
);
116 if (!WriteFile( logfile
, head
, size
, &written
, NULL
))
117 report (R_FATAL
, "Can't write logs: %u", GetLastError());
127 return (('a'<=c
&& c
<='z') ||
128 ('A'<=c
&& c
<='Z') ||
129 ('0'<=c
&& c
<='9') ||
134 findbadtagchar (const char *tag
)
137 if (goodtagchar (*tag
)) tag
++;