2 libc-extension.cc -- compensate for lacking libc functions.
4 source file of the flowerlib
6 (c) 1997--2005 Han-Wen Nienhuys <hanwen@cs.uu.nl>
7 Jan Nieuwenhuizen <janneke@gnu.org>
15 #include "libc-extension.hh"
18 strnlwr (char *start, int n)
23 *p = tolower (*p); /* a macro on some compilers */
29 strnupr (char *start, int n)
34 *p = toupper (*p); /* a macro on some compilers */
40 There are some strange problems with round() on early glibcs.
45 return floor (x -0.5)+ 1.0;
53 return x && (x == x/ 2);
60 /** locate a substring. #memmem# finds the first occurrence of
61 #needle# in #haystack#. This is not ANSI-C.
63 The prototype is not in accordance with the Linux Programmer's
64 Manual v1.15, but it is with /usr/include/string.h */
67 _memmem (unsigned char const *haystack, int haystack_len,
68 unsigned char const *needle, int needle_len)
70 unsigned char const *end_haystack = haystack + haystack_len - needle_len + 1;
71 unsigned char const *end_needle = needle + needle_len;
73 /* Ahhh ... Some minimal lowlevel stuff. This *is* nice; Varation
74 is the spice of life */
75 while (haystack < end_haystack)
77 unsigned char const *subneedle = needle;
78 unsigned char const *subhaystack = haystack;
79 while (subneedle < end_needle)
80 if (*subneedle++ != *subhaystack++)
83 /* Completed the needle. Gotcha. */
84 return (unsigned char *) haystack;
92 memmem (void const *haystack, int haystack_len,
93 void const *needle, int needle_len)
95 unsigned char const *haystack_byte_c = (unsigned char const *)haystack;
96 unsigned char const *needle_byte_c = (unsigned char const *)needle;
97 return _memmem (haystack_byte_c, haystack_len, needle_byte_c, needle_len);
103 memrchr (unsigned char const *p, int n, char c)
105 const unsigned char *q = p + n;
109 return (unsigned char *)q;
116 my_swap (T &t1, T &t2, T &tmp)
124 memrev (unsigned char *byte, int length)
126 unsigned char tmp_byte;
127 unsigned char *left = byte;
128 unsigned char *right = byte + length;
131 my_swap (*right--, *left++, tmp_byte);
137 snprintf (char *str, size_t n, char const *format, ...)
140 va_start (ap, format);
141 int i = vsprintf (str, format, ap);
142 if (i > 0 && (unsigned) i > n)
151 vsnprintf (char *str, size_t n, char const *format, va_list args)
153 int i = vsprintf (str, format, args);
154 if (i > 0 && (unsigned) i > n)
164 #if ! HAVE_FOPENCOOKIE
168 fopencookie (void *cookie, char const *mode, cookie_io_functions_t fun)
172 return funopen (cookie, fun.read, fun.write, fun.seek, fun.close);
174 return funopen (cookie,
175 (int (*) (void *, char *, int)) fun.read,
176 (int (*) (void *, char const *, int)) fun.write,
177 (fpos_t (*) (void *, fpos_t, int)) fun.seek,
178 (int (*) (void *)) fun.close);
182 #else /* ! HAVE_FUNOPEN */
185 #include "memory-stream.hh"
188 is_memory_stream (void *foo)
190 Memory_out_stream *cookie = (Memory_out_stream *) foo;
191 return dynamic_cast<Memory_out_stream *> (cookie);
195 fopencookie (void *cookie, char const *modes, cookie_io_functions_t io_funcs)
200 if (is_memory_stream (cookie))
201 return (FILE *) cookie;
207 handle_cookie_io_fclose (FILE *file)
209 if (is_memory_stream (file))
210 return Memory_out_stream::cleaner (file);
211 return fclose (file);
215 handle_cookie_io_fprintf (FILE *file, char const *format, ...)
218 va_start (ap, format);
219 if (is_memory_stream (file))
221 static char buf[65536];
222 int i = vsnprintf (buf, sizeof (buf), format, ap);
223 if (i == -1 || (unsigned) i > sizeof (buf))
225 return Memory_out_stream::writer (file, buf, i);
227 int i = vfprintf (file, format, ap);
233 handle_cookie_io_putc (int c, FILE *file)
235 if (is_memory_stream (file))
239 return Memory_out_stream::writer (file, buf, 1);
241 return putc (c, file);
244 #endif /* ! HAVE_FUNOPEN */
245 #endif /* ! HAVE_FOPENCOOKIE */