/*
- libc-extension.cc -- compensate for lacking libc functions.
+ This file is part of LilyPond, the GNU music typesetter.
+ Copyright (C) 1997--2014 Han-Wen Nienhuys <hanwen@xs4all.nl>
+ Jan Nieuwenhuizen <janneke@gnu.org>
- source file of the flowerlib
+ LilyPond 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 3 of the License, or
+ (at your option) any later version.
- (c) 1997--2005 Han-Wen Nienhuys <hanwen@cs.uu.nl>
- Jan Nieuwenhuizen <janneke@gnu.org>
+ LilyPond is 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 LilyPond. If not, see <http://www.gnu.org/licenses/>.
*/
#include <cmath>
#include <cstdio>
#include <cstring>
#include <cctype>
+#include <cassert>
+
+using namespace std;
#include "libc-extension.hh"
-char*
-strnlwr (char* start ,int n)
+char *
+strnlwr (char *start, int n)
{
- char * p = start + n;
- while (--p >= start)
+ char *p = start + n;
+ while (--p >= start)
{
- *p = tolower (*p); /* a macro on some compilers */
+ *p = (char)tolower (*p); /* a macro on some compilers */
}
return start;
}
-char*
-strnupr (char* start, int n)
+char *
+strnupr (char *start, int n)
{
- char * p = start + n;
- while (--p >= start)
+ char *p = start + n;
+ while (--p >= start)
{
- *p = toupper (*p); /* a macro on some compilers */
+ *p = (char)toupper (*p); /* a macro on some compilers */
}
return start;
}
-/*
- There are some strange problems with round() on early glibcs.
-*/
-double
-my_round (double x)
-{
- return floor (x -0.5)+ 1.0 ;
-}
-
-#ifndef isinf
-#if !HAVE_ISINF
-int
-isinf (double x)
-{
- return x && ( x == x/ 2) ;
-}
-#endif
-#endif
-
#if !HAVE_MEMMEM
/** locate a substring. #memmem# finds the first occurrence of
unsigned char *
_memmem (unsigned char const *haystack, int haystack_len,
- unsigned char const *needle,int needle_len)
+ unsigned char const *needle, int needle_len)
{
- unsigned char const * end_haystack = haystack + haystack_len - needle_len + 1;
- unsigned char const * end_needle = needle + needle_len ;
+ unsigned char const *end_haystack = haystack + haystack_len - needle_len + 1;
+ unsigned char const *end_needle = needle + needle_len;
/* Ahhh ... Some minimal lowlevel stuff. This *is* nice; Varation
is the spice of life */
- while (haystack < end_haystack)
+ while (haystack < end_haystack)
{
unsigned char const *subneedle = needle;
unsigned char const *subhaystack = haystack;
- while (subneedle < end_needle)
+ while (subneedle < end_needle)
if (*subneedle++ != *subhaystack++)
- goto next;
-
+ goto next;
+
/* Completed the needle. Gotcha. */
return (unsigned char *) haystack;
- next:
+next:
haystack++;
}
return 0;
void *
memmem (void const *haystack, int haystack_len,
- void const *needle,int needle_len)
+ void const *needle, int needle_len)
{
- unsigned char const* haystack_byte_c = (unsigned char const*)haystack;
- unsigned char const* needle_byte_c = (unsigned char const*)needle;
+ unsigned char const *haystack_byte_c = (unsigned char const *)haystack;
+ unsigned char const *needle_byte_c = (unsigned char const *)needle;
return _memmem (haystack_byte_c, haystack_len, needle_byte_c, needle_len);
}
memrchr (unsigned char const *p, int n, char c)
{
const unsigned char *q = p + n;
- while (q > p)
+ while (q > p)
{
if (*--q == c)
- return (unsigned char*)q;
+ return (unsigned char *)q;
}
return 0;
}
-
template<class T>
inline void
my_swap (T &t1, T &t2, T &tmp)
}
unsigned char *
-strrev (unsigned char *byte, int length)
+memrev (unsigned char *byte, int length)
{
unsigned char tmp_byte;
unsigned char *left = byte;
unsigned char *right = byte + length;
- while (right > left)
- my_swap (*right--, *left++ , tmp_byte);
+ while (right > left)
+ my_swap (*right--, *left++, tmp_byte);
return byte;
}
+/*
+ There are some strange problems with round() on early glibcs.
+*/
+double
+my_round (double x)
+{
+ return floor (x - 0.5) + 1.0;
+}
+
+/* namespace std { */
+
+#ifndef isinf
+#if !HAVE_ISINF
+int
+isinf (double x)
+{
+ return x && (x == x / 2);
+}
+#endif
+#endif
+
#if ! HAVE_SNPRINTF
-int
-snprintf (char *str, size_t, char const *format, ...)
+int
+snprintf (char *str, size_t n, char const *format, ...)
{
va_list ap;
va_start (ap, format);
int i = vsprintf (str, format, ap);
+ if (i > 0 && (unsigned) i > n)
+ assert (false);
va_end (ap);
return i;
}
#endif
#if ! HAVE_VSNPRINTF
-int
-vsnprintf (char *str, size_t, char const *format, va_list args)
+int
+vsnprintf (char *str, size_t n, char const *format, va_list args)
{
int i = vsprintf (str, format, args);
+ if (i > 0 && (unsigned) i > n)
+ assert (false);
return i;
}
#endif
-#include <assert.h>
-
-extern "C" {
-
-#if ! HAVE_FOPENCOOKIE
-#if HAVE_FUNOPEN
-
- FILE *
- fopencookie (void *cookie, char const *mode, cookie_io_functions_t *fun)
- {
- return funopen (cookie, fun->read, fun->write, fun->seek, fun->close);
- }
-
-#else /* ! HAVE_FUNOPEN */
-
-#include <cstdio>
-#include "memory-stream.hh"
-
- static bool
- is_memory_stream (void *foo)
- {
- Memory_out_stream* cookie = (Memory_out_stream*) foo;
- return dynamic_cast<Memory_out_stream*> (cookie);
- }
-
- FILE *
- fopencookie (void *cookie, char const *modes, cookie_io_functions_t io_funcs)
- {
- (void) cookie;
- (void) modes;
- (void) io_funcs;
- if (is_memory_stream (cookie))
- return (FILE*) cookie;
- assert (false);
- return 0;
- }
-
- int
- handle_cookie_io_fclose (FILE *file)
- {
- if (is_memory_stream (file))
- return Memory_out_stream::cleaner (file);
- return fclose (file);
- }
-
- int
- handle_cookie_io_fprintf (FILE *file, char const *format, ...)
- {
- va_list ap;
- va_start (ap, format);
- if (is_memory_stream (file))
- {
- static char buf[1024];
- int i = vsnprintf (buf, sizeof (buf), format, ap);
- if (i == -1)
- assert (false);
- return Memory_out_stream::writer (file, buf, i);
- }
- int i = vfprintf (file, format, ap);
- va_end (ap);
- return i;
- }
-
- int
- handle_cookie_io_putc (int c, FILE *file)
- {
- if (is_memory_stream (file))
- {
- char buf[1];
- buf[0] = (char) c;
- return Memory_out_stream::writer (file, buf, 1);
- }
- return putc (c, file);
- }
-
-#endif /* ! HAVE_FUNOPEN */
-#endif /* ! HAVE_FOPENCOOKIE */
-
-} /* extern C */
+/* } namespace std */