swe4r 0.0.1 → 0.0.2

data/ext/swe4r/swe4r.c

@@ -174,6 +174,40 @@ static VALUE t_swe_calc_ut(VALUE self, VALUE julian_ut, VALUE body, VALUE iflag)
 	return arr;
 }
 
+/*
+ * Compute fixed stars
+ * http://www.astro.com/swisseph/swephprg.htm#_Toc354479413
+	long swe_fixstar_ut(
+		char* star, 	// The traditional name, nomenclature name, or line number of star in fixstars.cat (see modes below for further details)
+		double tjd_ut, 	// Julian day number, Universal Time
+		long iflag, 	// flag bits
+		double* xx, 	// target address for 6 position values: longitude, latitude, distance, long.speed, lat.speed, dist.speed
+		char* serr		// 256 bytes for error string
+	);
+ 
+ * 	The function has three modes to search for a star in the file fixstars.cat:
+	· star contains a positive number ( in ASCII string format, e.g. "234"): The 234-th non-comment line in the file fixstars.cat is used. Comment lines begin with # and are ignored.
+	· star contains a traditional name: the first star in the file fixstars.cat is used whose traditional name fits the given name. All names are mapped to lower case before comparison. If star has n characters, only the first n characters of the traditional name field are compared. If a comma appears after a non-zero-length traditional name, the traditional name is cut off at the comma before the search. This allows the reuse of the returned star name from a previous call in the next call.
+	· starbegins with a comma, followed by a nomenclature name, e.g. ",alTau": the star with this name in the nomenclature field ( the second field ) is returned. Letter case is observed in the comparison for nomenclature names.
+*/
+static VALUE t_swe_fixstar_ut(VALUE self, VALUE star, VALUE julian_ut, VALUE iflag) {
+	double results[6];
+	char serr[AS_MAXCH];
+	VALUE arr = rb_ary_new();
+	int id_push = rb_intern("push");
+	int i=0;
+	
+	if ( swe_fixstar_ut(StringValuePtr(star), NUM2DBL(julian_ut), NUM2LONG(iflag), 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;
+	
+}
+
+
 /*
  * This function can be used to specify the mode for sidereal computations
  * http://www.astro.com/swisseph/swephprg.htm#_Toc283735478
@@ -260,6 +294,7 @@ void Init_swe4r()
 	rb_define_module_function(rb_mSwe4r, "swe_julday", t_swe_julday, 4);
 	rb_define_module_function(rb_mSwe4r, "swe_set_topo", t_swe_set_topo, 3);
 	rb_define_module_function(rb_mSwe4r, "swe_calc_ut", t_swe_calc_ut, 3);
+	rb_define_module_function(rb_mSwe4r, "swe_fixstar_ut", t_swe_fixstar_ut, 3);
 	rb_define_module_function(rb_mSwe4r, "swe_set_sid_mode", t_swe_set_sid_mode, 3);
 	rb_define_module_function(rb_mSwe4r, "swe_get_ayanamsa_ut", t_swe_get_ayanamsa_ut, 1);
 	rb_define_module_function(rb_mSwe4r, "swe_houses", t_swe_houses, 4);

metadata

@@ -1,7 +1,7 @@
 --- !ruby/object:Gem::Specification
 name: swe4r
 version: !ruby/object:Gem::Version
-  version: 0.0.1
+  version: 0.0.2
   prerelease: 
 platform: ruby
 authors:
@@ -9,7 +9,7 @@ authors:
 autorequire: 
 bindir: bin
 cert_chain: []
-date: 2012-05-14 00:00:00.000000000Z
+date: 2012-05-10 00:00:00.000000000Z
 dependencies: []
 description: A C extension for the Swiss Ephemeris library (http://www.astro.com/swisseph/)
 email: andrew.kirk@windhorsemedia.com