gergely/astrognome
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Added house systems to library initialization

Browse Source
This commit is contained in:
Gergely Polonkai 2013-09-01 16:09:57 +02:00
parent 44ac62e474
commit 4f2c91d553
1 changed files with 22 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
swe-glib/src/swe-glib.c
View File

@ -8,6 +8,7 @@
gboolean gswe_initialized = FALSE; gboolean gswe_initialized = FALSE;
gchar *gswe_ephe_path = NULL; gchar *gswe_ephe_path = NULL;
GHashTable *gswe_planet_info_table; GHashTable *gswe_planet_info_table;
GHashTable *gswe_house_system_info_table;
#define ADD_PLANET(ht, v, i, s, n, o, dom1, dom2, exi1, exi2, exa, fal) (v) = g_new0(GswePlanetInfo, 1); \ #define ADD_PLANET(ht, v, i, s, n, o, dom1, dom2, exi1, exi2, exa, fal) (v) = g_new0(GswePlanetInfo, 1); \
(v)->planet = (i); \ (v)->planet = (i); \
@ -22,6 +23,12 @@ GHashTable *gswe_planet_info_table;
(v)->fall_sign = (fal); \ (v)->fall_sign = (fal); \
g_hash_table_replace((ht), GINT_TO_POINTER(i), (v)); g_hash_table_replace((ht), GINT_TO_POINTER(i), (v));
#define ADD_HOUSE_SYSTEM(ht, v, i, s, n) (v) = g_new0(GsweHouseSystemInfo, 1); \
(v)->system = i; \
(v)->sweph_id = s; \
(v)->name = g_strdup(n); \
g_hash_table_replace((ht), GINT_TO_POINTER(i), (v));
void void
gswe_free_planet_info(gpointer planet_info) gswe_free_planet_info(gpointer planet_info)
{ {
@ -29,6 +36,13 @@ gswe_free_planet_info(gpointer planet_info)
g_free(planet_info); g_free(planet_info);
} }
void
gswe_free_house_system_info(gpointer house_system_info)
{
g_free(((GsweHouseSystemInfo *)house_system_info)->name);
g_free(house_system_info);
}
/** /**
* gswe_init: * gswe_init:
* @sweph_path: the file system path to the Swiss Ephemeris data files * @sweph_path: the file system path to the Swiss Ephemeris data files
@ -40,6 +54,7 @@ void
gswe_init(gchar *sweph_path) gswe_init(gchar *sweph_path)
{ {
GswePlanetInfo *planet_info; GswePlanetInfo *planet_info;
GsweHouseSystemInfo *house_system_info;
bindtextdomain(GETTEXT_PACKAGE, LOCALEDIR); bindtextdomain(GETTEXT_PACKAGE, LOCALEDIR);
bind_textdomain_codeset(GETTEXT_PACKAGE, "UTF-8"); bind_textdomain_codeset(GETTEXT_PACKAGE, "UTF-8");
@ -67,6 +82,13 @@ gswe_init(gchar *sweph_path)
ADD_PLANET(gswe_planet_info_table, planet_info, GSWE_PLANET_MC, -1, _("Midheaven"), 5.0, GSWE_SIGN_NONE, GSWE_SIGN_NONE, GSWE_SIGN_NONE, GSWE_SIGN_NONE, GSWE_SIGN_NONE, GSWE_SIGN_NONE); ADD_PLANET(gswe_planet_info_table, planet_info, GSWE_PLANET_MC, -1, _("Midheaven"), 5.0, GSWE_SIGN_NONE, GSWE_SIGN_NONE, GSWE_SIGN_NONE, GSWE_SIGN_NONE, GSWE_SIGN_NONE, GSWE_SIGN_NONE);
ADD_PLANET(gswe_planet_info_table, planet_info, GSWE_PLANET_VERTEX, -1, _("Vertex"), 2.0, GSWE_SIGN_NONE, GSWE_SIGN_NONE, GSWE_SIGN_NONE, GSWE_SIGN_NONE, GSWE_SIGN_NONE, GSWE_SIGN_NONE); ADD_PLANET(gswe_planet_info_table, planet_info, GSWE_PLANET_VERTEX, -1, _("Vertex"), 2.0, GSWE_SIGN_NONE, GSWE_SIGN_NONE, GSWE_SIGN_NONE, GSWE_SIGN_NONE, GSWE_SIGN_NONE, GSWE_SIGN_NONE);
gswe_house_system_info_table = g_hash_table_new_full(g_direct_hash, g_direct_equal, NULL, gswe_free_house_system_info);
ADD_HOUSE_SYSTEM(gswe_house_system_info_table, house_system_info, GSWE_HOUSE_SYSTEM_NONE, 0, _("None"));
ADD_HOUSE_SYSTEM(gswe_house_system_info_table, house_system_info, GSWE_HOUSE_SYSTEM_PLACIDUS, 'P', _("Placidus"));
ADD_HOUSE_SYSTEM(gswe_house_system_info_table, house_system_info, GSWE_HOUSE_SYSTEM_KOCH, 'K', _("Koch"));
ADD_HOUSE_SYSTEM(gswe_house_system_info_table, house_system_info, GSWE_HOUSE_SISTEM_EQUAL, 'E', _("Equal"));
gswe_ephe_path = g_strdup(sweph_path); gswe_ephe_path = g_strdup(sweph_path);
swe_set_ephe_path(sweph_path); swe_set_ephe_path(sweph_path);
gswe_initialized = TRUE; gswe_initialized = TRUE;