sweph4ruby 0.0.1

data/MIT-LICENSE

@@ -0,0 +1,20 @@
+Copyright (c) 2005 Pedro Moreira Santos
+
+Permission is hereby granted, free of charge, to any person obtaining
+a copy of this software and associated documentation files (the
+"Software"), to deal in the Software without restriction, including
+without limitation the rights to use, copy, modify, merge, publish,
+distribute, sublicense, and/or sell copies of the Software, and to
+permit persons to whom the Software is furnished to do so, subject to
+the following conditions:
+
+The above copyright notice and this permission notice shall be
+included in all copies or substantial portions of the Software.
+
+THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
+EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
+MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
+NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE
+LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION
+OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION
+WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.

data/README

@@ -0,0 +1,8 @@
+Author::    Pedro Moreira Santos  (mailto:pedro.santos@bizarrologia.com)
+Copyright:: Copyright (c) 2005 Pedro Moreira Santos
+License::   MIT
+
+
+sweph4ruby provides a ruby interface for the SWISS EPHEMERIS [http://www.astro.com/swisseph/] a library for the computation of planetary positions implemented in C.
+
+Swiss Ephemeris is a compression of the JPL-Ephemeris DE406 that can be found here [http://www.jpl.nasa.gov], more information about SWISS EPHEMERIS can be found in the user manual [http://www.astro.com/swisseph/swisseph.htm?lang=f].

data/ext/extconf.rb

@@ -0,0 +1,12 @@
+require 'mkmf'
+require 'rbconfig'
+include Config
+
+if (CONFIG["host_os"] == "mswin32" )
+	$LOCAL_LIBS += "swelib32.lib"
+else
+	$LOCAL_LIBS += "libswe.a"
+end
+
+dir_config("sweph4ruby")
+create_makefile("sweph4ruby")

data/ext/sweodef.h

@@ -0,0 +1,318 @@
+/************************************************************
+   $Header: sweodef.h,v 1.65 2003/06/14 13:02:34 alois Exp $
+   definitions and constants for all Swiss Ephemeris source files,
+   only required for compiling the libraries, not for the external
+   interface of the libraries.
+
+   The definitions are a subset of Astrodienst's ourdef.h content
+   and must be kept compatible. Everything not used in SwissEph
+   has been deleted.
+
+   Does auto-dectection of MSDOS (TURBO_C or MS_C) or HPUNIX.
+   Must be extended for more portability; there should be a way
+   to detect byte order and file system type.
+   
+************************************************************/
+
+/* Copyright (C) 1997, 1998 Astrodienst AG, Switzerland.  All rights reserved.
+  
+  This file is part of Swiss Ephemeris Free Edition.
+  
+  Swiss Ephemeris is distributed with NO WARRANTY OF ANY KIND.  No author
+  or distributor accepts any responsibility for the consequences of using it,
+  or for whether it serves any particular purpose or works at all, unless he
+  or she says so in writing.  Refer to the Swiss Ephemeris Public License
+  ("SEPL" or the "License") for full details.
+  
+  Every copy of Swiss Ephemeris must include a copy of the License,
+  normally in a plain ASCII text file named LICENSE.  The License grants you
+  the right to copy, modify and redistribute Swiss Ephemeris, but only
+  under certain conditions described in the License.  Among other things, the
+  License requires that the copyright notices and this notice be preserved on
+  all copies.
+
+  For uses of the Swiss Ephemeris which do not fall under the definitions
+  laid down in the Public License, the Swiss Ephemeris Professional Edition
+  must be purchased by the developer before he/she distributes any of his
+  software or makes available any product or service built upon the use of
+  the Swiss Ephemeris.
+
+  Authors of the Swiss Ephemeris: Dieter Koch and Alois Treindl
+
+  The authors of Swiss Ephemeris have no control or influence over any of
+  the derived works, i.e. over software or services created by other
+  programmers which use Swiss Ephemeris functions.
+
+  The names of the authors or of the copyright holder (Astrodienst) must not
+  be used for promoting any software, product or service which uses or contains
+  the Swiss Ephemeris. This copyright notice is the ONLY place where the
+  names of the authors can legally appear, except in cases where they have
+  given special permission in writing.
+
+  The trademarks 'Swiss Ephemeris' and 'Swiss Ephemeris inside' may be used
+  for promoting such software, products or services.
+*/
+#ifndef _OURDEF_INCLUDED	/* ourdef.h is a superset of sweodef.h */
+#ifndef _SWEODEF_INCLUDED /* allow multiple #includes */
+#define _SWEODEF_INCLUDED
+ 
+# define MY_TRUE 1	/* for use in other defines, before TRUE is defined */
+# define MY_FALSE 0	/* for use in other defines, before TRUE is defined */
+
+
+#ifdef _WIN32		/* Microsoft VC 5.0 does not define MSDOS anymore */
+# undef MSDOS
+# define MSDOS MY_TRUE
+#include <wtypes.h>
+#include <objbase.h>
+#include <wincon.h>
+#include <winbase.h>
+#include <io.h>
+#include <windows.h>
+# define sleep(x)	Sleep((x) * 1000)
+#endif
+
+#ifdef _MSC_VER
+# define MS_VC
+#endif
+
+#ifdef WIN32		/* Microsoft VC 5.0 does not define MSDOS anymore */
+# define MSDOS MY_TRUE
+#endif
+
+#ifdef MSDOS	/* already defined by some DOS compilers */
+# undef MSDOS
+# define MSDOS MY_TRUE
+#endif
+
+#ifdef __TURBOC__	/* defined by  turboc */
+# ifndef MSDOS
+#   define MSDOS MY_TRUE
+# endif
+# define TURBO_C
+#endif
+
+#ifdef __SC__	/* defined by  Symantec C */
+# ifndef MSDOS
+#   define MSDOS MY_TRUE
+# endif
+# define SYMANTEC_C
+#endif
+
+#ifdef __WATCOMC__	/* defined by  WatcomC */
+# ifndef MSDOS
+#   define MSDOS MY_TRUE
+# endif
+# define WATCOMC
+#endif
+
+#ifdef __MWERKS__	/* defined on Macintosh CodeWarrior */
+# if macintosh && powerc
+#  define MACOS MY_TRUE		/* let it undefined otherwise */
+#  define MSDOS MY_FALSE	/* in case one above fired falsely */
+# endif
+#endif
+
+#if MSDOS
+#  define HPUNIX MY_FALSE
+#  define INTEL_BYTE_ORDER 1
+#  ifndef TURBO_C
+#    define MS_C	/* assume Microsoft C compiler */
+#  endif
+# define MYFAR far
+# define UNIX_FS MY_FALSE
+#else
+# ifdef MACOS
+#  define HPUNIX MY_FALSE
+#  define MYFAR
+#  define UNIX_FS MY_FALSE
+# else
+#  define MSDOS MY_FALSE
+#  define HPUNIX MY_TRUE
+#  ifndef _HPUX_SOURCE
+#    define _HPUX_SOURCE
+#  endif
+#  define MYFAR
+#  define UNIX_FS MY_TRUE
+# endif
+#endif
+
+#include <math.h>
+#include <stdlib.h>
+#ifndef FILE
+# include <stdio.h>
+#endif
+
+#if HPUNIX
+#  include <unistd.h>
+#endif
+
+/*
+ * if we have 16-bit ints, we define INT_16; we will need %ld to printf an int32
+ * if we have 64-bit long, we define LONG_64
+ * If none is defined, we have int = long = 32 bit, and use %d to printf an int32
+ */
+#include <limits.h>
+#if INT_MAX < 40000
+# define INT_16
+#else
+# if LONG_MAX > INT_MAX
+#   define LONG_64
+# endif
+#endif
+
+#ifdef BYTE_ORDER
+#ifdef LITTLE_ENDIAN
+# if BYTE_ORDER == LITTLE_ENDIAN
+#  define INTEL_BYTE_ORDER
+# endif
+#endif
+#endif
+
+#ifdef INT_16
+  typedef long	int32;
+  typedef unsigned long	uint32;
+  typedef int	int16;
+  typedef double  REAL8;  /* real with at least 64 bit precision */
+  typedef long    INT4;   /* signed integer with at least 32 bit precision */
+  typedef unsigned long UINT4;
+                          /* unsigned integer with at least 32 bit precision */
+  typedef int     AS_BOOL;
+  typedef unsigned int UINT2;	/* unsigned 16 bits */
+# define ABS4	labs		/* abs function for long */ 
+#else
+  typedef int	int32;
+  typedef unsigned int	uint32;
+  typedef short	int16;
+  typedef double  REAL8;  /* real with at least 64 bit precision */
+  typedef int     INT4;   /* signed integer with at least 32 bit precision */
+  typedef unsigned int UINT4; 
+			/* unsigned integer with at least 32 bit precision */
+  typedef int     AS_BOOL;
+  typedef unsigned short UINT2;	/* unsigned 16 bits */
+  # define ABS4	abs		/* abs function for long */
+#endif
+
+#if MSDOS 
+# ifdef TURBO_C
+#   include <alloc.h>		/* MSC needs malloc ! */
+# else
+#   include <malloc.h>
+# endif
+# define SIGALRM SIGINT
+#endif
+
+#ifndef TRUE 
+#  define TRUE 1
+#  define FALSE 0
+#endif
+
+#ifndef OK 
+#  define OK (0)
+#  define ERR (-1)
+#endif
+
+/* hack because UCHAR is already used by mingw gcc */
+#ifdef __GNUC__
+#ifdef _WIN32
+#define UCHAR SWE_UCHAR
+#endif
+#endif
+
+typedef unsigned char UCHAR;
+#define UCP	(UCHAR*)
+#define SCP	(char*)
+
+# define CHARSET_ISO_LATIN_1 TRUE	/* used by ctype256 */
+
+#ifdef DOS_DEGREE		/* use compiler switch to get DOS character! */
+# define ODEGREE_CHAR	248	/* DOS degree character */
+#else
+# ifdef MACOS
+#  define ODEGREE_CHAR	161	/* Macintosh degree character */
+# else
+#  define ODEGREE_CHAR	176	/* Latin1 degree character */
+# endif
+#endif
+ 
+
+
+#ifndef HUGE
+#  define HUGE 1.7E+308     /* biggest value for REAL8 */
+#endif
+#ifndef M_PI
+#  define M_PI 3.14159265358979323846
+#endif
+ 
+#define forward static
+
+#define AS_MAXCH 256    /* used for string declarations, allowing 255 char+\0 */
+ 
+#define DEGTORAD 0.0174532925199433
+#define RADTODEG 57.2957795130823
+ 
+typedef int32    centisec;       /* centiseconds used for angles and times */
+#define CS	(centisec)	/* use for casting */
+#define CSEC	centisec	/* use for typing */
+
+#define DEG     360000  /* degree expressed in centiseconds */
+#define DEG7_30 (2700000)	/* 7.5 degrees */
+#define DEG15   (15 * DEG)
+#define DEG24   (24 * DEG)
+#define DEG30   (30 * DEG)
+#define DEG60   (60 * DEG)
+#define DEG90   (90 * DEG)
+#define DEG120  (120 * DEG)
+#define DEG150  (150 * DEG)
+#define DEG180  (180 * DEG)
+#define DEG270  (270 * DEG)
+#define DEG360  (360 * DEG)
+ 
+#define CSTORAD  4.84813681109536E-08 /* centisec to rad: pi / 180 /3600/100 */
+#define RADTOCS  2.06264806247096E+07 /* rad to centisec 180*3600*100/pi */
+ 
+#define CS2DEG	(1.0/360000.0)	/* centisec to degree */
+
+/* control strings for fopen()	*/
+#if UNIX_FS
+#  define BFILE_R_ACCESS "r"	/* open binary file for reading */
+#  define BFILE_RW_ACCESS "r+"	/* open binary file for writing and reading */
+#  define BFILE_W_CREATE "w"	/* create/open binary file for write*/
+#  define BFILE_A_ACCESS "a+"	/* create/open binary file for append*/
+#  define FILE_R_ACCESS "r"	/* open text file for reading */
+#  define FILE_RW_ACCESS "r+"	/* open text file for writing and reading */
+#  define FILE_W_CREATE "w"	/* create/open text file for write*/
+#  define FILE_A_ACCESS "a+"	/* create/open text file for append*/
+#  define O_BINARY 0		/* for open(), not defined in Unix */
+#  define OPEN_MODE 0666	/* default file creation mode */
+#  define DIR_GLUE "/"		/* glue string for directory/file */
+#  define PATH_SEPARATOR ";:"	/* semicolon or colon may be used */
+#else
+#  define BFILE_R_ACCESS "rb"	/* open binary file for reading */
+#  define BFILE_RW_ACCESS "r+b"	/* open binary file for writing and reading */
+#  define BFILE_W_CREATE "wb"	/* create/open binary file for write*/
+#  define BFILE_A_ACCESS "a+b"	/* create/open binary file for append*/
+#  define PATH_SEPARATOR ";"	/* semicolon as PATH separator */
+#  define OPEN_MODE 0666	/* default file creation mode */
+# ifdef MACOS
+#  define FILE_R_ACCESS "r"	/* open text file for reading */
+#  define FILE_RW_ACCESS "r+"	/* open text file for writing and reading */
+#  define FILE_W_CREATE "w"	/* create/open text file for write*/
+#  define FILE_A_ACCESS "a+"	/* create/open text file for append*/
+#  define DIR_GLUE ":"		/* glue string for directory/file */
+# else
+#  define FILE_R_ACCESS "rt"	/* open text file for reading */
+#  define FILE_RW_ACCESS "r+t"	/* open text file for writing and reading */
+#  define FILE_W_CREATE "wt"	/* create/open text file for write*/
+#  define FILE_A_ACCESS "a+t"	/* create/open text file for append*/
+/* attention, all backslashes for msdos directry names must be written as \\,
+   because it is the C escape character */
+#  define DIR_GLUE "\\"		/* glue string for directory/file */
+# endif
+#endif
+
+#include <string.h>
+#include <ctype.h>
+
+#endif /* _SWEODEF_INCLUDED */
+#endif /* _OURDEF_INCLUDED */

data/ext/sweph4ruby.c

@@ -0,0 +1,101 @@
+#include "ruby.h"
+#include "swephexp.h"
+
+static VALUE t_init(VALUE self)
+{
+	return self;
+}
+
+static VALUE t_swe_set_ephe_path(VALUE self, VALUE path)
+{
+	swe_set_ephe_path(StringValuePtr(path));
+	return self;
+}
+
+static VALUE t_swe_julday(VALUE self, VALUE year, VALUE month, VALUE day, VALUE hour)
+{
+	VALUE julday = swe_julday( NUM2INT(year), NUM2INT(month), NUM2INT(day), NUM2DBL(hour), SE_GREG_CAL );
+	return rb_float_new(julday);
+}
+
+static VALUE t_swe_calc(VALUE self, VALUE julian_day, VALUE body)
+{
+	double results[6];
+	char serr[AS_MAXCH];
+	VALUE arr = rb_ary_new();
+	int id_push = rb_intern("push");
+	int i =0;
+	
+	if ( swe_calc(NUM2DBL(julian_day), NUM2INT(body), SEFLG_SPEED, results,  serr) < 0 )
+		rb_raise (rb_eRuntimeError, serr);
+	
+	for ( i = 0; i < 6; i++)
+		rb_funcall(arr, id_push, 1, rb_float_new(results[i]));
+	
+	return arr;
+}
+
+static VALUE t_swe_houses(VALUE self, VALUE julian_day, VALUE latitude, VALUE longitude, VALUE house_system)
+{
+	double cusps[13];
+	double ascmc[10];
+	char serr[AS_MAXCH];
+	VALUE arr = rb_ary_new();
+	int id_push = rb_intern("push");
+	int i =0;
+	
+	if ( swe_houses(NUM2DBL(julian_day), NUM2DBL(latitude), NUM2DBL(longitude), NUM2CHR(house_system), cusps, ascmc) < 0 )
+		rb_raise (rb_eRuntimeError, serr);
+	
+	for ( i = 0; i < 13; i++)
+		rb_funcall(arr, id_push, 1, rb_float_new(cusps[i]));
+	
+	for ( i = 0; i < 10; i++)
+		rb_funcall(arr, id_push, 1, rb_float_new(ascmc[i]));
+	
+	return arr;
+}
+
+static VALUE t_swe_get_planet_name(VALUE self, VALUE body_number)
+{
+	char snam[40];
+	
+	swe_get_planet_name(NUM2INT(body_number), snam);
+	return rb_str_new2(snam);
+}
+
+static VALUE t_swe_house_pos(VALUE self, VALUE armc, VALUE geolat, VALUE eps, VALUE house_system, VALUE lon, VALUE lat)
+{
+	double xpin[2];
+	char serr[AS_MAXCH];
+	VALUE house;
+	
+	xpin[0] = NUM2DBL(lon);
+	xpin[1] = NUM2DBL(lat);
+	
+	house = swe_house_pos(NUM2DBL(armc), NUM2DBL(geolat),  NUM2DBL(eps), NUM2CHR(house_system),   xpin, serr); 
+	return rb_float_new(house);
+}
+
+static VALUE t_swe_deltat(VALUE self, VALUE tjd)
+{
+	VALUE ret;
+	
+	ret = swe_deltat(NUM2DBL(tjd));
+	return rb_float_new(ret);
+}
+
+VALUE cSweph;
+
+void Init_sweph4ruby()
+{
+	cSweph = rb_define_class("Sweph", rb_cObject);
+	rb_define_method(cSweph, "initialize", t_init, 0);
+	rb_define_method(cSweph, "swe_set_ephe_path", t_swe_set_ephe_path, 1);
+	rb_define_method(cSweph, "swe_julday", t_swe_julday, 4);
+	rb_define_method(cSweph, "swe_calc", t_swe_calc, 2);
+	rb_define_method(cSweph, "swe_houses", t_swe_houses, 4);
+	rb_define_method(cSweph, "swe_get_planet_name", t_swe_get_planet_name, 1);
+	rb_define_method(cSweph, "swe_house_pos", t_swe_house_pos, 6);
+	rb_define_method(cSweph, "swe_deltat", t_swe_deltat, 1);
+}