Update docs

configure

@@ -1,6 +1,6 @@
 #! /bin/sh
 # Guess values for system-dependent variables and create Makefiles.
-# Generated by GNU Autoconf 2.71 for remind 05.03.03.
+# Generated by GNU Autoconf 2.71 for remind 05.03.05.
 #
 #
 # Copyright (C) 1992-1996, 1998-2017, 2020-2021 Free Software Foundation,
@@ -608,8 +608,8 @@ MAKEFLAGS=
 # Identity of this package.
 PACKAGE_NAME='remind'
 PACKAGE_TARNAME='remind'
-PACKAGE_VERSION='05.03.03'
-PACKAGE_STRING='remind 05.03.03'
+PACKAGE_VERSION='05.03.05'
+PACKAGE_STRING='remind 05.03.05'
 PACKAGE_BUGREPORT=''
 PACKAGE_URL='https://dianne.skoll.ca/projects/remind/'
 
@@ -1265,7 +1265,7 @@ if test "$ac_init_help" = "long"; then
   # Omit some internal or obsolete options to make the list less imposing.
   # This message is too long to be a string in the A/UX 3.1 sh.
   cat <<_ACEOF
-\`configure' configures remind 05.03.03 to adapt to many kinds of systems.
+\`configure' configures remind 05.03.05 to adapt to many kinds of systems.
 
 Usage: $0 [OPTION]... [VAR=VALUE]...
 
@@ -1327,7 +1327,7 @@ fi
 
 if test -n "$ac_init_help"; then
   case $ac_init_help in
-     short | recursive ) echo "Configuration of remind 05.03.03:";;
+     short | recursive ) echo "Configuration of remind 05.03.05:";;
    esac
   cat <<\_ACEOF
 
@@ -1415,7 +1415,7 @@ fi
 test -n "$ac_init_help" && exit $ac_status
 if $ac_init_version; then
   cat <<\_ACEOF
-remind configure 05.03.03
+remind configure 05.03.05
 generated by GNU Autoconf 2.71
 
 Copyright (C) 2021 Free Software Foundation, Inc.
@@ -1865,7 +1865,7 @@ cat >config.log <<_ACEOF
 This file contains any messages produced by compilers while
 running configure, to aid debugging if configure makes a mistake.
 
-It was created by remind $as_me 05.03.03, which was
+It was created by remind $as_me 05.03.05, which was
 generated by GNU Autoconf 2.71.  Invocation command line was
 
   $ $0$ac_configure_args_raw
@@ -4710,7 +4710,7 @@ cat >>$CONFIG_STATUS <<\_ACEOF || ac_write_fail=1
 # report actual input values of CONFIG_FILES etc. instead of their
 # values after options handling.
 ac_log="
-This file was extended by remind $as_me 05.03.03, which was
+This file was extended by remind $as_me 05.03.05, which was
 generated by GNU Autoconf 2.71.  Invocation command line was
 
   CONFIG_FILES    = $CONFIG_FILES
@@ -4775,7 +4775,7 @@ ac_cs_config_escaped=`printf "%s\n" "$ac_cs_config" | sed "s/^ //; s/'/'\\\\\\\\
 cat >>$CONFIG_STATUS <<_ACEOF || ac_write_fail=1
 ac_cs_config='$ac_cs_config_escaped'
 ac_cs_version="\\
-remind config.status 05.03.03
+remind config.status 05.03.05
 configured by $0, generated by GNU Autoconf 2.71,
   with options \\"\$ac_cs_config\\"
 

configure.ac

@@ -1,6 +1,6 @@
 dnl Process this file with autoconf to produce a configure script.
 
-AC_INIT(remind, 05.03.03, , , https://dianne.skoll.ca/projects/remind/)
+AC_INIT(remind, 05.03.05, , , https://dianne.skoll.ca/projects/remind/)
 AC_CONFIG_SRCDIR([src/queue.c])
 
 cat <<'EOF'

docs/WHATSNEW

@@ -1,5 +1,28 @@
 CHANGES TO REMIND
 
+* VERSION 5.3 Patch 5 - 2025-03-??
+
+- NEW FEATURE: remind: Add moonrise, moonset, moonrisedir and moonsetdir
+  functions.  The first two functions calculate the time of the next
+  moonrise and moonset, and the second two calculate in which direction
+  the moon will rise or set.  See the examples/astro script for examples
+  of how to use the moonrise/moonset functions.
+
+- CODE CLEANUPS: remind: Some minor code cleanups with no user-visible effects.
+
+- BUG FIX: remind: The %2 and %@ sequences would print "0:34am" for the
+  time 00:34, instead of the correct "12:34am".  This has been fixed.
+
+- BUG FIX: TkRemind: Fix bug that broke the ability to open a text editor
+  on a reminder from the Queue... listing.
+
+* VERSION 5.3 Patch 4 - 2025-03-09
+
+- BUG FIX: remind: "make test" could fail if Remind was built in a locale
+  other than "C".  This has been fixed.
+
+- BUG FIX: Fix a typo in the remind man page.
+
 * VERSION 5.3 Patch 3 - 2025-03-03
 
 - NEW FEATURE: remind: If a command spans more than one line (because of

examples/astro

@@ -32,6 +32,24 @@ EOF
 
 remind -g "-i\$Latitude=\"$latitude\"" "-i\$Longitude=\"$longitude\"" -q -@2 - "$@" <<'EOF'
 SET $AddBlankLines 0
+FSET angle_to_direction(x) \
+IIF(x > 348 && x <= 11, "North", \
+    x > 11 && x <= 34, "North North-East", \
+    x > 34 && x <= 56, "North-East", \
+    x > 56 && x <= 79, "East North-East", \
+    x > 79 && x <= 101, "East", \
+    x > 101 && x <= 124, "East South-East", \
+    x > 124 && x <= 146, "South-East", \
+    x > 146 && x <= 169, "South South-East", \
+    x > 169 && x <= 191, "South", \
+    x > 191 && x <= 214, "South South-West", \
+    x > 214 && x <= 236, "South-West", \
+    x > 236 && x <= 259, "West South-West", \
+    x > 259 && x <= 281, "West", \
+    x > 281 && x <= 304, "West North-West", \
+    x > 304 && x <= 326, "North-West", \
+    "North North-West")
+
 BANNER %
 IF $TerminalBackground == 0
    REM [moondatetime(0)] +60 SPECIAL COLOR 255 255 0 New moon:              🌑 [$T] %3 (%b)
@@ -48,6 +66,50 @@ EOF
 
 echo ""
 
+remind -g "-i\$Latitude=\"$latitude\"" "-i\$Longitude=\"$longitude\"" -q -@2 - "$@" <<'EOF'
+SET $AddBlankLines 0
+FSET angle_to_direction(x) \
+IIF(x > 348 && x <= 11, "North", \
+    x > 11 && x <= 34, "North North-East", \
+    x > 34 && x <= 56, "North-East", \
+    x > 56 && x <= 79, "East North-East", \
+    x > 79 && x <= 101, "East", \
+    x > 101 && x <= 124, "East South-East", \
+    x > 124 && x <= 146, "South-East", \
+    x > 146 && x <= 169, "South South-East", \
+    x > 169 && x <= 191, "South", \
+    x > 191 && x <= 214, "South South-West", \
+    x > 214 && x <= 236, "South-West", \
+    x > 236 && x <= 259, "West South-West", \
+    x > 259 && x <= 281, "West", \
+    x > 281 && x <= 304, "West North-West", \
+    x > 304 && x <= 326, "North-West", \
+    "North North-West")
+
+BANNER %
+set mr moonrise()
+set ms moonset()
+set mr_a moonrisedir()
+set ms_a moonsetdir()
+
+IF mr < ms
+    REM NOQUEUE [mr] MSG The moon rises %3 in the [angle_to_direction(mr_a)] ([mr_a] degrees)
+    REM NOQUEUE [ms] MSG The moon sets  %3 in the [angle_to_direction(ms_a)] ([ms_a] degrees)
+ELSE
+    REM NOQUEUE [ms] MSG The moon sets  %3 in the [angle_to_direction(ms_a)] ([ms_a] degrees)
+    REM NOQUEUE [mr] MSG The moon rises %3 in the [angle_to_direction(mr_a)] ([mr_a] degrees)
+ENDIF
+
+IF (datepart(mr) != today())
+    REM MSG There is no moonrise today
+ENDIF
+IF (datepart(ms) != today())
+    REM MSG There is no moonset today
+ENDIF
+EOF
+
+echo ""
+
 remind -g "-i\$Latitude=\"$latitude\"" "-i\$Longitude=\"$longitude\"" -q -@2 - "$@" <<'EOF'
 SET $AddBlankLines 0
 BANNER %

man/remind.1.in

@@ -3711,6 +3711,43 @@ which default to \fBtoday()\fR and midnight, respectively.  The returned
 value is an integer from 0 to 359, representing the phase of the moon
 in degrees.  0 is a new moon, 180 is a full moon, 90 is first-quarter, etc.
 .TP
+.B moonrise([d_date])
+This function returns a DATETIME result giving the date and time of the
+first moonrise on or after midnight on \fIdate\fR.  If \fIdate\fR is not
+supplied, it defaults to \fBtoday()\fR.
+.RS
+.PP
+Note that it is not uncommon for a day to have no moonrise, so the date
+part of the return value may not be the same as the \fIdate\fR argument.
+So if you want a calendar of moonrise times, you could use something
+like this:
+.PP
+.nf
+    SET mr moonrise()
+    IF datepart(mr) == today()
+        REM NOQUEUE [mr] MSG Moon rises at %3.
+    ELSE
+        REM MSG No moonrise today
+    ENDIF
+.fi
+.PP
+.RE
+.TP
+.B moonrisedir([d_date])
+This function returns an INT result giving the direction from which
+the moon will rise on the first moonrise on or after midnight on
+\fIdate\fR.  If \fIdate\fR is not supplied, it defaults to
+\fBtoday()\fR.  The return value ranges from 0 to 359, where 0 is North,
+90 is East, 180 is South and 270 is West.
+.TP
+.B moonset([d_date])
+This function is analogous to \fBmoonrise()\fR but returns the DATETIME of
+the next moonset on or after midnight on \fIdate\fR.
+.TP
+.B moonsetdir([d_date])
+This function is analogous to \fBmoonrisedir()\fR but returns the
+direction of moonset.
+.TP
 .B multitrig(s_trig1 [,s_trig2, [... s_trigN]])
 \fBmultitrig\fR evaluates each string as a trigger, similar to \fBevaltrig\fR,
 and returns the \fIearliest\fR trigger date that is on or after \fBtoday()\fR.
@@ -3787,7 +3824,7 @@ are effectively swapped, so counting always begins from the older
 date.
 .PP
 If the third argument to \fBnonomitted\fR is an \fBINT\fR, then it must
-be greater than zero, and is consider to be the \fIstep\fR by which
+be greater than zero, and is considered to be the \fIstep\fR by which
 \fBnonomitted\fR counts.  For example the following expression:
 .PP
 .nf
@@ -6460,14 +6497,15 @@ Do not hard-code the above directory in your reminder files.  Instead,
 use the value of the $SysInclude system variable.
 .SH AUTHOR
 .PP
-Dianne Skoll <dianne@skoll.ca> wrote \fBRemind\fR.  The moon code was
-copied largely unmodified from "moontool" by John Walker.  The sunrise
-and sunset functions use ideas from programs by Michael Schwartz and
-Marc T. Kaufman.  The Hebrew calendar support was taken from "hdate"
-by Amos Shapir.  OS/2 support was done by Darrel Hankerson, Russ
-Herman, and Norman Walsh.  The supported languages and their
-translators are listed below.  Languages marked "complete" support
-error messages in that language; all others only support the
+Dianne Skoll <dianne@skoll.ca> wrote \fBRemind\fR.  The moon phase
+code was copied largely unmodified from "moontool" by John Walker.
+The moonrise/moonset code comes from
+https://github.com/signetica/MoonRise by Stephen R. Schmitt and Cyrus
+Rahman.  The sunrise and sunset functions use ideas from programs by
+Michael Schwartz and Marc T. Kaufman.  The Hebrew calendar support was
+taken from "hdate" by Amos Shapir.  The supported languages and
+their translators are listed below.  Languages marked "complete"
+support error messages in that language; all others only support the
 substitution filter mechanism and month/day names.
 .PP
 \fBGerman\fR --

rem2pdf/Makefile.top.in

@@ -15,7 +15,7 @@ all: Makefile
          OK=1; \
 	 for m in $(PERLMODS_NEEDED) ; \
 	do \
-	    $(PERL) -M$$m -e 1 > /dev/null 2>&1; \
+	    $(PERL) -M$$m -e 1 ; \
 	    if test $$? != 0 ; then echo "Missing Perl module: $$m"; OK=0; fi; \
 	done; \
         if test "$$OK" != "1" ; then echo "Not building rem2pdf because of missing perl module(s)"; exit 0; fi; \
@@ -27,7 +27,7 @@ install:
 	    echo "Not installing rem2pdf; Perl is required"; exit 0; fi; \
 	 for m in $(PERLMODS_NEEDED) ; \
          do \
-	    $(PERL) -M$$m -e 1 > /dev/null 2>&1; \
+	    $(PERL) -M$$m -e 1 ; \
 	    if test $$? != 0 ; then echo "Not installing rem2pdf; missing $$m"; exit 0; fi; \
 	done; \
 	echo "Installing rem2pdf"; \

scripts/tkremind.in

@@ -2872,10 +2872,10 @@ proc ShowQueue { queue } {
         set fntag ""
         catch {
             set fname [dict get $q filename]
-            if {[dict exists $obj lineno_start]} {
-                set lineno [dict get $obj lineno_start]
+            if {[dict exists $q lineno_start]} {
+                set lineno [dict get $q lineno_start]
             } else {
-                set lineno [dict get $obj lineno]
+                set lineno [dict get $q lineno]
             }
             set fntag [string cat "FILE_" $lineno "_" $fname]
         }

src/Makefile.in

@@ -48,7 +48,7 @@ test: all
 xlat.c: $(REMINDSRCS)
 	@echo "#include <stddef.h>" > xlat.c
 	@echo "char const *translatables[] = {" >> xlat.c
-	@cat $(REMINDSRCS) | grep 'tr(".*")' | sed -e 's/.*tr."/"/' -e 's/").*/"/' | sort | uniq | grep -E -v '^"(am|at|from now|hour|minute|now|on|pm|today|tomorrow|was)"$$' | sed -e 's/^/    /' -e 's/$$/,/' >> xlat.c
+	@cat $(REMINDSRCS) | grep 'tr(".*")' | sed -e 's/.*tr."/"/' -e 's/").*/"/' | LANG=C LC_ALL=C sort | uniq | grep -E -v '^"(am|at|from now|hour|minute|now|on|pm|today|tomorrow|was)"$$' | sed -e 's/^/    /' -e 's/$$/,/' >> xlat.c
 	@echo "    NULL" >> xlat.c
 	@echo "};" >> xlat.c
 

src/dosubst.c

@@ -125,7 +125,7 @@ int DoSubst(ParsePtr p, DynamicBuffer *dbuf, Trigger *t, TimeTrig *tt, int dse,
         pm = (h < 12) ? tr("am") : tr("pm");
     }
 
-    hh = (h == 12) ? 12 : h % 12;
+    hh = (h == 12 || h == 0) ? 12 : h % 12;
 
     ch = curtime / 60;
     cmin = curtime % 60;
@@ -151,7 +151,7 @@ int DoSubst(ParsePtr p, DynamicBuffer *dbuf, Trigger *t, TimeTrig *tt, int dse,
     if (r != OK) {
         cpm = (h < 12) ? tr("am") : tr("pm");
     }
-    chh = (ch == 12) ? 12 : ch % 12;
+    chh = (ch == 0 || ch == 12) ? 12 : ch % 12;
 
     func = FindUserFunc("subst_ordinal");
     if (func && check_subst_args(func, 1)) {

src/expr.c

@@ -197,7 +197,7 @@ static char const *get_operator_name(expr_node *node);
 static UserFunc *CurrentUserFunc = NULL;
 
 /* How many expr_node objects to allocate at a time */
-#define ALLOC_CHUNK 64
+#define ALLOC_CHUNK 256
 
 static char const *
 find_end_of_expr(char const *s)
@@ -626,6 +626,18 @@ debug_exit_userfunc(expr_node *node, Value *ans, int r, Value *locals, int nargs
     fprintf(ErrFp, "\n");
 }
 
+static void
+print_placeholders(int n)
+{
+    int i;
+    for (i=0; i<n; i++) {
+        if (i > 0) {
+            fprintf(ErrFp, ", ");
+        }
+        fprintf(ErrFp, "?");
+    }
+}
+
 /***************************************************************/
 /*                                                             */
 /* eval_userfunc - evaluate a user-defined function            */
@@ -667,12 +679,12 @@ eval_userfunc(expr_node *node, Value *locals, Value *ans, int *nonconst)
 
     /* Make sure we have the right number of arguments */
     if (node->num_kids < f->nargs) {
-        DBG(fprintf(ErrFp, "%s(...) => %s\n", fname, GetErr(E_2FEW_ARGS)));
+        DBG(fprintf(ErrFp, "%s(", fname); print_placeholders(node->num_kids); fprintf(ErrFp, ") => %s\n", GetErr(E_2FEW_ARGS)));
         Eprint("%s(): %s", f->name, GetErr(E_2FEW_ARGS));
         return E_2FEW_ARGS;
     }
     if (node->num_kids > f->nargs) {
-        DBG(fprintf(ErrFp, "%s(...) => %s\n", fname, GetErr(E_2MANY_ARGS)));
+        DBG(fprintf(ErrFp, "%s(", fname); print_placeholders(node->num_kids); fprintf(ErrFp, ") => %s\n", GetErr(E_2MANY_ARGS)));
         Eprint("%s(): %s", f->name, GetErr(E_2MANY_ARGS));
         return E_2MANY_ARGS;
     }
@@ -2190,7 +2202,6 @@ static expr_node *parse_atom(char const **e, int *r, Var *locals, int level)
         return NULL;
     }
     if (!ISID(*s) &&
-        *s != '%' &&
         *s != '$' &&
         *s != '"' &&
         *s != '\'') {

src/funcs.c

@@ -125,6 +125,10 @@ static int FMonnum         (func_info *);
 static int FMoondate       (func_info *);
 static int FMoondatetime   (func_info *);
 static int FMoonphase      (func_info *);
+static int FMoonrise       (func_info *);
+static int FMoonrisedir    (func_info *);
+static int FMoonset        (func_info *);
+static int FMoonsetdir     (func_info *);
 static int FMoontime       (func_info *);
 static int FMultiTrig      (func_info *);
 static int FNDawn          (func_info *);
@@ -286,6 +290,10 @@ BuiltinFunc Func[] = {
     {   "moondate",     1,      3,      0,          FMoondate, NULL },
     {   "moondatetime", 1,      3,      0,          FMoondatetime, NULL },
     {   "moonphase",    0,      2,      0,          FMoonphase, NULL },
+    {   "moonrise",     0,      1,      0,          FMoonrise, NULL },
+    {   "moonrisedir",  0,      1,      0,          FMoonrisedir, NULL },
+    {   "moonset",      0,      1,      0,          FMoonset, NULL },
+    {   "moonsetdir",   0,      1,      0,          FMoonsetdir, NULL },
     {   "moontime",     1,      3,      0,          FMoontime, NULL },
     {   "multitrig",    1,      NO_MAX, 0,          FMultiTrig, NULL },
     {   "ndawn",        0,      1,      0,          FNDawn, NULL },
@@ -3316,6 +3324,54 @@ static int FMoondatetime(func_info *info)
     return MoonStuff(DATETIME_TYPE, info);
 }
 
+static int FMoonrise(func_info *info)
+{
+    int start = DSEToday;
+    if (Nargs >= 1) {
+        if (!HASDATE(ARG(0))) return E_BAD_TYPE;
+        start = DATEPART(ARG(0));
+    }
+    RetVal.type = DATETIME_TYPE;
+    RETVAL = GetMoonrise(start);
+    return OK;
+}
+
+static int FMoonset(func_info *info)
+{
+    int start = DSEToday;
+    if (Nargs >= 1) {
+        if (!HASDATE(ARG(0))) return E_BAD_TYPE;
+        start = DATEPART(ARG(0));
+    }
+    RetVal.type = DATETIME_TYPE;
+    RETVAL = GetMoonset(start);
+    return OK;
+}
+
+static int FMoonrisedir(func_info *info)
+{
+    int start = DSEToday;
+    if (Nargs >= 1) {
+        if (!HASDATE(ARG(0))) return E_BAD_TYPE;
+        start = DATEPART(ARG(0));
+    }
+    RetVal.type = INT_TYPE;
+    RETVAL = GetMoonrise_angle(start);
+    return OK;
+}
+
+static int FMoonsetdir(func_info *info)
+{
+    int start = DSEToday;
+    if (Nargs >= 1) {
+        if (!HASDATE(ARG(0))) return E_BAD_TYPE;
+        start = DATEPART(ARG(0));
+    }
+    RetVal.type = INT_TYPE;
+    RETVAL = GetMoonset_angle(start);
+    return OK;
+}
+
 static int MoonStuff(int type_wanted, func_info *info)
 {
     int startdate, starttim;

src/main.c

@@ -1132,8 +1132,7 @@ int DoIf(ParsePtr p)
             syndrome = IF_TRUE | BEFORE_ELSE;
             Eprint("%s", GetErr(r));
         } else
-            if ( (v.type != STR_TYPE && v.v.val) ||
-                 (v.type == STR_TYPE && strcmp(v.v.str, "")) ) {
+            if (truthy(&v)) {
                 syndrome = IF_TRUE | BEFORE_ELSE;
             } else {
                 syndrome = IF_FALSE | BEFORE_ELSE;
@@ -2037,7 +2036,6 @@ SaveLastTimeTrig(TimeTrig const *t)
 void
 System(char const *cmd, int is_queued)
 {
-    int r;
     pid_t kid;
     int fd;
     int status;
@@ -2070,15 +2068,12 @@ System(char const *cmd, int is_queued)
         }
     }
     /* This is the child process or original if we never forked */
-    r = system(cmd);
+    (void) system(cmd);
     if (do_exit) {
         /* In the child process, so exit! */
         exit(0);
     }
-
-    if (r == 0) {
-        return;
-    }
+    return;
 }
 
 char const *

src/moon.c

@@ -546,3 +546,406 @@ void HuntPhase(int startdate, int starttim, int phas, int *date, int *time)
     t1 = h*60 + min;
     UTCToLocal(d1, t1, date, time);
 }
+
+/*
+  Moonrise and Moonset calculations
+  Derived from: https://github.com/signetica/MoonRise
+  Original license from that project:
+
+  Copyright 2007 Stephen R. Schmitt
+  Subsequent work Copyright 2020 Cyrus Rahman
+
+  You may use or modify this source code in any way you find useful,
+  provided that you agree that the author(s) have no warranty,
+  obligations or liability.  You must determine the suitability of this
+  source code for your use.
+
+  Redistributions of this source code must retain this copyright notice.
+*/
+
+/* How many hours to search for moonrise / moonset on either side of
+   starting point */
+#define MR_WINDOW 48
+
+#define K1 15*(PI/180)*1.0027379
+
+#define remainder(x, y) ((x) - (y) * rint((x)/(y)))
+
+struct MoonInfo {
+    time_t queryTime;
+    time_t riseTime;
+    time_t setTime;
+    double riseAz;
+    double setAz;
+    int hasRise;
+    int hasSet;
+    int isVisible;
+};
+
+static void init_moon_info(struct MoonInfo *info)
+{
+    info->queryTime = (time_t) 0;
+    info->riseTime = (time_t) 0;
+    info->setTime = (time_t) 0;
+    info->riseAz = 0.0;
+    info->setAz = 0.0;
+    info->hasRise = 0;
+    info->hasSet = 0;
+    info->isVisible = 0;
+}
+/*
+  Local Sidereal Time
+  Provides local sidereal time in degrees, requires longitude in degrees
+  and time in fractional Julian days since Jan 1, 2000, 1200UTC (e.g. the
+  Julian date - 2451545).
+  cf. USNO Astronomical Almanac and
+  https://astronomy.stackexchange.com/questions/24859/local-sidereal-time
+*/
+
+static double local_sidereal_time(double offset_days, double longitude)
+{
+    double ltime = (15.0L * (6.697374558L + 0.06570982441908L * offset_days +
+                             remainder(offset_days, 1) * 24 + 12 +
+                             0.000026 * (offset_days / 36525) * (offset_days / 36525)) + longitude) / 360.0;
+    ltime -= floor(ltime);
+    return ltime * 360.0;
+}
+
+static double julian_from_time_t(time_t t)
+{
+    return ((double) t) / 86400.0L + 2440587.5L;
+}
+
+static time_t time_t_from_dse(int dse)
+{
+    int y, m, d;
+    struct tm local;
+    FromDSE(dse, &y, &m, &d);
+
+    local.tm_sec = 0;
+    local.tm_min = 0;
+    local.tm_hour = 0;
+    local.tm_mday = d;
+    local.tm_mon = m;
+    local.tm_year = y-1900;
+    local.tm_isdst = -1;
+
+    return mktime(&local);
+}
+
+static int datetime_from_time_t(time_t t)
+{
+    struct tm *local;
+    int ans;
+
+    /* Round to nearest minute */
+    int min_offset = ((long) t) % 60;
+    if (min_offset >= 30) {
+        t += (60 - min_offset);
+    } else {
+        t -= min_offset;
+    }
+
+    local = localtime(&t);
+
+    ans = DSE(local->tm_year + 1900, local->tm_mon, local->tm_mday) * 1440;
+    ans += local->tm_hour * 60;
+    ans += local->tm_min;
+    return ans;
+}
+
+/* 3-point interpolation */
+static double interpolate(double f0, double f1, double f2, double p)
+{
+    double a = f1-f0;
+    double b = f2-f1-a;
+    return f0 + p * (2*a + b * (2*p - 1));
+}
+
+/* Moon position using fundamental arguments
+   Van Flandern & Pulkkinen, 1979) */
+void moon_position(double dayOffset, double *ra, double *declination, double *distance)
+{
+    double l = 0.606434 + 0.03660110129 * dayOffset;
+    double m = 0.374897 + 0.03629164709 * dayOffset;
+    double f = 0.259091 + 0.03674819520 * dayOffset;
+    double d = 0.827362 + 0.03386319198 * dayOffset;
+    double n = 0.347343 - 0.00014709391 * dayOffset;
+    double g = 0.993126 + 0.00273777850 * dayOffset;
+
+    l = 2 * PI * (l - floor(l));
+    m = 2 * PI * (m - floor(m));
+    f = 2 * PI * (f - floor(f));
+    d = 2 * PI * (d - floor(d));
+    n = 2 * PI * (n - floor(n));
+    g = 2 * PI * (g - floor(g));
+
+    double v, u, w;
+    v = 0.39558 * sin(f + n)
+        + 0.08200 * sin(f)
+        + 0.03257 * sin(m - f - n)
+        + 0.01092 * sin(m + f + n)
+        + 0.00666 * sin(m - f)
+        - 0.00644 * sin(m + f - 2*d + n)
+        - 0.00331 * sin(f - 2*d + n)
+        - 0.00304 * sin(f - 2*d)
+        - 0.00240 * sin(m - f - 2*d - n)
+        + 0.00226 * sin(m + f)
+        - 0.00108 * sin(m + f - 2*d)
+        - 0.00079 * sin(f - n)
+        + 0.00078 * sin(f + 2*d + n);
+    u = 1
+        - 0.10828 * cos(m)
+        - 0.01880 * cos(m - 2*d)
+        - 0.01479 * cos(2*d)
+        + 0.00181 * cos(2*m - 2*d)
+        - 0.00147 * cos(2*m)
+        - 0.00105 * cos(2*d - g)
+        - 0.00075 * cos(m - 2*d + g);
+    w = 0.10478 * sin(m)
+        - 0.04105 * sin(2*f + 2*n)
+        - 0.02130 * sin(m - 2*d)
+        - 0.01779 * sin(2*f + n)
+        + 0.01774 * sin(n)
+        + 0.00987 * sin(2*d)
+        - 0.00338 * sin(m - 2*f - 2*n)
+        - 0.00309 * sin(g)
+        - 0.00190 * sin(2*f)
+        - 0.00144 * sin(m + n)
+        - 0.00144 * sin(m - 2*f - n)
+        - 0.00113 * sin(m + 2*f + 2*n)
+        - 0.00094 * sin(m - 2*d + g)
+        - 0.00092 * sin(2*m - 2*d);
+
+    double s;
+    s = w / sqrt(u - v*v);
+    *ra = l + atan(s / sqrt(1 - s*s));		      // Right ascension
+
+    s = v / sqrt(u);
+    *declination = atan(s / sqrt(1 - s*s));	      // Declination
+    *distance = 60.40974 * sqrt(u);		      // Distance
+}
+
+/* Search for moonrise / moonset events during an hour */
+static void test_moon_event(int k, double offset_days, struct MoonInfo *moon_info,
+                            double latitude, double longitude,
+                            double ra[], double declination[], double distance[])
+{
+    double ha[3], VHz[3];
+    double lSideTime;
+
+    /* Get (local_sidereal_time - MR_WINDOW / 2) hours in radians. */
+    lSideTime = local_sidereal_time(offset_days, longitude) * 2 * PI / 360.0;
+
+    /* Calculate hour angle */
+    ha[0] = lSideTime - ra[0] + k*K1;
+    ha[2] = lSideTime - ra[2] + k*K1 + K1;
+
+    // Hour Angle and declination at half hour.
+    ha[1]  = (ha[2] + ha[0])/2;
+    declination[1] = (declination[2] + declination[0])/2;
+
+    double s = sin((PI / 180) * latitude);
+    double c = cos((PI / 180) * latitude);
+
+    // refraction + semidiameter at horizon + distance correction
+    double z = cos((PI / 180) * (90.567 - 41.685 / distance[0]));
+
+    VHz[0] = s * sin(declination[0]) + c * cos(declination[0]) * cos(ha[0]) - z;
+    VHz[2] = s * sin(declination[2]) + c * cos(declination[2]) * cos(ha[2]) - z;
+
+    if (signbit(VHz[0]) == signbit(VHz[2]))
+        goto noevent;			    // No event this hour.
+
+    VHz[1] = s * sin(declination[1]) + c * cos(declination[1]) * cos(ha[1]) - z;
+
+    double a, b, d, e, time;
+    a = 2 * VHz[2] - 4 * VHz[1] + 2 * VHz[0];
+    b = 4 * VHz[1] - 3 * VHz[0] - VHz[2];
+    d = b * b - 4 * a * VHz[0];
+
+    if (d < 0)
+        goto noevent;			    // No event this hour.
+
+    d = sqrt(d);
+    e = (-b + d) / (2 * a);
+    if ((e < 0) || (e > 1))
+        e = (-b - d) / (2 * a);
+    time = k + e + 1 / 120;	    // Time since k=0 of event (in hours).
+
+    // The time we started searching + the time from the start of the search to the
+    // event is the time of the event.  Add (time since k=0) - window/2 hours.
+    time_t eventTime;
+    eventTime = moon_info->queryTime + (time - MR_WINDOW / 2) *60 *60;
+
+    double hz, nz, dz, az;
+    hz = ha[0] + e * (ha[2] - ha[0]);	    // Azimuth of the moon at the event.
+    nz = -cos(declination[1]) * sin(hz);
+    dz = c * sin(declination[1]) - s * cos(declination[1]) * cos(hz);
+    az = atan2(nz, dz) * (180 / PI);
+    if (az < 0) {
+        az += 360;
+    }
+
+    // If there is no previously recorded event of this type, save this event.
+    //
+    // If this event is previous to queryTime, and is the nearest event to queryTime
+    // of events of its type previous to queryType, save this event, replacing the
+    // previously recorded event of its type.  Events subsequent to queryTime are
+    // treated similarly, although since events are tested in chronological order
+    // no replacements will occur as successive events will be further from
+    // queryTime.
+    //
+    // If this event is subsequent to queryTime and there is an event of its type
+    // previous to queryTime, then there is an event of the other type between the
+    // two events of this event's type.  If the event of the other type is
+    // previous to queryTime, then it is the nearest event to queryTime that is
+    // previous to queryTime.  In this case save the current event, replacing
+    // the previously recorded event of its type.  Otherwise discard the current
+    // event.
+    //
+    if ((VHz[0] < 0) && (VHz[2] > 0)) {
+        if (!moon_info->hasRise ||
+            ((moon_info->riseTime < moon_info->queryTime) == (eventTime < moon_info->queryTime) &&
+             labs(moon_info->riseTime - moon_info->queryTime) > labs(eventTime - moon_info->queryTime)) ||
+            ((moon_info->riseTime < moon_info->queryTime) != (eventTime < moon_info->queryTime) &&
+             (moon_info->hasSet && 
+              (moon_info->riseTime < moon_info->queryTime) == (moon_info->setTime < moon_info->queryTime)))) {
+            moon_info->riseTime = eventTime;
+            moon_info->riseAz = az;
+            moon_info->hasRise = 1;
+        }
+    }
+    if ((VHz[0] > 0) && (VHz[2] < 0)) {
+        if (!moon_info->hasSet ||
+            ((moon_info->setTime < moon_info->queryTime) == (eventTime < moon_info->queryTime) &&
+             labs(moon_info->setTime - moon_info->queryTime) > labs(eventTime - moon_info->queryTime)) ||
+            ((moon_info->setTime < moon_info->queryTime) != (eventTime < moon_info->queryTime) &&
+             (moon_info->hasRise && 
+              (moon_info->setTime < moon_info->queryTime) == (moon_info->riseTime < moon_info->queryTime)))) {
+            moon_info->setTime = eventTime;
+            moon_info->setAz = az;
+            moon_info->hasSet = 1;
+        }
+    }
+
+  noevent:
+    // There are obscure cases in the polar regions that require extra logic.
+    if (!moon_info->hasRise && !moon_info->hasSet)
+        moon_info->isVisible = !signbit(VHz[2]);
+    else if (moon_info->hasRise && !moon_info->hasSet)
+        moon_info->isVisible = (moon_info->queryTime > moon_info->riseTime);
+    else if (!moon_info->hasRise && moon_info->hasSet)
+        moon_info->isVisible = (moon_info->queryTime < moon_info->setTime);
+    else
+        moon_info->isVisible = ((moon_info->riseTime < moon_info->setTime && moon_info->riseTime < moon_info->queryTime && moon_info->setTime > moon_info->queryTime) ||
+                     (moon_info->riseTime > moon_info->setTime && (moon_info->riseTime < moon_info->queryTime || moon_info->setTime > moon_info->queryTime)));
+
+    return;
+}
+
+static void
+calculate_moonrise_moonset(double latitude, double longitude, time_t t,
+                           struct MoonInfo *mi)
+{
+    double ra[3], declination[3], distance[3];
+    double offset_days;
+    int i;
+
+    init_moon_info(mi);
+
+    mi->queryTime = t;
+
+    /* Days since Jan 1, 2000 12:00UTC */
+    offset_days = julian_from_time_t(t) - 2451545L;
+
+    offset_days -= (double) MR_WINDOW / (2.0 * 24.0);
+
+    for (i=0; i<3; i++) {
+        moon_position(offset_days + i * ((double) MR_WINDOW / (2.0 * 24.0)), &ra[i], &declination[i], &distance[i]);
+    }
+
+    if (ra[1] <= ra[0]) {
+        ra[1] += 2*PI;
+    }
+    if (ra[2] <= ra[1]) {
+        ra[2] += 2*PI;
+    }
+
+    double window_ra[3], window_declination[3], window_distance[3];
+
+    window_ra[0] = ra[0];
+    window_declination[0] = declination[0];
+    window_distance[0] = distance[0];
+
+    for (int k=0; k < MR_WINDOW; k++) {
+        double ph = (double) (k+1) / (double) MR_WINDOW;
+        window_ra[2] = interpolate(ra[0], ra[1], ra[2], ph);
+        window_declination[2] = interpolate(declination[0], declination[1], declination[2], ph);
+        window_distance[2] = interpolate(distance[0], distance[1], distance[2], ph);
+        test_moon_event(k, offset_days, mi, latitude, longitude, window_ra, window_declination, window_distance);
+
+        /* Step to next interval */
+        window_ra[0] = window_ra[2];
+        window_declination[0] = window_declination[2];
+        window_distance[0] = window_distance[2];
+    }
+}
+
+/* Get next moonrise in minutes after midnight of BASEYR
+   starting from given DSE.
+   Returns 0 if no moonrise could be computes */
+
+#define ME_SEARCH_DAYS 180
+static int GetMoonevent(int dse, int is_rise, int want_angle)
+{
+    int i;
+    int angle;
+    struct MoonInfo mi;
+    time_t t = time_t_from_dse(dse);
+    for (i=0; i<ME_SEARCH_DAYS; i++) {
+        calculate_moonrise_moonset(Latitude, Longitude, t + i * 86400, &mi);
+        if (is_rise) {
+            if (mi.hasRise && mi.riseTime >= t) {
+                if (want_angle) {
+                    angle = (int) (mi.riseAz + 0.5);
+                    return angle;
+                } else {
+                    return datetime_from_time_t(mi.riseTime);
+                }
+            }
+        } else {
+            if (mi.hasSet && mi.setTime >= t) {
+                if (want_angle) {
+                    angle = (int) (mi.setAz + 0.5);
+                    return angle;
+                } else {
+                    return datetime_from_time_t(mi.setTime);
+                }
+            }
+        }
+    }
+    if (want_angle) {
+        return -1;
+    } else {
+        return 0;
+    }
+}
+
+int GetMoonrise(int dse)
+{
+    return GetMoonevent(dse, 1, 0);
+}
+int GetMoonset(int dse)
+{
+    return GetMoonevent(dse, 0, 0);
+}
+
+int GetMoonrise_angle(int dse)
+{
+    return GetMoonevent(dse, 1, 1);
+}
+int GetMoonset_angle(int dse)
+{
+    return GetMoonevent(dse, 0, 1);
+}

src/protos.h

@@ -285,3 +285,7 @@ int TrigInfoIsValid(char const *info);
 char const *FindTrigInfo(Trigger *t, char const *header);
 void WriteJSONInfoChain(TrigInfo *ti);
 char const *line_range(int lineno_start, int lineno);
+int GetMoonrise(int dse);
+int GetMoonset(int dse);
+int GetMoonrise_angle(int dse);
+int GetMoonset_angle(int dse);

tests/test.cmp

@@ -1047,7 +1047,7 @@ set a057 value("a05"+"6")
 "a05" + "6" => "a056"
 value("a056") => "SDFJHSDF KSJDFH KJSDFH KSJDFH"
 set a058 version()
-version() => "05.03.03"
+version() => "05.03.05"
 set a059 wkday(today())
 today() => 1991-02-16
 wkday(1991-02-16) => "Saturday"
@@ -2611,7 +2611,7 @@ a056  "SDFJHSDF KSJDFH KJSDFH KSJDFH"
 a007  "1991-02-16"
 a057  "SDFJHSDF KSJDFH KJSDFH KSJDFH"
 a008  "11:44"
-a058  "05.03.03"
+a058  "05.03.05"
 a059  "Saturday"
 a010  12
 a060  6
@@ -5632,8 +5632,8 @@ REM SATISFY ""
 REM SATISFY [version() > "01.00.00"]
 ../tests/test.rem(1050): SATISFY: expression has no reference to trigdate() or $T...
 ../tests/test.rem(1050): Trig = Saturday, 16 February, 1991
-version() => "05.03.03"
-"05.03.03" > "01.00.00" => 1
+version() => "05.03.05"
+"05.03.05" > "01.00.00" => 1
 ../tests/test.rem(1050): Trig(satisfied) = Saturday, 16 February, 1991
 REM SATISFY [max(x, max(x, 1, 2, 3), 4, 5, 6) * 5]
 ../tests/test.rem(1051): SATISFY: expression has no reference to trigdate() or $T...
@@ -5833,10 +5833,10 @@ max()
 
 fset dooby(x) 1
 set zxk dooby()
-dooby(...) => Not enough arguments
+dooby() => Not enough arguments
 ../tests/test.rem(1123): dooby(): Not enough arguments
 set zxk dooby(1, 2)
-dooby(...) => Too many arguments
+dooby(?, ?) => Too many arguments
 ../tests/test.rem(1124): dooby(): Too many arguments
 set zxk dooby(1)
 Entering UserFN dooby(1)
@@ -16271,7 +16271,7 @@ Translation hash table statistics:
   Entries: 1; Buckets: 7; Non-empty Buckets: 1
   Maxlen: 1; Minlen: 0; Avglen: 0.143; Stddev: 0.350; Avg nonempty len: 1.000
   Growths: 0; Shrinks: 0
- Expression nodes allocated: 300096
+ Expression nodes allocated: 300288
 Expression nodes high-water: 300073
     Expression nodes leaked: 0
      Parse level high-water: 25
@@ -23200,7 +23200,7 @@ SECURITY: Won't read world-writable file or directory!
 Error reading include_dir/ww: Can't open file
 SECURITY: Won't read world-writable file or directory!
 Error reading include_dir/ww: No files matching *.rem
-05.03.03
+05.03.05
 Enabling test mode: This is meant for the acceptance test.
 Do not use --test in production.
 In test mode, the system time is fixed at 2025-01-06@19:00
@@ -24123,6 +24123,10 @@ monnum
 moondate
 moondatetime
 moonphase
+moonrise
+moonrisedir
+moonset
+moonsetdir
 moontime
 multitrig
 ndawn
@@ -25133,7 +25137,7 @@ Time substitutions for 13:32 where now() = 13:34
 Time substitutions for 00:00 where now() = 13:34
 
 %1 yields: "13 horas i 34 minuts fa" and %*1 yields: "13 horas i 34 minuts fa"
-%2 yields: "a les 0:00am" and %*2 yields: "0:00am"
+%2 yields: "a les 12:00am" and %*2 yields: "12:00am"
 %3 yields: "a les 00:00" and %*3 yields: "00:00"
 %4 yields: "-814" and %*4 yields: "-814"
 %5 yields: "814" and %*5 yields: "814"
@@ -26035,7 +26039,7 @@ Time substitutions for 13:32 where now() = 13:34
 Time substitutions for 00:00 where now() = 13:34
 
 %1 yields: "13 timer og 34 minutter siden" and %*1 yields: "13 timer og 34 minutter siden"
-%2 yields: "kl. 0:00 om natten" and %*2 yields: "0:00 om natten"
+%2 yields: "kl. 12:00 om natten" and %*2 yields: "12:00 om natten"
 %3 yields: "kl. 00:00" and %*3 yields: "00:00"
 %4 yields: "-814" and %*4 yields: "-814"
 %5 yields: "814" and %*5 yields: "814"
@@ -26937,7 +26941,7 @@ Time substitutions for 13:32 where now() = 13:34
 Time substitutions for 00:00 where now() = 13:34
 
 %1 yields: "13 Stunden und 34 Minuten vorher" and %*1 yields: "13 Stunden und 34 Minuten vorher"
-%2 yields: "um 0:00 nachts" and %*2 yields: "0:00 nachts"
+%2 yields: "um 12:00 nachts" and %*2 yields: "12:00 nachts"
 %3 yields: "um 00:00" and %*3 yields: "00:00"
 %4 yields: "-814" and %*4 yields: "-814"
 %5 yields: "814" and %*5 yields: "814"
@@ -27839,7 +27843,7 @@ Time substitutions for 13:32 where now() = 13:34
 Time substitutions for 00:00 where now() = 13:34
 
 %1 yields: "13 hours and 34 minutes ago" and %*1 yields: "13 hours and 34 minutes ago"
-%2 yields: "at 0:00am" and %*2 yields: "0:00am"
+%2 yields: "at 12:00am" and %*2 yields: "12:00am"
 %3 yields: "at 00:00" and %*3 yields: "00:00"
 %4 yields: "-814" and %*4 yields: "-814"
 %5 yields: "814" and %*5 yields: "814"
@@ -28741,7 +28745,7 @@ Time substitutions for 13:32 where now() = 13:34
 Time substitutions for 00:00 where now() = 13:34
 
 %1 yields: "13 horas y 34 minutos hace" and %*1 yields: "13 horas y 34 minutos hace"
-%2 yields: "a las 0:00am" and %*2 yields: "0:00am"
+%2 yields: "a las 12:00am" and %*2 yields: "12:00am"
 %3 yields: "a las 00:00" and %*3 yields: "00:00"
 %4 yields: "-814" and %*4 yields: "-814"
 %5 yields: "814" and %*5 yields: "814"
@@ -29643,7 +29647,7 @@ Time substitutions for 13:32 where now() = 13:34
 Time substitutions for 00:00 where now() = 13:34
 
 %1 yields: "13 tuntia 34 minuuttia sitten" and %*1 yields: "13 tuntia 34 minuuttia sitten"
-%2 yields: "klo 0:00 ap." and %*2 yields: "0:00 ap."
+%2 yields: "klo 12:00 ap." and %*2 yields: "12:00 ap."
 %3 yields: "klo 00:00" and %*3 yields: "00:00"
 %4 yields: "-814" and %*4 yields: "-814"
 %5 yields: "814" and %*5 yields: "814"
@@ -30545,7 +30549,7 @@ Time substitutions for 13:32 where now() = 13:34
 Time substitutions for 00:00 where now() = 13:34
 
 %1 yields: "il y a 13 heures et 34 minutes" and %*1 yields: "il y a 13 heures et 34 minutes"
-%2 yields: "à 0:00am" and %*2 yields: "0:00am"
+%2 yields: "à 12:00am" and %*2 yields: "12:00am"
 %3 yields: "à 00:00" and %*3 yields: "00:00"
 %4 yields: "-814" and %*4 yields: "-814"
 %5 yields: "814" and %*5 yields: "814"
@@ -31447,7 +31451,7 @@ Time substitutions for 13:32 where now() = 13:34
 Time substitutions for 00:00 where now() = 13:34
 
 %1 yields: "13 ώρες και 34 λεπτά πριν" and %*1 yields: "13 ώρες και 34 λεπτά πριν"
-%2 yields: "στις 0:00πμ" and %*2 yields: "0:00πμ"
+%2 yields: "στις 12:00πμ" and %*2 yields: "12:00πμ"
 %3 yields: "στις 00:00" and %*3 yields: "00:00"
 %4 yields: "-814" and %*4 yields: "-814"
 %5 yields: "814" and %*5 yields: "814"
@@ -32349,7 +32353,7 @@ Time substitutions for 13:32 where now() = 13:34
 Time substitutions for 00:00 where now() = 13:34
 
 %1 yields: "13 klukkustundir og 34 mínútur síðan" and %*1 yields: "13 klukkustundir og 34 mínútur síðan"
-%2 yields: "kl. 0:00fh" and %*2 yields: "0:00fh"
+%2 yields: "kl. 12:00fh" and %*2 yields: "12:00fh"
 %3 yields: "kl. 00:00" and %*3 yields: "00:00"
 %4 yields: "-814" and %*4 yields: "-814"
 %5 yields: "814" and %*5 yields: "814"
@@ -33251,7 +33255,7 @@ Time substitutions for 13:32 where now() = 13:34
 Time substitutions for 00:00 where now() = 13:34
 
 %1 yields: "13 ore e 34 minuti fa" and %*1 yields: "13 ore e 34 minuti fa"
-%2 yields: "alle 0:00am" and %*2 yields: "0:00am"
+%2 yields: "alle 12:00am" and %*2 yields: "12:00am"
 %3 yields: "alle 00:00" and %*3 yields: "00:00"
 %4 yields: "-814" and %*4 yields: "-814"
 %5 yields: "814" and %*5 yields: "814"
@@ -34153,7 +34157,7 @@ Time substitutions for 13:32 where now() = 13:34
 Time substitutions for 00:00 where now() = 13:34
 
 %1 yields: "13 uren en 34 minuten geleden" and %*1 yields: "13 uren en 34 minuten geleden"
-%2 yields: "op 0:00am" and %*2 yields: "0:00am"
+%2 yields: "op 12:00am" and %*2 yields: "12:00am"
 %3 yields: "op 00:00" and %*3 yields: "00:00"
 %4 yields: "-814" and %*4 yields: "-814"
 %5 yields: "814" and %*5 yields: "814"
@@ -35055,7 +35059,7 @@ Time substitutions for 13:32 where now() = 13:34
 Time substitutions for 00:00 where now() = 13:34
 
 %1 yields: "13 timer og 34 minutter siden" and %*1 yields: "13 timer og 34 minutter siden"
-%2 yields: "kl. 0:00am" and %*2 yields: "0:00am"
+%2 yields: "kl. 12:00am" and %*2 yields: "12:00am"
 %3 yields: "kl. 00:00" and %*3 yields: "00:00"
 %4 yields: "-814" and %*4 yields: "-814"
 %5 yields: "814" and %*5 yields: "814"
@@ -35957,7 +35961,7 @@ Time substitutions for 13:32 where now() = 13:34
 Time substitutions for 00:00 where now() = 13:34
 
 %1 yields: "13 godzin i 34 minuty temu" and %*1 yields: "13 godzin i 34 minuty temu"
-%2 yields: "o 0:00 w nocy" and %*2 yields: "0:00 w nocy"
+%2 yields: "o 12:00 w nocy" and %*2 yields: "12:00 w nocy"
 %3 yields: "o 00:00" and %*3 yields: "00:00"
 %4 yields: "-814" and %*4 yields: "-814"
 %5 yields: "814" and %*5 yields: "814"
@@ -36859,7 +36863,7 @@ Time substitutions for 13:32 where now() = 13:34
 Time substitutions for 00:00 where now() = 13:34
 
 %1 yields: "13 horas e 34 minutos atrás" and %*1 yields: "13 horas e 34 minutos atrás"
-%2 yields: "as 0:00am" and %*2 yields: "0:00am"
+%2 yields: "as 12:00am" and %*2 yields: "12:00am"
 %3 yields: "as 00:00" and %*3 yields: "00:00"
 %4 yields: "-814" and %*4 yields: "-814"
 %5 yields: "814" and %*5 yields: "814"
@@ -37761,7 +37765,7 @@ Time substitutions for 13:32 where now() = 13:34
 Time substitutions for 00:00 where now() = 13:34
 
 %1 yields: "acum 13 ore şi 34 minute" and %*1 yields: "acum 13 ore şi 34 minute"
-%2 yields: "la ora 0:00 noaptea" and %*2 yields: "0:00 noaptea"
+%2 yields: "la ora 12:00 noaptea" and %*2 yields: "12:00 noaptea"
 %3 yields: "la ora 00:00" and %*3 yields: "00:00"
 %4 yields: "-814" and %*4 yields: "-814"
 %5 yields: "814" and %*5 yields: "814"