tioga 1.11 → 1.13

data/split/Function/dvector.h

@@ -1,77 +0,0 @@
-/* Dvector.h */
-/*
-   Copyright (C) 2005  Bill Paxton
-
-   Dvector 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.
-
-   Dvector 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 Dvector; if not, write to the Free Software
-   Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
-*/
-
-#ifndef __Dvector_H__
-#define __Dvector_H__
-
-/* this file has been heavily modified by Vincent Fourmond to take care
-   of the 'RCR330' scheme of exporting symbols 
-*/
-
-#include <symbols.h>
-#include <stdbool.h>
-
-/*======================================================================*/
-
-/* functions for handling Dvectors: */
-
-DECLARE_SYMBOL(bool, isa_Dvector, (VALUE obj));
- /* returns true if the obj is a Dvector */
-DECLARE_SYMBOL(long, len_Dvector, (VALUE dvector));
- /* returns length of the dvector */
-DECLARE_SYMBOL(double, access_Dvector, (VALUE dvector, long idx));
- /* returns the value of entry idx in dvector */
-
-DECLARE_SYMBOL(double *, Dvector_Data_for_Read, (VALUE dvector, long *len_ptr));
- /* returns pointer to the dvector's data (which may be shared) */
-DECLARE_SYMBOL(double *, Dvector_Data_Copy, (VALUE dvector, long *len_ptr)); 
-/* like Dvector_Data_for_Read, but returns pointer to a copy of the data */
-DECLARE_SYMBOL(double *, Dvector_Data_for_Write, 
-		(VALUE dvector, long *len_ptr));
-DECLARE_SYMBOL(double *, Dvector_Data_Resize, (VALUE dvector, long new_len));
-DECLARE_SYMBOL(double *, Dvector_Data_Replace,
-	       (VALUE dvector, long len, double *data)); 
-/* copies the data into the dvector */
-DECLARE_SYMBOL(VALUE, Dvector_Create, (void));
-DECLARE_SYMBOL(void, Dvector_Store_Double, (VALUE ary, long idx, double val));
-/* pushes one element onto the vector */
-DECLARE_SYMBOL(void, Dvector_Push_Double, (VALUE ary, double val));
-
-
-/* functions for interpolation */
-DECLARE_SYMBOL(void, c_dvector_create_spline_interpolant,
-	       (int n_pts_data, double *Xs, double *Ys,
-		bool start_clamped, double start_slope, 
-		bool end_clamped, double end_slope,
-		double *As, double *Bs, double *Cs));
-DECLARE_SYMBOL(double, c_dvector_spline_interpolate,
-	       (double x, int n_pts_data, double *Xs, double *Ys, 
-		double *Bs, double *Cs, double *Ds));
-
-DECLARE_SYMBOL(void, c_dvector_create_pm_cubic_interpolant,
-	       (int n_pts_data, double *Xs, double *Ys,
-		double *As, double *Bs, double *Cs));
-DECLARE_SYMBOL(double, c_dvector_pm_cubic_interpolate,
-	       (double x, int n_pts_data, double *Xs, double *Ys, 
-		double *Bs, double *Cs, double *Ds));
-
-DECLARE_SYMBOL(double, c_dvector_linear_interpolate,
-	       (int num_pts, double *xs, double *ys, double x));
-#endif   /* __Dvector_H__ */
-

data/split/Function/extconf.rb

@@ -1,4 +0,0 @@
-# Function installation file
-require 'mkmf'
-
-create_makefile 'Dobjects/Function'

data/split/Function/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/Function/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/Function/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/Tioga/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/Tioga/dtable.h

@@ -1,35 +0,0 @@
-/* dtable.h */
-/*
-   Copyright (C) 2004  Bill Paxton
-
-   This file is part of Dtable.
-
-   Dtable 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.
-
-   Dtable 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 Dtable; if not, write to the Free Software
-   Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
-*/
-
-#ifndef __dtable_H__
-#define __dtable_H__
-
-#include <symbols.h>
-
-/*======================================================================*/
-
-
-DECLARE_SYMBOL(VALUE, Read_Dtable, 
-	       (VALUE dest, char *filename, int skip_lines));
-DECLARE_SYMBOL(double **, Dtable_Ptr, 
-	       (VALUE dtable, long *num_cols, long *num_rows));
-
-#endif

data/split/Tioga/dvector.h

@@ -1,77 +0,0 @@
-/* Dvector.h */
-/*
-   Copyright (C) 2005  Bill Paxton
-
-   Dvector 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.
-
-   Dvector 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 Dvector; if not, write to the Free Software
-   Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
-*/
-
-#ifndef __Dvector_H__
-#define __Dvector_H__
-
-/* this file has been heavily modified by Vincent Fourmond to take care
-   of the 'RCR330' scheme of exporting symbols 
-*/
-
-#include <symbols.h>
-#include <stdbool.h>
-
-/*======================================================================*/
-
-/* functions for handling Dvectors: */
-
-DECLARE_SYMBOL(bool, isa_Dvector, (VALUE obj));
- /* returns true if the obj is a Dvector */
-DECLARE_SYMBOL(long, len_Dvector, (VALUE dvector));
- /* returns length of the dvector */
-DECLARE_SYMBOL(double, access_Dvector, (VALUE dvector, long idx));
- /* returns the value of entry idx in dvector */
-
-DECLARE_SYMBOL(double *, Dvector_Data_for_Read, (VALUE dvector, long *len_ptr));
- /* returns pointer to the dvector's data (which may be shared) */
-DECLARE_SYMBOL(double *, Dvector_Data_Copy, (VALUE dvector, long *len_ptr)); 
-/* like Dvector_Data_for_Read, but returns pointer to a copy of the data */
-DECLARE_SYMBOL(double *, Dvector_Data_for_Write, 
-		(VALUE dvector, long *len_ptr));
-DECLARE_SYMBOL(double *, Dvector_Data_Resize, (VALUE dvector, long new_len));
-DECLARE_SYMBOL(double *, Dvector_Data_Replace,
-	       (VALUE dvector, long len, double *data)); 
-/* copies the data into the dvector */
-DECLARE_SYMBOL(VALUE, Dvector_Create, (void));
-DECLARE_SYMBOL(void, Dvector_Store_Double, (VALUE ary, long idx, double val));
-/* pushes one element onto the vector */
-DECLARE_SYMBOL(void, Dvector_Push_Double, (VALUE ary, double val));
-
-
-/* functions for interpolation */
-DECLARE_SYMBOL(void, c_dvector_create_spline_interpolant,
-	       (int n_pts_data, double *Xs, double *Ys,
-		bool start_clamped, double start_slope, 
-		bool end_clamped, double end_slope,
-		double *As, double *Bs, double *Cs));
-DECLARE_SYMBOL(double, c_dvector_spline_interpolate,
-	       (double x, int n_pts_data, double *Xs, double *Ys, 
-		double *Bs, double *Cs, double *Ds));
-
-DECLARE_SYMBOL(void, c_dvector_create_pm_cubic_interpolant,
-	       (int n_pts_data, double *Xs, double *Ys,
-		double *As, double *Bs, double *Cs));
-DECLARE_SYMBOL(double, c_dvector_pm_cubic_interpolate,
-	       (double x, int n_pts_data, double *Xs, double *Ys, 
-		double *Bs, double *Cs, double *Ds));
-
-DECLARE_SYMBOL(double, c_dvector_linear_interpolate,
-	       (int num_pts, double *xs, double *ys, double x));
-#endif   /* __Dvector_H__ */
-