Added SWE-Glib sources, which currently wraps Swiss Ephemeris function calls
This commit is contained in:
parent
e768af46ce
commit
f8fb15ac28
5
.gitignore
vendored
5
.gitignore
vendored
@ -45,6 +45,11 @@ Makefile.in
|
||||
/po/quot.sed
|
||||
/po/remove-potcdate.sin
|
||||
|
||||
# SWE-GLib related files, should be removed when SWE-GLib goes separate
|
||||
/swe-glib/src/enumtypes.c
|
||||
/swe-glib/src/enumtypes.h
|
||||
/swe-glib/src/gswetest
|
||||
|
||||
#Documentation related files
|
||||
/docs/reference/*/*.args
|
||||
/docs/reference/*/*.hierarchy
|
||||
|
||||
@ -1,5 +1,5 @@
|
||||
ACLOCAL_AMFLAGS = -I m4
|
||||
SUBDIRS = swe/src src po docs/reference/astrognome
|
||||
SUBDIRS = swe/src swe-glib/src src po docs/reference/swe-glib docs/reference/astrognome
|
||||
|
||||
EXTRA_DIST = config.rpath m4/ChangeLog
|
||||
|
||||
|
||||
@ -37,17 +37,25 @@ AC_CHECK_LIB([m], [sqrt])
|
||||
AC_CHECK_LIB([m], [floor])
|
||||
GTK_DOC_CHECK([1.19], [--flavour no-tmpl])
|
||||
PKG_PROG_PKG_CONFIG
|
||||
AC_PATH_PROG([GLIB_MKENUMS], [glib-mkenums])
|
||||
PKG_CHECK_MODULES([GLIB], [glib-2.0])
|
||||
PKG_CHECK_MODULES([GOBJECT], [gobject-2.0])
|
||||
PKG_CHECK_MODULES([GTK], [gtk+-3.0])
|
||||
AC_CONFIG_MACRO_DIR([m4])
|
||||
|
||||
LIBSWE_LIBS='$(top_builddir)/swe/src/libswe-1.75.la'
|
||||
AC_SUBST(LIBSWE_LIBS)
|
||||
|
||||
LIBSWE_GLIB_LIBS='$(top_builddir)/swe-glib/src/libswe-glib-0.1.la'
|
||||
AC_SUBST(LIBSWE_GLIB_LIBS)
|
||||
|
||||
AC_CONFIG_FILES([
|
||||
Makefile
|
||||
swe/src/Makefile
|
||||
swe-glib/src/Makefile
|
||||
src/Makefile
|
||||
po/Makefile.in
|
||||
docs/reference/astrognome/Makefile
|
||||
docs/reference/swe-glib/Makefile
|
||||
])
|
||||
AC_OUTPUT
|
||||
|
||||
105
docs/reference/swe-glib/Makefile.am
Normal file
105
docs/reference/swe-glib/Makefile.am
Normal file
@ -0,0 +1,105 @@
|
||||
## Process this file with automake to produce Makefile.in
|
||||
|
||||
# We require automake 1.6 at least.
|
||||
AUTOMAKE_OPTIONS = 1.6
|
||||
|
||||
# This is a blank Makefile.am for using gtk-doc.
|
||||
# Copy this to your project's API docs directory and modify the variables to
|
||||
# suit your project. See the GTK+ Makefiles in gtk+/docs/reference for examples
|
||||
# of using the various options.
|
||||
|
||||
# The name of the module, e.g. 'glib'.
|
||||
DOC_MODULE=swe-glib
|
||||
|
||||
# Uncomment for versioned docs and specify the version of the module, e.g. '2'.
|
||||
DOC_MODULE_VERSION=0
|
||||
|
||||
|
||||
# The top-level XML file (SGML in the past). You can change this if you want to.
|
||||
DOC_MAIN_SGML_FILE=$(DOC_MODULE)-docs.xml
|
||||
|
||||
# Directories containing the source code.
|
||||
# gtk-doc will search all .c and .h files beneath these paths
|
||||
# for inline comments documenting functions and macros.
|
||||
# e.g. DOC_SOURCE_DIR=$(top_srcdir)/gtk $(top_srcdir)/gdk
|
||||
DOC_SOURCE_DIR=$(top_srcdir)/swe-glib/src
|
||||
|
||||
# Extra options to pass to gtkdoc-scangobj. Not normally needed.
|
||||
SCANGOBJ_OPTIONS=
|
||||
|
||||
# Extra options to supply to gtkdoc-scan.
|
||||
# e.g. SCAN_OPTIONS=--deprecated-guards="GTK_DISABLE_DEPRECATED"
|
||||
SCAN_OPTIONS=--rebuild-sections --rebuild-types
|
||||
|
||||
# Extra options to supply to gtkdoc-mkdb.
|
||||
# e.g. MKDB_OPTIONS=--xml-mode --output-format=xml
|
||||
MKDB_OPTIONS=--xml-mode --output-format=xml
|
||||
|
||||
# Extra options to supply to gtkdoc-mktmpl
|
||||
# e.g. MKTMPL_OPTIONS=--only-section-tmpl
|
||||
MKTMPL_OPTIONS=
|
||||
|
||||
# Extra options to supply to gtkdoc-mkhtml
|
||||
MKHTML_OPTIONS=
|
||||
|
||||
# Extra options to supply to gtkdoc-fixref. Not normally needed.
|
||||
# e.g. FIXXREF_OPTIONS=--extra-dir=../gdk-pixbuf/html --extra-dir=../gdk/html
|
||||
FIXXREF_OPTIONS=
|
||||
|
||||
# Used for dependencies. The docs will be rebuilt if any of these change.
|
||||
# e.g. HFILE_GLOB=$(top_srcdir)/gtk/*.h
|
||||
# e.g. CFILE_GLOB=$(top_srcdir)/gtk/*.c
|
||||
HFILE_GLOB=$(top_srcdir)/swe-glib/src/*.h
|
||||
CFILE_GLOB=$(top_srcdir)/swe-glib/src/*.c
|
||||
|
||||
# Extra header to include when scanning, which are not under DOC_SOURCE_DIR
|
||||
# e.g. EXTRA_HFILES=$(top_srcdir}/contrib/extra.h
|
||||
EXTRA_HFILES=
|
||||
|
||||
# Header files or dirs to ignore when scanning. Use base file/dir names
|
||||
# e.g. IGNORE_HFILES=gtkdebug.h gtkintl.h private_code
|
||||
IGNORE_HFILES=
|
||||
|
||||
# Images to copy into HTML directory.
|
||||
# e.g. HTML_IMAGES=$(top_srcdir)/gtk/stock-icons/stock_about_24.png
|
||||
HTML_IMAGES=
|
||||
|
||||
# Extra SGML files that are included by $(DOC_MAIN_SGML_FILE).
|
||||
# e.g. content_files=running.sgml building.sgml changes-2.0.sgml
|
||||
content_files=
|
||||
|
||||
# SGML files where gtk-doc abbrevations (#GtkWidget) are expanded
|
||||
# These files must be listed here *and* in content_files
|
||||
# e.g. expand_content_files=running.sgml
|
||||
expand_content_files=
|
||||
|
||||
# CFLAGS and LDFLAGS for compiling gtkdoc-scangobj with your library.
|
||||
# Only needed if you are using gtkdoc-scangobj to dynamically query widget
|
||||
# signals and properties.
|
||||
# e.g. GTKDOC_CFLAGS=-I$(top_srcdir) -I$(top_builddir) $(GTK_DEBUG_FLAGS)
|
||||
# e.g. GTKDOC_LIBS=$(top_builddir)/gtk/$(gtktargetlib)
|
||||
GTKDOC_CFLAGS=
|
||||
GTKDOC_LIBS=$(LIBSWE_GLIB_LIBS) $(NULL)
|
||||
|
||||
# This includes the standard gtk-doc make rules, copied by gtkdocize.
|
||||
include $(top_srcdir)/gtk-doc.make
|
||||
|
||||
# Other files to distribute
|
||||
# e.g. EXTRA_DIST += version.xml.in
|
||||
EXTRA_DIST +=
|
||||
|
||||
# Files not to distribute
|
||||
# for --rebuild-types in $(SCAN_OPTIONS), e.g. $(DOC_MODULE).types
|
||||
# for --rebuild-sections in $(SCAN_OPTIONS) e.g. $(DOC_MODULE)-sections.txt
|
||||
#DISTCLEANFILES +=
|
||||
|
||||
# Comment this out if you want 'make check' to test you doc status
|
||||
# and run some sanity checks
|
||||
if ENABLE_GTK_DOC
|
||||
TESTS_ENVIRONMENT = cd $(srcdir) && \
|
||||
DOC_MODULE=$(DOC_MODULE) DOC_MAIN_SGML_FILE=$(DOC_MAIN_SGML_FILE) \
|
||||
SRCDIR=$(abs_srcdir) BUILDDIR=$(abs_builddir)
|
||||
#TESTS = $(GTKDOC_CHECK)
|
||||
endif
|
||||
|
||||
-include $(top_srcdir)/git.mk
|
||||
@ -1,6 +1,6 @@
|
||||
bin_PROGRAMS = astrognome
|
||||
|
||||
astrognome_SOURCES = astrognome.c calculate.c
|
||||
astrognome_LDADD = $(LIBSWE_LIBS) $(GTK_LIBS)
|
||||
astrognome_LDADD = $(LIBSWE_LIBS) $(LIBSWE_GLIB_LIBS) $(GTK_LIBS)
|
||||
astrognome_LDFLAGS = -rdynamic
|
||||
astrognome_CFLAGS = $(CFLAGS) $(GTK_CFLAGS) -Wall
|
||||
|
||||
24
swe-glib/src/Makefile.am
Normal file
24
swe-glib/src/Makefile.am
Normal file
@ -0,0 +1,24 @@
|
||||
AM_CPPFLAGS = -DG_LOG_DOMAIN=\"SWE-GLib\" -DLOCALEDIR=\"$(localedir)\" -D__SWE_GLIB_BUILDING__
|
||||
|
||||
lib_LTLIBRARIES = libswe-glib-0.1.la
|
||||
|
||||
libswe_glib_sources = swe-glib.c gswe-moment.c gswe-timestamp.c enumtypes.c
|
||||
gswe_headers = gswe-timestamp.h gswe-types.h
|
||||
|
||||
libswe_glib_0_1_la_SOURCES = $(libswe_glib_sources)
|
||||
libswe_glib_0_1_la_CFLAGS = $(GLIB_CFLAGS) $(GOBJECT_CFLAGS) -Wall
|
||||
libswe_glib_0_1_la_LIBADD = $(GLIB_LIBS) $(GOBJECT_LIBS) $(LIBSWE_LIBS)
|
||||
|
||||
BUILT_SOURCES = enumtypes.c enumtypes.h
|
||||
|
||||
CLEANFILES = $(BUILT_SOURCES)
|
||||
|
||||
EXTRA_DIST = enumtypes.h.template enumtypes.c.template
|
||||
|
||||
enumtypes.h: $(gswe_headers) enumtypes.h.template
|
||||
$(GLIB_MKENUMS) --template $(filter %.template,$^) $(filter-out %.template,$^) > \
|
||||
enumtypes.h.tmp && mv enumtypes.h.tmp enumtypes.h
|
||||
|
||||
enumtypes.c: $(gswe_headers) enumtypes.h enumtypes.c.template
|
||||
$(GLIB_MKENUMS) --template $(filter %.template,$^) $(filter-out %.template,$^) > \
|
||||
enumtypes.c.tmp && mv enumtypes.c.tmp enumtypes.c
|
||||
38
swe-glib/src/enumtypes.c.template
Normal file
38
swe-glib/src/enumtypes.c.template
Normal file
@ -0,0 +1,38 @@
|
||||
/*** BEGIN file-header ***/
|
||||
#include "enumtypes.h"
|
||||
#include "@filename@"
|
||||
|
||||
/*** END file-header ***/
|
||||
|
||||
/*** BEGIN file-production ***/
|
||||
/* enumerations from "@filename@" */
|
||||
/*** END file-production ***/
|
||||
|
||||
/*** BEGIN value-header ***/
|
||||
GType
|
||||
@enum_name@_get_type(void)
|
||||
{
|
||||
static volatile gsize g_define_type_id__volatile = 0;
|
||||
|
||||
if (g_once_init_enter(&g_define_type_id__volatile)) {
|
||||
static const G@Type@Value values[] = {
|
||||
/*** END value-header ***/
|
||||
|
||||
/*** BEGIN value-production ***/
|
||||
{ @VALUENAME@, "@VALUENAME@", "@valuenick@" },
|
||||
/*** END value-production ***/
|
||||
|
||||
/*** BEGIN value-tail ***/
|
||||
{ 0, NULL, NULL }
|
||||
};
|
||||
|
||||
GType g_define_type_id = g_@type@_register_static(g_intern_static_string("@EnumName@"), values);
|
||||
|
||||
g_once_init_leave(&g_define_type_id__volatile, g_define_type_id);
|
||||
}
|
||||
|
||||
return g_define_type_id__volatile;
|
||||
}
|
||||
|
||||
/*** END value-tail ***/
|
||||
|
||||
25
swe-glib/src/enumtypes.h.template
Normal file
25
swe-glib/src/enumtypes.h.template
Normal file
@ -0,0 +1,25 @@
|
||||
/*** BEGIN file-header ***/
|
||||
#ifndef __GSWE_ENUM_TYPES_H__
|
||||
#define __GSWE_ENUM_TYPES_H__
|
||||
|
||||
#include <glib-object.h>
|
||||
|
||||
/*** END file-header ***/
|
||||
|
||||
/*** BEGIN file-production ***/
|
||||
|
||||
/* enumerations from "@filename@" */
|
||||
|
||||
#include "@filename@"
|
||||
/*** END file-production ***/
|
||||
|
||||
/*** BEGIN value-header ***/
|
||||
GType @enum_name@_get_type(void);
|
||||
#define @ENUMPREFIX@_TYPE_@ENUMSHORT@ (@enum_name@_get_type())
|
||||
/*** END value-header ***/
|
||||
|
||||
/*** BEGIN file-tail ***/
|
||||
|
||||
#endif /* __GSWE_ENUM_TYPES_H__ */
|
||||
/*** END file-tail ***/
|
||||
|
||||
152
swe-glib/src/gswe-moment.c
Normal file
152
swe-glib/src/gswe-moment.c
Normal file
@ -0,0 +1,152 @@
|
||||
#include <math.h>
|
||||
#include "gswe-moment.h"
|
||||
|
||||
#define GSWE_MOMENT_GET_PRIVATE(obj) (G_TYPE_INSTANCE_GET_PRIVATE((obj), GSWE_TYPE_MOMENT, GsweMomentPrivate))
|
||||
|
||||
struct _GsweMomentPrivate {
|
||||
GDateTime *timestamp;
|
||||
gdouble julian_timestamp;
|
||||
GsweCoordinates coordinates;
|
||||
};
|
||||
|
||||
enum {
|
||||
SIGNAL_MOMENT_CHANGED,
|
||||
SIGNAL_LAST
|
||||
};
|
||||
|
||||
enum {
|
||||
PROP_0,
|
||||
PROP_TIMESTAMP
|
||||
};
|
||||
|
||||
static guint gswe_moment_signals[SIGNAL_LAST] = {0};
|
||||
|
||||
static void gswe_moment_dispose(GObject *gobject);
|
||||
static void gswe_moment_finalize(GObject *gobject);
|
||||
static void gswe_moment_set_property(GObject *object, guint prop_id, const GValue *value, GParamSpec *pspec);
|
||||
static void gswe_moment_get_property(GObject *object, guint prop_id, GValue *value, GParamSpec *pspec);
|
||||
|
||||
G_DEFINE_TYPE(GsweMoment, gswe_moment, G_TYPE_OBJECT);
|
||||
|
||||
static void
|
||||
gswe_moment_class_init(GsweMomentClass *klass)
|
||||
{
|
||||
GObjectClass *gobject_class = G_OBJECT_CLASS(klass);
|
||||
|
||||
g_type_class_add_private(klass, sizeof(GsweMomentPrivate));
|
||||
|
||||
gobject_class->dispose = gswe_moment_dispose;
|
||||
gobject_class->finalize = gswe_moment_finalize;
|
||||
gobject_class->set_property = gswe_moment_set_property;
|
||||
gobject_class->get_property = gswe_moment_get_property;
|
||||
|
||||
/**
|
||||
* GsweMoment::moment-changed:
|
||||
* @moment: the GsweMoment object that received the signal
|
||||
*
|
||||
* The ::moment-changed signal is emitted each time the time or coordinates are changed
|
||||
*/
|
||||
gswe_moment_signals[SIGNAL_MOMENT_CHANGED] = g_signal_new("moment-changed", G_OBJECT_CLASS_TYPE(gobject_class), G_SIGNAL_RUN_FIRST, G_STRUCT_OFFSET(GsweMomentClass, moment_changed), NULL, NULL, g_cclosure_marshal_generic, G_TYPE_NONE, 0);
|
||||
|
||||
/**
|
||||
* GsweMoment:timestamp:
|
||||
*
|
||||
* The timestamp associated with this moment
|
||||
*/
|
||||
g_object_class_install_property(gobject_class, PROP_TIMESTAMP, g_param_spec_pointer("timestamp", "Timestamp", "Timestamp of this moment", G_PARAM_READWRITE));
|
||||
}
|
||||
|
||||
static void
|
||||
gswe_moment_emit_moment_changed(GsweMoment *moment)
|
||||
{
|
||||
g_signal_emit(moment, gswe_moment_signals[SIGNAL_MOMENT_CHANGED], 0);
|
||||
}
|
||||
|
||||
void
|
||||
gswe_moment_init(GsweMoment *self)
|
||||
{
|
||||
self->priv = GSWE_MOMENT_GET_PRIVATE(self);
|
||||
|
||||
//self->priv->an_object = g_object_new(MAMAN_TYPE_BAZ, NULL);
|
||||
//self->priv->a_string = g_strdup("Maman");
|
||||
}
|
||||
|
||||
static void
|
||||
gswe_moment_dispose(GObject *gobject)
|
||||
{
|
||||
//GsweMoment *self = GSWE_MOMENT(gobject);
|
||||
|
||||
//g_clear_object(&self->priv->an_object);
|
||||
|
||||
G_OBJECT_CLASS(gswe_moment_parent_class)->dispose(gobject);
|
||||
}
|
||||
|
||||
static void
|
||||
gswe_moment_finalize(GObject *gobject)
|
||||
{
|
||||
//GsweMoment *self = GSWE_MOMENT(gobject);
|
||||
|
||||
//g_free(self->priv->a_string);
|
||||
|
||||
G_OBJECT_CLASS(gswe_moment_parent_class)->finalize(gobject);
|
||||
}
|
||||
|
||||
static void
|
||||
gswe_moment_set_property(GObject *object, guint prop_id, const GValue *value, GParamSpec *pspec)
|
||||
{
|
||||
GsweMoment *moment = GSWE_MOMENT(object);
|
||||
|
||||
switch (prop_id) {
|
||||
case PROP_TIMESTAMP:
|
||||
gswe_moment_set_timestamp(moment, (g_value_get_object(value)));
|
||||
|
||||
break;
|
||||
|
||||
default:
|
||||
G_OBJECT_WARN_INVALID_PROPERTY_ID(object, prop_id, pspec);
|
||||
|
||||
break;
|
||||
}
|
||||
}
|
||||
|
||||
static void
|
||||
gswe_moment_get_property(GObject *object, guint prop_id, GValue *value, GParamSpec *pspec)
|
||||
{
|
||||
GsweMoment *moment = GSWE_MOMENT(object);
|
||||
GsweMomentPrivate *priv = moment->priv;
|
||||
|
||||
switch (prop_id) {
|
||||
case PROP_TIMESTAMP:
|
||||
g_value_set_object(value, priv->timestamp);
|
||||
|
||||
break;
|
||||
|
||||
default:
|
||||
G_OBJECT_WARN_INVALID_PROPERTY_ID(object, prop_id, pspec);
|
||||
|
||||
break;
|
||||
}
|
||||
}
|
||||
|
||||
void
|
||||
gswe_moment_set_timestamp(GsweMoment *moment, GsweTimestamp *timestamp)
|
||||
{
|
||||
GsweMomentPrivate *priv = moment->priv;
|
||||
|
||||
/* Emit the moment-changed signal to notify registrants of the change */
|
||||
priv->timestamp = timestamp;
|
||||
gswe_moment_emit_moment_changed(moment);
|
||||
}
|
||||
|
||||
GQuark
|
||||
gswe_moment_error_quark(void)
|
||||
{
|
||||
return g_quark_from_static_string("swe-glib-gswe-moment-error");
|
||||
}
|
||||
|
||||
GsweMoment *
|
||||
gswe_moment_new(void)
|
||||
{
|
||||
return (GsweMoment *)g_object_new(GSWE_TYPE_MOMENT, NULL);
|
||||
}
|
||||
|
||||
68
swe-glib/src/gswe-moment.h
Normal file
68
swe-glib/src/gswe-moment.h
Normal file
@ -0,0 +1,68 @@
|
||||
#ifndef __GSWE_MOMENT_H__
|
||||
#define __GSWE_MOMENT_H__
|
||||
|
||||
#include <glib-object.h>
|
||||
|
||||
#define GSWE_TYPE_MOMENT (gswe_moment_get_type())
|
||||
#define GSWE_MOMENT(obj) (G_TYPE_CHECK_INSTANCE_CAST((obj), GSWE_TYPE_MOMENT, GsweMoment))
|
||||
#define GSWE_IS_MOMENT(obj) (G_TYPE_CHECK_INSTANCE_TYPE((obj), GSWE_TYPE_MOMENT))
|
||||
#define GSWE_MOMENT_CLASS(klass) (G_TYPE_CHECK_CLASS_CAST((klass), GSWE_TYPE_MOMENT, GsweMomentClass))
|
||||
#define GSWE_IS_MOMENT_CLASS(klass) (G_TYPE_CHECK_CLASS_TYPE((klass), GSWE_TYPE_MOMENT))
|
||||
#define GSWE_MOMENT_GET_CLASS(obj) (G_TYPE_INSTANCE_GET_CLASS((obj), GSWE_TYPE_MOMENT, GsweMomentClass))
|
||||
|
||||
typedef struct _GsweMoment GsweMoment;
|
||||
typedef struct _GsweMomentClass GsweMomentClass;
|
||||
typedef struct _GsweMomentPrivate GsweMomentPrivate;
|
||||
|
||||
#define GSWE_MOMENT_ERROR gswe_moment_error_quark()
|
||||
GQuark gswe_moment_error_quark(void);
|
||||
|
||||
/*
|
||||
* GsweMomentError:
|
||||
*
|
||||
* Error values for GsweTimestamp initialization
|
||||
*/
|
||||
//typedef enum {
|
||||
//} GsweMomentError;
|
||||
|
||||
/**
|
||||
* GsweCoordinates:
|
||||
* @longitude: longitude part of the coordinates
|
||||
* @latitude: latitude part of the coordinates
|
||||
*
|
||||
* GsweCoordinates specifies an exact point on Earth's surface
|
||||
*/
|
||||
typedef struct _GsweCoordinates {
|
||||
gdouble longitude;
|
||||
gdouble latitude;
|
||||
} GsweCoordinates;
|
||||
|
||||
struct _GsweMoment {
|
||||
/* Parent instance structure */
|
||||
GObject parent_instance;
|
||||
|
||||
/* Instance members */
|
||||
|
||||
/*< private >*/
|
||||
GsweMomentPrivate *priv;
|
||||
};
|
||||
|
||||
struct _GsweMomentClass {
|
||||
/* Parent class structure */
|
||||
GObjectClass parent_class;
|
||||
|
||||
/* Class members */
|
||||
|
||||
/*< private >*/
|
||||
void (*moment_changed)(GsweMoment *moment);
|
||||
};
|
||||
|
||||
/* used by GSWE_TYPE_MOMENT */
|
||||
GType gswe_moment_get_type(void);
|
||||
|
||||
/* Method definitions */
|
||||
GsweMoment *gswe_moment_new(void);
|
||||
void gswe_moment_set_timestamp(GsweMoment *moment, GsweTimestamp *timestamp);
|
||||
|
||||
#endif /* __GSWE_MOMENT_H__ */
|
||||
|
||||
597
swe-glib/src/gswe-timestamp.c
Normal file
597
swe-glib/src/gswe-timestamp.c
Normal file
@ -0,0 +1,597 @@
|
||||
#include <math.h>
|
||||
#include <glib.h>
|
||||
|
||||
#include "../../swe/src/swephexp.h"
|
||||
#include "swe-glib-private.h"
|
||||
#include "gswe-timestamp.h"
|
||||
|
||||
#define GSWE_TIMESTAMP_GET_PRIVATE(obj) (G_TYPE_INSTANCE_GET_PRIVATE((obj), GSWE_TYPE_TIMESTAMP, GsweTimestampPrivate))
|
||||
|
||||
typedef enum {
|
||||
VALID_GREGORIAN = 1 << 0,
|
||||
VALID_JULIAN_DAY = 1 << 1
|
||||
} TimestampValidity;
|
||||
|
||||
struct _GsweTimestampPrivate {
|
||||
gboolean instant_recalc;
|
||||
TimestampValidity valid_dates;
|
||||
|
||||
gint gregorian_year;
|
||||
gint gregorian_month;
|
||||
gint gregorian_day;
|
||||
gint gregorian_hour;
|
||||
gint gregorian_minute;
|
||||
gint gregorian_second;
|
||||
gint gregorian_microsecond;
|
||||
GTimeZone *gregorian_timezone;
|
||||
|
||||
gdouble julian_day;
|
||||
};
|
||||
|
||||
enum {
|
||||
SIGNAL_CHANGED,
|
||||
SIGNAL_LAST
|
||||
};
|
||||
|
||||
enum {
|
||||
PROP_0,
|
||||
PROP_INSTANT_RECALC,
|
||||
PROP_GREGORIAN_VALID,
|
||||
PROP_GREGORIAN_YEAR,
|
||||
PROP_GREGORIAN_MONTH,
|
||||
PROP_GREGORIAN_DAY,
|
||||
PROP_GREGORIAN_HOUR,
|
||||
PROP_GREGORIAN_MINUTE,
|
||||
PROP_GREGORIAN_SECOND,
|
||||
PROP_GREGORIAN_MICROSECOND,
|
||||
PROP_JULIAN_DAY_VALID
|
||||
};
|
||||
|
||||
static guint gswe_timestamp_signals[SIGNAL_LAST] = { 0 };
|
||||
|
||||
static void gswe_timestamp_dispose(GObject *gobject);
|
||||
static void gswe_timestamp_finalize(GObject *gobject);
|
||||
static void gswe_timestamp_set_property(GObject *gobject, guint prop_id, const GValue *value, GParamSpec *pspec);
|
||||
static void gswe_timestamp_get_property(GObject *gobject, guint prop_id, GValue *value, GParamSpec *pspec);
|
||||
static void gswe_timestamp_calculate_all(GsweTimestamp *timestamp);
|
||||
static void gswe_timestamp_calculate_gregorian(GsweTimestamp *timestamp);
|
||||
static void gswe_timestamp_calculate_julian(GsweTimestamp *timestamp);
|
||||
|
||||
G_DEFINE_TYPE(GsweTimestamp, gswe_timestamp, G_TYPE_OBJECT);
|
||||
|
||||
static void
|
||||
gswe_timestamp_class_init(GsweTimestampClass *klass)
|
||||
{
|
||||
GObjectClass *gobject_class = G_OBJECT_CLASS(klass);
|
||||
GDateTime *local_time = g_date_time_new_now_local();
|
||||
|
||||
g_type_class_add_private(klass, sizeof(GsweTimestampPrivate));
|
||||
|
||||
gobject_class->dispose = gswe_timestamp_dispose;
|
||||
gobject_class->finalize = gswe_timestamp_finalize;
|
||||
gobject_class->set_property = gswe_timestamp_set_property;
|
||||
gobject_class->get_property = gswe_timestamp_get_property;
|
||||
|
||||
/**
|
||||
* GsweTimestamp::changed:
|
||||
* @timestamp: the GsweTimestamp that receives the signal
|
||||
*
|
||||
* The ::changed signal is emitted each time the timestamp is changed
|
||||
*/
|
||||
gswe_timestamp_signals[SIGNAL_CHANGED] = g_signal_new("changed", G_OBJECT_CLASS_TYPE(gobject_class), G_SIGNAL_RUN_FIRST, G_STRUCT_OFFSET(GsweTimestampClass, changed), NULL, NULL, g_cclosure_marshal_generic, G_TYPE_NONE, 0);
|
||||
|
||||
/**
|
||||
* GsweTimestamp:instant-recalc:
|
||||
*
|
||||
* If set to TRUE, recalculate timestamp values instantly, when changing a
|
||||
* parameter (e.g. recalculate Julian date when changing Gregorian year).
|
||||
* Otherwise, the values are recalculated only upon request (e.g. on
|
||||
* calling #gswe_timestamp_get_julian_day()).
|
||||
*/
|
||||
g_object_class_install_property(gobject_class, PROP_INSTANT_RECALC, g_param_spec_boolean("instant-recalc", "Instant recalculation", "Instantly recalculate values upon parameter change", FALSE, G_PARAM_READWRITE));
|
||||
|
||||
/**
|
||||
* GsweTimestamp:gregorian-valid
|
||||
*
|
||||
* If TRUE, the Gregorian value stored in the GsweTimestamp object is
|
||||
* currently considered as valid, thus, no recalculation is needed.
|
||||
* Otherwise, the Gregorian date components will be recalculated upon
|
||||
* request.
|
||||
*/
|
||||
g_object_class_install_property(gobject_class, PROP_GREGORIAN_VALID, g_param_spec_boolean("gregorian-valid", "Gregorian date is valid", "TRUE if the Gregorian date components are considered as valid.", TRUE, G_PARAM_READABLE));
|
||||
|
||||
/**
|
||||
* GsweTimestamp:gregorian-year:
|
||||
*
|
||||
* The Gregorian year of the timestamp
|
||||
*/
|
||||
g_object_class_install_property(gobject_class, PROP_GREGORIAN_YEAR, g_param_spec_int("gregorian-year", "Gregorian year", "The year according to the Gregorian calendar", G_MININT, G_MAXINT, g_date_time_get_year(local_time), G_PARAM_READWRITE));
|
||||
|
||||
/**
|
||||
* GsweTimestamp:gregorian-month:
|
||||
*
|
||||
* The Gregorian month of the timestamp
|
||||
*/
|
||||
g_object_class_install_property(gobject_class, PROP_GREGORIAN_MONTH, g_param_spec_int("gregorian-month", "Gregorian month", "The month according to the Gregorian calendar", 1, 12, g_date_time_get_month(local_time), G_PARAM_READWRITE));
|
||||
|
||||
/**
|
||||
* GsweTimestamp:gregorian-day:
|
||||
*
|
||||
* The Gregorian day of the timestamp
|
||||
*/
|
||||
g_object_class_install_property(gobject_class, PROP_GREGORIAN_DAY, g_param_spec_int("gregorian-day", "Gregorian day", "The day according to the Gregorian calendar", 1, 31, g_date_time_get_day_of_month(local_time), G_PARAM_READWRITE));
|
||||
|
||||
/**
|
||||
* GsweTimestamp:gregorian-hour:
|
||||
*
|
||||
* The Gregorian hour of the timestamp
|
||||
*/
|
||||
g_object_class_install_property(gobject_class, PROP_GREGORIAN_HOUR, g_param_spec_int("gregorian-hour", "Gregorian hour", "The hour according to the Gregorian calendar", 0, 23, g_date_time_get_hour(local_time), G_PARAM_READWRITE));
|
||||
|
||||
/**
|
||||
* GsweTimestamp:gregorian-minute:
|
||||
*
|
||||
* The Gregorian minute of the timestamp
|
||||
*/
|
||||
g_object_class_install_property(gobject_class, PROP_GREGORIAN_MINUTE, g_param_spec_int("gregorian-minute", "Gregorian minute", "The minute according to the Gregorian calendar", 0, 59, g_date_time_get_minute(local_time), G_PARAM_READWRITE));
|
||||
|
||||
/**
|
||||
* GsweTimestamp:gregorian-second:
|
||||
*
|
||||
* The Gregorian second of the timestamp
|
||||
*/
|
||||
g_object_class_install_property(gobject_class, PROP_GREGORIAN_SECOND, g_param_spec_int("gregorian-second", "Gregorian second", "The second according to the Gregorian calendar", 0, 61, g_date_time_get_second(local_time), G_PARAM_READWRITE));
|
||||
|
||||
/**
|
||||
* GsweTimestamp:gregorian-microsecond:
|
||||
*
|
||||
* The Gregorian microsecond of the timestamp
|
||||
*/
|
||||
g_object_class_install_property(gobject_class, PROP_GREGORIAN_MICROSECOND, g_param_spec_int("gregorian-microsecond", "Gregorian microsecond", "The microsecond according to the Gregorian calendar", 0, G_MAXINT, g_date_time_get_microsecond(local_time), G_PARAM_READWRITE));
|
||||
|
||||
/**
|
||||
* GsweTimestamp:julian-day-valid
|
||||
*
|
||||
* If TRUE, the Julian day value stored in the GsweTimestamp object is
|
||||
* currently considered as valid, thus, no recalculation is needed.
|
||||
* Otherwise, the Julian day components will be recalculated upon request.
|
||||
*/
|
||||
g_object_class_install_property(gobject_class, PROP_JULIAN_DAY_VALID, g_param_spec_boolean("julian-day-valid", "Julian day is valid", "TRUE if the Julian day components are considered as valid.", TRUE, G_PARAM_READABLE));
|
||||
|
||||
g_date_time_unref(local_time);
|
||||
}
|
||||
|
||||
static void
|
||||
gswe_timestamp_emit_changed(GsweTimestamp *timestamp)
|
||||
{
|
||||
g_signal_emit(timestamp, gswe_timestamp_signals[SIGNAL_CHANGED], 0);
|
||||
}
|
||||
|
||||
void
|
||||
gswe_timestamp_init(GsweTimestamp *self)
|
||||
{
|
||||
self->priv = GSWE_TIMESTAMP_GET_PRIVATE(self);
|
||||
|
||||
self->priv->gregorian_timezone = g_time_zone_new_local();
|
||||
}
|
||||
|
||||
static void
|
||||
gswe_timestamp_dispose(GObject *gobject)
|
||||
{
|
||||
G_OBJECT_CLASS(gswe_timestamp_parent_class)->dispose(gobject);
|
||||
}
|
||||
|
||||
static void
|
||||
gswe_timestamp_finalize(GObject *gobject)
|
||||
{
|
||||
G_OBJECT_CLASS(gswe_timestamp_parent_class)->finalize(gobject);
|
||||
}
|
||||
|
||||
static void
|
||||
gswe_timestamp_set_property(GObject *object, guint prop_id, const GValue *value, GParamSpec *pspec)
|
||||
{
|
||||
GsweTimestamp *timestamp = GSWE_TIMESTAMP(object);
|
||||
|
||||
switch (prop_id) {
|
||||
case PROP_INSTANT_RECALC:
|
||||
gswe_timestamp_calculate_all(timestamp);
|
||||
|
||||
break;
|
||||
|
||||
case PROP_GREGORIAN_YEAR:
|
||||
gswe_timestamp_set_gregorian_year(timestamp, g_value_get_int(value));
|
||||
|
||||
break;
|
||||
|
||||
case PROP_GREGORIAN_MONTH:
|
||||
gswe_timestamp_set_gregorian_month(timestamp, g_value_get_int(value));
|
||||
|
||||
break;
|
||||
|
||||
case PROP_GREGORIAN_DAY:
|
||||
gswe_timestamp_set_gregorian_day(timestamp, g_value_get_int(value));
|
||||
|
||||
break;
|
||||
|
||||
case PROP_GREGORIAN_HOUR:
|
||||
gswe_timestamp_set_gregorian_hour(timestamp, g_value_get_int(value));
|
||||
|
||||
break;
|
||||
|
||||
case PROP_GREGORIAN_MINUTE:
|
||||
gswe_timestamp_set_gregorian_minute(timestamp, g_value_get_int(value));
|
||||
|
||||
break;
|
||||
|
||||
case PROP_GREGORIAN_SECOND:
|
||||
gswe_timestamp_set_gregorian_second(timestamp, g_value_get_int(value));
|
||||
|
||||
break;
|
||||
|
||||
case PROP_GREGORIAN_MICROSECOND:
|
||||
gswe_timestamp_set_gregorian_microsecond(timestamp, g_value_get_int(value));
|
||||
|
||||
break;
|
||||
|
||||
default:
|
||||
G_OBJECT_WARN_INVALID_PROPERTY_ID(object, prop_id, pspec);
|
||||
|
||||
break;
|
||||
}
|
||||
}
|
||||
|
||||
static void
|
||||
gswe_timestamp_get_property(GObject *object, guint prop_id, GValue *value, GParamSpec *pspec)
|
||||
{
|
||||
GsweTimestamp *timestamp = GSWE_TIMESTAMP(object);
|
||||
|
||||
switch (prop_id) {
|
||||
case PROP_INSTANT_RECALC:
|
||||
g_value_set_boolean(value, timestamp->priv->instant_recalc);
|
||||
|
||||
break;
|
||||
|
||||
case PROP_GREGORIAN_VALID:
|
||||
g_value_set_boolean(value, ((timestamp->priv->valid_dates & VALID_GREGORIAN) == VALID_GREGORIAN));
|
||||
|
||||
break;
|
||||
|
||||
case PROP_GREGORIAN_YEAR:
|
||||
gswe_timestamp_calculate_gregorian(timestamp);
|
||||
g_value_set_int(value, timestamp->priv->gregorian_year);
|
||||
|
||||
break;
|
||||
|
||||
case PROP_GREGORIAN_MONTH:
|
||||
gswe_timestamp_calculate_gregorian(timestamp);
|
||||
g_value_set_int(value, timestamp->priv->gregorian_month);
|
||||
|
||||
break;
|
||||
|
||||
case PROP_GREGORIAN_DAY:
|
||||
gswe_timestamp_calculate_gregorian(timestamp);
|
||||
g_value_set_int(value, timestamp->priv->gregorian_day);
|
||||
|
||||
break;
|
||||
|
||||
case PROP_GREGORIAN_HOUR:
|
||||
gswe_timestamp_calculate_gregorian(timestamp);
|
||||
g_value_set_int(value, timestamp->priv->gregorian_hour);
|
||||
|
||||
break;
|
||||
|
||||
case PROP_GREGORIAN_MINUTE:
|
||||
gswe_timestamp_calculate_gregorian(timestamp);
|
||||
g_value_set_int(value, timestamp->priv->gregorian_minute);
|
||||
|
||||
break;
|
||||
|
||||
case PROP_GREGORIAN_SECOND:
|
||||
gswe_timestamp_calculate_gregorian(timestamp);
|
||||
g_value_set_int(value, timestamp->priv->gregorian_second);
|
||||
|
||||
break;
|
||||
|
||||
case PROP_GREGORIAN_MICROSECOND:
|
||||
gswe_timestamp_calculate_gregorian(timestamp);
|
||||
g_value_set_int(value, timestamp->priv->gregorian_microsecond);
|
||||
|
||||
break;
|
||||
|
||||
case PROP_JULIAN_DAY_VALID:
|
||||
g_value_set_boolean(value, ((timestamp->priv->valid_dates & VALID_JULIAN_DAY) == VALID_JULIAN_DAY));
|
||||
|
||||
break;
|
||||
|
||||
default:
|
||||
G_OBJECT_WARN_INVALID_PROPERTY_ID(object, prop_id, pspec);
|
||||
|
||||
break;
|
||||
}
|
||||
}
|
||||
|
||||
static void
|
||||
gswe_timestamp_calculate_all(GsweTimestamp *timestamp)
|
||||
{
|
||||
if ((timestamp->priv->valid_dates & VALID_JULIAN_DAY) != VALID_JULIAN_DAY) {
|
||||
gswe_timestamp_calculate_julian(timestamp);
|
||||
}
|
||||
|
||||
if ((timestamp->priv->valid_dates & VALID_GREGORIAN) != VALID_GREGORIAN) {
|
||||
gswe_timestamp_calculate_gregorian(timestamp);
|
||||
}
|
||||
}
|
||||
|
||||
static void
|
||||
gswe_timestamp_calculate_gregorian(GsweTimestamp *timestamp)
|
||||
{
|
||||
if ((timestamp->priv->valid_dates & VALID_GREGORIAN) == VALID_GREGORIAN) {
|
||||
return;
|
||||
}
|
||||
|
||||
if (timestamp->priv->valid_dates == 0) {
|
||||
g_error("This timestamp object holds no valid values. This can't be good.");
|
||||
}
|
||||
|
||||
g_warning("This method is not implemented yet.");
|
||||
}
|
||||
|
||||
void
|
||||
gswe_timestamp_set_instant_recalc(GsweTimestamp *timestamp, gboolean instant_recalc)
|
||||
{
|
||||
timestamp->priv->instant_recalc = instant_recalc;
|
||||
|
||||
if (instant_recalc == TRUE) {
|
||||
gswe_timestamp_calculate_all(timestamp);
|
||||
}
|
||||
}
|
||||
|
||||
gboolean
|
||||
gswe_timestamp_get_instant_recalc(GsweTimestamp *timestamp)
|
||||
{
|
||||
return timestamp->priv->instant_recalc;
|
||||
}
|
||||
|
||||
void
|
||||
gswe_timestamp_set_gregorian_year(GsweTimestamp *timestamp, gint gregorian_year)
|
||||
{
|
||||
timestamp->priv->gregorian_year = gregorian_year;
|
||||
timestamp->priv->valid_dates = VALID_GREGORIAN;
|
||||
|
||||
if (timestamp->priv->instant_recalc == TRUE) {
|
||||
gswe_timestamp_calculate_all(timestamp);
|
||||
}
|
||||
|
||||
gswe_timestamp_emit_changed(timestamp);
|
||||
}
|
||||
|
||||
gint
|
||||
gswe_timestamp_get_gregorian_year(GsweTimestamp *timestamp)
|
||||
{
|
||||
gswe_timestamp_calculate_gregorian(timestamp);
|
||||
|
||||
return timestamp->priv->gregorian_year;
|
||||
}
|
||||
|
||||
void
|
||||
gswe_timestamp_set_gregorian_month(GsweTimestamp *timestamp, gint gregorian_month)
|
||||
{
|
||||
timestamp->priv->gregorian_month = gregorian_month;
|
||||
timestamp->priv->valid_dates = VALID_GREGORIAN;
|
||||
|
||||
if (timestamp->priv->instant_recalc == TRUE) {
|
||||
gswe_timestamp_calculate_all(timestamp);
|
||||
}
|
||||
|
||||
gswe_timestamp_emit_changed(timestamp);
|
||||
}
|
||||
|
||||
gint
|
||||
gswe_timestamp_get_gregorian_month(GsweTimestamp *timestamp)
|
||||
{
|
||||
gswe_timestamp_calculate_gregorian(timestamp);
|
||||
|
||||
return timestamp->priv->gregorian_month;
|
||||
}
|
||||
|
||||
void
|
||||
gswe_timestamp_set_gregorian_day(GsweTimestamp *timestamp, gint gregorian_day)
|
||||
{
|
||||
timestamp->priv->gregorian_day = gregorian_day;
|
||||
timestamp->priv->valid_dates = VALID_GREGORIAN;
|
||||
|
||||
if (timestamp->priv->instant_recalc == TRUE) {
|
||||
gswe_timestamp_calculate_all(timestamp);
|
||||
}
|
||||
|
||||
gswe_timestamp_emit_changed(timestamp);
|
||||
}
|
||||
|
||||
gint
|
||||
gswe_timestamp_get_gregorian_day(GsweTimestamp *timestamp)
|
||||
{
|
||||
gswe_timestamp_calculate_gregorian(timestamp);
|
||||
|
||||
return timestamp->priv->gregorian_day;
|
||||
}
|
||||
|
||||
void
|
||||
gswe_timestamp_set_gregorian_hour(GsweTimestamp *timestamp, gint gregorian_hour)
|
||||
{
|
||||
timestamp->priv->gregorian_hour = gregorian_hour;
|
||||
timestamp->priv->valid_dates = VALID_GREGORIAN;
|
||||
|
||||
if (timestamp->priv->instant_recalc == TRUE) {
|
||||
gswe_timestamp_calculate_all(timestamp);
|
||||
}
|
||||
|
||||
gswe_timestamp_emit_changed(timestamp);
|
||||
}
|
||||
|
||||
gint
|
||||
gswe_timestamp_get_gregorian_hour(GsweTimestamp *timestamp)
|
||||
{
|
||||
gswe_timestamp_calculate_gregorian(timestamp);
|
||||
|
||||
return timestamp->priv->gregorian_hour;
|
||||
}
|
||||
|
||||
void
|
||||
gswe_timestamp_set_gregorian_minute(GsweTimestamp *timestamp, gint gregorian_minute)
|
||||
{
|
||||
timestamp->priv->gregorian_minute = gregorian_minute;
|
||||
timestamp->priv->valid_dates = VALID_GREGORIAN;
|
||||
|
||||
if (timestamp->priv->instant_recalc == TRUE) {
|
||||
gswe_timestamp_calculate_all(timestamp);
|
||||
}
|
||||
|
||||
gswe_timestamp_emit_changed(timestamp);
|
||||
}
|
||||
|
||||
gint
|
||||
gswe_timestamp_get_gregorian_minute(GsweTimestamp *timestamp)
|
||||
{
|
||||
gswe_timestamp_calculate_gregorian(timestamp);
|
||||
|
||||
return timestamp->priv->gregorian_minute;
|
||||
}
|
||||
|
||||
void
|
||||
gswe_timestamp_set_gregorian_second(GsweTimestamp *timestamp, gint gregorian_second)
|
||||
{
|
||||
timestamp->priv->gregorian_second = gregorian_second;
|
||||
timestamp->priv->valid_dates = VALID_GREGORIAN;
|
||||
|
||||
if (timestamp->priv->instant_recalc == TRUE) {
|
||||
gswe_timestamp_calculate_all(timestamp);
|
||||
}
|
||||
|
||||
gswe_timestamp_emit_changed(timestamp);
|
||||
}
|
||||
|
||||
gint
|
||||
gswe_timestamp_get_gregorian_second(GsweTimestamp *timestamp)
|
||||
{
|
||||
gswe_timestamp_calculate_gregorian(timestamp);
|
||||
|
||||
return timestamp->priv->gregorian_second;
|
||||
}
|
||||
|
||||
void
|
||||
gswe_timestamp_set_gregorian_microsecond(GsweTimestamp *timestamp, gint gregorian_microsecond)
|
||||
{
|
||||
timestamp->priv->gregorian_microsecond = gregorian_microsecond;
|
||||
timestamp->priv->valid_dates = VALID_GREGORIAN;
|
||||
|
||||
if (timestamp->priv->instant_recalc == TRUE) {
|
||||
gswe_timestamp_calculate_all(timestamp);
|
||||
}
|
||||
|
||||
gswe_timestamp_emit_changed(timestamp);
|
||||
}
|
||||
|
||||
gint
|
||||
gswe_timestamp_get_gregorian_microsecond(GsweTimestamp *timestamp)
|
||||
{
|
||||
gswe_timestamp_calculate_gregorian(timestamp);
|
||||
|
||||
return timestamp->priv->gregorian_microsecond;
|
||||
}
|
||||
|
||||
static void
|
||||
gswe_timestamp_calculate_julian(GsweTimestamp *timestamp)
|
||||
{
|
||||
gint utc_year,
|
||||
utc_month,
|
||||
utc_day,
|
||||
utc_hour,
|
||||
utc_minute,
|
||||
retval;
|
||||
gdouble utc_second,
|
||||
dret[2];
|
||||
gchar serr[AS_MAXCH];
|
||||
|
||||
if ((timestamp->priv->valid_dates & VALID_JULIAN_DAY) == VALID_JULIAN_DAY) {
|
||||
return;
|
||||
}
|
||||
|
||||
if (timestamp->priv->valid_dates == 0) {
|
||||
g_error("This timestamp object holds no valid values. This can't be good.");
|
||||
}
|
||||
|
||||
swe_utc_time_zone(timestamp->priv->gregorian_year, timestamp->priv->gregorian_month, timestamp->priv->gregorian_day, timestamp->priv->gregorian_hour, timestamp->priv->gregorian_minute, timestamp->priv->gregorian_second + timestamp->priv->gregorian_microsecond / 1000.0, g_time_zone_get_offset(timestamp->priv->gregorian_timezone, 0) / 3600.0, &utc_year, &utc_month, &utc_day, &utc_hour, &utc_minute, &utc_second);
|
||||
if ((retval = swe_utc_to_jd(utc_year, utc_month, utc_day, utc_hour, utc_minute, utc_second, SE_GREG_CAL, dret, serr)) == ERR) {
|
||||
g_error("Swiss Ephemeris error: %s", serr);
|
||||
} else {
|
||||
timestamp->priv->julian_day = dret[0];
|
||||
timestamp->priv->valid_dates |= VALID_JULIAN_DAY;
|
||||
}
|
||||
}
|
||||
|
||||
void
|
||||
gswe_timestamp_set_julian_day(GsweTimestamp *timestamp, gdouble julian_day)
|
||||
{
|
||||
timestamp->priv->julian_day = julian_day;
|
||||
timestamp->priv->valid_dates = VALID_JULIAN_DAY;
|
||||
|
||||
if (timestamp->priv->instant_recalc == TRUE) {
|
||||
gswe_timestamp_calculate_all(timestamp);
|
||||
}
|
||||
|
||||
gswe_timestamp_emit_changed(timestamp);
|
||||
}
|
||||
|
||||
gdouble
|
||||
gswe_timestamp_get_julian_day(GsweTimestamp *timestamp)
|
||||
{
|
||||
gswe_timestamp_calculate_julian(timestamp);
|
||||
|
||||
return timestamp->priv->julian_day;
|
||||
}
|
||||
|
||||
GQuark
|
||||
gswe_timestamp_error_quark(void)
|
||||
{
|
||||
return g_quark_from_static_string("swe-glib-gswe-timestamp-error");
|
||||
}
|
||||
|
||||
GsweTimestamp *
|
||||
gswe_timestamp_new(void)
|
||||
{
|
||||
return GSWE_TIMESTAMP(g_object_new(GSWE_TYPE_TIMESTAMP, NULL));
|
||||
}
|
||||
|
||||
GsweTimestamp *
|
||||
gswe_timestamp_new_from_gregorian_full(gint year, gint month, gint day, gint hour, gint minute, gint second, gint microsecond, GTimeZone *time_zone)
|
||||
{
|
||||
GsweTimestamp *timestamp = GSWE_TIMESTAMP(g_object_new(GSWE_TYPE_TIMESTAMP,
|
||||
"gregorian-year", year,
|
||||
"gregorian-month", month,
|
||||
"gregorian-day", day,
|
||||
"gregorian-hour", hour,
|
||||
"gregorian-minute", minute,
|
||||
"gregorian-second", second,
|
||||
"gregorian-microsecond", microsecond,
|
||||
NULL));
|
||||
|
||||
if (timestamp->priv->gregorian_timezone != NULL) {
|
||||
g_time_zone_unref(timestamp->priv->gregorian_timezone);
|
||||
}
|
||||
|
||||
timestamp->priv->gregorian_timezone = g_time_zone_ref(time_zone);
|
||||
timestamp->priv->valid_dates = VALID_GREGORIAN;
|
||||
|
||||
return timestamp;
|
||||
}
|
||||
|
||||
GsweTimestamp *
|
||||
gswe_timestamp_new_from_julian_day(gdouble julian_day)
|
||||
{
|
||||
GsweTimestamp *timestamp = gswe_timestamp_new();
|
||||
|
||||
gswe_timestamp_set_julian_day(timestamp, julian_day);
|
||||
|
||||
return timestamp;
|
||||
}
|
||||
|
||||
69
swe-glib/src/gswe-timestamp.h
Normal file
69
swe-glib/src/gswe-timestamp.h
Normal file
@ -0,0 +1,69 @@
|
||||
#ifndef __SWE_GLIB_GSWE_TIMESTAMP_H__
|
||||
#define __SWE_GLIB_GSWE_TIMESTAMP_H__
|
||||
|
||||
#include <glib-object.h>
|
||||
|
||||
#define GSWE_TYPE_TIMESTAMP (gswe_timestamp_get_type())
|
||||
#define GSWE_TIMESTAMP(obj) (G_TYPE_CHECK_INSTANCE_CAST((obj), GSWE_TYPE_TIMESTAMP, GsweTimestamp))
|
||||
#define GSWE_IS_TIMESTAMP(obj) (G_TYPE_CHECK_INSTANCE_TYPE((obj), GSWE_TYPE_TIMESTAMP))
|
||||
#define GSWE_TIMESTAMP_CLASS(klass) (G_TYPE_CHECK_CLASS_CAST((klass), GSWE_TYPE_TIMESTAMP, GsweTimestampClass))
|
||||
#define GSWE_IS_TIMESTAMP_CLASS(klass) (G_TYPE_CHECK_CLASS_TYPE((klass), GSWE_TYPE_TIMESTAMP))
|
||||
#define GSWE_TIMESTAMP_GET_CLASS(obj) (G_TYPE_INSTANCE_GET_CLASS((obj), GSWE_TYPE_TIMESTAMP, GsweTimestampClass))
|
||||
|
||||
typedef struct _GsweTimestamp GsweTimestamp;
|
||||
typedef struct _GsweTimestampClass GsweTimestampClass;
|
||||
typedef struct _GsweTimestampPrivate GsweTimestampPrivate;
|
||||
|
||||
#define GSWE_TIMESTAMP_ERROR (gswe_timestamp_error_quark())
|
||||
GQuark gswe_timestamp_error_quark(void);
|
||||
|
||||
typedef enum {
|
||||
GSWE_TIMESTAMP_ERROR_INVALID_DATE,
|
||||
GSWE_TIMESTAMP_ERROR_INVALID_TIME
|
||||
} GsweTimestampError;
|
||||
|
||||
struct _GsweTimestamp {
|
||||
/* Parent instance structure */
|
||||
GObject parent_instance;
|
||||
|
||||
/* Instance members */
|
||||
|
||||
/*< private >*/
|
||||
GsweTimestampPrivate *priv;
|
||||
};
|
||||
|
||||
struct _GsweTimestampClass {
|
||||
/* Parent class */
|
||||
GObjectClass parent_class;
|
||||
|
||||
/* Class members */
|
||||
void (*changed)(GsweTimestamp *self);
|
||||
};
|
||||
|
||||
GType gswe_timestamp_get_type(void);
|
||||
|
||||
/* Method definitions */
|
||||
GsweTimestamp *gswe_timestamp_new(void);
|
||||
GsweTimestamp *gswe_timestamp_new_from_julian_day(gdouble julian_day);
|
||||
GsweTimestamp * gswe_timestamp_new_from_gregorian_full(gint year, gint month, gint day, gint hour, gint minute, gint second, gint microsecond, GTimeZone *time_zone);
|
||||
void gswe_timestamp_set_instant_recalc(GsweTimestamp *timestamp, gboolean instant_recalc);
|
||||
gboolean gswe_timestamp_get_instant_recalc(GsweTimestamp *timestamp);
|
||||
void gswe_timestamp_set_gregorian_year(GsweTimestamp *timestamp, gint gregorian_year);
|
||||
gint gswe_timestamp_get_gregorian_year(GsweTimestamp *timestamp);
|
||||
void gswe_timestamp_set_gregorian_month(GsweTimestamp *timestamp, gint gregorian_month);
|
||||
gint gswe_timestamp_get_gregorian_month(GsweTimestamp *timestamp);
|
||||
void gswe_timestamp_set_gregorian_day(GsweTimestamp *timestamp, gint gregorian_day);
|
||||
gint gswe_timestamp_get_gregorian_day(GsweTimestamp *timestamp);
|
||||
void gswe_timestamp_set_gregorian_hour(GsweTimestamp *timestamp, gint gregorian_hour);
|
||||
gint gswe_timestamp_get_gregorian_hour(GsweTimestamp *timestamp);
|
||||
void gswe_timestamp_set_gregorian_minute(GsweTimestamp *timestamp, gint gregorian_minute);
|
||||
gint gswe_timestamp_get_gregorian_minute(GsweTimestamp *timestamp);
|
||||
void gswe_timestamp_set_gregorian_second(GsweTimestamp *timestamp, gint gregorian_second);
|
||||
gint gswe_timestamp_get_gregorian_second(GsweTimestamp *timestamp);
|
||||
void gswe_timestamp_set_gregorian_microsecond(GsweTimestamp *timestamp, gint gregorian_microsecond);
|
||||
gint gswe_timestamp_get_gregorian_microsecond(GsweTimestamp *timestamp);
|
||||
void gswe_timestamp_set_julian_day(GsweTimestamp *timestamp, gdouble julian_day);
|
||||
gdouble gswe_timestamp_get_julian_day(GsweTimestamp *timestamp);
|
||||
|
||||
#endif /* __SWE_GLIB_GSWE_TIMESTAMP_H__ */
|
||||
|
||||
85
swe-glib/src/gswe-types.h
Normal file
85
swe-glib/src/gswe-types.h
Normal file
@ -0,0 +1,85 @@
|
||||
#ifndef __SWE_GLIB_GSWE_PLANETS_H__
|
||||
#define __SWE_GLIB_GSWE_PLANETS_H__
|
||||
|
||||
typedef enum {
|
||||
GSWE_PLANET_NONE,
|
||||
GSWE_PLANET_SUN,
|
||||
GSWE_PLANET_MOON,
|
||||
GSWE_PLANET_MERCURY,
|
||||
GSWE_PLANET_VENUS,
|
||||
GSWE_PLANET_EARTH,
|
||||
GSWE_PLANET_MARS,
|
||||
GSWE_PLANET_JUPITER,
|
||||
GSWE_PLANET_SATURN,
|
||||
GSWE_PLANET_URANUS,
|
||||
GSWE_PLANET_NEPTUNE,
|
||||
GSWE_PLANET_PLUTO,
|
||||
GSWE_PLANET_CHIRON,
|
||||
GSWE_PLANET_CERES,
|
||||
GSWE_PLANET_PALLAS,
|
||||
GSWE_PLANET_JUNO,
|
||||
GSWE_PLANET_VESTA,
|
||||
GSWE_PLANET_MOON_NODE,
|
||||
GSWE_PLANET_MOON_APOGEE,
|
||||
GSWE_PLANET_ASCENDENT,
|
||||
GSWE_PLANET_MC,
|
||||
GSWE_PLANET_VERTEX
|
||||
} GswePlanet;
|
||||
|
||||
typedef enum {
|
||||
GSWE_SIGN_NONE,
|
||||
GSWE_SIGN_ARIES,
|
||||
GSWE_SIGN_TAURUS,
|
||||
GSWE_SIGN_GEMINI,
|
||||
GSWE_SIGN_CANCER,
|
||||
GSWE_SIGN_LEO,
|
||||
GSWE_SIGN_VIRGO,
|
||||
GSWE_SIGN_LIBRA,
|
||||
GSWE_SIGN_SCORPIO,
|
||||
GSWE_SIGN_SAGITTARIUS,
|
||||
GSWE_SIGN_CAPRICORN,
|
||||
GSWE_SIGN_AQUARIUS,
|
||||
GSWE_SIGN_PISCES
|
||||
} GsweZodiac;
|
||||
|
||||
typedef enum {
|
||||
GSWE_ELEMENT_NONE,
|
||||
GSWE_ELEMENT_FIRE,
|
||||
GSWE_ELEMENT_EARTH,
|
||||
GSWE_ELEMENT_AIR,
|
||||
GSWE_ELEMENT_WATER
|
||||
} GsweElement;
|
||||
|
||||
typedef enum {
|
||||
GSWE_QUALITY_NONE,
|
||||
GSWE_QUALITY_CARDINAL,
|
||||
GSWE_QUALITY_FIX,
|
||||
GSWE_QUALITY_MUTABLE
|
||||
} GsweQuality;
|
||||
|
||||
/**
|
||||
* GswePlanetInfo:
|
||||
* @planet: the planet ID
|
||||
* @orb: the planet's “personal” orb
|
||||
* @name: the planet's name
|
||||
* @domicile_sign_1: the first sign in which the planet is domicile
|
||||
* @domicile_sign_2: the second sign in which the planet is domicile
|
||||
* @exile_sign_1: the first sign in which the planet is in exile
|
||||
* @exile_sign_2: the second sign in which the planet is in exile
|
||||
* @exalted_sign: the sign in which the planet is exalted
|
||||
* @fall_sign: the sign in which the planet is in fall
|
||||
*/
|
||||
typedef struct {
|
||||
GswePlanet planet;
|
||||
gdouble orb;
|
||||
gchar *name;
|
||||
GsweZodiac domicile_sign_1;
|
||||
GsweZodiac domicile_sign_2;
|
||||
GsweZodiac exile_sign_1;
|
||||
GsweZodiac exile_sign_2;
|
||||
GsweZodiac exalted_sign;
|
||||
GsweZodiac fall_sign;
|
||||
} GswePlanetInfo;
|
||||
|
||||
#endif /* __SWE_GLIB_GSWE_PLANETS_H__ */
|
||||
|
||||
10
swe-glib/src/swe-glib-private.h
Normal file
10
swe-glib/src/swe-glib-private.h
Normal file
@ -0,0 +1,10 @@
|
||||
#ifdef __SWE_GLIB_BUILDING__
|
||||
#ifndef __SWE_GLIB_PRIVATE_H__
|
||||
|
||||
extern gchar *gswe_ephe_path;
|
||||
|
||||
#endif /* __SWE_GLIB_PRIVATE_H__ */
|
||||
#else /* not defined __SWE_GLIB_BUILDING__ */
|
||||
#error __FILE__ "Can not be included, unless building SWE-GLib"
|
||||
#endif /* __SWE_GLIB_BUILDING__ */
|
||||
|
||||
74
swe-glib/src/swe-glib.c
Normal file
74
swe-glib/src/swe-glib.c
Normal file
@ -0,0 +1,74 @@
|
||||
#include <glib.h>
|
||||
#define GETTEXT_PACKAGE "swe-glib"
|
||||
#include <glib/gi18n-lib.h>
|
||||
|
||||
#include "../../swe/src/swephexp.h"
|
||||
#include "swe-glib.h"
|
||||
|
||||
gboolean gswe_initialized = FALSE;
|
||||
gchar *gswe_ephe_path = NULL;
|
||||
GHashTable *gswe_planet_info_table;
|
||||
GArray *gswe_morrison_stephenson_deltat = NULL;
|
||||
|
||||
#define ADD_PLANET(ht, v, i, n, o, dom1, dom2, exi1, exi2, exa, fal) (v) = g_new0(GswePlanetInfo, 1); \
|
||||
(v)->planet = (i); \
|
||||
(v)->orb = (o); \
|
||||
(v)->name = g_strdup(n); \
|
||||
(v)->domicile_sign_1 = (dom1); \
|
||||
(v)->domicile_sign_2 = (dom2); \
|
||||
(v)->exile_sign_1 = (exi1); \
|
||||
(v)->exile_sign_2 = (exi2); \
|
||||
(v)->exalted_sign = (exa); \
|
||||
(v)->fall_sign = (fal); \
|
||||
g_hash_table_replace((ht), GINT_TO_POINTER(i), (v));
|
||||
|
||||
void
|
||||
gswe_free_planet_info(gpointer planet_info)
|
||||
{
|
||||
g_free(((GswePlanetInfo *)planet_info)->name);
|
||||
g_free(planet_info);
|
||||
}
|
||||
|
||||
/**
|
||||
* gswe_init:
|
||||
* @sweph_path: the file system path to the Swiss Ephemeris data files
|
||||
*
|
||||
* Initializes the SWE-GLib library. It must be called before any calculations
|
||||
* are made.
|
||||
*/
|
||||
void
|
||||
gswe_init(gchar *sweph_path)
|
||||
{
|
||||
GswePlanetInfo *planet_info;
|
||||
|
||||
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, gswe_free_planet_info);
|
||||
|
||||
ADD_PLANET(gswe_planet_info_table, planet_info, GSWE_PLANET_SUN, _("Sun"), 13.0, GSWE_SIGN_LEO, GSWE_SIGN_NONE, GSWE_SIGN_AQUARIUS, GSWE_SIGN_NONE, GSWE_SIGN_ARIES, GSWE_SIGN_LIBRA);
|
||||
ADD_PLANET(gswe_planet_info_table, planet_info, GSWE_PLANET_MOON, _("Moon"), 9.0, GSWE_SIGN_CANCER, GSWE_SIGN_NONE, GSWE_SIGN_CAPRICORN, GSWE_SIGN_NONE, GSWE_SIGN_TAURUS, GSWE_SIGN_SCORPIO);
|
||||
ADD_PLANET(gswe_planet_info_table, planet_info, GSWE_PLANET_MERCURY, _("Mercury"), 7.0, GSWE_SIGN_GEMINI, GSWE_SIGN_VIRGO, GSWE_SIGN_SAGITTARIUS, GSWE_SIGN_PISCES, GSWE_SIGN_VIRGO, GSWE_SIGN_PISCES);
|
||||
ADD_PLANET(gswe_planet_info_table, planet_info, GSWE_PLANET_VENUS, _("Venus"), 7.0, GSWE_SIGN_TAURUS, GSWE_SIGN_LIBRA, GSWE_SIGN_SCORPIO, GSWE_SIGN_ARIES, GSWE_SIGN_PISCES, GSWE_SIGN_VIRGO);
|
||||
ADD_PLANET(gswe_planet_info_table, planet_info, GSWE_PLANET_MARS, _("Mars"), 7.0, GSWE_SIGN_ARIES, GSWE_SIGN_SCORPIO, GSWE_SIGN_LIBRA, GSWE_SIGN_TAURUS, GSWE_SIGN_CAPRICORN, GSWE_SIGN_CANCER);
|
||||
ADD_PLANET(gswe_planet_info_table, planet_info, GSWE_PLANET_JUPITER, _("Jupiter"), 9.0, GSWE_SIGN_SAGITTARIUS, GSWE_SIGN_PISCES, GSWE_SIGN_GEMINI, GSWE_SIGN_VIRGO, GSWE_SIGN_CANCER, GSWE_SIGN_CAPRICORN);
|
||||
ADD_PLANET(gswe_planet_info_table, planet_info, GSWE_PLANET_SATURN, _("Saturn"), 7.0, GSWE_SIGN_CAPRICORN, GSWE_SIGN_AQUARIUS, GSWE_SIGN_CANCER, GSWE_SIGN_LEO, GSWE_SIGN_LIBRA, GSWE_SIGN_ARIES);
|
||||
ADD_PLANET(gswe_planet_info_table, planet_info, GSWE_PLANET_URANUS, _("Uranus"), 5.0, GSWE_SIGN_AQUARIUS, 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_NEPTUNE, _("Neptune"), 5.0, GSWE_SIGN_PISCES, 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_PLUTO, _("Pluto"), 3.0, GSWE_SIGN_SCORPIO, 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_CHIRON, _("Chiron"), 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_CERES, _("Ceres"), 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_PALLAS, _("Pallas"), 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_JUNO, _("Juno"), 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_VESTA, _("Vesta"), 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_MOON_NODE, _("Ascending Moon Node"), 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_MOON_APOGEE, _("Dark Moon"), 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_ASCENDENT, _("Ascendent"), 9.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, _("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, _("Vertex"), 2.0, GSWE_SIGN_NONE, GSWE_SIGN_NONE, GSWE_SIGN_NONE, GSWE_SIGN_NONE, GSWE_SIGN_NONE, GSWE_SIGN_NONE);
|
||||
|
||||
gswe_ephe_path = g_strdup(sweph_path);
|
||||
swe_set_ephe_path(sweph_path);
|
||||
gswe_initialized = TRUE;
|
||||
}
|
||||
|
||||
11
swe-glib/src/swe-glib.h
Normal file
11
swe-glib/src/swe-glib.h
Normal file
@ -0,0 +1,11 @@
|
||||
#ifndef __SWE_GLIB_H__
|
||||
#define __SWE_GLIB_H__
|
||||
|
||||
#include <glib.h>
|
||||
#include "gswe-types.h"
|
||||
#include "gswe-timestamp.h"
|
||||
|
||||
void gswe_init(gchar *sweph_path);
|
||||
|
||||
#endif /* __SWE_GLIB_H__ */
|
||||
|
||||
Loading…
Reference in New Issue
Block a user