845 lines
22 KiB
C
845 lines
22 KiB
C
/* SWE-GLib - GLib style wrapper library around Astrodienst's Swiss Ephemeris
|
|
*
|
|
* Copyright © 2013 Gergely Polonkai
|
|
*
|
|
* SWE-GLib is free software: you can redistribute it and/or modify
|
|
* it under the terms of the GNU General Public License as published by
|
|
* the Free Software Foundation; either version 3 of the License, or
|
|
* (at your option) any later version.
|
|
*
|
|
* SWE-GLib 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 General Public License for more details.
|
|
*
|
|
* You should have received a copy of the GNU General Public License
|
|
* along with this library; if not, see <http://www.gnu.org/licenses/>.
|
|
*/
|
|
#include <glib.h>
|
|
#define GETTEXT_PACKAGE "swe-glib"
|
|
#include <glib/gi18n-lib.h>
|
|
|
|
#include "../swe/src/swephexp.h"
|
|
#include "swe-glib.h"
|
|
#include "swe-glib-private.h"
|
|
|
|
/**
|
|
* SECTION:swe-glib
|
|
* @short_description: Utility and initialization functions
|
|
* @title: Utility functions
|
|
* @stability: Stable
|
|
* @include: swe-glib/swe-glib.h
|
|
*
|
|
* Basic utility and initialization functions. They don't operate on SWE-GLib's
|
|
* objects, but on the library as a whole, including global tables.
|
|
*/
|
|
|
|
/**
|
|
* GsweError:
|
|
* @GSWE_ERROR_SUCCESS: No error
|
|
* @GSWE_ERROR_SWE_NONFATAL: Non-fatal Swiss Ephemeris library error
|
|
* @GSWE_ERROR_SWE_FATAL: Fatal Swiss Ephemeris library error
|
|
* @GSWE_ERROR_INVALID_DATE: The specified Gregorian date is invalid
|
|
* @GSWE_ERROR_INVALID_TIME: The specified time is invalid
|
|
* @GSWE_ERROR_NO_VALID_VALUE: the #GsweTimestamp object holds no valid values
|
|
* @GSWE_ERROR_UNKNOWN_HSYS: the requested house system is unknown
|
|
* @GSWE_ERROR_UNKNOWN_SIGN: an invalid zodiac sign would have been returned
|
|
* @GSWE_ERROR_UNKNOWN_PLANET: the referenced planet was not added with
|
|
* gswe_moment_add_planet()
|
|
* @GSWE_ERROR_UNKNOWN_ANTISCION_AXIS: the given axis is unknown to SWE-GLib
|
|
* @GSWE_ERROR_UNKNOWN_ASPECT: the given aspect is unknown to SWE-GLib
|
|
*
|
|
* Error codes returned by the SWE-GLib functions.
|
|
*/
|
|
|
|
/**
|
|
* GSWE_ERROR:
|
|
*
|
|
* Error domain for SWE-GLib in general. Since 2.0, all errors generated by
|
|
* SWE-GLib functions are from this domain. See #GError for more information on
|
|
* error domains.
|
|
*/
|
|
|
|
gboolean gswe_initialized = FALSE;
|
|
gchar *gswe_ephe_path = NULL;
|
|
GHashTable *gswe_planet_info_table;
|
|
GHashTable *gswe_sign_info_table;
|
|
GHashTable *gswe_house_system_info_table;
|
|
GHashTable *gswe_aspect_info_table;
|
|
GHashTable *gswe_antiscion_axis_info_table;
|
|
GsweTimestamp *gswe_full_moon_base_date;
|
|
static gboolean gswe_initializing = FALSE;
|
|
|
|
#define ADD_PLANET(ht, v, i, s, r, n, o, h) \
|
|
(v) = gswe_planet_info_new(); \
|
|
(v)->planet = (i); \
|
|
(v)->sweph_id = (s); \
|
|
(v)->real_body = (r); \
|
|
(v)->orb = (o); \
|
|
(v)->name = g_strdup(n); \
|
|
(v)->points = (h); \
|
|
g_hash_table_replace((ht), GINT_TO_POINTER(i), (v)); \
|
|
|
|
#define ADD_SIGN(ht, v, s, n, e, q) \
|
|
(v) = gswe_sign_info_new(); \
|
|
(v)->sign = (s); \
|
|
(v)->name = g_strdup(n); \
|
|
(v)->element = (e); \
|
|
(v)->quality = (q); \
|
|
g_hash_table_replace((ht), GINT_TO_POINTER(s), (v)); \
|
|
|
|
#define ADD_HOUSE_SYSTEM(ht, v, i, s, n) \
|
|
(v) = gswe_house_system_info_new(); \
|
|
(v)->house_system = i; \
|
|
(v)->sweph_id = s; \
|
|
(v)->name = g_strdup(n); \
|
|
g_hash_table_replace((ht), GINT_TO_POINTER(i), (v)); \
|
|
|
|
#define ADD_ASPECT(ht, v, i, n, s, o, h, m) \
|
|
(v) = gswe_aspect_info_new(); \
|
|
(v)->aspect = (i); \
|
|
(v)->name = g_strdup(n); \
|
|
(v)->size = (s); \
|
|
(v)->orb_modifier = (o); \
|
|
(v)->harmonic = (h); \
|
|
(v)->major = (m); \
|
|
g_hash_table_replace((ht), GINT_TO_POINTER(i), (v)); \
|
|
|
|
#define ADD_ANTISCION(ht, v, hts, vs, i, n, s, m) \
|
|
(v) = gswe_antiscion_axis_info_new(); \
|
|
(vs) = g_hash_table_lookup((hts), GINT_TO_POINTER(i)); \
|
|
(v)->axis = (i); \
|
|
(v)->start_sign = (vs); \
|
|
(v)->name = g_strdup(n); \
|
|
(v)->sign_offset = m; \
|
|
g_hash_table_replace((ht), GINT_TO_POINTER(i), (v)); \
|
|
|
|
/**
|
|
* gswe_error_quark:
|
|
*
|
|
* Gets the SWE-GLib Error Quark.
|
|
*
|
|
* Return value: a #GQuark
|
|
*/
|
|
#if GLIB_CHECK_VERSION(2, 34, 0)
|
|
G_DEFINE_QUARK(gswe-error-quark, gswe_error);
|
|
#else
|
|
GQuark
|
|
gswe_error_quark(void)
|
|
{
|
|
return g_quark_from_static_string("gswe-error-quark");
|
|
}
|
|
#endif
|
|
|
|
/**
|
|
* gswe_init_with_dir:
|
|
* @directory: the path that contains the Swiss Ephemeris data files
|
|
*
|
|
* Initializes the SWE-GLib library with @directory as the Swiss Ephemeris
|
|
* data files' location. This, or gswe_init() must be called before any
|
|
* calculations are made.
|
|
*/
|
|
void gswe_init_with_dir(gchar *directory)
|
|
{
|
|
GswePlanetInfo *planet_info;
|
|
GsweSignInfo *sign_info;
|
|
GsweHouseSystemInfo *house_system_info;
|
|
GsweAspectInfo *aspect_info;
|
|
GsweAntiscionAxisInfo *antiscion_axis_info;
|
|
|
|
if (gswe_initialized) {
|
|
return;
|
|
}
|
|
|
|
if (gswe_initializing) {
|
|
return;
|
|
}
|
|
|
|
gswe_initializing = TRUE;
|
|
|
|
/* Before 2.36, g_type_init() must have been called. Let's do it! */
|
|
#if !GLIB_CHECK_VERSION(2, 36, 0)
|
|
g_type_init();
|
|
#endif
|
|
|
|
bindtextdomain(GETTEXT_PACKAGE, LOCALEDIR);
|
|
bind_textdomain_codeset(GETTEXT_PACKAGE, "UTF-8");
|
|
|
|
gswe_planet_info_table = g_hash_table_new_full(
|
|
g_direct_hash, g_direct_equal,
|
|
NULL, (GDestroyNotify)gswe_planet_info_unref
|
|
);
|
|
|
|
ADD_PLANET(gswe_planet_info_table, planet_info,
|
|
GSWE_PLANET_ASCENDANT,
|
|
-1,
|
|
FALSE,
|
|
_("Ascendant"),
|
|
9.0,
|
|
2
|
|
);
|
|
ADD_PLANET(gswe_planet_info_table, planet_info,
|
|
GSWE_PLANET_MC,
|
|
-1,
|
|
FALSE,
|
|
_("Midheaven"),
|
|
5.0,
|
|
1
|
|
);
|
|
ADD_PLANET(gswe_planet_info_table, planet_info,
|
|
GSWE_PLANET_VERTEX,
|
|
-1,
|
|
FALSE,
|
|
_("Vertex"),
|
|
2.0,
|
|
0
|
|
);
|
|
ADD_PLANET(gswe_planet_info_table, planet_info,
|
|
GSWE_PLANET_MOON_NODE,
|
|
SE_MEAN_NODE,
|
|
TRUE,
|
|
_("Ascending Moon Node"),
|
|
2.0,
|
|
1
|
|
);
|
|
ADD_PLANET(gswe_planet_info_table, planet_info,
|
|
GSWE_PLANET_MOON_APOGEE,
|
|
SE_MEAN_APOG,
|
|
TRUE,
|
|
_("Dark Moon"),
|
|
2.0,
|
|
0
|
|
);
|
|
|
|
ADD_PLANET(gswe_planet_info_table, planet_info,
|
|
GSWE_PLANET_SUN,
|
|
SE_SUN,
|
|
TRUE,
|
|
_("Sun"),
|
|
13.0,
|
|
2
|
|
);
|
|
ADD_PLANET(gswe_planet_info_table, planet_info,
|
|
GSWE_PLANET_MOON,
|
|
SE_MOON,
|
|
TRUE,
|
|
_("Moon"),
|
|
9.0,
|
|
2
|
|
);
|
|
ADD_PLANET(gswe_planet_info_table, planet_info,
|
|
GSWE_PLANET_MERCURY,
|
|
SE_MERCURY,
|
|
TRUE,
|
|
_("Mercury"),
|
|
7.0,
|
|
2
|
|
);
|
|
ADD_PLANET(gswe_planet_info_table, planet_info,
|
|
GSWE_PLANET_VENUS,
|
|
SE_VENUS,
|
|
TRUE,
|
|
_("Venus"),
|
|
7.0,
|
|
1
|
|
);
|
|
ADD_PLANET(gswe_planet_info_table, planet_info,
|
|
GSWE_PLANET_MARS,
|
|
SE_MARS,
|
|
TRUE,
|
|
_("Mars"),
|
|
7.0,
|
|
1
|
|
);
|
|
ADD_PLANET(gswe_planet_info_table, planet_info,
|
|
GSWE_PLANET_JUPITER,
|
|
SE_JUPITER,
|
|
TRUE,
|
|
_("Jupiter"),
|
|
9.0,
|
|
1
|
|
);
|
|
ADD_PLANET(gswe_planet_info_table, planet_info,
|
|
GSWE_PLANET_SATURN,
|
|
SE_SATURN,
|
|
TRUE,
|
|
_("Saturn"),
|
|
7.0,
|
|
1
|
|
);
|
|
ADD_PLANET(gswe_planet_info_table, planet_info,
|
|
GSWE_PLANET_URANUS,
|
|
SE_URANUS,
|
|
TRUE,
|
|
_("Uranus"),
|
|
5.0,
|
|
1
|
|
);
|
|
ADD_PLANET(gswe_planet_info_table, planet_info,
|
|
GSWE_PLANET_NEPTUNE,
|
|
SE_NEPTUNE,
|
|
TRUE,
|
|
_("Neptune"),
|
|
5.0,
|
|
1
|
|
);
|
|
ADD_PLANET(gswe_planet_info_table, planet_info,
|
|
GSWE_PLANET_PLUTO,
|
|
SE_PLUTO,
|
|
TRUE,
|
|
_("Pluto"),
|
|
3.0,
|
|
1
|
|
);
|
|
|
|
ADD_PLANET(gswe_planet_info_table, planet_info,
|
|
GSWE_PLANET_CHIRON,
|
|
SE_CHIRON,
|
|
TRUE,
|
|
_("Chiron"),
|
|
2.0,
|
|
0
|
|
);
|
|
ADD_PLANET(gswe_planet_info_table, planet_info,
|
|
GSWE_PLANET_CERES,
|
|
SE_CERES,
|
|
TRUE,
|
|
_("Ceres"),
|
|
2.0,
|
|
0
|
|
);
|
|
ADD_PLANET(gswe_planet_info_table, planet_info,
|
|
GSWE_PLANET_PALLAS,
|
|
SE_PALLAS,
|
|
TRUE,
|
|
_("Pallas"),
|
|
2.0,
|
|
0
|
|
);
|
|
ADD_PLANET(gswe_planet_info_table, planet_info,
|
|
GSWE_PLANET_JUNO,
|
|
SE_JUNO,
|
|
TRUE,
|
|
_("Juno"),
|
|
2.0,
|
|
0
|
|
);
|
|
ADD_PLANET(gswe_planet_info_table, planet_info,
|
|
GSWE_PLANET_VESTA,
|
|
SE_VESTA,
|
|
TRUE,
|
|
_("Vesta"),
|
|
2.0,
|
|
0
|
|
);
|
|
ADD_PLANET(gswe_planet_info_table, planet_info,
|
|
GSWE_PLANET_PHOLUS,
|
|
SE_PHOLUS,
|
|
TRUE,
|
|
_("Pholus"),
|
|
2.0,
|
|
0
|
|
);
|
|
ADD_PLANET(gswe_planet_info_table, planet_info,
|
|
GSWE_PLANET_NESSUS,
|
|
SE_AST_OFFSET + 7066,
|
|
TRUE,
|
|
_("Nessus"),
|
|
2.0,
|
|
0
|
|
);
|
|
ADD_PLANET(gswe_planet_info_table, planet_info,
|
|
GSWE_PLANET_CHARIKLO,
|
|
SE_AST_OFFSET + 10199,
|
|
TRUE,
|
|
_("Chariklo"),
|
|
2.0,
|
|
0
|
|
);
|
|
ADD_PLANET(gswe_planet_info_table, planet_info,
|
|
GSWE_PLANET_SEDNA,
|
|
SE_AST_OFFSET + 90377,
|
|
TRUE,
|
|
_("Sedna"),
|
|
2.0,
|
|
0
|
|
);
|
|
ADD_PLANET(gswe_planet_info_table, planet_info,
|
|
GSWE_PLANET_ERIS,
|
|
SE_AST_OFFSET + 136199,
|
|
TRUE,
|
|
_("Eris"),
|
|
2.0,
|
|
0
|
|
);
|
|
ADD_PLANET(gswe_planet_info_table, planet_info,
|
|
GSWE_PLANET_DEJANIRA,
|
|
SE_AST_OFFSET + 157,
|
|
TRUE,
|
|
_("Dejanira"),
|
|
2.0,
|
|
0
|
|
);
|
|
ADD_PLANET(gswe_planet_info_table, planet_info,
|
|
GSWE_PLANET_CIRCE,
|
|
SE_AST_OFFSET + 34,
|
|
TRUE,
|
|
_("Circe"),
|
|
2.0,
|
|
0
|
|
);
|
|
ADD_PLANET(gswe_planet_info_table, planet_info,
|
|
GSWE_PLANET_ORCUS,
|
|
SE_AST_OFFSET + 90482,
|
|
TRUE,
|
|
_("Orcus"),
|
|
2.0,
|
|
0
|
|
);
|
|
ADD_PLANET(gswe_planet_info_table, planet_info,
|
|
GSWE_PLANET_ASBOLUS,
|
|
SE_AST_OFFSET + 8405,
|
|
TRUE,
|
|
_("Asbolus"),
|
|
2.0,
|
|
0
|
|
);
|
|
ADD_PLANET(gswe_planet_info_table, planet_info,
|
|
GSWE_PLANET_HYGIEA,
|
|
SE_AST_OFFSET + 10,
|
|
TRUE,
|
|
_("Hygiea"),
|
|
2.0,
|
|
0
|
|
);
|
|
|
|
gswe_sign_info_table = g_hash_table_new_full(
|
|
g_direct_hash, g_direct_equal,
|
|
NULL, (GDestroyNotify)gswe_sign_info_unref
|
|
);
|
|
|
|
ADD_SIGN(gswe_sign_info_table, sign_info,
|
|
GSWE_SIGN_ARIES,
|
|
_("Aries"),
|
|
GSWE_ELEMENT_FIRE,
|
|
GSWE_QUALITY_CARDINAL
|
|
);
|
|
ADD_SIGN(gswe_sign_info_table, sign_info,
|
|
GSWE_SIGN_TAURUS,
|
|
_("Taurus"),
|
|
GSWE_ELEMENT_EARTH,
|
|
GSWE_QUALITY_FIX
|
|
);
|
|
ADD_SIGN(gswe_sign_info_table, sign_info,
|
|
GSWE_SIGN_GEMINI,
|
|
_("Gemini"),
|
|
GSWE_ELEMENT_AIR,
|
|
GSWE_QUALITY_MUTABLE
|
|
);
|
|
ADD_SIGN(gswe_sign_info_table, sign_info,
|
|
GSWE_SIGN_CANCER,
|
|
_("Cancer"),
|
|
GSWE_ELEMENT_WATER,
|
|
GSWE_QUALITY_CARDINAL
|
|
);
|
|
ADD_SIGN(gswe_sign_info_table, sign_info,
|
|
GSWE_SIGN_LEO,
|
|
_("Leo"),
|
|
GSWE_ELEMENT_FIRE,
|
|
GSWE_QUALITY_FIX
|
|
);
|
|
ADD_SIGN(gswe_sign_info_table, sign_info,
|
|
GSWE_SIGN_VIRGO,
|
|
_("Virgo"),
|
|
GSWE_ELEMENT_EARTH,
|
|
GSWE_QUALITY_MUTABLE
|
|
);
|
|
ADD_SIGN(gswe_sign_info_table, sign_info,
|
|
GSWE_SIGN_LIBRA,
|
|
_("Libra"),
|
|
GSWE_ELEMENT_AIR,
|
|
GSWE_QUALITY_CARDINAL
|
|
);
|
|
ADD_SIGN(gswe_sign_info_table, sign_info,
|
|
GSWE_SIGN_SCORPIO,
|
|
_("Scorpio"),
|
|
GSWE_ELEMENT_WATER,
|
|
GSWE_QUALITY_FIX
|
|
);
|
|
ADD_SIGN(gswe_sign_info_table, sign_info,
|
|
GSWE_SIGN_SAGITTARIUS,
|
|
_("Sagittarius"),
|
|
GSWE_ELEMENT_FIRE,
|
|
GSWE_QUALITY_MUTABLE
|
|
);
|
|
ADD_SIGN(gswe_sign_info_table, sign_info,
|
|
GSWE_SIGN_CAPRICORN,
|
|
_("Capricorn"),
|
|
GSWE_ELEMENT_EARTH,
|
|
GSWE_QUALITY_CARDINAL
|
|
);
|
|
ADD_SIGN(gswe_sign_info_table, sign_info,
|
|
GSWE_SIGN_AQUARIUS,
|
|
_("Aquarius"),
|
|
GSWE_ELEMENT_AIR,
|
|
GSWE_QUALITY_FIX
|
|
);
|
|
ADD_SIGN(gswe_sign_info_table, sign_info,
|
|
GSWE_SIGN_PISCES,
|
|
_("Pisces"),
|
|
GSWE_ELEMENT_WATER,
|
|
GSWE_QUALITY_MUTABLE
|
|
);
|
|
|
|
gswe_house_system_info_table = g_hash_table_new_full(
|
|
g_direct_hash, g_direct_equal,
|
|
NULL, (GDestroyNotify)gswe_house_system_info_unref
|
|
);
|
|
|
|
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_SYSTEM_EQUAL,
|
|
'E',
|
|
_("Equal")
|
|
);
|
|
|
|
gswe_aspect_info_table = g_hash_table_new_full(
|
|
g_direct_hash, g_direct_equal,
|
|
NULL, (GDestroyNotify)gswe_aspect_info_unref
|
|
);
|
|
|
|
// Note that because all aspects must be <= 180°, GSWE_ASPECT_NONE can
|
|
// never really exist. It is provided for name fetching purposes only.
|
|
ADD_ASPECT(gswe_aspect_info_table, aspect_info,
|
|
GSWE_ASPECT_NONE,
|
|
_("None"),
|
|
360,
|
|
4,
|
|
FALSE,
|
|
FALSE
|
|
);
|
|
ADD_ASPECT(gswe_aspect_info_table, aspect_info,
|
|
GSWE_ASPECT_CONJUCTION,
|
|
_("Conjuction"),
|
|
0,
|
|
0,
|
|
TRUE,
|
|
TRUE
|
|
);
|
|
ADD_ASPECT(gswe_aspect_info_table, aspect_info,
|
|
GSWE_ASPECT_OPPOSITION,
|
|
_("Opposition"),
|
|
180,
|
|
0,
|
|
TRUE,
|
|
TRUE
|
|
);
|
|
ADD_ASPECT(gswe_aspect_info_table, aspect_info,
|
|
GSWE_ASPECT_TRINE,
|
|
_("Trine"),
|
|
120,
|
|
0,
|
|
TRUE,
|
|
TRUE
|
|
);
|
|
ADD_ASPECT(gswe_aspect_info_table, aspect_info,
|
|
GSWE_ASPECT_SQUARE,
|
|
_("Square"),
|
|
90,
|
|
0,
|
|
FALSE,
|
|
TRUE
|
|
);
|
|
ADD_ASPECT(gswe_aspect_info_table, aspect_info,
|
|
GSWE_ASPECT_SEXTILE,
|
|
_("Sextile"),
|
|
60,
|
|
1,
|
|
TRUE,
|
|
TRUE
|
|
);
|
|
ADD_ASPECT(gswe_aspect_info_table, aspect_info,
|
|
GSWE_ASPECT_QUINCUNX,
|
|
_("Quincunx"),
|
|
150,
|
|
2,
|
|
FALSE,
|
|
FALSE
|
|
);
|
|
ADD_ASPECT(gswe_aspect_info_table, aspect_info,
|
|
GSWE_ASPECT_SEMISEXTILE,
|
|
_("Semi-sextile"),
|
|
30,
|
|
2,
|
|
TRUE,
|
|
FALSE
|
|
);
|
|
ADD_ASPECT(gswe_aspect_info_table, aspect_info,
|
|
GSWE_ASPECT_SEMISQUARE,
|
|
_("Semi-square"),
|
|
45,
|
|
2,
|
|
FALSE,
|
|
FALSE
|
|
);
|
|
ADD_ASPECT(gswe_aspect_info_table, aspect_info,
|
|
GSWE_ASPECT_SESQUISQUARE,
|
|
_("Sesqui-square"),
|
|
135,
|
|
2,
|
|
FALSE,
|
|
FALSE
|
|
);
|
|
ADD_ASPECT(gswe_aspect_info_table, aspect_info,
|
|
GSWE_ASPECT_QUINTILE,
|
|
_("Quintile"),
|
|
72,
|
|
3,
|
|
TRUE,
|
|
FALSE
|
|
);
|
|
ADD_ASPECT(gswe_aspect_info_table, aspect_info,
|
|
GSWE_ASPECT_BIQUINTILE,
|
|
_("Bi-quintile"),
|
|
144,
|
|
3,
|
|
TRUE,
|
|
FALSE
|
|
);
|
|
|
|
gswe_antiscion_axis_info_table = g_hash_table_new_full(
|
|
g_direct_hash, g_direct_equal,
|
|
NULL, (GDestroyNotify)gswe_antiscion_axis_info_unref
|
|
);
|
|
|
|
ADD_ANTISCION(gswe_antiscion_axis_info_table, antiscion_axis_info,
|
|
gswe_sign_info_table, sign_info,
|
|
GSWE_ANTISCION_AXIS_NONE,
|
|
_("None"),
|
|
GSWE_SIGN_NONE,
|
|
0.0
|
|
);
|
|
ADD_ANTISCION(gswe_antiscion_axis_info_table, antiscion_axis_info,
|
|
gswe_sign_info_table, sign_info,
|
|
GSWE_ANTISCION_AXIS_ARIES,
|
|
_("Aries/Libra"),
|
|
GSWE_SIGN_ARIES,
|
|
0.0
|
|
);
|
|
ADD_ANTISCION(gswe_antiscion_axis_info_table, antiscion_axis_info,
|
|
gswe_sign_info_table, sign_info,
|
|
GSWE_ANTISCION_AXIS_MID_TAURUS,
|
|
_("mid Taurus/Scorpio"),
|
|
GSWE_SIGN_TAURUS,
|
|
15.0
|
|
);
|
|
ADD_ANTISCION(gswe_antiscion_axis_info_table, antiscion_axis_info,
|
|
gswe_sign_info_table, sign_info,
|
|
GSWE_ANTISCION_AXIS_CANCER,
|
|
_("Cancer/Capricorn"),
|
|
GSWE_SIGN_CANCER,
|
|
0.0
|
|
);
|
|
ADD_ANTISCION(gswe_antiscion_axis_info_table, antiscion_axis_info,
|
|
gswe_sign_info_table, sign_info,
|
|
GSWE_ANTISCION_AXIS_MID_LEO,
|
|
_("mid Leo/Aquarius"),
|
|
GSWE_SIGN_LEO,
|
|
15.0
|
|
);
|
|
|
|
gswe_full_moon_base_date = gswe_timestamp_new_from_gregorian_full(
|
|
2005, 5, 8,
|
|
3, 48, 0, 0,
|
|
0.0
|
|
);
|
|
|
|
gswe_ephe_path = g_strdup(directory);
|
|
swe_set_ephe_path(directory);
|
|
gswe_initialized = TRUE;
|
|
}
|
|
|
|
/**
|
|
* gswe_init:
|
|
*
|
|
* Initializes the SWE-GLib library. It must be called before any calculations
|
|
* are made.
|
|
*/
|
|
void
|
|
gswe_init(void)
|
|
{
|
|
gswe_init_with_dir(PKGDATADIR);
|
|
}
|
|
|
|
/**
|
|
* gswe_find_planet_info_by_id:
|
|
* @planet: a planet ID registered with SWE-GLib
|
|
* @err: a GError
|
|
*
|
|
* Find the #GswePlanetInfo record registered with the id @planet.
|
|
*
|
|
* Since: 2.1
|
|
*/
|
|
GswePlanetInfo *
|
|
gswe_find_planet_info_by_id(GswePlanet planet, GError **err)
|
|
{
|
|
GswePlanetInfo *ret = g_hash_table_lookup(
|
|
gswe_planet_info_table,
|
|
GINT_TO_POINTER(planet)
|
|
);
|
|
|
|
if (ret == NULL) {
|
|
g_set_error(
|
|
err,
|
|
GSWE_ERROR, GSWE_ERROR_UNKNOWN_PLANET,
|
|
"Planet %d is not registered", planet
|
|
);
|
|
}
|
|
|
|
return ret;
|
|
}
|
|
|
|
/**
|
|
* gswe_find_sign_info_by_id:
|
|
* @sign: a sign ID registered with SWE-GLib
|
|
* @err: a GError
|
|
*
|
|
* Find the #GsweSignInfo record registered with the id @sign.
|
|
*
|
|
* Since: 2.1
|
|
*/
|
|
GsweSignInfo *
|
|
gswe_find_sign_info_by_id(GsweZodiac sign, GError **err)
|
|
{
|
|
GsweSignInfo *ret = g_hash_table_lookup(
|
|
gswe_sign_info_table,
|
|
GINT_TO_POINTER(sign)
|
|
);
|
|
|
|
if (ret == NULL) {
|
|
g_set_error(
|
|
err,
|
|
GSWE_ERROR, GSWE_ERROR_UNKNOWN_SIGN,
|
|
"Sign %d is not registered", sign
|
|
);
|
|
}
|
|
|
|
return ret;
|
|
}
|
|
|
|
/**
|
|
* gswe_find_house_system_info_by_id:
|
|
* @house_system: a house system ID registered with SWE-GLib
|
|
* @err: a GError
|
|
*
|
|
* Find the #GsweHouseSystemInfo record registered with the id @house_system.
|
|
*
|
|
* Since: 2.1
|
|
*/
|
|
GsweHouseSystemInfo *
|
|
gswe_find_house_system_info_by_id(GsweHouseSystem house_system, GError **err)
|
|
{
|
|
GsweHouseSystemInfo *ret = g_hash_table_lookup(
|
|
gswe_house_system_info_table,
|
|
GINT_TO_POINTER(house_system)
|
|
);
|
|
|
|
if (ret == NULL) {
|
|
g_set_error(
|
|
err,
|
|
GSWE_ERROR, GSWE_ERROR_UNKNOWN_HSYS,
|
|
"House system %d is not registered", house_system
|
|
);
|
|
}
|
|
|
|
return ret;
|
|
}
|
|
|
|
/**
|
|
* gswe_find_aspect_info_by_id:
|
|
* @aspect: an aspect ID registered with SWE-GLib
|
|
* @err: a GError
|
|
*
|
|
* Find the #GsweAspectInfo record registered with the id @aspect.
|
|
*
|
|
* Since: 2.1
|
|
*/
|
|
GsweAspectInfo *
|
|
gswe_find_aspect_info_by_id(GsweAspect aspect, GError **err)
|
|
{
|
|
GsweAspectInfo *ret = g_hash_table_lookup(
|
|
gswe_aspect_info_table,
|
|
GINT_TO_POINTER(aspect)
|
|
);
|
|
|
|
if (ret == NULL) {
|
|
g_set_error(
|
|
err,
|
|
GSWE_ERROR, GSWE_ERROR_UNKNOWN_ASPECT,
|
|
"Aspect system %d is not registered", aspect
|
|
);
|
|
}
|
|
|
|
return ret;
|
|
}
|
|
|
|
/**
|
|
* gswe_find_antiscion_axis_info_by_id:
|
|
* @antiscion_axis: an antiscion axis ID registered with SWE-GLib
|
|
* @err: a GError
|
|
*
|
|
* Find the #GsweAntiscionAxisInfo record registered with the id
|
|
* @antiscion_axis.
|
|
*
|
|
* Since: 2.1
|
|
*/
|
|
GsweAntiscionAxisInfo *
|
|
gswe_find_antiscion_axis_info_by_id(
|
|
GsweAntiscionAxis antiscion_axis,
|
|
GError **err)
|
|
{
|
|
GsweAntiscionAxisInfo *ret = g_hash_table_lookup(
|
|
gswe_antiscion_axis_info_table,
|
|
GINT_TO_POINTER(antiscion_axis)
|
|
);
|
|
|
|
if (ret == NULL) {
|
|
g_set_error(
|
|
err,
|
|
GSWE_ERROR, GSWE_ERROR_UNKNOWN_ANTISCION_AXIS,
|
|
"Antiscion axis system %d is not registered", antiscion_axis
|
|
);
|
|
}
|
|
|
|
return ret;
|
|
}
|
|
|
|
/**
|
|
* gswe_all_house_systems:
|
|
*
|
|
* Returns: (transfer container): All #GsweHouseSystemInfo registered with
|
|
* SWE-GLib. This list should not be modified nor freed and is only valid until
|
|
* a new house system is registered.
|
|
*
|
|
* Since: 2.1.0
|
|
*/
|
|
GList *
|
|
gswe_all_house_systems(void)
|
|
{
|
|
return g_hash_table_get_values(gswe_house_system_info_table);
|
|
}
|