tioga 1.11 → 1.13

data/split/Dvector/safe_double.h

@@ -1,104 +0,0 @@
-/**********************************************************************
-
-   safe_double.h: small abstraction for storing double without endianess
-   problems
-   
-   Copyright (C) 2006 Vincent Fourmond
-
-   This program is free software; you can redistribute it and/or modify
-   it under the terms of the GNU General Library Public License as published
-   by the Free Software Foundation; either version 2 of the License, or
-   (at your option) any later version.
-   
-   This program 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 Library General Public License for more details.
-   
-   You should have received a copy of the GNU Library General Public License
-   along with this program; if not, write to the Free Software
-   Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA  02110-1301 USA
-   
-**********************************************************************/
-
-/* This file provides two functions: store_double and get_double, which
-   can be used in a 'safe' way to store doubles  and retrive them
-   in a hopefully platform-independent form. However, it just 
-   stores it without regards to that if ieee754.h isn't found...
-*/
-
-#ifndef _DOUBLE_H
-#define _DOUBLE_H
-
-#define STORE_LOWER_BYTE(a,p) do {\
-*(p++) = (a) & 0xFF; (a) >>= 8; }\
-while(0)
-#define STORE_UNSIGNED(a,p)   for(i = 0; i < 4; i++) STORE_LOWER_BYTE(a,p);
-#define GET_UNSIGNED(a,p) do { a = 0; for(i = 0; i < 4; i++) \
-(a) |= *(p++) << (i * 8); } while (0)
-
-#ifdef HAVE_IEEE754_H
-#include <ieee754.h>
-
-
-static inline void store_double(double a, unsigned char * p)
-{
-  unsigned int tmp;
-  int i;
-  union ieee754_double d;
-  d.d = a;
-  /* we store it with lower bytes firts */
-  tmp = d.ieee.mantissa1;
-  STORE_UNSIGNED(tmp, p);
-  tmp = d.ieee.negative << 31 |
-    d.ieee.exponent << 20 | 
-    d.ieee.mantissa0;
-  STORE_UNSIGNED(tmp, p);
-}
-
-
-static inline double get_double(const unsigned char * p)
-{
-  unsigned int tmp;
-  int i;
-  union ieee754_double d;
-  GET_UNSIGNED(tmp, p);
-  d.ieee.mantissa1 = tmp;
-  GET_UNSIGNED(tmp, p);
-  d.ieee.mantissa0 = tmp & 0xFFFFF;
-  d.ieee.exponent = (tmp >> 20) & 0x7FF;
-  d.ieee.negative = (tmp >> 31) & 0x1;
-  return d.d;
-}
-
-#else
-
-union basic_double{
-  double d;
-  struct {
-    unsigned int a:32;
-    unsigned int b:32;
-  } i;
-};
-
-static inline void store_double(double a, unsigned char * p)
-{
-  union basic_double d;
-  int i;
-  d.d = a;
-  STORE_UNSIGNED(d.i.a, p);
-  STORE_UNSIGNED(d.i.b, p);
-}
-
-static inline double get_double(const unsigned char * p)
-{
-  union basic_double d;
-  int i;
-  GET_UNSIGNED(d.i.a, p);
-  GET_UNSIGNED(d.i.b, p);
-  return d.d;
-}
-
-#endif /* HAVE_IEEE754_H */
-
-#endif /* _DOUBLE_H */

data/split/Dvector/symbols.h

@@ -1,52 +0,0 @@
-#ifndef _SYMBOLS_H
-#define _SYMBOLS_H
-
-#include <ruby.h>
-/* A small layer for exporting and importing symbols from
-   a compiled module */
-
-#include <namespace.h>
-
-
-PRIVATE void rb_export_symbol(VALUE module, const char * symbol_name,
-		      void * symbol);
-PRIVATE void * rb_import_symbol(VALUE module, const char * symbol_name);
-PRIVATE void * rb_import_symbol_no_raise(VALUE module, 
-						const char * symbol_name);
-
-/* a shortcut for exporting something with the same name */
-#define RB_EXPORT_SYMBOL(module, name) \
-  rb_export_symbol(module, #name, name)
-
-/* A shortcut for getting a symbol */
-		   
-#define DECLARE_SYMBOL(ret_type,name,args) \
-  typedef ret_type (*rb_export_##name##_type) args;\
-  INTERN INTERN_EXTERN rb_export_##name##_type name
-
-#define IMPLEMENT_SYMBOL(name)\
-  INTERN rb_export_##name##_type name = 0;
-
-#define RB_IMPORT_SYMBOL(module, name) \
-  name = (rb_export_##name##_type) rb_import_symbol(module, #name)
-
-
-/* These three macro enable a simple use of function declaration: this way,
-   you can type in a header file that is used by the importer:
-
-   DECLARE_SYMBOL(int, biniou, (int, int));
-
-   in one file of the importer code, you write 
-
-   IMPLEMENT_SYMBOL(biniou);
-
-   and in the Init_... function, you write:
-
-   RB_IMPORT_SYMBOL(module, biniou);
-
-   and you can just use biniou as if it was a function declared as
-   usual in the header file
-*/
-#endif   
-   
-

data/split/Flate/defs.h

@@ -1,39 +0,0 @@
-/**********************************************************************
-
-   defs.h: 
-   some definitions that are used everywhere and that depend on some
-   HAVE_* macros.
-   
-   Copyright (C) 2006  Vincent Fourmond
-
-   This program is free software; you can redistribute it and/or modify
-   it under the terms of the GNU General Library Public License as published
-   by the Free Software Foundation; either version 2 of the License, or
-   (at your option) any later version.
-   
-   This program 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 Library General Public License for more details.
-   
-   You should have received a copy of the GNU Library 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
-   
-**********************************************************************/
-
-
-#ifdef HAVE_ISNAN
-/* we use isnan and isinf, which are much faster than the workaround */
-#define is_okay_number(x) (! isnan(x) && ! isinf(x))
-#else
-#define is_okay_number(x) ((x) - (x) == 0.0)
-#define isnan(x) ((x) != (x))
-/* yes, as funny as it may look  NaN != NaN, and that's the only one */
-#endif
-
-/* Fix old versions of ruby.h */
-#ifndef RSTRING_PTR
-# define RSTRING_PTR(x) (RSTRING(x)->ptr)
-# define RSTRING_LEN(x) (RSTRING(x)->len)
-#endif

data/split/Flate/extconf.rb

@@ -1,19 +0,0 @@
-# Flate installation file
-require 'mkmf'
-
-unless have_header("zlib.h") and have_library("z", "compress", "zlib.h")
-  puts <<"EON"
-Error: you should have zlib (including development files) installed to
-build and run Tioga. You can get it there:
-
-  http://www.zlib.net/
-
-If that doesn't solve your problem, please report it on the Tioga tracker:
- 
-  http://rubyforge.org/tracker/?group_id=701
-
-EON
-  exit 1 
-end
-
-create_makefile 'Flate'

data/split/Flate/namespace.h

@@ -1,59 +0,0 @@
-/* namespace.h: an attempt at rationalizing shared objects
-   namespace use.
-  
-   Copyright (C) 2006  Vincent Fourmond
-
-   This program is free software; you can redistribute it and/or modify
-   it under the terms of the GNU General Library Public License as published
-   by the Free Software Foundation; either version 2 of the License, or
-   (at your option) any later version.
-   
-   This program 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 Library General Public License for more details.
-   
-   You should have received a copy of the GNU Library 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
-*/
-
-#ifndef _NAMESPACE_H
-#define _NAMESPACE_H
-
-/* This header file provides three OS-specific macros for the definition of
-   extern (or NOT extern) symbols:
-
-   * PUBLIC, which has to be used to mark objects that will be used
-     outside the module
-
-   * INTERN, for symbols which are shared among compilation units within a
-     module, but are NOT exported to other modules.
-
-   * PRIVATE, for symbols which are visible only within the containing
-     compilation unit (i.e. C source file) and, of course, are not exported to
-     other modules.
-
-   Please don't add "extern" after the PRIVATE or PUBLIC declaration
-   as this would break compilation on Darwin.
-*/
-
-#if __GNUC__ >= 4 /* we have the visibility attribute */
-# define INTERN __attribute__ ((visibility ("hidden")))
-# define PUBLIC __attribute__ ((visibility ("default"))) 
-# define INTERN_EXTERN extern
-#elif defined __APPLE__
-# define INTERN __private_extern__
-# define PUBLIC 
-# define INTERN_EXTERN
-#else /* not really good */
-# define INTERN
-# define PUBLIC 
-# define INTERN_EXTERN
-#endif /* __APPLE__  and __GNU_C_ >= 4*/
-
-/* In any case, PRIVATE is static */
-
-#define PRIVATE static
-
-#endif

data/split/Flate/safe_double.h

@@ -1,104 +0,0 @@
-/**********************************************************************
-
-   safe_double.h: small abstraction for storing double without endianess
-   problems
-   
-   Copyright (C) 2006 Vincent Fourmond
-
-   This program is free software; you can redistribute it and/or modify
-   it under the terms of the GNU General Library Public License as published
-   by the Free Software Foundation; either version 2 of the License, or
-   (at your option) any later version.
-   
-   This program 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 Library General Public License for more details.
-   
-   You should have received a copy of the GNU Library General Public License
-   along with this program; if not, write to the Free Software
-   Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA  02110-1301 USA
-   
-**********************************************************************/
-
-/* This file provides two functions: store_double and get_double, which
-   can be used in a 'safe' way to store doubles  and retrive them
-   in a hopefully platform-independent form. However, it just 
-   stores it without regards to that if ieee754.h isn't found...
-*/
-
-#ifndef _DOUBLE_H
-#define _DOUBLE_H
-
-#define STORE_LOWER_BYTE(a,p) do {\
-*(p++) = (a) & 0xFF; (a) >>= 8; }\
-while(0)
-#define STORE_UNSIGNED(a,p)   for(i = 0; i < 4; i++) STORE_LOWER_BYTE(a,p);
-#define GET_UNSIGNED(a,p) do { a = 0; for(i = 0; i < 4; i++) \
-(a) |= *(p++) << (i * 8); } while (0)
-
-#ifdef HAVE_IEEE754_H
-#include <ieee754.h>
-
-
-static inline void store_double(double a, unsigned char * p)
-{
-  unsigned int tmp;
-  int i;
-  union ieee754_double d;
-  d.d = a;
-  /* we store it with lower bytes firts */
-  tmp = d.ieee.mantissa1;
-  STORE_UNSIGNED(tmp, p);
-  tmp = d.ieee.negative << 31 |
-    d.ieee.exponent << 20 | 
-    d.ieee.mantissa0;
-  STORE_UNSIGNED(tmp, p);
-}
-
-
-static inline double get_double(const unsigned char * p)
-{
-  unsigned int tmp;
-  int i;
-  union ieee754_double d;
-  GET_UNSIGNED(tmp, p);
-  d.ieee.mantissa1 = tmp;
-  GET_UNSIGNED(tmp, p);
-  d.ieee.mantissa0 = tmp & 0xFFFFF;
-  d.ieee.exponent = (tmp >> 20) & 0x7FF;
-  d.ieee.negative = (tmp >> 31) & 0x1;
-  return d.d;
-}
-
-#else
-
-union basic_double{
-  double d;
-  struct {
-    unsigned int a:32;
-    unsigned int b:32;
-  } i;
-};
-
-static inline void store_double(double a, unsigned char * p)
-{
-  union basic_double d;
-  int i;
-  d.d = a;
-  STORE_UNSIGNED(d.i.a, p);
-  STORE_UNSIGNED(d.i.b, p);
-}
-
-static inline double get_double(const unsigned char * p)
-{
-  union basic_double d;
-  int i;
-  GET_UNSIGNED(d.i.a, p);
-  GET_UNSIGNED(d.i.b, p);
-  return d.d;
-}
-
-#endif /* HAVE_IEEE754_H */
-
-#endif /* _DOUBLE_H */

data/split/Flate/symbols.h

@@ -1,52 +0,0 @@
-#ifndef _SYMBOLS_H
-#define _SYMBOLS_H
-
-#include <ruby.h>
-/* A small layer for exporting and importing symbols from
-   a compiled module */
-
-#include <namespace.h>
-
-
-PRIVATE void rb_export_symbol(VALUE module, const char * symbol_name,
-		      void * symbol);
-PRIVATE void * rb_import_symbol(VALUE module, const char * symbol_name);
-PRIVATE void * rb_import_symbol_no_raise(VALUE module, 
-						const char * symbol_name);
-
-/* a shortcut for exporting something with the same name */
-#define RB_EXPORT_SYMBOL(module, name) \
-  rb_export_symbol(module, #name, name)
-
-/* A shortcut for getting a symbol */
-		   
-#define DECLARE_SYMBOL(ret_type,name,args) \
-  typedef ret_type (*rb_export_##name##_type) args;\
-  INTERN INTERN_EXTERN rb_export_##name##_type name
-
-#define IMPLEMENT_SYMBOL(name)\
-  INTERN rb_export_##name##_type name = 0;
-
-#define RB_IMPORT_SYMBOL(module, name) \
-  name = (rb_export_##name##_type) rb_import_symbol(module, #name)
-
-
-/* These three macro enable a simple use of function declaration: this way,
-   you can type in a header file that is used by the importer:
-
-   DECLARE_SYMBOL(int, biniou, (int, int));
-
-   in one file of the importer code, you write 
-
-   IMPLEMENT_SYMBOL(biniou);
-
-   and in the Init_... function, you write:
-
-   RB_IMPORT_SYMBOL(module, biniou);
-
-   and you can just use biniou as if it was a function declared as
-   usual in the header file
-*/
-#endif   
-   
-

data/split/Function/defs.h

@@ -1,39 +0,0 @@
-/**********************************************************************
-
-   defs.h: 
-   some definitions that are used everywhere and that depend on some
-   HAVE_* macros.
-   
-   Copyright (C) 2006  Vincent Fourmond
-
-   This program is free software; you can redistribute it and/or modify
-   it under the terms of the GNU General Library Public License as published
-   by the Free Software Foundation; either version 2 of the License, or
-   (at your option) any later version.
-   
-   This program 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 Library General Public License for more details.
-   
-   You should have received a copy of the GNU Library 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
-   
-**********************************************************************/
-
-
-#ifdef HAVE_ISNAN
-/* we use isnan and isinf, which are much faster than the workaround */
-#define is_okay_number(x) (! isnan(x) && ! isinf(x))
-#else
-#define is_okay_number(x) ((x) - (x) == 0.0)
-#define isnan(x) ((x) != (x))
-/* yes, as funny as it may look  NaN != NaN, and that's the only one */
-#endif
-
-/* Fix old versions of ruby.h */
-#ifndef RSTRING_PTR
-# define RSTRING_PTR(x) (RSTRING(x)->ptr)
-# define RSTRING_LEN(x) (RSTRING(x)->len)
-#endif