tioga 1.11 → 1.13

data/split/Tioga/extconf.rb

@@ -1,4 +0,0 @@
-# Dtable installation file
-require 'mkmf'
-
-create_makefile 'Tioga/FigureMaker'

data/split/Tioga/flate.h

@@ -1,98 +0,0 @@
-/* flate.h -- c interface for the Ruby Flate extension
-*/
-
-/*
-   Copyright (C) 2005  Bill Paxton
-
-   Flate 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.
-
-   Flate 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 Flate; if not, write to the Free Software
-   Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
-*/
-
-
-/* This file has been heavily modified by Vincent Fourmond for the 'RCR330'
-   symbol export scheme 
-*/
-#ifndef __flate_H__
-#define __flate_H__
-
-#include <symbols.h>
-
-DECLARE_SYMBOL(int, flate_compress, 
-	       (unsigned char *new_ptr, unsigned long *new_len_ptr, 
-		unsigned char *ptr, long len));
-// source is given by ptr and is len bytes in length.
-// new_ptr is destination buffer of size *new_len_ptr.  
-// NOTE: the destination buffer for flate_compress should be LARGER than the source buffer to be safe.
-// The minimal extra is 0.1% larger than the source plus 12 bytes.
-// My rule is to use (len * 11)/10 + 100 just to be sure.
-DECLARE_SYMBOL(int, flate_expand,
-	       (unsigned char **new_ptr_ptr, unsigned long *new_len_ptr, 
-		unsigned char *ptr, long len));
-// source is given by ptr and is len bytes in length.
-// *new_ptr_ptr is destination buffer of size *new_len_ptr.  
-// NOTE: the destination buffer for flate_expand will be reallocated if it isn't large enough.
-// So you MUST allocate a buffer rather than using a static one.
-// And you MUST be prepared for the buffer to change location and size.
-
-// Here are the return codes for the compression/expansion functions. Negative
-// values are errors, positive values are used for special but normal events.
-
-#define FLATE_OK              0
-#define FLATE_STREAM_END      1
-#define FLATE_NEED_DICT       2
-#define FLATE_ERRNO         (-1)
-#define FLATE_STREAM_ERROR  (-2)
-#define FLATE_DATA_ERROR    (-3)
-#define FLATE_MEM_ERROR     (-4)
-#define FLATE_BUF_ERROR     (-5)
-#define FLATE_VERSION_ERROR (-6)
-
-// If this simple interface isn't enough for your needs, the next stop is zlib.h
-// for the full interface.
-
-// The internals of this package come from the 'zlib' compression library which
-// carries the following copyright:
-
-/* 'zlib' general purpose compression library
-  version 1.2.2, October 3rd, 2004
-
-  Copyright (C) 1995-2004 Jean-loup Gailly and Mark Adler
-
-  This software is provided 'as-is', without any express or implied
-  warranty.  In no event will the authors be held liable for any damages
-  arising from the use of this software.
-
-  Permission is granted to anyone to use this software for any purpose,
-  including commercial applications, and to alter it and redistribute it
-  freely, subject to the following restrictions:
-
-  1. The origin of this software must not be misrepresented; you must not
-     claim that you wrote the original software. If you use this software
-     in a product, an acknowledgment in the product documentation would be
-     appreciated but is not required.
-  2. Altered source versions must be plainly marked as such, and must not be
-     misrepresented as being the original software.
-  3. This notice may not be removed or altered from any source distribution.
-
-  Jean-loup Gailly        Mark Adler
-  jloup@gzip.org          madler@alumni.caltech.edu
-
-
-  The data format used by the zlib library is described by RFCs (Request for
-  Comments) 1950 to 1952 in the files ftp://ds.internic.net/rfc/rfc1950.txt
-  (zlib format), rfc1951.txt (deflate format) and rfc1952.txt (gzip format).
-*/
-
-
-#endif   /* __flate_H__ */

data/split/Tioga/mk_tioga_sty.rb

@@ -1,53 +0,0 @@
-# This small script makes tioga.sty and lib/TexPreamble.rb from
-# tioga.sty.in
-
-require 'date'
-
-# We make up the color constants from the Tioga file.
-require './lib/ColorConstants.rb'
-
-# Generate colors
-color_specs = "% Color constants, generated from ColorConstants.rb\n"
-for const in Tioga::ColorConstants.constants
-  r,g,b = *Tioga::ColorConstants.const_get(const)
-  color_spec = sprintf "{%0.3f,%0.3f,%0.3f}", r,g,b
-  color_specs += "\\definecolor{#{const}}{rgb}#{color_spec}\n"
-end
-
-# slurp up the lines from tioga.sty.in
-i = File.open("tioga.sty.in")
-lines = i.readlines
-i.close
-
-puts "Generating lib/TexPreamble.rb"
-out = File.open("lib/TexPreamble.rb", "w")
-out.print <<EOCOMMENT
-# This file is automatically generated from Tioga/tioga.sty.in 
-# using the Tioga/mk_tioga_sty.rb script.
-# 
-# Please do not modify this file directly as all changes would
-# be lost !! 
-
-EOCOMMENT
-out.print "module Tioga
-  class FigureMaker
-    TEX_PREAMBLE = <<'End_of_preamble'\n" + 
-"\\makeatletter\n" +  
-lines.join +  
-"\n\\makeatother\nEnd_of_preamble\n" + 
-"    COLOR_PREAMBLE = <<'End_of_preamble'\n" +
-color_specs + "\nEnd_of_preamble\n" + 
-"  end\nend"
-
-out.close
-
-date = Date::today
-str_date = sprintf "%04d/%02d/%02d", date.year, date.month, date.day
-
-
-puts "Generating tioga.sty"
-out = File.open("../../tioga.sty", "w")
-out.puts "\\ProvidesPackage{tioga}[#{str_date}]"
-out.puts lines.join
-out.puts color_specs
-out.close

data/split/Tioga/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/Tioga/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/Tioga/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/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/extconf.rb

@@ -1,125 +0,0 @@
-# main Tioga installation file
-
-require './mkmf2.rb'
-
-$CFLAGS += " -O2 -g -Wall"
-
-# Now, if you want to install the include file, you need to
-# set the EXTCONF_RB_INCLUDE
-if ENV.key?("EXTCONF_RB_INCLUDE")
-  include = ENV["EXTCONF_RB_INCLUDE"]
-else
-  include = nil
-end
-
-# install Dvector include and library files into base dirs,
-# and builds Dvector.so
-setup_dir("Dvector", "Dobjects", 
-          "Dobjects/Dvector", include) do |l,b,i|
-#  b.add_sources("symbols.c")
-end
-# the same for Dtable
-setup_dir("Dtable", "Dobjects", 
-          "Dobjects/Dtable", include) do |l,b,i|
-#  b.add_sources("symbols.c")
-end
-
-
-# setup_dir("Flate", "", "Flate", include) do |l,b,i|
-# #  b.add_sources("symbols.c")
-# end
-
-
-setup_dir("Function", "Dobjects", 
-          "Dobjects/Function", include) do |l,b,i|
-#  b.add_sources("symbols.c")
-end
-
-
-# We declare Tioga by hand, as an automatic generation would not
-# take lib/TexPreamble.rb into accound (missing).
-declare_library("Tioga", 
-                "Tioga/lib/tioga.rb",
-                "Tioga/lib/ColorConstants.rb",
-                "Tioga/lib/FigMkr.rb",
-                "Tioga/lib/FigureConstants.rb",
-                "Tioga/lib/MarkerConstants.rb",
-                "Tioga/lib/maker.rb",
-                "Tioga/lib/irb_tioga.rb",
-                "Tioga/lib/tioga_ui_cmds.rb",
-                "Tioga/lib/tioga_ui.rb",
-                "Tioga/lib/Utils.rb",
-                "Tioga/lib/TexPreamble.rb")
-
-declare_binary_library("Tioga/FigureMaker", 
-                       "Tioga/**/*.c")
-
-# The preamble stuff:
-custom_rule("Tioga/lib/TexPreamble.rb", 
-            [ "cd Tioga; " + Mkmf2.config_var("RUBY_INSTALL_NAME") + 
-              " mk_tioga_sty.rb"],
-            ["Tioga/lib/ColorConstants.rb",
-             "Tioga/tioga.sty.in", "Tioga/mk_tioga_sty.rb"]
-            )
-
-
-# Conditional use of embedded zlib
-if have_header("zlib.h") and have_library("z", "compress", "zlib.h")
-  declare_binary_library('Flate', "Flate/*.c")
-else
-  puts "zlib was not found or could not be linked against, using private copy"
-  declare_binary_library('Flate', "Flate/**/*.c")
-end  
-
-add_include_path("Flate/include")
-
-# # we check the presence of zlib library
-# 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
-
-unless have_header("ieee754.h")
-  puts "You lack the ieee754.h header file, which might mean lower " +
-    "reliability when Marshalling Dvectors and Dtables"
-end
-
-# Looking for the presence of the is_nan (implies the rest -- isfinite)
-have_func("isnan","math.h")
-
-# Installing scripts
-declare_exec 'scripts/tioga'
-declare_exec 'scripts/irb_tioga'
-
-
-if Config::CONFIG["target"] =~ /darwin/i
-  # Installing MacOS specific scripts:
-  # Creating the script
-  puts "MacOS specific installation"
-  custom_rule("repreview", 
-              [ "echo '#!/bin/sh' > repreview",
-                "echo \"osascript '$(EXEC_INSTALL_DIR)/Reload_Preview_Document.scpt'\" '$$*' >> repreview"
-              ]) 
-  declare_exec 'repreview'
-  declare_exec 'scripts/Reload_Preview_Document.scpt'
-else
-  puts "Skipping MacOS-specific files"
-end
-
-# Adding the Tioga directory to search for include files
-add_include_path 'Tioga'
-
-write_makefile
-
-
-