--- /dev/null
+/* YC 0.2 Tue Feb 29 16:45:14 CET 2000 */
+/* Module-C: UserInfoFormat-dateTime */
+
+#include <yaz/z-date.h>
+
+int z_DateTime (ODR o, Z_DateTime **p, int opt, const char *name)
+{
+ if (!odr_sequence_begin (o, p, sizeof(**p), name))
+ return opt && odr_ok (o);
+ return
+ odr_explicit_tag (o, z_Date,
+ &(*p)->date, ODR_CONTEXT, 1, 1, "date") &&
+ odr_explicit_tag (o, z_Time,
+ &(*p)->time, ODR_CONTEXT, 2, 1, "time") &&
+ odr_sequence_end (o);
+}
+
+int z_DateMonthAndDay (ODR o, Z_DateMonthAndDay **p, int opt, const char *name)
+{
+ if (!odr_sequence_begin (o, p, sizeof(**p), name))
+ return opt && odr_ok (o);
+ return
+ odr_implicit_tag (o, odr_integer,
+ &(*p)->month, ODR_CONTEXT, 2, 0, "month") &&
+ odr_implicit_tag (o, odr_integer,
+ &(*p)->day, ODR_CONTEXT, 3, 1, "day") &&
+ odr_sequence_end (o);
+}
+
+int z_DateQuarter (ODR o, Z_DateQuarter **p, int opt, const char *name)
+{
+ static Odr_arm arm[] = {
+ {ODR_IMPLICIT, ODR_CONTEXT, 1, Z_DateQuarter_first,
+ (Odr_fun) odr_null, "first"},
+ {ODR_IMPLICIT, ODR_CONTEXT, 2, Z_DateQuarter_second,
+ (Odr_fun) odr_null, "second"},
+ {ODR_IMPLICIT, ODR_CONTEXT, 3, Z_DateQuarter_third,
+ (Odr_fun) odr_null, "third"},
+ {ODR_IMPLICIT, ODR_CONTEXT, 4, Z_DateQuarter_fourth,
+ (Odr_fun) odr_null, "fourth"},
+ {-1, -1, -1, -1, (Odr_fun) 0, 0}
+ };
+ if (!odr_initmember(o, p, sizeof(**p)))
+ return opt && odr_ok(o);
+ if (odr_choice(o, arm, &(*p)->u, &(*p)->which, name))
+ return 1;
+ *p = 0;
+ return opt && odr_ok(o);
+}
+
+int z_DateSeason (ODR o, Z_DateSeason **p, int opt, const char *name)
+{
+ static Odr_arm arm[] = {
+ {ODR_IMPLICIT, ODR_CONTEXT, 1, Z_DateSeason_winter,
+ (Odr_fun) odr_null, "winter"},
+ {ODR_IMPLICIT, ODR_CONTEXT, 2, Z_DateSeason_spring,
+ (Odr_fun) odr_null, "spring"},
+ {ODR_IMPLICIT, ODR_CONTEXT, 3, Z_DateSeason_summer,
+ (Odr_fun) odr_null, "summer"},
+ {ODR_IMPLICIT, ODR_CONTEXT, 4, Z_DateSeason_autumn,
+ (Odr_fun) odr_null, "autumn"},
+ {-1, -1, -1, -1, (Odr_fun) 0, 0}
+ };
+ if (!odr_initmember(o, p, sizeof(**p)))
+ return opt && odr_ok(o);
+ if (odr_choice(o, arm, &(*p)->u, &(*p)->which, name))
+ return 1;
+ *p = 0;
+ return opt && odr_ok(o);
+}
+
+int z_Era (ODR o, Z_Era **p, int opt, const char *name)
+{
+ static Odr_arm arm[] = {
+ {ODR_IMPLICIT, ODR_CONTEXT, 1, Z_Era_decade,
+ (Odr_fun) odr_null, "decade"},
+ {ODR_IMPLICIT, ODR_CONTEXT, 2, Z_Era_century,
+ (Odr_fun) odr_null, "century"},
+ {ODR_IMPLICIT, ODR_CONTEXT, 3, Z_Era_millennium,
+ (Odr_fun) odr_null, "millennium"},
+ {-1, -1, -1, -1, (Odr_fun) 0, 0}
+ };
+ if (!odr_initmember(o, p, sizeof(**p)))
+ return opt && odr_ok(o);
+ if (odr_choice(o, arm, &(*p)->u, &(*p)->which, name))
+ return 1;
+ *p = 0;
+ return opt && odr_ok(o);
+}
+
+int z_DateFlags (ODR o, Z_DateFlags **p, int opt, const char *name)
+{
+ if (!odr_sequence_begin (o, p, sizeof(**p), name))
+ return opt && odr_ok (o);
+ return
+ odr_implicit_tag (o, odr_null,
+ &(*p)->circa, ODR_CONTEXT, 1, 1, "circa") &&
+ odr_implicit_tag (o, z_Era,
+ &(*p)->era, ODR_CONTEXT, 2, 1, "era") &&
+ odr_sequence_end (o);
+}
+
+int z_Date (ODR o, Z_Date **p, int opt, const char *name)
+{
+ static Odr_arm arm[] = {
+ {ODR_IMPLICIT, ODR_CONTEXT, 1, Z_Date_monthAndDay,
+ (Odr_fun) z_DateMonthAndDay, "monthAndDay"},
+ {ODR_IMPLICIT, ODR_CONTEXT, 2, Z_Date_julianDay,
+ (Odr_fun) odr_integer, "julianDay"},
+ {ODR_IMPLICIT, ODR_CONTEXT, 3, Z_Date_weekNumber,
+ (Odr_fun) odr_integer, "weekNumber"},
+ {ODR_EXPLICIT, ODR_CONTEXT, 4, Z_Date_quarter,
+ (Odr_fun) z_DateQuarter, "quarter"},
+ {ODR_EXPLICIT, ODR_CONTEXT, 5, Z_Date_season,
+ (Odr_fun) z_DateSeason, "season"},
+ {-1, -1, -1, -1, (Odr_fun) 0, 0}
+ };
+ if (!odr_sequence_begin (o, p, sizeof(**p), name))
+ return opt && odr_ok (o);
+ return
+ odr_implicit_tag (o, odr_integer,
+ &(*p)->year, ODR_CONTEXT, 1, 0, "year") &&
+ ((odr_constructed_begin (o, &(*p)->u, ODR_CONTEXT, 2, "partOfYear") &&
+ odr_choice (o, arm, &(*p)->u, &(*p)->which, 0) &&
+ odr_constructed_end (o)) || odr_ok(o)) &&
+ odr_implicit_tag (o, z_DateFlags,
+ &(*p)->flags, ODR_CONTEXT, 3, 1, "flags") &&
+ odr_sequence_end (o);
+}
+
+int z_Time (ODR o, Z_Time **p, int opt, const char *name)
+{
+ static Odr_arm arm[] = {
+ {ODR_IMPLICIT, ODR_CONTEXT, 1, Z_Time_local,
+ (Odr_fun) odr_null, "local"},
+ {ODR_IMPLICIT, ODR_CONTEXT, 2, Z_Time_utc,
+ (Odr_fun) odr_null, "utc"},
+ {ODR_IMPLICIT, ODR_CONTEXT, 3, Z_Time_utcOffset,
+ (Odr_fun) odr_integer, "utcOffset"},
+ {-1, -1, -1, -1, (Odr_fun) 0, 0}
+ };
+ if (!odr_sequence_begin (o, p, sizeof(**p), name))
+ return opt && odr_ok (o);
+ return
+ odr_implicit_tag (o, odr_integer,
+ &(*p)->hour, ODR_CONTEXT, 1, 0, "hour") &&
+ odr_implicit_tag (o, odr_integer,
+ &(*p)->minute, ODR_CONTEXT, 2, 1, "minute") &&
+ odr_implicit_tag (o, odr_integer,
+ &(*p)->second, ODR_CONTEXT, 3, 1, "second") &&
+ odr_implicit_tag (o, z_IntUnit,
+ &(*p)->partOfSecond, ODR_CONTEXT, 4, 1, "partOfSecond") &&
+ odr_constructed_begin (o, &(*p)->u, ODR_CONTEXT, 5, "zone") &&
+ odr_choice (o, arm, &(*p)->u, &(*p)->which, 0) &&
+ odr_constructed_end (o) &&
+ odr_sequence_end (o);
+}