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;
117 my_swap (T &t1, T &t2, T &tmp)
125 strrev (unsigned char *byte, int length)
127 unsigned char tmp_byte;
128 unsigned char *left = byte;
129 unsigned char *right = byte + length;
132 my_swap (*right--, *left++ , tmp_byte);
138 snprintf (char *str, size_t, char const *format, ...)
141 va_start (ap, format);
142 int i = vsprintf (str, format, ap);
150 vsnprintf (char *str, size_t, char const *format, va_list args)
152 int i = vsprintf (str, format, args);
161 #if ! HAVE_FOPENCOOKIE
165 fopencookie (void *cookie, char const *mode, cookie_io_functions_t fun)
167 return funopen (cookie, fun.read, fun.write, fun.seek, fun.close);
170 #else /* ! HAVE_FUNOPEN */
173 #include "memory-stream.hh"
176 is_memory_stream (void *foo)
178 Memory_out_stream* cookie = (Memory_out_stream*) foo;
179 return dynamic_cast<Memory_out_stream*> (cookie);
183 fopencookie (void *cookie, char const *modes, cookie_io_functions_t io_funcs)
188 if (is_memory_stream (cookie))
189 return (FILE*) cookie;
195 handle_cookie_io_fclose (FILE *file)
197 if (is_memory_stream (file))
198 return Memory_out_stream::cleaner (file);
199 return fclose (file);
203 handle_cookie_io_fprintf (FILE *file, char const *format, ...)
206 va_start (ap, format);
207 if (is_memory_stream (file))
209 static char buf[1024];
210 int i = vsnprintf (buf, sizeof (buf), format, ap);
213 return Memory_out_stream::writer (file, buf, i);
215 int i = vfprintf (file, format, ap);
221 handle_cookie_io_putc (int c, FILE *file)
223 if (is_memory_stream (file))
227 return Memory_out_stream::writer (file, buf, 1);
229 return putc (c, file);
232 #endif /* ! HAVE_FUNOPEN */
233 #endif /* ! HAVE_FOPENCOOKIE */