Make a function static.

\x followed by one or two hex digits gets converted to that character.

.gitignore

@@ -23,7 +23,6 @@ rem2pdf/Makefile.old
 rem2pdf/Makefile.top
 rem2pdf/bin/rem2pdf
 scripts/tkremind
-set-irc-topic
 src/*.tar.gz*
 src/Makefile
 src/config.h
@@ -35,3 +34,4 @@ tests/test.out
 www/Makefile
 gmon.out
 tests/once.timestamp
+src/xlat.c

COPYRIGHT

@@ -3,7 +3,7 @@ THE REMIND COPYRIGHT
 1. REMIND refers to the entire set of files and documentation in the
 REMIND package.
 
-2. REMIND is Copyright 1992-2024 Dianne Skoll, except where noted in
+2. REMIND is Copyright (C) 1992-2025 Dianne Skoll, except where noted in
 individual files.
 
 3. DISTRIBUTION AND USE

README

@@ -1,78 +0,0 @@
-				REMIND
-
-Remind is a full-featured calendar/alarm program.  Copying policy is
-in the file "COPYRIGHT" in this directory.
-
-Installation notes for various operating systems are in "docs".  See
-the appropriate README file for installation on your system.
-
-Manual pages are in "man".
-
------------------------------------------------------------------------------
-
-Quick UNIX installation instructions for the very impatient:
-
-If you have Tcl/Tk (wish 4.1 or higher) installed and are running X Windows:
---------------------------------------------------------------
-
-1) Type: wish ./build.tk from this directory.  Fill in the various
-   options and hit "Build Remind"
-
-2) Type: "make install" -- you may need to be root to do this.
-
-If you do NOT have Tcl/Tk or are NOT running X Windows:
--------------------------------------------------------
-
-1) Edit the file "src/custom.h" according to your preferences.
-
-2) Edit the file "src/lang.h" to choose a language.
-
-3) Type: "./configure"  (You can supply options; type "./configure --help"
-   for details.)
-
-4) Type: "make"
-
-5) Type: "make install" -- you may need to be root to do this.
-
-PREREQUISITES:
---------------
-
-Remind and rem2ps have no prerequisites beyond the standard C library and
-the standard math library.
-
-Rem2HTML requires the JSON::MaybeXS Perl module.
-Rem2PDF requires the JSON::MaybeXS, Pango and Cairo Perl modules.
-
-- On Debian-like systems, these prerequisites may be installed with:
-
-    apt install libjson-maybexs-perl libpango-perl libcairo-perl
-
-- On RPM-based systems, you need perl-Pango, perl-Cairo and perl-JSON-MaybeXS
-
-- On Gentoo, you need dev-perl/Pango, dev-perl/Cairo and dev-perl/JSON-MaybeXS.
-
-- On Arch linux, you need pango-perl, cairo-perl and perl-json-maybexs
-
-TkRemind requires Tcl/Tk and the tcllib library.
-
-- On Debian-like systems, install with:
-
-    apt install tcl tk tcllib
-
-- On RPM-based systems, you need tcl, tk and tcllib
-
-- On Arch Linux, you need tk and tcllib.  The latter is available at
-  https://aur.archlinux.org/packages/tcllib
-
-If the little arrows for "Previous Month" and "Next Month" do not display
-correctly in TkRemind, you may need to install the Noto Fonts.  Install
-all of your distribution's Nonto Font-related packages.
-
-- On Debian-like systems, install with:
-
-    apt install fonts-noto-core fonts-noto-color-emoji \
-        fonts-noto-extra fonts-noto-ui-core fonts-noto-ui-extra
-
-==========================================================================
-Contact info: mailto:dianne@skoll.ca
-Home page:    https://dianne.skoll.ca/projects/remind/

README.md

@@ -0,0 +1,63 @@
+# REMIND
+
+Remind is a full-featured calendar/alarm program.  Copying policy is
+in the file "COPYRIGHT" included with the source; Remind is licensed under
+the GNU General Public License, Vesion 2.
+
+## Prerequisites:
+
+remind and rem2ps have no prerequisites beyond the standard C library and
+the standard math library.
+
+rem2html requires the JSON::MaybeXS Perl module and rem2pdf
+requires the JSON::MaybeXS, Pango and Cairo Perl modules.
+
+- On Debian-like systems, these prerequisites may be installed with:
+
+    `apt install libjson-maybexs-perl libpango-perl libcairo-perl`
+
+- On RPM-based systems, you need `perl-Pango`, `perl-Cairo` and
+  `perl-JSON-MaybeXS`
+
+- On Gentoo, you need `dev-perl/Pango`, `dev-perl/Cairo` and
+  `dev-perl/JSON-MaybeXS`.
+
+- On Arch linux, you need `pango-perl`, `cairo-perl` and `perl-json-maybexs`
+
+TkRemind requires Tcl/Tk and the tcllib library.
+
+- On Debian-like systems, install with:
+
+    `apt install tcl tk tcllib`
+
+- On RPM-based systems, you need `tcl`, `tk` and `tcllib`
+
+- On Arch Linux, you need `tk` and `tcllib`.  The latter is available at
+  https://aur.archlinux.org/packages/tcllib
+
+If the little arrows for "Previous Month" and "Next Month" do not display
+correctly in TkRemind, you may need to install the Noto Fonts.  Install
+all of your distribution's Nonto Font-related packages.
+
+- On Debian-like systems, install with:
+
+    `apt install fonts-noto-core fonts-noto-color-emoji fonts-noto-extra fonts-noto-ui-core fonts-noto-ui-extra`
+
+## Installation
+
+Remind can be installed with the usual:
+
+`./configure && make && make test && sudo make install`
+
+You can edit custom.h to configure some aspects of Remind.  Or, if
+you have Tcl/Tk installed, you can use the graphical build tool to
+edit custom.h on your behalf:
+
+`wish ./build.tk`
+
+---
+
+Contact info: dianne@skoll.ca
+
+Home page:    [https://dianne.skoll.ca/projects/remind/](https://dianne.skoll.ca/projects/remind/)
+

build.tk

@@ -8,7 +8,7 @@
 #   A cheesy graphical front-end for building and installing REMIND.
 #
 #   This file is part of REMIND.
-#   Copyright (C) 1992-2018 Dianne Skoll
+#   Copyright (C) 1992-2025 Dianne Skoll
 #
 #--------------------------------------------------------------
 
@@ -487,7 +487,7 @@ proc CallMake {} {
 #    Michael McLennan, Bell Labs Innovations for Lucent Technologies
 #    Addison-Wesley Professional Computing Series
 # ======================================================================
-#  Copyright (c) 1996-1997  Lucent Technologies Inc. and Mark Harrison
+#  Copyright (C) 1996-1997  Lucent Technologies Inc. and Mark Harrison
 # ======================================================================
 
 option add *Tabnotebook.tabs.background #666666 widgetDefault
@@ -601,7 +601,7 @@ proc tabnotebook_display {win name} {
 #    Michael McLennan, Bell Labs Innovations for Lucent Technologies
 #    Addison-Wesley Professional Computing Series
 # ======================================================================
-#  Copyright (c) 1996-1997  Lucent Technologies Inc. and Mark Harrison
+#  Copyright (C) 1996-1997  Lucent Technologies Inc. and Mark Harrison
 # ======================================================================
 
 option add *Notebook.borderWidth 2 widgetDefault

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.02.00.
+# Generated by GNU Autoconf 2.71 for remind 05.03.00.
 #
 #
 # 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.02.00'
-PACKAGE_STRING='remind 05.02.00'
+PACKAGE_VERSION='05.03.00'
+PACKAGE_STRING='remind 05.03.00'
 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.02.00 to adapt to many kinds of systems.
+\`configure' configures remind 05.03.00 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.02.00:";;
+     short | recursive ) echo "Configuration of remind 05.03.00:";;
    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.02.00
+remind configure 05.03.00
 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.02.00, which was
+It was created by remind $as_me 05.03.00, 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.02.00, which was
+This file was extended by remind $as_me 05.03.00, 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.02.00
+remind config.status 05.03.00
 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.02.00, , , https://dianne.skoll.ca/projects/remind/)
+AC_INIT(remind, 05.03.00, , , https://dianne.skoll.ca/projects/remind/)
 AC_CONFIG_SRCDIR([src/queue.c])
 
 cat <<'EOF'

contrib/remind-conf-mode/remind-conf-mode.el

@@ -112,12 +112,13 @@
    (list "ADDOMIT" "AFTER" "AT" "BAN" "BANNER" "BEFORE" "CAL" "CLEAR"
          "CLEAR-OMIT-CONTEXT" "DEBUG" "DO" "DUMP" "DUMPVARS" "DURATION" "ELSE"
          "ENDIF" "ERRMSG" "EXIT" "EXPR" "FIRST" "FLUSH" "FOURTH" "FRENAME" "FROM" "FSET"
-         "FUNSET" "IF" "IFTRIG" "IN" "INC" "INCLUDE" "INCLUDECMD" "LAST"
+         "FUNSET" "IF" "IFTRIG" "IN" "INC" "INCLUDE" "INCLUDECMD" "INFO" "LAST"
          "LASTDAY" "LASTWORKDAY" "MAYBE" "MAYBE-UNCOMPUTABLE" "MSF" "MSG"
          "NOQUEUE" "OMIT" "OMITFUNC" "ONCE" "POP" "POP-OMIT-CONTEXT" "PRESERVE"
          "PRIORITY" "PS" "PSFILE" "PUSH" "PUSH-OMIT-CONTEXT" "REM" "RUN"
          "SATISFY" "SCAN" "SCANFROM" "SCHED" "SECOND" "SET" "SKIP" "SPECIAL"
-         "TAG" "THIRD" "THROUGH" "TRANSLATE" "TRANS" "UNSET" "UNTIL" "WARN")
+         "SYSINCLUDE" "TAG" "THIRD" "THROUGH" "TRANSLATE" "TRANS" "UNSET"
+         "UNTIL" "WARN")
    #'(lambda (a b) (> (length a) (length b)))))
 
 
@@ -129,8 +130,8 @@
 (defconst remind-builtin-variables
   (sort
    (list " $AddBlankLines" "$Ago" "$Am" "$And" "$April" "$At" "$August"
-         "$CalcUTC" "$CalMode" "$Daemon" "$DateSep" "$DateTimeSep" "$December"
-         "$DedupeReminders" "$DefaultColor" "$DefaultDelta"
+         "$CalcUTC" "$CalMode" "$CalType" "$Daemon" "$DateSep" "$DateTimeSep"
+         "$December" "$DedupeReminders" "$DefaultColor" "$DefaultDelta"
          "$DefaultPrio" "$DefaultTDelta" "$DeltaOverride"
          "$DontFork" "$DontQueue" "$DontTrigAts" "$EndSent" "$EndSentIg"
          "$ExpressionTimeLimit" "$February" "$FirstIndent" "$FoldYear"
@@ -165,7 +166,7 @@
    (list "_" "abs" "access" "adawn" "adusk" "ampm" "ansicolor" "args" "asc"
          "baseyr" "char" "choose" "coerce" "columns" "current" "date"
          "datepart" "datetime" "dawn" "day" "daysinmon" "defined" "dosubst"
-         "dusk" "easterdate" "evaltrig" "filedate" "filedatetime" "filedir"
+         "dusk" "easterdate" "escape" "evaltrig" "filedate" "filedatetime" "filedir"
          "filename" "getenv" "hebdate" "hebday" "hebmon" "hebyear" "hour"
          "htmlescape" "htmlstriptags" "iif" "index" "isany" "isdst" "isleap"
          "isomitted" "language" "localtoutc" "lower" "max" "min" "minsfromutc"

docs/README.UNIX

@@ -1,6 +1,6 @@
-REMIND version 3.2 for UNIX
+Remind for UNIX and Linux
 
-REMIND is a sophisticated alarm/calendar program.  Details are given
+Remind is a sophisticated alarm/calendar program.  Details are given
 in the man page, "remind.1".
 
 INSTALLING REMIND:
@@ -19,88 +19,13 @@ If you do NOT have Tcl/Tk or are NOT running X11:
 
 1) Edit the file "src/custom.h" according to your preferences.
 
-2) Edit the file "src/lang.h" to choose a language.
+2) Type: "make"
 
-3) Type: "make"
-
-4) Type: "make install" -- you may need to be root to do this.
+3) Type: "make install" -- you may need to be root to do this.
 
 The subdirectory "www" contains scripts for making a nice calendar
 web server.  See the files README and Makefile in that directory.
 
-The file "examples/defs.rem" has some sample Remind definitions and
-commands, as well as U.S. and Jewish holidays.
-
-OTHER LANGUAGE SUPPORT
-
-Remind has support for languages other than English.  See the file
-"src/lang.h" for details.  The language support may vary - you can change
-only the substitution filter, or you can translate all of the usage
-instructions and error messages as well.  See "src/langs/french.h" for an
-example of the latter.
-
-To compile Remind for a non-english language, look at the constants
-defined in "src/lang.h".  Then, to compile Remind for Italian (as an
-example), type:
-
-	make "LANGDEF=-DLANG=ITALIAN"
-
-If you add support for a non-English language, Remind will accept both the
-English and non-English names of months and weekdays in an input script.
-However, you should not rely on this feature if you want to write portable
-Remind scripts.
-
-At a minimum, you should support month and day names in the foreign
-language, and should modify the substitution filter appropriately.
-If you are truly diligent, you can translate usage and error messages
-too.
-
-Take a look at the files "src/langs/english.h" and
-"src/langs/german.h" if you want to add support for your favourite
-language.  If you do add another language to Remind, please let me
-know!  Here are the basic guidelines:
-
-- Your language file should be called "src/langs/lxxx.h", where lxxx
-  is the first 8 characters of the ENGLISH name of your language.
-
-- Your language file should define L_LANGNAME to be the full English
-  name of your language, with the first letter capitalized and the rest
-  lower-case.
-
-- You can test your language file with the script "tests/tstlang.rem"
-
-- Your localized strings must be encoded using UTF-8.
-
-RELEASE NOTES -- miscellaneous info that couldn't go anywhere else!
-
-1. POPUP REMINDERS
-
-If you're running under X11 and you have the Tcl tools, you can create
-simple pop-up reminders by creating the following Tcl script called
-'popup'.  It pops a message on to the screen and waits for you to
-press the 'OK' button.  If you don't press the OK button within 15
-seconds, it exits anyway.  To use it, you can use the '-k' option for
-Remind as follows:
-
-	remind "-kpopup '%s'&" .reminders
-
-Or use the following in your Remind script:
-
-	REM AT 17:00 RUN popup 'Time to go home.' &
-
-This Tcl script is a slightly modified version of one submitted by
-Norman Walsh.
-
--------------- Cut Here ---------- Cut Here ---------- Cut Here -------------
-#!/usr/local/bin/wish
-wm withdraw .
-after 15000 { destroy . ; exit }
-tk_messageBox -message Message -detail $argv -icon info -type ok
-destroy .
-exit
--------------- Cut Here ---------- Cut Here ---------- Cut Here -------------
-
-
 --
 Dianne Skoll <dianne@skoll.ca>
 https://dianne.skoll.ca/projects/remind/

docs/WHATSNEW

@@ -1,10 +1,82 @@
 CHANGES TO REMIND
 
-* VERSION 5.2 Patch 0 - ????-??=??
+* VERSION 5.3 Patch 0 - 2025-02-??
 
-- MAJOR NEW FEATURE: remind: Add the TRANSLATE command and the _()
-  built-in function.  This allows you to localize your reminder files
-  more easily.
+- NEW FEATURE: remind: Add the "INFO" clause to the REM command.  This
+  is intended for storing additional metadata about an event, such as
+  the location and a longer description.  The intention is to make
+  Remind <-> iCal conversions preserve as much information as possible.
+
+- NEW FEATURE: TkRemind: Add "Location" and "Description" fields when
+  creating a reminder; these are converted to INFO clauses.  Also support
+  a popup window with the extra information when hovering over a reminder
+  in the calendar display.
+
+- IMPROVEMENT: remind: Add the "\xAB" escape sequence for parsing quoted
+  strings, where "AB" is a pair of hex digits.
+
+- NEW FUNCTION: remind: Add the escape() built-in function that converts
+  problematic characters within a string to the \-escaped versions.
+  It's essentially the inverse of how Remind parses a quoted string.
+
+* VERSION 5.2 Patch 3 - 2025-01-22
+
+- NEW FEATURE: remind: Add "TRANSLATE GENERATE" command for generating
+  a skeleton set of TRANSLATE commands to make it easier to localize
+  Remind.
+
+- NEW FEATURE: remind: Add "q" debug flag for tracing calls to _()
+  or %(...) in the substitution filter; this will help with localizing
+  reminder files.
+
+- NEW FILES: remind: Add holidays/lgbtq.rem for LGBTQ holidays.  Add
+  country-specific files in holidays/lgbtq/*.rem
+
+- IMPROVEMENT: TkRemind: use "info patchlevel" to display full Tcl/Tk
+  version.
+
+- IMPROVEMENT: remind: The DEBUG command issues a warning if given an
+  unknown debug flag.
+
+- BUG FIX: remind: "make test" will now succeed even if run between
+  23:55 and 00:00 UTC.  This is done with a new --test flag for remind.
+
+- BUG FIX: remind: Avoid potential buffer overflow if someone supplies
+  ridiculously-long translations for "am" or "pm".
+
+* VERSION 5.2 Patch 2 - 2025-01-06
+
+- NEW FEATURE: remind: The "-p+" option lets you produce weekly calendars;
+  so far, the rem2pdf and rem2html back-ends support rendering of weekly
+  calendars.
+
+- NEW FEATURE: remind: The $CalType system variable indicates the type of
+  calendar being produced; its value is one of "monthly", "weekly",
+  or "none".  "none" signifies agenda mode rather than calendar mode.
+
+- IMPROVEMENT: remind: Warn if a POP-OMIT-CONTEXT matches a
+  PUSH-OMIT-CONTEXT that is in a different file.
+
+- CHANGE: remind: Split the "-ds" debug option into two separate options:
+  "-ds" for debugging expression-parsing and "-dh" for printing hash
+  table statistics on exit.
+
+* VERSION 5.2 Patch 1 - 2024-12-16
+
+- BUG FIX: remind: Fix a logic error that only showed itself on big-endian
+  architectures.  Found thanks to Debian testing and a notification from
+  Jochen Sprickerhof.
+
+* VERSION 5.2 Patch 0 - 2024-12-16
+
+- MAJOR NEW FEATURE: remind: Add the TRANSLATE command, the _()
+  built-in function and the %(...) substitution sequence.  These allow
+  you to localize your reminder files more easily.  The translation table
+  is also made available to back-ends like rem2pdf and tkremind,
+  which they can use as they see fit.
+
+- MINOR FEATURE: tkremind, rem2html: Localize the names of the moon
+  phases.
 
 - MAJOR CHANGE: remind: Remind used to support compile-time localization
   into different languages (French, English, etc.)  That compile-time
@@ -19,6 +91,18 @@ CHANGES TO REMIND
 
 - MINOR FEATURE: Add standard include/sun.rem file for sunrise/sunset.
 
+- MINOR FEATURE:  The SYSINCLUDE command has been added.  The command:
+
+      SYSINCLUDE foo/bar.rem
+
+  is equivalent to:
+
+      INCLUDE [$SysInclude]/foo/bar.rem
+
+- MINOR IMPROVEMENT: Allow INCLUDE, DO and SYSINCLUDE to include files with
+  spaces in their names; in this case, you have to put the filename inside
+  double-quotes.
+
 - IMPROVEMENT: remind: Refuse to open subdirectories named "*.rem"
   under a top-level directory rather than trying and failing with a
   confusing error.
@@ -27,13 +111,20 @@ CHANGES TO REMIND
   that are easier on the eyes.
 
 - IMPROVEMENT: remind: Remind used to have three completely separate
-  hash table implementations.  Replace them all with one piece of code.
+  hash table implementations.  They have all been replaced with a single
+  implementation; this new implementation adapts the hash table size based
+  on the number of entries and is dramatically faster than the old code
+  when there are a large number of entries.
 
 - MINOR FIXES: remind: Fix typos in comments; use memcpy to copy OMIT
   contexts internally.
 
-- BUG FIX: Actually allow the documented 9 levels of INCLUDE rather than
-  8.
+- BUG FIX: remind: Actually allow the documented 9 levels of INCLUDE
+  rather than 8.
+
+- BUG FIX: remind: If an INCLUDE statement failed inside an IF statement,
+  Remind would print spurious errors about unmatched IF/ENDIF.  This has
+  been fixed.
 
 * VERSION 5.1 Patch 1 - 2024-11-18
 

examples/defs.rem

@@ -21,7 +21,7 @@
 #  "#PSSTUFF" for nifty PostScript examples				    #
 # 									    #
 # This file is part of REMIND.						    #
-# Copyright (C) 1992-2024 Dianne Skoll                                      #
+# Copyright (C) 1992-2025 Dianne Skoll                                      #
 # SPDX-License-Identifier: GPL-2.0-only
 # 									    #
 #############################################################################

include/ansitext.rem

@@ -2,7 +2,7 @@
 # Not all sequences are supported by all terminals.
 
 # This file is part of REMIND
-# REMIND is Copyright (C) 1992-2024 by Dianne Skoll
+# REMIND is Copyright (C) 1992-2025 by Dianne Skoll
 # SPDX-License-Identifier: GPL-2.0-only
 
 if !defined("ansi_bold")

include/holidays/README

@@ -54,8 +54,8 @@ advance warning of holidays:
     FSET msgsuffix(x) char(8) + dosubst(" is %b.%", $T)
 
     # Include your holiday files here...
-    INCLUDE [$SysInclude]/holidays/us.rem
-    INCLUDE [$SysInclude]/holidays/us/ny.rem
+    SYSINCLUDE holidays/us.rem
+    SYSINCLUDE holidays/us/ny.rem
 
     # Restore old version of msgsuffix and $DefaultDelta
     FRENAME saved_msgsuffix msgsuffix

include/holidays/chinese-new-year.rem

@@ -1,29 +1,30 @@
-REM  1 Feb 2022 MSG [_("Chinese New Year")] ([_("Tiger")])
-REM 22 Jan 2023 MSG [_("Chinese New Year")] ([_("Rabbit")])
-REM 10 Feb 2024 MSG [_("Chinese New Year")] ([_("Dragon")])
-REM 29 Jan 2025 MSG [_("Chinese New Year")] ([_("Snake")])
-REM 17 Feb 2026 MSG [_("Chinese New Year")] ([_("Horse")])
-REM  6 Feb 2027 MSG [_("Chinese New Year")] ([_("Goat")])
-REM 26 Jan 2028 MSG [_("Chinese New Year")] ([_("Monkey")])
-REM 13 Feb 2029 MSG [_("Chinese New Year")] ([_("Rooster")])
-REM  3 Feb 2030 MSG [_("Chinese New Year")] ([_("Dog")])
-REM 23 Jan 2031 MSG [_("Chinese New Year")] ([_("Pig")])
-REM 11 Feb 2032 MSG [_("Chinese New Year")] ([_("Rat")])
-REM 31 Jan 2033 MSG [_("Chinese New Year")] ([_("Ox")])
-REM 19 Feb 2034 MSG [_("Chinese New Year")] ([_("Tiger")])
-REM  8 Feb 2035 MSG [_("Chinese New Year")] ([_("Rabbit")])
-REM 28 Jan 2036 MSG [_("Chinese New Year")] ([_("Dragon")])
-REM 15 Feb 2037 MSG [_("Chinese New Year")] ([_("Snake")])
-REM  4 Feb 2038 MSG [_("Chinese New Year")] ([_("Horse")])
-REM 24 Jan 2039 MSG [_("Chinese New Year")] ([_("Goat")])
-REM 12 Feb 2040 MSG [_("Chinese New Year")] ([_("Monkey")])
-REM  1 Feb 2041 MSG [_("Chinese New Year")] ([_("Rooster")])
-REM 22 Jan 2042 MSG [_("Chinese New Year")] ([_("Dog")])
-REM 10 Feb 2043 MSG [_("Chinese New Year")] ([_("Pig")])
-REM 30 Jan 2044 MSG [_("Chinese New Year")] ([_("Rat")])
-REM 17 Feb 2045 MSG [_("Chinese New Year")] ([_("Ox")])
-REM  6 Feb 2046 MSG [_("Chinese New Year")] ([_("Tiger")])
-REM 26 Jan 2047 MSG [_("Chinese New Year")] ([_("Rabbit")])
-REM 14 Feb 2048 MSG [_("Chinese New Year")] ([_("Dragon")])
-REM  2 Feb 2049 MSG [_("Chinese New Year")] ([_("Snake")])
-REM 23 Jan 2050 MSG [_("Chinese New Year")] ([_("Horse")])
+# SPDX-License-Identifier: GPL-2.0-only
+REM  1 Feb 2022 MSG %(Chinese New Year) (%(Tiger))
+REM 22 Jan 2023 MSG %(Chinese New Year) (%(Rabbit))
+REM 10 Feb 2024 MSG %(Chinese New Year) (%(Dragon))
+REM 29 Jan 2025 MSG %(Chinese New Year) (%(Snake))
+REM 17 Feb 2026 MSG %(Chinese New Year) (%(Horse))
+REM  6 Feb 2027 MSG %(Chinese New Year) (%(Goat))
+REM 26 Jan 2028 MSG %(Chinese New Year) (%(Monkey))
+REM 13 Feb 2029 MSG %(Chinese New Year) (%(Rooster))
+REM  3 Feb 2030 MSG %(Chinese New Year) (%(Dog))
+REM 23 Jan 2031 MSG %(Chinese New Year) (%(Pig))
+REM 11 Feb 2032 MSG %(Chinese New Year) (%(Rat))
+REM 31 Jan 2033 MSG %(Chinese New Year) (%(Ox))
+REM 19 Feb 2034 MSG %(Chinese New Year) (%(Tiger))
+REM  8 Feb 2035 MSG %(Chinese New Year) (%(Rabbit))
+REM 28 Jan 2036 MSG %(Chinese New Year) (%(Dragon))
+REM 15 Feb 2037 MSG %(Chinese New Year) (%(Snake))
+REM  4 Feb 2038 MSG %(Chinese New Year) (%(Horse))
+REM 24 Jan 2039 MSG %(Chinese New Year) (%(Goat))
+REM 12 Feb 2040 MSG %(Chinese New Year) (%(Monkey))
+REM  1 Feb 2041 MSG %(Chinese New Year) (%(Rooster))
+REM 22 Jan 2042 MSG %(Chinese New Year) (%(Dog))
+REM 10 Feb 2043 MSG %(Chinese New Year) (%(Pig))
+REM 30 Jan 2044 MSG %(Chinese New Year) (%(Rat))
+REM 17 Feb 2045 MSG %(Chinese New Year) (%(Ox))
+REM  6 Feb 2046 MSG %(Chinese New Year) (%(Tiger))
+REM 26 Jan 2047 MSG %(Chinese New Year) (%(Rabbit))
+REM 14 Feb 2048 MSG %(Chinese New Year) (%(Dragon))
+REM  2 Feb 2049 MSG %(Chinese New Year) (%(Snake))
+REM 23 Jan 2050 MSG %(Chinese New Year) (%(Horse))

include/holidays/lgbtq.rem

@@ -0,0 +1,34 @@
+# List of LGBTQ awareness days
+# Sourced from https://en.wikipedia.org/wiki/List_of_LGBTQ_awareness_periods
+# These are the internationally-recognized days.
+#
+# SPDX-License-Identifier: GPL-2.0-only
+
+REM Sun 14 Feb MSG Start of Aromantic Spectrum Awareness Week
+REM      1 Mar MSG Zero Discrimination Day
+REM     31 Mar MSG Trans Day of Visibility
+REM      6 Apr MSG International Asexuality Day
+REM Wed  8 Apr MSG International Day of Pink
+REM     26 Apr MSG Lesbian Visibility Day
+REM     17 May MSG International Day Against Homophobia, Biphobia and Transphobia
+REM     19 May MSG Agender Pride Day
+REM     24 May MSG Pansexual & Panromantic Awareness Day
+REM      1 Jun MSG Start of LGBT Pride Month
+REM      5 Jun MSG Aromantic Visibility Day
+REM Mon  8 Jul MSG Start of Non-Binary Awareness Week
+REM     14 Jul MSG Non-Binary People's Day
+REM     16 Jul MSG Drag Day
+REM      9 Aug MSG Start of Dyke Week
+REM     16 Sep MSG Start of Bisexual Awareness Week
+REM     23 Sep MSG Celebrate Bisexuality Day
+REM      8 Oct MSG Lesbian Day
+REM     11 Oct MSG National Coming Out Day
+REM Wed 15 Oct MSG Pronouns Day
+REM     17 Oct MSG Start of Genderfluid Visibility Week
+REM Sun 19 Oct MSG Start of Ace Week
+REM     26 Oct MSG Intersex Awareness Day
+REM      8 Nov MSG Intersex Day of Remembrance
+REM      1 Nov MSG Start of Trans Awareness Month
+REM Sun  1 Nov MSG Trans Parent Day
+REM     13 Nov MSG Start of Trans Awareness Week
+REM     20 Nov MSG Transgender Day of Remembrance

include/holidays/lgbtq/au.rem

@@ -0,0 +1,8 @@
+# List of LGBTQ awareness days
+# Sourced from https://en.wikipedia.org/wiki/List_of_LGBTQ_awareness_periods
+# These are the holidays recognized in Australia
+#
+# SPDX-License-Identifier: GPL-2.0-only
+REM Sat  1 Mar MSG Mardi Gras Parade
+REM Fri  1 Sep --7 MSG Wear it Purple Day
+REM      1 Oct MSG Start of LGBT History Month

include/holidays/lgbtq/br.rem

@@ -0,0 +1,10 @@
+# List of LGBTQ awareness days
+# Sourced from https://en.wikipedia.org/wiki/List_of_LGBTQ_awareness_periods
+# These are the holidays recognized in Brazil
+#
+# SPDX-License-Identifier: GPL-2.0-only
+
+REM     29 Jan MSG National Day of Transgender Visibility
+REM     20 Feb MSG Trans Men and Transmasculine Day
+REM     25 Mar MSG National Gay Pride Day
+REM     29 Aug MSG National Day of Lesbian Visibility

include/holidays/lgbtq/ca.rem

@@ -0,0 +1,7 @@
+# List of LGBTQ awareness days
+# Sourced from https://en.wikipedia.org/wiki/List_of_LGBTQ_awareness_periods
+# These are the holidays recognized in Canada
+#
+# SPDX-License-Identifier: GPL-2.0-only
+
+REM      1 Oct MSG Start of LGBT History Month

include/holidays/lgbtq/cl.rem

@@ -0,0 +1,7 @@
+# List of LGBTQ awareness days
+# Sourced from https://en.wikipedia.org/wiki/List_of_LGBTQ_awareness_periods
+# These are the holidays recognized in Chile
+#
+# SPDX-License-Identifier: GPL-2.0-only
+
+REM      9 Jul MSG Lesbian Visibility Day

include/holidays/lgbtq/ie.rem

@@ -0,0 +1,7 @@
+# List of LGBTQ awareness days
+# Sourced from https://en.wikipedia.org/wiki/List_of_LGBTQ_awareness_periods
+# These are the holidays recognized in Ireland
+#
+# SPDX-License-Identifier: GPL-2.0-only
+
+REM     22 May MSG Irish Marriage Referendum Day

include/holidays/lgbtq/in.rem

@@ -0,0 +1,7 @@
+# List of LGBTQ awareness days
+# Sourced from https://en.wikipedia.org/wiki/List_of_LGBTQ_awareness_periods
+# These are the holidays recognized in India
+#
+# SPDX-License-Identifier: GPL-2.0-only
+
+REM     2 Jul MSG Indian Coming Out Day

include/holidays/lgbtq/nl.rem

@@ -0,0 +1,7 @@
+# List of LGBTQ awareness days
+# Sourced from https://en.wikipedia.org/wiki/List_of_LGBTQ_awareness_periods
+# These are the holidays recognized in the Netherlands
+#
+# SPDX-License-Identifier: GPL-2.0-only
+
+REM Fri  8 Dec MSG Purple Friday

include/holidays/lgbtq/ua.rem

@@ -0,0 +1,7 @@
+# List of LGBTQ awareness days
+# Sourced from https://en.wikipedia.org/wiki/List_of_LGBTQ_awareness_periods
+# These are the holidays recognized in Ukraine
+#
+# SPDX-License-Identifier: GPL-2.0-only
+
+REM     12 Dec MSG Day of Remembrance of Homosexuals in Ukraine (victims of the totalitarian Soviet regime)

include/holidays/lgbtq/uk.rem

@@ -0,0 +1,8 @@
+# List of LGBTQ awareness days
+# Sourced from https://en.wikipedia.org/wiki/List_of_LGBTQ_awareness_periods
+# These are the holidays recognized in the United Kingdom
+#
+# SPDX-License-Identifier: GPL-2.0-only
+
+REM      1 Feb MSG Start of LGBT History Month
+REM      6 May MSG Start of Trans+ History Week

include/holidays/lgbtq/us.rem

@@ -0,0 +1,16 @@
+# List of LGBTQ awareness days
+# Sourced from https://en.wikipedia.org/wiki/List_of_LGBTQ_awareness_periods
+# These are the holidays recognized in the United States of America
+#
+# SPDX-License-Identifier: GPL-2.0-only
+
+REM      1 Mar MSG Start of Bisexual Health Awareness Month
+REM Fri  8 Apr MSG Day of Silence
+REM      9 Apr MSG Sapphic Visibility Day
+REM     22 May MSG Harvey Milk Day
+REM      5 Jun MSG HIV Long-Term Survivors Awareness Day
+REM     12 Jun MSG Pulse Night of Remembrance
+REM     28 Jun MSG Stonewall Riots Anniversary
+REM      1 Aug MSG Start of Transgender History Month (CA)
+REM      1 Oct MSG Start of LGBT History Month
+REM Thu 15 Oct MSG Spirit Day

include/lang/auto.rem

@@ -16,10 +16,10 @@ if !defined("__autolang__")
 
     IF autolang != ""
         IF access($SysInclude + "/lang/" + lower(substr(autolang, 1, 5)) + ".rem", "r") == 0
-            INCLUDE [$SysInclude]/lang/[lower(substr(autolang, 1, 5))].rem
+            SYSINCLUDE lang/[lower(substr(autolang, 1, 5))].rem
         ELSE
             IF access($SysInclude + "/lang/" + lower(substr(autolang, 1, 2)) + ".rem", "r") == 0
-                INCLUDE [$SysInclude]/lang/[lower(substr(autolang, 1, 2))].rem
+                SYSINCLUDE lang/[lower(substr(autolang, 1, 2))].rem
             ENDIF
         ENDIF
     ENDIF

include/lang/ca.rem

@@ -1,6 +1,6 @@
 # Support for the Catalan language.
 # This file is part of REMIND.
-# REMIND is Copyright (C) 1992-2024 by Dianne Skoll
+# REMIND is Copyright (C) 1992-2025 by Dianne Skoll
 # This file was created  by Eloi Torrents <eloitor@disroot.org>
 
 TRANSLATE "LANGID" "ca"

include/lang/da.rem

@@ -1,6 +1,6 @@
 # Support for the Danish language.
 # This file is part of REMIND.
-# REMIND is Copyright (C) 1992-2024 by Dianne Skoll
+# REMIND is Copyright (C) 1992-2025 by Dianne Skoll
 # This file is derived from a translation by Mogens Lynnerup.
 
 TRANSLATE "LANGID" "da"

include/lang/de.rem

@@ -1,6 +1,6 @@
 # Support for the German language.
 # This file is part of REMIND.
-# REMIND is Copyright (C) 1992-2024 by Dianne Skoll
+# REMIND is Copyright (C) 1992-2025 by Dianne Skoll
 # This file is derived from a translation by Wolfgang Thronicke
 
 TRANSLATE "LANGID" "de"
@@ -74,3 +74,27 @@ TRANSLATE "Autumnal Equinox" "Herbstanfang"
 TRANSLATE "Winter Solstice" "Winteranfang"
 TRANSLATE "Daylight Saving Time Starts" "Beginn Sommerzeit"
 TRANSLATE "Daylight Saving Time Ends" "Ende Sommerzeit"
+
+TRANSLATE "New Moon" "Neumond"
+TRANSLATE "First Quarter" "zunehmender Halbmond"
+TRANSLATE "Full Moon" "Vollmond"
+TRANSLATE "Last Quarter" "abnehmender Halbmond"
+
+TRANSLATE "Chinese New Year" "Chinesisches Neujahr"
+TRANSLATE "Snake" "Schlange"
+TRANSLATE "Horse" "Pferd"
+TRANSLATE "Goat" "Ziege"
+TRANSLATE "Monkey" "Affe"
+TRANSLATE "Rooster" "Hahn"
+TRANSLATE "Dog" "Hund"
+TRANSLATE "Pig" "Schwein"
+TRANSLATE "Rat" "Ratte"
+TRANSLATE "Ox" "Ochse"
+TRANSLATE "Tiger" "Tiger"
+TRANSLATE "Rabbit" "Kaninchen"
+TRANSLATE "Dragon" "Drachen"
+
+TRANSLATE "Sunrise" "Sonnenaufgang"
+TRANSLATE "Sunset" "Sonnenuntergang"
+
+TRANSLATE "No reminders." "Keine Termine."

include/lang/en.rem

@@ -1,4 +1,4 @@
 # Support for the English language.
 # This file is part of REMIND.
-# REMIND is Copyright (C) 1992-2024 by Dianne Skoll
+# REMIND is Copyright (C) 1992-2025 by Dianne Skoll
 # Nothing to do for English since it is the default.

include/lang/es.rem

@@ -1,6 +1,6 @@
 # Support for the Spanish language.
 # This file is part of REMIND.
-# REMIND is Copyright (C) 1992-2024 by Dianne Skoll
+# REMIND is Copyright (C) 1992-2025 by Dianne Skoll
 # This file is derived from a translation by Rafa Couto <rafacouto@biogate.com>
 
 TRANSLATE "LANGID" "es"

include/lang/fi.rem

@@ -1,6 +1,6 @@
 # Support for the Finnish language.
 # This file is part of REMIND.
-# REMIND is Copyright (C) 1992-2024 by Dianne Skoll
+# REMIND is Copyright (C) 1992-2025 by Dianne Skoll
 # This file is derived from a translation by Mikko Silvonen
 
 TRANSLATE "LANGID" "fi"
@@ -170,19 +170,19 @@ TRANSLATE "Leaving UserFN" "Poistutaan funktiosta"
 TRANSLATE "Expired" "Vanhentunut"
 TRANSLATE "fork() failed - can't do queued reminders" "fork() epäonnistui - jonomuistutukset eivät toimi"
 TRANSLATE "Can't access file" "Tiedoston avaus ei onnistu"
-TRANSLATE "Illegal system date: Year is less than %d\n" "Virheellinen järjestelmäpäiväys: vuosi on vähemmän kuin %d\n"
-TRANSLATE "Unknown debug flag '%c'\n" "Tuntematon virheenetsintätarkenne '%c'\n"
-TRANSLATE "Unknown option '%c'\n" "Tuntematon tarkenne '%c'\n"
-TRANSLATE "Unknown user '%s'\n" "Tuntematon käyttäjä '%s'\n"
-TRANSLATE "Could not change gid to %d\n" "Ryhmänumeron vaihto %d:ksi ei onnistunut\n"
-TRANSLATE "Could not change uid to %d\n" "Käyttäjänumeron vaihto %d:ksi ei onnistunut\n"
-TRANSLATE "Out of memory for environment\n" "Muisti ei riitä ympäristölle\n"
+TRANSLATE "Illegal system date: Year is less than %d" "Virheellinen järjestelmäpäiväys: vuosi on vähemmän kuin %d"
+TRANSLATE "Unknown debug flag '%c'" "Tuntematon virheenetsintätarkenne '%c'"
+TRANSLATE "Unknown option '%c'" "Tuntematon tarkenne '%c'"
+TRANSLATE "Unknown user '%s'" "Tuntematon käyttäjä '%s'"
+TRANSLATE "Could not change gid to %d" "Ryhmänumeron vaihto %d:ksi ei onnistunut"
+TRANSLATE "Could not change uid to %d" "Käyttäjänumeron vaihto %d:ksi ei onnistunut"
+TRANSLATE "Out of memory for environment" "Muisti ei riitä ympäristölle"
 TRANSLATE "Missing '=' sign" "Puuttuva '='-merkki"
 TRANSLATE "Missing variable name" "Puuttuva muuttujanimi"
 TRANSLATE "Missing expression" "Puuttuva lauseke"
-TRANSLATE "Remind: '-i' option: %s\n" "Remind: tarkenne '-i': %s\n"
+TRANSLATE "Remind: '-i' option: %s" "Remind: tarkenne '-i': %s"
 TRANSLATE "No reminders." "Ei viestejä."
-TRANSLATE "%d reminder(s) queued for later today.\n" "%d viesti(ä) tämän päivän jonossa.\n"
+TRANSLATE "%d reminder(s) queued for later today." "%d viesti(ä) tämän päivän jonossa."
 TRANSLATE "Expecting number" "Numero puuttuu"
 TRANSLATE "Undefined WARN function" "Virheellinen funktio WARN-lausekkeessa"
 TRANSLATE "Can't convert between time zones" "Aikavyöhykkeiden välillä ei voi muuntaa"

include/lang/fr.rem

@@ -1,6 +1,6 @@
 # Support for the French language.
 # This file is part of REMIND.
-# REMIND is Copyright (C) 1992-2024 by Dianne Skoll
+# REMIND is Copyright (C) 1992-2025 by Dianne Skoll
 # This file is derived from a translation by Laurent Duperval
 
 TRANSLATE "LANGID" "fr"
@@ -138,17 +138,17 @@ TRANSLATE "Leaving UserFN" "Sortie de UserFN"
 TRANSLATE "Expired" "Expiré"
 TRANSLATE "fork() failed - can't do queued reminders" "fork() échoué - impossible de faire les appels en queue"
 TRANSLATE "Can't access file" "Impossible d'accéder au fichier"
-TRANSLATE "Illegal system date: Year is less than %d\n" "Date système illégale: Année est inférieure à %d\n"
-TRANSLATE "Unknown debug flag '%c'\n" "Option de déverminage inconnue '%c'\n"
-TRANSLATE "Unknown option '%c'\n" "Option inconnue '%c'\n"
-TRANSLATE "Unknown user '%s'\n" "Usager inconnu '%s'\n"
-TRANSLATE "Could not change gid to %d\n" "Impossible de changer gid pour %d\n"
-TRANSLATE "Could not change uid to %d\n" "Impossible de changer uid pour %d\n"
-TRANSLATE "Out of memory for environment\n" "Manque de mémoire pour environnement\n"
+TRANSLATE "Illegal system date: Year is less than %d" "Date système illégale: Année est inférieure à %d"
+TRANSLATE "Unknown debug flag '%c'" "Option de déverminage inconnue '%c'"
+TRANSLATE "Unknown option '%c'" "Option inconnue '%c'"
+TRANSLATE "Unknown user '%s'" "Usager inconnu '%s'"
+TRANSLATE "Could not change gid to %d" "Impossible de changer gid pour %d"
+TRANSLATE "Could not change uid to %d" "Impossible de changer uid pour %d"
+TRANSLATE "Out of memory for environment" "Manque de mémoire pour environnement"
 TRANSLATE "Missing '=' sign" "Signe '=' manquant"
 TRANSLATE "Missing variable name" "Nom de variable absent"
 TRANSLATE "Missing expression" "Expression absente"
-TRANSLATE "%d reminder(s) queued for later today.\n" "%d rappel(s) en file pour aujourd'hui.\n"
+TRANSLATE "%d reminder(s) queued for later today." "%d rappel(s) en file pour aujourd'hui."
 TRANSLATE "Expecting number" "Nombre attendu"
 TRANSLATE "Undefined WARN function" "Fonction illégale après WARN"
 TRANSLATE "Can't convert between time zones" "Impossible de convertir entre les fuseaux horaires"
@@ -160,3 +160,5 @@ TRANSLATE "Expecting weekday name" "Nom du jour de la semaine attendu"
 TRANSLATE "Duplicate argument name" "Nom de l'argument en double"
 TRANSLATE "Expression evaluation is disabled" "L'évaluation de l'expression est désactivée"
 TRANSLATE "Time limit for expression evaluation exceeded" "Délai d'évaluation de l'expression dépassé"
+TRANSLATE "here" "ici"
+TRANSLATE "did you mean" "voulais-vous dire"

include/lang/gr.rem

@@ -1,6 +1,6 @@
 # Support for the Hellenic (Greek) language.
 # This file is part of REMIND.
-# REMIND is Copyright (C) 1992-2024 by Dianne Skoll
+# REMIND is Copyright (C) 1992-2025 by Dianne Skoll
 # This file is derived from a translation by jarlaxl lamat (jarlaxl@freemail.gr)
 
 TRANSLATE "LANGID" "gr"

include/lang/is.rem

@@ -1,6 +1,6 @@
 # Support for the Icelanding language.
 # This file is part of REMIND.
-# REMIND is Copyright (C) 1992-2024 by Dianne Skoll
+# REMIND is Copyright (C) 1992-2025 by Dianne Skoll
 # This file is derived from a translation by Björn Davíðsson (bjossi@snerpa.is)
 
 TRANSLATE "LANGID" "is"

include/lang/it.rem

@@ -1,6 +1,6 @@
 # Support for the Italian language.
 # This file is part of REMIND.
-# REMIND is Copyright (C) 1992-2024 by Dianne Skoll
+# REMIND is Copyright (C) 1992-2025 by Dianne Skoll
 # This file is derived from a translation by Valerio Aimale
 
 TRANSLATE "LANGID" "it"

include/lang/nl.rem

@@ -1,6 +1,6 @@
 # Support for the Dutch language.
 # This file is part of REMIND.
-# REMIND is Copyright (C) 1992-2024 by Dianne Skoll
+# REMIND is Copyright (C) 1992-2025 by Dianne Skoll
 # This file is derived from a translation by Willem Kasdorp and Erik-Jan Vens
 
 TRANSLATE "LANGID" "nl"
@@ -63,7 +63,7 @@ TRANSLATE "First Quarter" "Eerste kwartier"
 TRANSLATE "Full Moon" "Volle maan"
 TRANSLATE "Last Quarter" "Laatste kwartier"
 
-TRANSLATE "Vernal Equiniox" "Lente-equinox"
+TRANSLATE "Vernal Equinox" "Lente-equinox"
 TRANSLATE "Summer Solstice" "Zomerzonnewende"
 TRANSLATE "Autumnal Equinox" "Herfst-equinox"
 TRANSLATE "Winter Solstice" "Winterzonnewende"

include/lang/no.rem

@@ -1,6 +1,6 @@
 # Support for the Norwegian language.
 # This file is part of REMIND.
-# REMIND is Copyright (C) 1992-2024 by Dianne Skoll
+# REMIND is Copyright (C) 1992-2025 by Dianne Skoll
 # This file is derived from a translation by Trygve Randen
 
 TRANSLATE "LANGID" "no"

include/lang/pl.rem

@@ -1,6 +1,6 @@
 # Support for the Polish language.
 # This file is part of REMIND.
-# REMIND is Copyright (C) 1992-2024 by Dianne Skoll
+# REMIND is Copyright (C) 1992-2025 by Dianne Skoll
 # This file is derived from a translation by Jerzy Sobczyk
 
 TRANSLATE "LANGID" "pl"
@@ -146,19 +146,19 @@ TRANSLATE "Leaving UserFN" "Koniec UserFN"
 TRANSLATE "Expired" "Przemineło"
 TRANSLATE "fork() failed - can't do queued reminders" "Niepowodzenie w funkcji fork() - nie mogę kolejkować przypomnień"
 TRANSLATE "Can't access file" "Nie ma dostępu do pliku"
-TRANSLATE "Illegal system date: Year is less than %d\n" "Błędna data systemowa: Rok mniejszy niż %d\n"
-TRANSLATE "Unknown debug flag '%c'\n" "Nieznana flaga odpluskwiania '%c'\n"
-TRANSLATE "Unknown option '%c'\n" "Nieznana opcja '%c'\n"
-TRANSLATE "Unknown user '%s'\n" "Nieznany użytkownik '%s'\n"
-TRANSLATE "Could not change gid to %d\n" "Nie mogę zmienić gid na %d\n"
-TRANSLATE "Could not change uid to %d\n" "Nie mogę zmienić uid na %d\n"
-TRANSLATE "Out of memory for environment\n" "Brak pamięci na zmienne środowiska\n"
+TRANSLATE "Illegal system date: Year is less than %d" "Błędna data systemowa: Rok mniejszy niż %d"
+TRANSLATE "Unknown debug flag '%c'" "Nieznana flaga odpluskwiania '%c'"
+TRANSLATE "Unknown option '%c'" "Nieznana opcja '%c'"
+TRANSLATE "Unknown user '%s'" "Nieznany użytkownik '%s'"
+TRANSLATE "Could not change gid to %d" "Nie mogę zmienić gid na %d"
+TRANSLATE "Could not change uid to %d" "Nie mogę zmienić uid na %d"
+TRANSLATE "Out of memory for environment" "Brak pamięci na zmienne środowiska"
 TRANSLATE "Missing '=' sign" "Brak znaku '='"
 TRANSLATE "Missing variable name" "Brak nazwy zmiennej"
 TRANSLATE "Missing expression" "Brak wyrażenia"
-TRANSLATE "Remind: '-i' option: %s\n" "Remind: '-i' option: %s\n"
+TRANSLATE "Remind: '-i' option: %s" "Remind: '-i' option: %s"
 TRANSLATE "No reminders." "Brak przypomnień."
-TRANSLATE "%d reminder(s) queued for later today.\n" "%d Przypomnienia zakolejkowane na później.\n"
+TRANSLATE "%d reminder(s) queued for later today." "%d Przypomnienia zakolejkowane na później."
 TRANSLATE "Expecting number" "Spodziewana liczba"
 TRANSLATE "Undefined WARN function" "Nielegalna funkcja w klauzuli WARN:"
 TRANSLATE "Can't convert between time zones" "Nie można konwertować między strefami czasowymi"

include/lang/pt.rem

@@ -1,6 +1,6 @@
 # Support for the (Brazilian) Portuguese language.
 # This file is part of REMIND.
-# REMIND is Copyright (C) 1992-2024 by Dianne Skoll
+# REMIND is Copyright (C) 1992-2025 by Dianne Skoll
 # This file is derived from a translation by Marco Paganini
 
 TRANSLATE "LANGID" "pt"
@@ -145,19 +145,19 @@ TRANSLATE "Leaving UserFN" "Saindo UserFN"
 TRANSLATE "Expired" "Expirou"
 TRANSLATE "fork() failed - can't do queued reminders" "fork() falhou - Nao posso processar compromissos na fila"
 TRANSLATE "Can't access file" "Nao consigo acessar o arquivo"
-TRANSLATE "Illegal system date: Year is less than %d\n" "Data do sistema ilegal: Ano e menor que %d\n"
-TRANSLATE "Unknown debug flag '%c'\n" "Flag de debug desconhecido '%c'\n"
-TRANSLATE "Unknown option '%c'\n" "Opcao desconhecida '%c'\n"
-TRANSLATE "Unknown user '%s'\n" "Usuario desconhecido '%s'\n"
-TRANSLATE "Could not change gid to %d\n" "Nao consigo mudar gid para %d\n"
-TRANSLATE "Could not change uid to %d\n" "Nao consigo mudar uid para %d\n"
-TRANSLATE "Out of memory for environment\n" "Sem memoria para o environment\n"
+TRANSLATE "Illegal system date: Year is less than %d" "Data do sistema ilegal: Ano e menor que %d"
+TRANSLATE "Unknown debug flag '%c'" "Flag de debug desconhecido '%c'"
+TRANSLATE "Unknown option '%c'" "Opcao desconhecida '%c'"
+TRANSLATE "Unknown user '%s'" "Usuario desconhecido '%s'"
+TRANSLATE "Could not change gid to %d" "Nao consigo mudar gid para %d"
+TRANSLATE "Could not change uid to %d" "Nao consigo mudar uid para %d"
+TRANSLATE "Out of memory for environment" "Sem memoria para o environment"
 TRANSLATE "Missing '=' sign" "Falta o sinal de '='"
 TRANSLATE "Missing variable name" "Falta o nome da variavel"
 TRANSLATE "Missing expression" "Falta a expressao"
-TRANSLATE "Remind: '-i' option: %s\n" "Remind: '-i' opcao: %s\n"
+TRANSLATE "Remind: '-i' option: %s" "Remind: '-i' opcao: %s"
 TRANSLATE "No reminders." "Sem compromissos."
-TRANSLATE "%d reminder(s) queued for later today.\n" "%d compromisso(s) colocados na fila para mais tarde.\n"
+TRANSLATE "%d reminder(s) queued for later today." "%d compromisso(s) colocados na fila para mais tarde."
 TRANSLATE "Expecting number" "Esperando numero"
 TRANSLATE "Undefined WARN function" "Funcao ilegal na clausula WARN"
 TRANSLATE "Can't convert between time zones" "Não consigo converter entre fusos horários"

include/lang/ro.rem

@@ -1,6 +1,6 @@
 # Support for the Romanian language.
 # This file is part of REMIND.
-# REMIND is Copyright (C) 1992-2024 by Dianne Skoll
+# REMIND is Copyright (C) 1992-2025 by Dianne Skoll
 # This file is derived from a translation by Liviu Daia
 
 TRANSLATE "LANGID" "ro"

include/moonphases.rem

@@ -7,8 +7,8 @@ IF $CalMode || $PsCal
     REM [moondate(2)] SPECIAL MOON 2 -1 -1 [moontime(2)]
     REM [moondate(3)] SPECIAL MOON 3 -1 -1 [moontime(3)]
 ELSE
-    REM NOQUEUE [moondatetime(0)] MSG [_("New Moon")] (%2)
-    REM NOQUEUE [moondatetime(1)] MSG [_("First Quarter")] (%2)
-    REM NOQUEUE [moondatetime(2)] MSG [_("Full Moon")] (%2)
-    REM NOQUEUE [moondatetime(3)] MSG [_("Last Quarter")] (%2)
+    REM NOQUEUE [moondatetime(0)] MSG %(New Moon) (%2)
+    REM NOQUEUE [moondatetime(1)] MSG %(First Quarter) (%2)
+    REM NOQUEUE [moondatetime(2)] MSG %(Full Moon) (%2)
+    REM NOQUEUE [moondatetime(3)] MSG %(Last Quarter) (%2)
 ENDIF

include/seasons.rem

@@ -3,14 +3,14 @@
 
 IF $LatDeg >= 0
     # Northern Hemisphere
-    REM NOQUEUE [soleq(0)] MSG %"[_("Vernal Equinox")]%" [$Is] %3.
-    REM NOQUEUE [soleq(1)] MSG %"[_("Summer Solstice")]%" [$Is] %3.
-    REM NOQUEUE [soleq(2)] MSG %"[_("Autumnal Equinox")]%" [$Is] %3.
-    REM NOQUEUE [soleq(3)] MSG %"[_("Winter Solstice")]%" [$Is] %3.
+    REM NOQUEUE [soleq(0)] MSG %"%(Vernal Equinox)%" [$Is] %3.
+    REM NOQUEUE [soleq(1)] MSG %"%(Summer Solstice)%" [$Is] %3.
+    REM NOQUEUE [soleq(2)] MSG %"%(Autumnal Equinox)%" [$Is] %3.
+    REM NOQUEUE [soleq(3)] MSG %"%(Winter Solstice)%" [$Is] %3.
 ELSE
     # Southern Hemisphere
-    REM NOQUEUE [soleq(0)] MSG %"[_("Autumnal Equinox")]%" [$Is] %3.
-    REM NOQUEUE [soleq(1)] MSG %"[_("Winter Solstice")]%" [$Is] %3.
-    REM NOQUEUE [soleq(2)] MSG %"[_("Vernal Equinox")]%" [$Is] %3.
-    REM NOQUEUE [soleq(3)] MSG %"[_("Summer Solstice")]%" [$Is] %3.
+    REM NOQUEUE [soleq(0)] MSG %"%(Autumnal Equinox)%" [$Is] %3.
+    REM NOQUEUE [soleq(1)] MSG %"%(Winter Solstice)%" [$Is] %3.
+    REM NOQUEUE [soleq(2)] MSG %"%(Vernal Equinox)%" [$Is] %3.
+    REM NOQUEUE [soleq(3)] MSG %"%(Summer Solstice)%" [$Is] %3.
 ENDIF

include/sun.rem

@@ -2,6 +2,6 @@
 # SPDX-License-Identifier: GPL-2.0-only
 
 IF !$CalMode && !$PsCal
-    REM NOQUEUE AT [sunrise()] MSG %"%"[_("Sunrise")] %! %2.
-    REM NOQUEUE AT [sunset()] MSG %"%"[_("Sunset")] %! %2.
+    REM NOQUEUE AT [sunrise()] MSG %"%"%(Sunrise) %! %2.
+    REM NOQUEUE AT [sunset()] MSG %"%"%(Sunset) %! %2.
 ENDIF

man/rem2ps.1.in

@@ -336,6 +336,18 @@ older format contains enough information for them to work properly.
 .PP
 \fBRemind \-p\fR sends the following lines to standard output.
 The information is designed to be easily parsed by back-end programs:
+.TP
+.B # translations
+This line signifies that the next line will be the translation table.
+The line following \fB# translations\fR is a JSON object (on a single
+line) containing all of the entries of the translation table.  Back-ends that
+are not interested in the translation table can simply read and discard
+the next line.
+.RS
+If \fBRemind\fR sends data for multiple months, then only the first month
+will include the translation table.
+.RE
+
 .TP
 .B # rem2ps begin
 This line signifies the start of calendar data.  Back-ends can search
@@ -435,6 +447,16 @@ each reminder as a one-off event.
 .PP
 The lines emitted by \fBremind \-pp\fR are as follows:
 .TP
+.B # translations
+This line signifies that the next line will be the translation table.
+The line following \fB# translations\fR is a JSON object (on a single
+line) containing all of the entries of the translation table.  Back-ends that
+are not interested in the translation table can simply read and discard
+.RS
+If \fBRemind\fR sends data for multiple months, then only the first month
+will include the translation table.
+.RE
+.TP
 .B # rem2ps2 begin
 This line signifies the start of calendar data.  Back-ends can search
 for it to verify they are being fed correct information.  Note the
@@ -494,6 +516,29 @@ MOON, etc.)
 If any TAG clauses are present, the \fBtags\fR key will be present and consist
 of a comma-separated list of tags.
 .TP
+.B info \fR{ \fIhash\fR }
+If any INFO clauses are present, the \fBinfo\fR key will be present.  Its
+value will be a hash of info key-value pairs.  Each key is the header
+from an INFO string, \fIconverted to all lower-case\fR.  The value is the
+value from the INFO string.
+.RS
+.PP
+For example, the following REM command:
+.PP
+.nf
+        REM INFO "Location: Boardroom" INFO "Summary: None" MSG whatever
+.fi
+.PP
+will produce the following \fBinfo\fR hash:
+.PP
+.nf
+        "info" : {
+            "location" : "Boardroom",
+            "summary" : "None"
+        },
+.fi
+.RE
+.TP
 .B time \fIt\fR
 If an AT clause was present, this key will contain the time of the AT clause
 in minutes after midnight.
@@ -615,66 +660,100 @@ However, back-ends should keep reading until EOF in case more data for
 subsequent months is forthcoming.
 .PP
 
-.SH REM2PS PURE JSON INPUT FORMAT (-PPP OPTION)
-\fBRemind \-ppp\fR emits \fIpure JSON\fR output.  The format is
-as follows:
+.SH REM2PS PURE JSON INPUT FORMAT (-PPP OR -P+ OPTION)
+\fBRemind \-ppp\fR and \fBremind \-p+\fR emit \fIpure JSON\fR output.
+The format is as follows:
 .PP
 \fBRemind\fR outputs a JSON array.  Each element of the array is a
-\fImonth descriptor\fR.
+\fImonth descriptor\fR or a \fIweek descriptor\fR in the case of
+\fBremind \-p+\fR.
 .PP
-Each month descriptor is a JSON object with the following elements:
+Each descriptor is a JSON object with the following elements:
+.TP
+.B caltype \fItype\fR
+The calendar type, either \fBmonthly\fR or \fBweekly\fR.  Older versions
+of \fBRemind\fR did not include a \fBcaltype\fR element, so a missing
+\fBcaltype\fR should be treated as \fBmonthly\fR.
 .TP
 .B monthname \fIname\fR
-The name of the month.
+The name of the month.  Present in monthly calendar types only.
 .TP
 .B year \fIyyyy\fR
-The year.
+The year.  Present in monthly calendar types only.
 .TP
 .B daysinmonnth \fIn\fR
-The number of days in the current month.
+The number of days in the current month.  Present in monthly calendar types only.
 .TP
 .B firstwkday \fIn\fR
-The weekday of the first day of the month (0 = Sunday, 1 = Monday, 6 = Saturday).
+The weekday of the first day of the month (0 = Sunday, 1 = Monday, 6 = Saturday).  Present in monthly calendar types only.
 .TP
 .B mondayfirst \fIn\fR
 An indicator of whether or not the calendar week should start with
-Sunday (n=0) or Monday (n=1).
+Sunday (n=0) or Monday (n=1).  Present in monthly calendar types only.
 .TP
 .B daynames \fR[\fIdays\fR]
 A seven-element array of day names; each element is a string representing
-the names of the days from Sunday through Saturday.
+the names of the days from Sunday through Saturday.  Present in monthly calendar types only.
 .TP
 .B prevmonthname \fIname\fR
-The name of the previous month.
+The name of the previous month.  Present in monthly calendar types only.
 .TP
 .B daysinprevmonth \fIn\fR
-The number of days in the previous month.
+The number of days in the previous month.  Present in monthly calendar types only.
 .TP
 .B prevmonthyear \fIyyyy\fR
 The year of the previous month.  (The same as \fByear\fR unless the current
-month is January.)
+month is January.)  Present in monthly calendar types only.
 .TP
 .B nextmonthname \fIname\fR
-The name of the following month.
+The name of the following month.  Present in monthly calendar types only.
 .TP
 .B daysinnextmonth \fIn\fR
-The number of days in the following month.
+The number of days in the following month.  Present in monthly calendar types only.
 .TP
 .B nextmonthyear \fIyyyy\fR
 The year of the following month.  (The same as \fByear\fR unless the
-current month is December.)
+current month is December.)  Present in monthly calendar types only.
+.TP
+.B translations \fR{\fIobject\fR}
+A complete dump of the Remind translation table.  In output for multiple
+months or weeks, the translation table is included only with the first month
+or week.  Present in both weekly and monthly calendar types.
 .TP
 .B entries \fR[\fIarray\fR]
-The \fBentries\fR key consists of an array of calendar entries; each
-entry is a JSON object that has the same format as described in the
-\fBCALENDAR ENTRIES\fR section in the \fB\-PP FORMAT\fR section,
-\fIwith the following difference\fR: In \fB\-PP\fR mode, if a reminder
-has \fB%"\fR markers, only the text between the markers
-is included in the \fBbody\fR element.  In \fB\-PPP\fR mode, the
-entire text \fIincluding\fR the \fB%"\fR markers is included and it's up to
-the back-end to extract the portion between the markers if that
-is desired.
-
+The \fBentries\fR key, present in both weekly and monthly calendar
+types, consists of an array of calendar entries; each entry is a JSON
+object that has the same format as described in the \fBCALENDAR
+ENTRIES\fR section in the \fB\-PP FORMAT\fR section, \fIwith the
+following difference\fR: In \fB\-PP\fR mode, if a reminder has
+\fB%"\fR markers, only the text between the markers is included in the
+\fBbody\fR element.  In \fB\-PPP\fR mode, the entire text
+\fIincluding\fR the \fB%"\fR markers is included and it's up to the
+back-end to extract the portion between the markers if that is
+desired.
+.TP
+.B dates \fR[\fIarray\fR]
+The \fBdates\fR key, present in weekly calendar types only,
+contains seven entries; one for each column in the weekly
+calendar.  Each entry is a JSON object containing the following
+key/value pairs:
+.RS
+.TP
+.B date \fR\fIYYYY-MM-DD\fR
+The date of the column.
+.TP
+.B day \fR\fIDD\fR
+The day number of the column.
+.TP
+.B dayname \fR\fIweekday_name\fR
+The name of the weekday (possibly localized).
+.TP
+.B month \fR\fImonth_name\fR
+The name of the month (possibly localized).
+.TP
+.B year \fR\fIYYYY\fR
+The year.
+.RE
 
 .SH AUTHOR
 rem2ps was written by Dianne Skoll <dianne@skoll.ca>

man/remind.1.in

@@ -182,12 +182,18 @@ If you immediately follow the \fBs\fR with the letter
 day they actually occur \fIas well as\fR on any preceding days specified
 by the reminder's \fIdelta\fR.
 .TP
-.B \-p\fR[\fBa\fR][\fBp\fR][\fBp\fR][\fBq\fR]\fIn\fR
+.B \-p\fR[\fBa\fR][\fBp\fR][\fBp\fR][\fBq\fR][+]\fIn\fR
 The \fB\-p\fR option is very similar to the \fB\-s\fR option, except
-that the output contains additional information for use by the
+that the output contains additional information for use by a back-end such as the
 \fBRem2PS\fR program, which creates a PostScript calendar, and various
-other back-end programs.  For this
-option, \fIn\fR cannot start with "+"; it must specify a number of months.
+other back-end programs.  If \fIn\fR starts with "+", then it specifies
+a number of weeks rather than a number of months, and back-ends are expected
+to produce weekly calendars.  Note that not all back-ends support
+weekly calendars; currently, only \fBrem2pdf\fR does.  Specifying a weekly
+calendar implicitly enables the pure JSON interchange format, similar
+to \fB\-ppp\fR.
+.RS
+.PP
 The format of the \fB\-p\fR output is described in the \fBrem2ps(1)\fR
 man page.  If you immediately follow the \fBp\fR with the letter
 \fBa\fR, then \fBRemind\fR displays reminders on the calendar on the
@@ -200,7 +206,6 @@ three p's, as in \fB\-ppp\fR, then \fBRemind\fR uses a pure JSON
 format, again documented in \fBrem2ps(1)\fR.  If you include a \fBq\fR
 letter with this option, then the normal calendar-mode substitution filter
 is disabled and the %"...%" sequences are preserved in the output.
-.RS
 .PP
 The \fB\-p\fR, \fB\-pp\fR and \fB\-ppp\fR options implicitly enable
 the \fB\-o\fR option.
@@ -310,6 +315,13 @@ Trace the reading of reminder files
 Trace expression parsing and display the internal expression node
 tree.  This is unlikely to be useful unless you are working on
 \fBRemind\fR's expression evaluation engine.
+.TP
+.B h
+Dump hash-table statistics on exit.
+.TP
+.B q
+Output a TRANSLATE command each time the \fB_()\fR built-in function
+is called or the \fB%(...)\fR substitution sequence is encountered.
 .RE
 .TP
 \fB\-g\fR[\fBa|d\fR[\fBa|d\fR[\fBa|d\fR[\fBa|d\fR]]]]
@@ -470,11 +482,13 @@ The \fB\-\-version\fR option causes \fBRemind\fR to print its version number
 to standard output and then exit.
 .TP
 .B \-\-print-errs
-The \fB\-\-print-errs\fR option causes \fBRemind\fR to print all possible
-error messages to standard output and then exit.  The messages are printed
-in a format suitable for the first argument of a TRANSLATE command.  If
-you TRANSLATE the error messages, then \fBRemind\fR will use the translated
-versions when outputting error and warning messages.
+The \fB\-\-print-errs\fR option causes \fBRemind\fR to print all
+possible error messages to standard output and then exit.  The
+messages are printed in a format suitable for the first argument of a
+TRANSLATE command.  If you TRANSLATE the error messages, then
+\fBRemind\fR will use the translated versions when outputting error
+and warning messages.  See also TRANSLATE GENERATE in the section
+"THE TRANSLATION TABLE".
 .RS
 .PP
 Note that if an untranslated message contains printf-style formatting
@@ -516,11 +530,16 @@ resources.  Note that the limit \fIn\fR is approximate and
 \fBRemind\fR might execute for one or two more seconds before it is
 killed.  If \fIn\fR is specified as zero, then no limit is applied, just
 as if the option had not been used at all.
+.RS
 .PP
 If a limit is applied, it applies only to the foreground run of \fBRemind\fR.
 If \fBRemind\fR finishes processing the script and then starts handling
 queued reminders, the time limit is reset to no limit.
-.PP
+.RE
+.TP
+.B \-\-test
+The \fB\-\-test\fR long option is only for use by the acceptance tests
+run by "make test".  Do not use this option in production.
 .SH REMINDER FILES
 .PP
 \fBRemind\fR uses scripts to control its operation.  You can use any
@@ -587,8 +606,9 @@ Its syntax is:
 [\fBSCANFROM\fR \fIscan_date\fR | \fBFROM\fR \fIstart_date\fR]
 [\fBDURATION\fR \fIduration\fR]
 [\fBTAG\fR \fItag\fR]
-<\fBMSG\fR | \fBMSF\fR | \fBRUN\fR | \fBCAL\fR | \fBSATISFY\fR |
-\fBSPECIAL\fR \fIspecial\fR | \fBPS\fR | \fBPSFILE\fR>
+[\fBINFO\fR "\fIinfo_string\fR"]
+\fBMSG\fR | \fBMSF\fR | \fBRUN\fR | \fBCAL\fR | \fBSATISFY\fR |
+\fBSPECIAL\fR \fIspecial\fR | \fBPS\fR | \fBPSFILE\fR
 .I body
 .RE
 .PP
@@ -1324,7 +1344,7 @@ However, discussion must be deferred until after
 expressions and user-defined functions are explained.  See the subsection
 "PRECISE SCHEDULING" further on.
 .PP
-.B TAG AND DURATION
+.B TAG, INFO AND DURATION
 .PP
 The \fBTAG\fR keyword lets you "tag" certain reminders.  This facility
 is used by certain back-ends or systems built around \fBRemind\fR,
@@ -1343,15 +1363,40 @@ by the hexadecimal representation of the MD5 sum of the REM
 command line.  This lets you give a more-or-less unique identifier
 to each distinct REM command.
 .PP
+The \fBINFO\fR keyword is similar to \fBTAG\fR but is intended to convey
+metadata about an event, such as its location.  Back-ends will have their
+own rules about which \fIinfo_string\fRs they recognize, and must ignore
+\fIinfo_string\fRs they don't recognize. Note that \fBINFO\fR must
+be followed by a quoted string; you can include newlines in the string
+by supplying them as "\\n".
+.PP
+An INFO string \fImust\fR be of the form "Header: Value".  The header
+can consist of any printable character, but cannot contain whitespace.
+The value can consist of any characters you like.  Space may not
+appear before the colon, but can appear afterwards; such space is not
+considered to be part of the value.  If there is more than one INFO
+string for a given reminder, there cannot be any duplicate headers.
+Case is ignored when determining if a header is a duplicate of an
+existing one.
+.PP
+For example, a hypothetical back-end might let you set the location
+and description of a reminder like this:
+.PP
+.nf
+        REM 26 Feb 2025 INFO "Location: Boardroom #2" \\
+                        INFO "Description: Go over latest pull requests" \\
+                        MSG Engineering meeting
+.fi
+.PP
 The \fBDURATION\fR keyword makes sense only for timed reminders; it
 specifies the duration of an event.  For example, if you have a
 90-minute meeting starting at 1:00pm, you could use any of the following:
 .PP
 .nf
-	REM 5 March 2021 AT 13:00 DURATION 1:30 MSG Meeting
-	REM 5 March 2021 AT 13:00 DURATION 90 MSG Meeting
-	REM 5 March 2021 AT 1:00pm DURATION 1:30 MSG Meeting
-	REM 5 March 2021 AT 1:00pm DURATION 90 MSG Meeting
+        REM 5 March 2021 AT 13:00 DURATION 1:30 MSG Meeting
+        REM 5 March 2021 AT 13:00 DURATION 90 MSG Meeting
+        REM 5 March 2021 AT 1:00pm DURATION 1:30 MSG Meeting
+        REM 5 March 2021 AT 1:00pm DURATION 90 MSG Meeting
 .fi
 .PP
 For long-duration reminders, it is convenient to use expressions
@@ -1381,26 +1426,26 @@ The REM command has syntactic sugar to let you express common
 reminders.  The following pairs of reminders are equivalent:
 .PP
 .nf
-    REM First Monday April MSG Foo
-    REM Mon 1 April        MSG Foo
+        REM First Monday April MSG Foo
+        REM Mon 1 April        MSG Foo
 
-    REM Second Monday May  MSG Bar
-    REM Mon 8 May          MSG Bar
+        REM Second Monday May  MSG Bar
+        REM Mon 8 May          MSG Bar
 
-    REM Third Monday MSG Third Monday of every month
-    REM Mon 15 MSG Third Monday of every month
+        REM Third Monday MSG Third Monday of every month
+        REM Mon 15 MSG Third Monday of every month
 
-    REM Fourth Sunday June 2025 MSG Fourth Sunday in June 2025
-    REM Sun 22 June 2025 MSG Fourth Sunday in June 2025
+        REM Fourth Sunday June 2025 MSG Fourth Sunday in June 2025
+        REM Sun 22 June 2025 MSG Fourth Sunday in June 2025
 
-    REM Last Monday MSG Last Monday of every month
-    REM Mon 1 --7 MSG Last Monday of every month
+        REM Last Monday MSG Last Monday of every month
+        REM Mon 1 --7 MSG Last Monday of every month
 
-    REM Last Monday April MSG Last Monday of every April
-    REM Mon 1 May --7 MSG  Last Monday of every April
+        REM Last Monday April MSG Last Monday of every April
+        REM Mon 1 May --7 MSG  Last Monday of every April
 
-    REM Last Monday December 2025 MSG Last Monday of Dec 2025
-    REM Monday 1 Jan 2026 --7 MSG Last Monday of Dec 2025
+        REM Last Monday December 2025 MSG Last Monday of Dec 2025
+        REM Monday 1 Jan 2026 --7 MSG Last Monday of Dec 2025
 .fi
 .PP
 Note that \fBLast\fR effectively adjusts the month and year, if necessary, to
@@ -1409,35 +1454,35 @@ make the reminder trigger on the correct date.
 The keyword \fBIN\fR is completely ignored, so you can write (for example):
 .PP
 .nf
-    REM Second Monday in May MSG foo
-    REM Last Monday in December 2025 MSG Bar
+        REM Second Monday in May MSG foo
+        REM Last Monday in December 2025 MSG Bar
 .fi
 .PP
 An alternate form of \fIback\fR makes writing reminders easier.
 The following groups of reminders are equivalent:
 .PP
 .nf
-    REM ~~1 MSG Last day of every month
-    REM Lastday MSG  Last day of every month
-    REM 1 --1 MSG Last day of every month
+        REM ~~1 MSG Last day of every month
+        REM Lastday MSG  Last day of every month
+        REM 1 --1 MSG Last day of every month
 
-    REM May ~~1 MSG Last day of May
-    REM Lastday May MSG Last day of May
-    REM 1 June --1 MSG Last day of May
+        REM May ~~1 MSG Last day of May
+        REM Lastday May MSG Last day of May
+        REM 1 June --1 MSG Last day of May
 
-    REM Dec 2025 ~~1 MSG Last day of December 2025
-    REM Lastday Dec 2025 MSG Last day of December 2025
-    REM 1 Jan 2026 --1 MSG Last day of December 2025
+        REM Dec 2025 ~~1 MSG Last day of December 2025
+        REM Lastday Dec 2025 MSG Last day of December 2025
+        REM 1 Jan 2026 --1 MSG Last day of December 2025
 
-    REM Apr ~1 OMIT SAT SUN MSG Last workday of April
-    REM Lastworkday April OMIT SAT SUN MSG Last workday of April
-    REM 1 May -1 OMIT SAT SUN MSG Last workday of April
+        REM Apr ~1 OMIT SAT SUN MSG Last workday of April
+        REM Lastworkday April OMIT SAT SUN MSG Last workday of April
+        REM 1 May -1 OMIT SAT SUN MSG Last workday of April
 
-    REM Apr ~~7 MSG Seventh-last day of April
-    REM 1 May --7 MSG Seventh-last day of April
+        REM Apr ~~7 MSG Seventh-last day of April
+        REM 1 May --7 MSG Seventh-last day of April
 
-    REM Apr ~2 OMIT SAT SUN MSG Second-last workday of April
-    REM 1 May -2 OMIT SAT SUN MSG Second-last workday of April
+        REM Apr ~2 OMIT SAT SUN MSG Second-last workday of April
+        REM 1 May -2 OMIT SAT SUN MSG Second-last workday of April
 .fi
 .PP
 As we see, "Lastday" is equivalent to ~~1 and "Lastworkday" to ~1.
@@ -1448,9 +1493,9 @@ be combined with a day.  Additionally, First/Second/Third/Fourth/Last
 must have at least one weekday name.  The following are illegal:
 .PP
 .nf
-    REM First Monday 3 June MSG Huh?
-    REM April 3 ~~1 MSG What?
-    REM Second June MSG Where's the weekday???
+        REM First Monday 3 June MSG Huh?
+        REM April 3 ~~1 MSG What?
+        REM Second June MSG Where's the weekday???
 .fi
 .PP
 .SH THE SUBSTITUTION FILTER
@@ -1612,6 +1657,10 @@ is replaced with "\fIyear\fR", the year of the trigger date.
 .B %z
 is replaced with "\fIyy\fR", the last two digits of the year.
 .TP
+.B %(\fIany_text\fR\fB)
+is replaced with the lookup of \fIany_text\fR in the translation table.
+It is the equivalent of [_("any_text")] but is more convenient to type.
+.TP
 .B %_
 (percent-underscore) is replaced with a newline.  You can use this to
 achieve multi-line reminders.  Note that calendar back-ends vary in
@@ -1920,22 +1969,21 @@ the first day of the month.  The local \fBOMIT\fR keyword causes the
 Finally, the \fBAFTER\fR keyword will keep moving the reminder forward
 until it has passed any holidays specified with global \fBOMIT\fR
 commands.
-.SH THE DO AND INCLUDE COMMANDS
+.SH THE DO, INCLUDE AND SYSINCLUDE COMMANDS
 .PP
 \fBRemind\fR allows you to include other files in your reminder script,
-similar to the C preprocessor #include directive.  For example, your
-system administrator may maintain a file of holidays or system-wide
-reminders.  You can include these in your reminder script as follows:
+similar to the C preprocessor #include directive.  For example, you
+might organize different reminders into different files like this:
 .PP
 .nf
-	INCLUDE /usr/share/remind/holidays
-	INCLUDE /usr/share/remind/reminders
+        INCLUDE holidays.rem
+        INCLUDE birthdays.rem
+        INCLUDE "quote files with spaces.rem"
 .fi
 .PP
-(The actual pathnames vary from system to system - ask your system
-administrator.)
-.PP
-\fBINCLUDE\fR files can be nested up to a depth of 8.
+\fBINCLUDE\fR files can be nested up to a depth of 8.  As shown above, if a
+filename has spaces in it (not recommended!) you can use double-quotes
+around the filename.
 .PP
 If you specify a filename of "-" in the \fBINCLUDE\fR command, \fBRemind\fR
 will begin reading from standard input.
@@ -1977,6 +2025,11 @@ symbolic link itself, \fBDO\fR will fail.  \fBRemind\fR does \fInot\fR
 resolve the real path of symbolic links, so you should avoid using
 symbolic links to files.
 .PP
+The \fBSYSINCLUDE\fR command is similar to \fBDO\fR, but it looks for
+relative pathnames under the system directory containing standard reminder
+scripts.  For this version of \fBRemind\fR, the system directory is
+"@prefix@/share/remind".
+.PP
 .SH THE RUN COMMAND
 .PP
 If you include other files in your reminder script, you may not always
@@ -2201,6 +2254,10 @@ The following examples illustrate constants in \fBRemind\fR expressions:
 Note that the empty string is represented by "".  Remind supports
 the escape sequences "\\a", "\\b", "\\f", "\\n", "\\r", "\\t"
 and "\\v" which have the same meanings as their counterparts in C.
+It also supports "\\xAB" where A and B are hexadecimal digits;
+this operates just as in C.  The "\\x" must be followed by one or
+two hex digits; the escape sequence "\\x00" is not permitted.
+.PP
 To include a quote in a string, use "\\"".  Any other character
 preceded by a backslash is inserted into the string as-is, but the
 backslash itself is removed.  To include a backslash in a string,
@@ -2505,7 +2562,7 @@ The following system variables are defined.  Those marked
 All system variables hold values of type \fBINT\fR, unless otherwise
 specified.
 .TP
-.B $AddBlankLines 
+.B $AddBlankLines
 If set to 1 (the default), then \fBRemind\fR normally prints a blank
 line after the banner and each reminder.  (This can be suppressed by
 ending the reminder or banner with a single percent sign.)  If
@@ -2526,12 +2583,17 @@ Universal Time Coordinated in the \fB$MinsFromUTC\fR system variable.
 .B $CalMode (read-only)
 If non-zero, then the \fB\-c\fR option was supplied on the command line.
 .TP
+.B $CalType (read-only, STRING type)
+If the \fB\-c\fR, \fB\-s\fR or \fB\-p\fR command-line options were
+used, then this variable has the value "monthly".  If \fB\-c+\fR,
+\fB\-s+\fR or \fB\-p+\fR were used, then "weekly".  Otherwise, "none".
+.TP
 .B $Daemon (read-only)
 If "daemon mode" \fB\-z\fR was invoked, contains the number of
 minutes between wakeups.  If not running in daemon mode, contains
 0.  In server mode (either \fB-z0\fR or \fB-zj\fR), contains -1.
 .TP
-.B $DateSep
+.B $DateSep (STRING type)
 This variable can be set only to "/" or "-".  It holds the character
 used to separate portions of a date when \fBRemind\fR prints a DATE or
 DATETIME value.
@@ -2586,7 +2648,7 @@ print "bar".  The third will not trigger because it's a duplicate of the
 first "foo".
 .RE
 .TP
-.B $DefaultColor
+.B $DefaultColor (STRING type)
 This variable can be set to a string that has the form of three
 space-separated numbers.  Each number must be an integer from 0 to
 255, or all three numbers must be -1.  The default value of
@@ -2963,7 +3025,7 @@ Equivalent to \fByear(trigdate())\fR.
 .B $Tt (read-only, TIME type)
 Equivalent to \fBtrigtime()\fR.
 .TP
-.B $TimeSep
+.B $TimeSep (STRING type)
 This variable can be set only to ":" or ".".  It holds the character
 used to separate portions of a time when \fBRemind\fR prints a TIME or
 DATETIME value.
@@ -3046,6 +3108,25 @@ For example, consider this sequence:
 After those two lines have been executed, the variable \fBa\fR will be
 set to "Tot ziens".  See the section THE TRANSLATION TABLE for more
 information.
+.PP
+In the body of a reminder, the substitution sequence
+\fB%(\fItext\fR\fB)\fR is (almost) the equivalent of
+\fB[_("\fItext\fR\fB")]\fR.  Therefore, the following reminders are
+almost equivalent:
+.PP
+.nf
+
+        REM MSG %(Goodbye)
+        REM MSG [_("Goodbye")]
+.fi
+.PP
+The only difference is that if _("Goodbye") contains a \fB%\fR sign,
+then that result will be run through the substitution filter, whereas
+in the first reminder, it will not.  That is because the second
+\fBREM\fR command performs expression pasting followed by a
+substitution filter pass, while the first one performs the translation
+as part of the substitution filter (and does not make a second
+substitution filter pass.)
 .RE
 .TP
 .B abs(i_num)
@@ -3345,6 +3426,25 @@ Note that \fBeasterdate\fR computes the Western Easter.  For the Orthodox
 Easter date, see \fBorthodoxeaster\fR.
 .RE
 .TP
+.B escape(s_string [,i_add_quotes])
+Returns a \fBSTRING\fR that is the same as the input string, but with
+all special characters backslashed-escaped.  For example, the following
+command:
+.RS
+.PP
+.nf
+        set a escape("foo" + char(10) + "bar")
+.fi
+.PP
+will set a to "foo\\nbar" where "\\n" is the literal sequence "\\" followed
+by "n".  This is useful if you want to compute a string in a pasted-in
+expression that \fBRemind\fR will then parse as a quoted string again,
+such as in a TRANSLATE command or an INFO clause.
+.PP
+If the optional \fIadd_quotes\fR argument is supplied and is non-zero, then
+the return value from \fBescape\fR will include surrounding double-quotes.
+.RE
+.TP
 .B evaltrig(s_trigger [,dq_start])
 Evaluates \fItrigger\fR as if it were a REM or IFTRIG trigger specification
 and returns the trigger date as a \fBDATE\fR (or as a \fBDATETIME\fR if
@@ -3507,7 +3607,7 @@ clauses are \fInot\fR taken into account by this function.
 Returns a \fBSTRING\fR naming the compiled-in language supported by
 \fBRemind\fR.  Remind used to support compiled-in support for other
 languages, but now all localization is done at run-time.  As such,
-this function always returnes "English".  However, the expression
+this function always returns "English".  However, the expression
 \fB_("LANGID")\fR returns the two-character ISO 639 language code
 of any language pack in effect, assuming the language pack author has
 written the localization correctly!
@@ -3639,18 +3739,18 @@ In general, \fBmultitrig\fR works better with the Remind algorithm than
 reminder is issued at the end of each quarter:
 .PP
 .nf
-    REM [multitrig("Mar 31", "Jun 30", "Sep 30", "Dec 31")] +7 MSG \\
-    %"End of [ord($Tm/3)] quarter%" is %b.
+        REM [multitrig("Mar 31", "Jun 30", "Sep 30", "Dec 31")] +7 MSG \\
+        %"End of [ord($Tm/3)] quarter%" is %b.
 .fi
 .PP
 If you want the last working day of each quarter, you could use:
 .PP
 .nf
-    PUSH-OMIT-CONTEXT
-    OMIT Sat Sun
-    REM [multitrig("Mar ~1", "Jun ~1", "Sep ~1", "Dec ~1")] +7 MSG \\
-    %"Last working day of [ord($Tm/3)] quarter%" is %b.
-    POP-OMIT-CONTEXT
+        PUSH-OMIT-CONTEXT
+        OMIT Sat Sun
+        REM [multitrig("Mar ~1", "Jun ~1", "Sep ~1", "Dec ~1")] +7 MSG \\
+        %"Last working day of [ord($Tm/3)] quarter%" is %b.
+        POP-OMIT-CONTEXT
 .fi
 .PP
 Note that unlike \fBevaltrig\fR, \fBmultitrig\fR always returns a \fBDATE\fR
@@ -5714,21 +5814,58 @@ function, as follows:
 By using \fBTRANSLATE\fR and \fB_\fR judiciously, you can make your
 reminder files easy to translate.
 .PP
-\fBTRANSLATE\fR has three additional forms:  If it is followed
+\fBTRANSLATE\fR has four additional forms:  If it is followed
 by \fIone\fR quoted string instead of two, then \fBRemind\fR deletes the
 translation table entry for that string.  If it is followed by
 the keyword \fBDUMP\fR, then \fBRemind\fR dumps all translation table entries
 to standard output.  And if it is followed by \fBCLEAR\fR, then
 \fBRemind\fR deletes all of the translation table entries.
 .PP
+The fourth form, \fBTRANSLATE GENERATE\fR, dumps all of the
+strings that can be localized (as a series of TRANSLATE commands) to
+standard output.  Strings that are already localized are output
+with their localization; strings that are not localized are
+output as:
+.PP
+.nf
+        TRANSLATE "untranslated" ""
+.nf
+.PP
+If you want to add a new language, you can obtain a skeleton translation
+file by running:
+.PP
+.nf
+        echo "TRANSLATE GENERATE" | remind -h - > /tmp/skeleton.rem
+.fi
+.PP
+If you have an existing language file that is missing some translations,
+you can update it by running:
+.PP
+.nf
+        (echo INCLUDE mylang.rem; echo TRANSLATE GENERATE) | \\
+            remind -h - > /tmp/mylang-update.rem
+.fi
+.PP
+and then editing \fBmylang-update.rem\fR to add in the missing translations.
+.PP
+If you have some reminder scripts that use the \fB_()\fR built-in function
+or \fB%(...)\fR substitution sequence, you can generate a list of needed
+TRANSLATE commands by running:
+.PP
+.nf
+        remind -q -n -dq myscript.rem 2>&1 | grep ^TRANSLATE | sort | uniq
+.fi
+.PP
 Note that if you \fBSET\fR various translation-related system
 variables such as \fB$Monday\fR, \fB$December\fR, \fB$Ago\fR, etc,
 then \fBRemind\fR \fIalso\fR makes a corresponding translation
 table entry automatically.  This is done for all of the translation-related
 system variables \fIexcept for\fR \fB$Hplu\fR and \fB$Mplu\fR.
 .PP
-The converse does not apply; creating a translation table entry for
-"December" does not automatically set \fB$December\fR.
+The converse applies too; creating a translation table for
+"December" automatically sets \fB$December\fR.  And if you invoke
+\fBTRANSLATE CLEAR\fR, then all translation-related system variables
+are set to their default values as well.
 .PP
 The translation table always contains a special entry \fBLANGID\fR whose
 default value is \fBen\fR.  Translators are encouraged to add a \fBLANGID\fR
@@ -5779,14 +5916,14 @@ To use a language pack (in this example, de.rem), simply place this at
 the top of your reminders file:
 .PP
 .nf
-    INCLUDE [$SysInclude]/lang/de.rem
+    SYSINCLUDE lang/de.rem
 .fi
 .PP
 If you want \fBRemind\fR to try to find the language pack appropriate
 for your locale settings, use:
 .PP
 .nf
-    INCLUDE [$SysInclude]/lang/auto.rem
+    SYSINCLUDE lang/auto.rem
 .fi
 .PP
 You are encouraged to study the language packs to see how to translate

man/tkremind.1.in

@@ -102,7 +102,10 @@ You can also specify advance notice, possibly repeating.
 The sixth control specifies what \fBRemind\fR should do if a reminder
 falls on a holiday or weekend.
 
-Enter the body of the reminder into the \fBBody:\fR text entry.
+Enter the body of the reminder into the \fBSummary:\fR text entry.  If
+you want, you can enter a location and longer description in the
+\fBLocation:\fR and \fBDescription:\fR boxes.  If you enter anything
+here, they will be added as \fBINFO\fR items to the reminder.
 
 To add the reminder to the reminder file, click \fBAdd to reminder file\fR.
 To close the dialog without adding the reminder to the file, click
@@ -178,6 +181,10 @@ is editable with an editor but was not created using \fBTkRemind\fR,
 it will be underlined when you move the cursor over it, and
 you can edit it in a text editor by either left- or right-clicking
 on the reminder.
+.PP
+If a reminder has location or description \fBINFO\fR items, then
+hovering over the reminder will pop up a window containing the
+location and/or description information.
 
 .SH ERRORS
 
@@ -512,7 +519,7 @@ asynchronous status messages.
 .SH AUTHOR
 TkRemind was written by Dianne Skoll <dianne@skoll.ca>
 
-\fBTkRemind\fR is Copyright 1996-2024 by Dianne Skoll.
+\fBTkRemind\fR is Copyright (C) 1996-2025 by Dianne Skoll.
 
 .SH FILES
 

rem2html/rem2html.in

@@ -10,6 +10,8 @@ use Encode;
 
 my %Options;
 
+my $Translations = {};
+
 my $rem2html_version = '@VERSION@';
 
 my($days, $shades, $moons, $classes, $Month, $Year, $Numdays, $Firstwkday, $Mondayfirst, $weeks,
@@ -18,18 +20,20 @@ my($days, $shades, $moons, $classes, $Month, $Year, $Numdays, $Firstwkday, $Mond
 my $TIDY_PROGNAME = $0;
 $TIDY_PROGNAME =~ s|^.*/||;
 
-# rem2html -- convert the output of "remind -pp" to HTML
+# rem2html -- convert the output of "remind -pp" or "remind -ppp" to HTML
 
 =head1 NAME
 
-rem2html - Convert the output of "remind -pp" to HTML
+rem2html - Convert the output of "remind -pp" or "remind -ppp" to HTML
 
 =head1 SYNOPSIS
 
+    remind -ppp [remind_options] file | rem2html [options]
+
     remind -pp [remind_options] file | rem2html [options]
 
 You can also use the old interchange format as below, but the -pp
-version is preferred.
+or -ppp versions are preferred.
 
     remind -p [remind_options] file | rem2html [options]
 
@@ -153,9 +157,10 @@ sub usage
 	    $exit_status = 1;
     }
     print STDERR <<"EOM";
-$TIDY_PROGNAME: Produce an HTML calendar from the output of "remind -pp"
+$TIDY_PROGNAME: Produce an HTML calendar from the output of "remind -pp[p]"
 
 Usage: remind -pp [remind_options] file | rem2html [options]
+   or: remind -ppp [remind_options] file | rem2html [options]
 
 Options:
 
@@ -265,6 +270,31 @@ sub end_output
     print("</body>\n</html>\n");
 }
 
+sub slurp_translations
+{
+    my $line;
+
+    $line = <STDIN>;
+    chomp $line;
+    eval {
+        if ($Options{utf8}) {
+            $Translations = decode_json(encode('UTF-8', $line, Encode::FB_DEFAULT));
+        } else {
+            $Translations = decode_json($line);
+        }
+    };
+    if ($@) {
+        $Translations = {};
+    }
+}
+
+sub t
+{
+    my ($str) = @_;
+    return $Translations->{$str} if exists($Translations->{$str});
+    return $str;
+}
+
 sub parse_input
 {
     undef $days;
@@ -275,8 +305,15 @@ sub parse_input
 
     my $found_data = 0;
     while(<STDIN>) {
-	chomp;
-	last if /^\# rem2ps2? begin$/;
+        chomp;
+        if ($_ eq '[') {
+            return parse_input_ppp();
+        }
+        if (/# translations/) {
+            slurp_translations();
+            next;
+        }
+        last if /^\# rem2ps2? begin$/;
     }
 
     my $line;
@@ -387,6 +424,159 @@ sub parse_input
     return $found_data;
 }
 
+sub parse_input_ppp
+{
+    my $json = "[\n";
+    my $curlies = 0;
+    my $did_a_calendar = 0;
+    while(<STDIN>) {
+        $json .= $_;
+        $curlies++ if ($_ eq "{\n");
+        $curlies-- if ($_ eq "}\n");
+        $curlies-- if ($_ eq "},\n");
+        if ($_ eq "]\n" && !$curlies) {
+            my $array;
+            eval {
+                if ($Options{utf8}) {
+                    $array = decode_json(encode('UTF-8', $json, Encode::FB_DEFAULT));
+                } else {
+                    $array = decode_json($json);
+                }
+            };
+            if (!$array) {
+                print STDERR "Could not decode JSON.\n";
+                exit(1);
+            }
+            if (!$did_a_calendar) {
+                start_output();
+                $did_a_calendar = 1;
+            }
+            if (exists($array->[0]{caltype}) &&
+                $array->[0]{caltype} eq 'weekly') {
+                emit_ppp_calendars($array, 'weekly');
+            } else {
+                emit_ppp_calendars($array, 'monthly');
+            }
+            $json = '';
+        }
+    }
+    if (!$did_a_calendar) {
+        print STDERR "$TIDY_PROGNAME: Could not find any calendar data on STDIN.\n";
+        exit(1);
+    } else {
+        end_output();
+        exit(0);
+    }
+}
+
+sub emit_ppp_calendars
+{
+    my ($array, $type) = @_;
+    foreach my $cal (@$array) {
+        emit_one_ppp_calendar($cal, $type);
+    }
+}
+
+sub emit_one_ppp_calendar
+{
+    my ($c, $type) = @_;
+
+    undef $days;
+    undef $shades;
+    undef $moons;
+    undef $classes;
+    undef $weeks;
+
+    my $dates_to_day_index;
+    my $cols_to_date_info;
+    if (exists($c->{translations})) {
+        $Translations = $c->{translations};
+    }
+    if ($type eq 'monthly') {
+        $Month = $c->{monthname};
+        $Year = $c->{year};
+        $Numdays = $c->{daysinmonth};
+        $Firstwkday = $c->{firstwkday};
+        $Mondayfirst = $c->{mondayfirst};
+        @Daynames = @{$c->{daynames}};
+        $Prevmon = $c->{prevmonthname};
+        $Prevlen = $c->{daysinprevmonth};
+        $Nextmon = $c->{nextmonthname};
+        $Nextlen = $c->{daysinnextmonth};
+    } else {
+        my $idx = 0;
+        $Numdays = 7;
+        foreach my $date (@{$c->{dates}}) {
+            $Daynames[$idx] = $date->{dayname};
+            $dates_to_day_index->{$date->{date}} = $idx;
+            $cols_to_date_info->[$idx] = $date;
+            $idx++;
+        }
+    }
+
+    my $class;
+    if ($Options{nostyle}) {
+	$class = '';
+    } else {
+	$class = ' class="rem-entry"';
+    }
+    foreach my $obj (@{$c->{entries}}) {
+        next unless ($obj->{date} =~ /^(\d+)-(\d+)-(\d+)$/);
+        my $y = $1;
+        my $m = $2;
+        my $d = $3;
+        my $col;
+        if ($type eq 'weekly') {
+            $col = $dates_to_day_index->{$obj->{date}};
+        } else {
+            $col = $d;
+            $col =~ s/^0+//;
+        }
+        my $special = $obj->{passthru} || '*';
+        my $tag = $obj->{tags} || '*';
+        my $duration = $obj->{duration} || '*';
+        my $time = $obj->{time} || '*';
+        my $body = $obj->{body};
+	$special = uc($special);
+	if ($special eq 'HTML') {
+	    push(@{$days->[$col]}, $body);
+	} elsif ($special eq 'HTMLCLASS') {
+	    $classes->[$col] = $body;
+	} elsif ($special eq 'WEEK') {
+		$body =~ s/^\s+//;
+		$body =~ s/\s+$//;
+		$weeks->{$col} = $body;
+	} elsif ($special eq 'MOON') {
+		if ($body =~ /(\S+)\s+(\S+)\s+(\S+)\s+(.*)$/) {
+			my ($phase, $moonsize, $fontsize, $msg) = ($1, $2, $3, $4);
+			$moons->[$col]->{'phase'} = $phase;
+			$moons->[$col]->{'msg'} = $msg;
+		} elsif ($body =~ /(\S+)/) {
+			$moons->[$col]->{'phase'} = $1;
+			$moons->[$col]->{'msg'} = '';
+		}
+	} elsif ($special eq 'SHADE') {
+		if ($body =~ /(\d+)\s+(\d+)\s+(\d+)/) {
+			$shades->[$col] = sprintf("#%02X%02X%02X",
+						($1 % 256), ($2 % 256), ($3 % 256));
+		} elsif ($body =~ /(\d+)/) {
+			$shades->[$col] = sprintf("#%02X%02X%02X",
+						($1 % 256), ($1 % 256), ($1 % 256));
+		}
+	} elsif ($special eq 'COLOR' || $special eq 'COLOUR') {
+		if ($body =~ /(\d+)\s+(\d+)\s+(\d+)\s+(.*)$/s) {
+			my($r, $g, $b, $text) = ($1, $2, $3, $4);
+			my $color = sprintf("style=\"color: #%02X%02X%02X;\"",
+					    $r % 256, $g % 256, $b % 256);
+			push(@{$days->[$col]}, "<p$class $color>" . fix_whitespace(escape_html($text)) . '</p>');
+		}
+	} elsif ($special eq '*') {
+	    push(@{$days->[$col]}, "<p$class>" . fix_whitespace(escape_html($body)) . '</p>');
+	}
+    }
+    output_calendar($type, $cols_to_date_info);
+}
+
 sub fix_whitespace
 {
         my ($text) = @_;
@@ -492,23 +682,33 @@ sub small_calendar
 sub output_calendar
 {
     # Which column is 1st of month in?
-    my $first_col = $Firstwkday;
-    if ($Mondayfirst) {
-	$first_col--;
-	if ($first_col < 0) {
-	    $first_col = 6;
-	}
-    }
+    my ($type, $date_info) = @_;
 
-    # Last column
-    my $last_col = ($first_col + $Numdays - 1) % 7;
+    my ($first_col, $last_col, $number_of_rows);
 
-    # Figure out how many rows
-    my $number_of_rows = int(($first_col + $Numdays ) / 7 + 0.999);
+    if ($type eq 'monthly') {
+        $first_col = $Firstwkday;
+        if ($Mondayfirst) {
+            $first_col--;
+            if ($first_col < 0) {
+                $first_col = 6;
+            }
+        }
 
-    # Add a row for small calendars if necessary
-    if ($first_col == 0 && $last_col == 6) {
+        # Last column
+        $last_col = ($first_col + $Numdays - 1) % 7;
+
+        # Figure out how many rows
+        $number_of_rows = int(($first_col + $Numdays ) / 7 + 0.999);
+
+        # Add a row for small calendars if necessary
+        if ($first_col == 0 && $last_col == 6) {
             $number_of_rows++;
+        }
+    } else {
+        $first_col = 0;
+        $last_col = 6;
+        $number_of_rows = 1;
     }
 
     # Start the table
@@ -519,22 +719,36 @@ sub output_calendar
 	print '<tr>';
 	$class = ' width="14%"';
     } else {
-	print '<table class="rem-cal"><caption class="rem-cal-caption">' .
-	    $Month . ' ' . $Year . '</caption>' . "\n";
+        if ($type eq 'monthly') {
+            print '<table class="rem-cal"><caption class="rem-cal-caption">' .
+                $Month . ' ' . $Year . '</caption>' . "\n";
+        } else {
+            print '<table class="rem-cal">' . "\n";
+        }
 	print '<tr class="rem-cal-hdr-row">';
 	$class = ' class="rem-cal-hdr"';
     }
-    if (!$Mondayfirst) {
-	print "<th$class>" . $Daynames[0] . '</th>';
+    if ($type eq 'monthly') {
+        if (!$Mondayfirst) {
+            print "<th$class>" . $Daynames[0] . '</th>';
+        }
+        for (my $i=1; $i<7; $i++) {
+            print "<th$class>" . $Daynames[$i] . '</th>';
+        }
+        if ($Mondayfirst) {
+            print "<th$class>" . $Daynames[0] . '</th>';
+        }
+    } else {
+        for (my $i=0; $i<7; $i++) {
+            my $inf = $date_info->[$i];
+            print "<th$class>" . $inf->{dayname} . "<br>" .
+                $inf->{day} . '&nbsp;' .
+                $inf->{month} . '&nbsp;' .
+                $inf->{year} . '</th>';
+        }
     }
-    for (my $i=1; $i<7; $i++) {
-	print "<th$class>" . $Daynames[$i] . '</th>';
-    }
-    if ($Mondayfirst) {
-	print "<th$class>" . $Daynames[0] . '</th>';
-    }
-    print "</tr>\n";
 
+    print "</tr>\n";
     # Start the calendar rows
     my $col = 0;
     if ($Options{nostyle}) {
@@ -542,16 +756,18 @@ sub output_calendar
     } else {
 	print "<tr class=\"rem-cal-row rem-cal-row-$number_of_rows-rows\">\n";
     }
-    if ($first_col > 0) {
-	small_calendar($Prevmon, $Prevlen, $Options{backurl},
-		       ($Firstwkday - $Prevlen + 35) % 7);
-	$col++;
-    }
+    if ($type eq 'monthly') {
+        if ($first_col > 0) {
+            small_calendar($Prevmon, $Prevlen, $Options{backurl},
+                           ($Firstwkday - $Prevlen + 35) % 7);
+            $col++;
+        }
 
-    if ($last_col == 6 && $first_col > 0) {
-	small_calendar($Nextmon, $Nextlen, $Options{forwurl},
-		       ($Firstwkday + $Numdays) % 7);
-	$col++;
+        if ($last_col == 6 && $first_col > 0) {
+            small_calendar($Nextmon, $Nextlen, $Options{forwurl},
+                           ($Firstwkday + $Numdays) % 7);
+            $col++;
+        }
     }
     if ($Options{nostyle}) {
 	$class = ' width="14%"';
@@ -564,7 +780,7 @@ sub output_calendar
     }
 
     for (my $day=1; $day<=$Numdays; $day++) {
-        draw_day_cell($day, $number_of_rows);
+        draw_day_cell($day, $number_of_rows, $type);
 	$col++;
 	if ($col == 7) {
 	    $col = 0;
@@ -579,32 +795,33 @@ sub output_calendar
 	}
     }
 
-    if ($col) {
-	while ($col < 7) {
-	    if ($col == 5) {
-		if ($first_col == 0) {
-		    small_calendar($Prevmon, $Prevlen, $Options{backurl},
-				   ($Firstwkday - $Prevlen + 35) % 7);
-		} else {
-		    print("<td$class>&nbsp;</td>\n");
-		}
-	    } elsif ($col == 6) {
-		small_calendar($Nextmon, $Nextlen, $Options{forwurl},
-			       ($Firstwkday + $Numdays) % 7);
-	    } else {
-		print("<td$class>&nbsp;</td>\n");
-	    }
-	    $col++;
-	}
-	print "</tr>\n";
-    }
+    if ($type eq 'monthly') {
+        if ($col) {
+            while ($col < 7) {
+                if ($col == 5) {
+                    if ($first_col == 0) {
+                        small_calendar($Prevmon, $Prevlen, $Options{backurl},
+                                       ($Firstwkday - $Prevlen + 35) % 7);
+                    } else {
+                        print("<td$class>&nbsp;</td>\n");
+                    }
+                } elsif ($col == 6) {
+                    small_calendar($Nextmon, $Nextlen, $Options{forwurl},
+                                   ($Firstwkday + $Numdays) % 7);
+                } else {
+                    print("<td$class>&nbsp;</td>\n");
+                }
+                $col++;
+            }
+            print "</tr>\n";
+        }
 
-    # Add a row for small calendars if they were not yet done!
-    if ($first_col == 0 && $last_col == 6) {
+        # Add a row for small calendars if they were not yet done!
+        if ($first_col == 0 && $last_col == 6) {
 	    if ($Options{nostyle}) {
-		    print "<tr>\n";
+                print "<tr>\n";
 	    } else {
-                    print "<tr class=\"rem-cal-row rem-cal-row-$number_of_rows-rows\">\n";
+                print "<tr class=\"rem-cal-row rem-cal-row-$number_of_rows-rows\">\n";
 	    }
 	    small_calendar($Prevmon, $Prevlen, $Options{backurl},
 			   ($Firstwkday - $Prevlen + 35) % 7);
@@ -614,14 +831,18 @@ sub output_calendar
 	    small_calendar($Nextmon, $Nextlen, $Options{forwurl},
 			   ($Firstwkday + $Numdays) % 7);
 	    print("</tr>\n");
+        }
     }
     # End the table
     print "</table>\n";
+    if ($type eq 'weekly') {
+        print "&nbsp;<br />\n";
+    }
 }
 
 sub draw_day_cell
 {
-    my($day, $number_of_rows) = @_;
+    my($day, $number_of_rows, $type) = @_;
     my $shade = $shades->[$day];
     my $week = '';
     if (exists($weeks->{$day})) {
@@ -659,7 +880,7 @@ sub draw_day_cell
                     } else {
                             $img = 'data:image/png;base64,iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABHNCSVQICAgIfAhkiAAAAAlwSFlzAAAGQAAABkABchkaRQAAABl0RVh0U29mdHdhcmUAd3d3Lmlua3NjYXBlLm9yZ5vuPBoAAAC6SURBVDiNpdNNbsIwFATgL0HKolchHKBX6yFaBOEyoPYUabvOIVKJRaCL2JX5TRNGGvnJ8ozGz89cYoElPvET+BX2yivn/1Bggw5HHMKa1h2qcPZC/JEIhvh+brIZIY6sorhMYo9hh3KGFzzfa84NZNjDt9OG/ZcH1BlaPE1IAG0+URhxzNGESKPFaHJs9Q0Ziww7HnvGeXSrJhis0jiFfjwnj3I0WRv+TKtr4hQl3lDrZ6QN9Wt654hfWfGDmBpUwDkAAAAASUVORK5CYII=';
                     }
-		    $title = 'New Moon';
+		    $title = escape_html(t('New Moon'));
 		    $alt = 'new';
 	    } elsif ($phase == 1) {
                     if ($Options{pngs}) {
@@ -667,7 +888,7 @@ sub draw_day_cell
                     } else {
                             $img = 'data:image/png;base64,iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABHNCSVQICAgIfAhkiAAAAAlwSFlzAAAGQAAABkABchkaRQAAABl0RVh0U29mdHdhcmUAd3d3Lmlua3NjYXBlLm9yZ5vuPBoAAADfSURBVDiNndM9TsNAFATgzy5yjZSAE85JBygETgENUPF3iBCitHAFQkcIhZ/Ryn9gRlrZmp2Z3ef3TBOHOMULPrDBMrhpi/4HI5xjix2+4nmJRbx/Yh7ahvkpRPVV4QDXwT3UQy46zGkAZDgK/iytefvHgCrkJsqZUH6cLnNbABSxd5Jhhf1IbkMXv8Qux7hH1Ic1xvk/jBWy6gavumvtwx7ectwZXkKh7MA95XgObeOtpI2U4zl0kGbpxgiPvwQUcXLrKFchc82f6Ur0PK49azOnmOI4TBu84zm4SV38DeIVYkrYJyNbAAAAAElFTkSuQmCC';
                     }
-		    $title = 'First Quarter';
+		    $title = escape_html(t('First Quarter'));
 		    $alt = '1st';
 	    } elsif ($phase == 2) {
                     if ($Options{pngs}) {
@@ -676,7 +897,7 @@ sub draw_day_cell
                             $img = 'data:image/png;base64,iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABHNCSVQICAgIfAhkiAAAAAlwSFlzAAAGQAAABkABchkaRQAAABl0RVh0U29mdHdhcmUAd3d3Lmlua3NjYXBlLm9yZ5vuPBoAAADlSURBVDiNrdNBUsJAEAXQlyw4hq4hwWPqTixET6ELkZ16CcAq7oFLqXExjaYgQVNlV/Viev7/6XT/4TjGuME7PiLXUatb8N8xwB12SFjiIXIZtU/MAntEfgvQE4YtHxhiHpjXQ5H7uLhEcaLLAleBvd0Xx9Ha/BdyU+Q5OBV5OKmj7a4YBWdSyNPe4aKHAHkzqcQZNj3JgnNexqE8heyIAulffuFF3kTfIVbBVeu/xoXGGsn2TLJJ/mqkafNiINszySYZdbS90GHlvcgsWktY4TFy7ecxTdvIzahxHQLbyFXUqkPwF2ASRNYgB/PXAAAAAElFTkSuQmCC';
                     }
 		    $alt = 'full';
-		    $title = 'Full Moon';
+		    $title = escape_html(t('Full Moon'));
 	    } else {
                     if ($Options{pngs}) {
                             $img = smoosh($Options{imgbase}, 'lastquarter.png');
@@ -684,7 +905,7 @@ sub draw_day_cell
                             $img = 'data:image/png;base64,iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABHNCSVQICAgIfAhkiAAAAAlwSFlzAAAGQAAABkABchkaRQAAABl0RVh0U29mdHdhcmUAd3d3Lmlua3NjYXBlLm9yZ5vuPBoAAADmSURBVDiNndMxTsNAEIXhzy5yCyQ6FAgcE7oQheQWUAAl5BIkREoZrgB0GFNkHBl7bURGsryaee/3jHeXdpxjghU+8InXyI0S+n0MMEeBEi+4jfV3vAvMQtsyL0J0j2GtViaeRRMyj8IlsgY8BSijE2Kur/hy09wHKMJrEolhwtwHKDHOsI4OLnoAXfl1jiNsOkR9keE4P8D4q4scbzg5xIxtjie709f1E7siC+9+Gx/8fxvPKtEsklcJSBdgWhcN8ByFR5z+AWgd5QpyE+OUWOJO+zJNU+Z6jHAdgHe7K73CuD5zFT9nCmRDIssCaAAAAABJRU5ErkJggg==';
                     }
 		    $alt = 'last';
-		    $title = 'Last Quarter';
+		    $title = escape_html(t('Last Quarter'));
 	    }
 	    if ($Options{nostyle}) {
 		print("<div style=\"float: left\"><img border=\"0\" width=\"16\" height=\"16\" alt=\"$alt\" title=\"$title\" src=\"$img\">$msg</div>");
@@ -693,11 +914,20 @@ sub draw_day_cell
 	    }
     }
 
-    if ($Options{nostyle}) {
-	print "<div style=\"float: right\">$day$week</div>\n";
-	print "<p>&nbsp;</p>\n";
+    if ($type eq 'monthly') {
+        if ($Options{nostyle}) {
+            print "<div style=\"float: right\">$day$week</div>\n";
+            print "<p>&nbsp;</p>\n";
+        } else {
+            print "<div class=\"rem-daynumber\">$day$week</div>\n";
+        }
     } else {
-	print "<div class=\"rem-daynumber\">$day$week</div>\n";
+        if ($Options{nostyle}) {
+            print "<div style=\"float: right\">$week</div>\n";
+            print "<p>&nbsp;</p>\n";
+        } else {
+            print "<div class=\"rem-daynumber\">$week</div>\n";
+        }
     }
     if ($days->[$day]) {
 	    print(join("\n", @{$days->[$day]}));
@@ -737,7 +967,7 @@ while(1) {
     last if (!parse_input());
     start_output() unless $found_something;
     $found_something = 1;
-    output_calendar();
+    output_calendar('monthly', undef);
 }
 if ($found_something) {
     end_output();

rem2pdf/bin/rem2pdf.in

@@ -64,6 +64,8 @@ my $settings = {
         ps => 0,
         eps => 0,
         verbose => 0,
+
+        weeks_per_page => 1,
 };
 
 my $me = $0;
@@ -81,17 +83,18 @@ Usage: remind -pp [options] filename | $me [options] > out.pdf
 Options:
 
 --landscape, -l         Print in landscape orientation
---small-calendars=N     Choose location for small calendars
+--small-calendars=N     Location for small calendars (monthly calendars only)
 --svg                   Output SVG instead of PDF
 --ps                    Output PostScript instead of PDF
 --eps                   Output encapsulated PostScript instead of PDF
 -cN                     Synonym for --small-calendars=N
---left-numbers, -x      Print day numbers on the left
---fill-page, -e         Fill the entire page
+--left-numbers, -x      Print day numbers on the left (monthly calendars only)
+--fill-page, -e         Fill the entire page (monthly calendars only)
 --media=MEDIA, -mMEDIA  Size for specified media
 --width=W, -wW          Specify media width in 1/72nds of an inch
 --height=H, -hH         Specify media height in 1/72nds of an inch
---wrap, -y              Make calendar fit in at most 5 rows
+--wrap, -y              Make calendar fit in 5 rows (monthly calendars only)
+--weeks-per-page=N, -pN Number of weeks per page (weekly calendars only)
 --title-font=FONT       Specify font for calendar title
 --header-font=FONT      Specify font for weekday names
 --daynum-font=FONT      Specify font for day numbers
@@ -121,6 +124,7 @@ my $ret = GetOptions('landscape|l' =>        \$settings->{landscape},
                      'ps'          =>        \$settings->{ps},
                      'eps'         =>        \$settings->{eps},
                      'fill-page|e' =>        \$settings->{fill_entire_page},
+                     'weeks-per-page|p=i' => \$settings->{weeks_per_page},
                      'media|m=s' =>          \$settings->{media},
                      'width|w=i' =>          \$settings->{width},
                      'wrap|y'    =>          \$settings->{wrap_calendar},
@@ -153,6 +157,12 @@ if ($help) {
         exit(0);
 }
 
+if ($settings->{weeks_per_page} < 1) {
+        $settings->{weeks_per_page} = 1;}
+elsif ($settings->{weeks_per_page} > 4) {
+        $settings->{weeks_per_page} = 4;
+}
+
 if ($settings->{width} <= 0 ||
     $settings->{height} <= 0) {
         my $size = $media_to_size->{ucfirst($settings->{media})};
@@ -247,6 +257,7 @@ if ($settings->{ps} && $settings->{landscape}) {
 }
 
 my $warned = 0;
+my $index = 0;
 while(1) {
         if ($settings->{ps}) {
                 $surface->dsc_begin_page_setup();
@@ -267,14 +278,8 @@ while(1) {
                 }
                 last;
         }
-        if (($settings->{eps} || $settings->{svg}) && $done_one) {
-                if (!$warned) {
-                        print STDERR "WARNING: --eps and --svg can only output one page; ignoring subsequent\nmonths in a multi-month calendar.\n";
-                        $warned = 1;
-                }
-                next;
-        }
-        $obj->render($cr, $settings);
+        $index++;
+        $obj->render($cr, $settings, $index, -1);
         $done_one = 1;
 }
 
@@ -392,7 +397,7 @@ month.  Possible values for I<n> are:
 
 =item Z<>0
 
-Do not draw any small calendares
+Do not draw any small calendars
 
 =item Z<>1
 
@@ -521,6 +526,11 @@ first row of the calendar, and adjust the small calendar positions
 as needed.  This results in a calendar that only requires 5 rows, but
 with the last day or two appearing in the I<first> row.
 
+=item --weeks-per-page=I<n>, -pI<n>.
+
+This option is only used for weekly calendars.  I<n> is the number of weeks
+to print per page; it is an integer that can range from 1 to 4.
+
 =item --verbose, -v
 
 Print (on STDERR) the name of the month and year for each month that
@@ -563,6 +573,12 @@ it is syntactically correct.  If you use invalid Pango markup, the
 Pango library will print a warning and B<rem2pdf> will not render any
 output for the invalid reminder.
 
+=head1 WEEKLY CALENDARS
+
+B<rem2pdf> will produce weekly calendars if you invoke B<remind> with the
+B<-p+> option.  the B<--weeks-per-page> option specifies how many
+weeks' worth of reminders to print per page, and can range from 1 to 4.
+
 =head1 ABSOLUTELY-POSITIONED TEXT
 
 If your B<PANGO> special reminder starts with C<@I<x>,I<y>> where I<x>

rem2pdf/lib/Remind/PDF.pm

@@ -62,6 +62,9 @@ sub create_from_hash
 {
         my ($class, $hash, $specials_accepted) = @_;
 
+        if (exists($hash->{caltype}) && ($hash->{caltype} eq 'weekly')) {
+                return Remind::PDF::Weekly->create_from_hash($hash, $specials_accepted);
+        }
         bless $hash, $class;
 
         my $filtered_entries = [];
@@ -463,8 +466,16 @@ C<rem2pdf> for the contents of C<$settings>
 =cut
 sub render
 {
-        my ($self, $cr, $settings) = @_;
+        my ($self, $cr, $settings, $index, $total) = @_;
 
+        if ($settings->{svg} || $settings->{eps}) {
+                if ($index > 1) {
+                        if ($index == 2) {
+                                print STDERR "WARNING: --svg/--eps can only output one page; ignoring subsequent\nmonths in a multi-month calendar.\n";
+                        }
+                        return;
+                }
+        }
         $self->setup_daymap($settings);
         $self->{horiz_lines} = [];
         $cr->set_line_cap('square');
@@ -525,7 +536,7 @@ sub render
         }
 
         if ($settings->{verbose}) {
-                print STDERR "remdp2f: Rendered " . $self->{monthname} . ' ' . $self->{year} . "\n";
+                print STDERR "rem2pdf: Rendered " . $self->{monthname} . ' ' . $self->{year} . "\n";
         }
         # Done this page
         $cr->show_page();
@@ -1008,20 +1019,260 @@ as were read from the C<remind -ppp> stream
 sub render
 {
         my ($self, $cr, $settings) = @_;
-        my $done = 0;
-        my $warned = 0;
+        my $index = 0;
+        my $total = scalar(@{$self->{entries}});
+
         foreach my $e (@{$self->{entries}}) {
-                if ($settings->{svg} && $done) {
-                        if (!$warned) {
-                                print STDERR "WARNING: --svg can only output one page; ignoring subsequent\nmonths in a multi-month calendar.\n";
-                                $warned = 1;
+                $index++;
+                $e->render($cr, $settings, $index, $total);
+        }
+}
+
+package Remind::PDF::Weekly;
+use base qw(Remind::PDF);
+
+=head1 NAME
+
+Remind::PDF::Weekly - render a weekly calendar
+
+=cut
+
+sub render
+{
+        my ($self, $cr, $settings, $index, $total) = @_;
+        if ($settings->{svg} || $settings->{eps}) {
+                if ($index > $settings->{weeks_per_page}) {
+                        if ($index == $settings->{weeks_per_page}+1) {
+                                print STDERR "WARNING: --svg/--eps can only output one page; ignoring subsequent pages.\n";
                         }
+                        return;
+                }
+        }
+
+        $settings->{numbers_on_left} = 1;
+        # Set up bounding box
+        if ($settings->{weeks_per_page} == 1) {
+                $self->{bounding_box} = [
+                        $settings->{margin_left},
+                        $settings->{margin_top},
+                        $settings->{width} - $settings->{margin_right},
+                        $settings->{height} - $settings->{margin_bottom}]
+        } else {
+                my $total_height = $settings->{height} - $settings->{margin_top} - $settings->{margin_bottom};
+                my $week_height = $total_height / $settings->{weeks_per_page};
+                my $top_offset = (($index-1) % $settings->{weeks_per_page}) * $week_height;
+                my $bot_offset = $top_offset + $week_height;
+                $self->{bounding_box} = 
+                    $self->{bounding_box} = [
+                            $settings->{margin_left},
+                            $settings->{margin_top} + $top_offset,
+                            $settings->{width} - $settings->{margin_right},
+                            $settings->{margin_top} + $bot_offset];
+                if ($index != 1) {
+                        $self->{bounding_box}[1] += 0.25 * $settings->{margin_top};
+                }
+                if ($index != $settings->{weeks_per_page}) {
+                    $self->{bounding_box}[3] -= 0.25 * $settings->{margin_top};
+                }
+        }
+        $self->draw_headings($cr, $settings);
+        for (my $i=0; $i<7; $i++) {
+                $self->draw_entries($cr, $settings, $i);
+        }
+        $self->draw_lines($cr, $settings);
+        if ($index == $total || ($index % $settings->{weeks_per_page}) == 0) {
+                $cr->show_page();
+        }
+
+        if ($settings->{verbose}) {
+                print STDERR "rem2pdf: Rendered " . $self->{dates}->[0]->{date} . " to " . $self->{dates}->[6]->{date} . "\n";
+        }
+}
+
+sub draw_headings
+{
+        my ($self, $cr, $settings) = @_;
+        my $ymax = 0;
+        my $cell = ($settings->{width} - $settings->{margin_left} - $settings->{margin_right})/7;
+
+        for (my $i=0; $i<7; $i++) {
+                my $date = $self->{dates}[$i];
+                my $month = $date->{month};
+                my $year = $date->{year};
+                my $day = $date->{day};
+                my $dayname = $date->{dayname};
+
+                my $layout = Pango::Cairo::create_layout($cr);
+                $layout->set_text(Encode::decode('UTF-8', $dayname));
+
+                my $desc = Pango::FontDescription->from_string($settings->{header_font} . ' ' . $settings->{header_size} . 'px');
+                $layout->set_font_description($desc);
+
+                my ($wid, $h) = $layout->get_pixel_size();
+                $cr->save;
+                $cr->move_to($settings->{margin_left} + $i * $cell + $cell/2 - $wid/2, $self->{bounding_box}[1]);
+                Pango::Cairo::show_layout($cr, $layout);
+                $cr->restore();
+
+                $layout = Pango::Cairo::create_layout($cr);
+                $layout->set_text(Encode::decode('UTF-8', $day . " " . $month . " " . $year));
+                my $es = $settings->{entry_size};
+                if ($es > 8) {
+                        $es = 8;
+                }
+                $desc = Pango::FontDescription->from_string($settings->{entry_font} . ' ' . $es . 'px');
+                $layout->set_font_description($desc);
+
+                my ($wid2, $h2) = $layout->get_pixel_size();
+                $cr->save;
+                $cr->move_to($settings->{margin_left} + $i * $cell + $cell/2 - $wid2/2, $self->{bounding_box}[1] + $h);
+                Pango::Cairo::show_layout($cr, $layout);
+                $cr->restore();
+
+                if ($h + $h2 > $ymax) {
+                        $ymax = $h + $h2;
+                }
+        }
+        $self->{heading_bottom_y} = $ymax + $self->{bounding_box}[1];
+}
+
+sub draw_entries
+{
+        my ($self, $cr, $settings, $i) = @_;
+
+        my $cell = ($settings->{width} - $settings->{margin_left} - $settings->{margin_right})/7;
+
+        # Coordinates of box from line-to-line
+        my $l2l_box = [$i * $cell + $settings->{margin_left},
+                       $self->{heading_bottom_y},
+                       ($i+1) * $cell + $settings->{margin_left},
+                       $self->{bounding_box}[3]];
+
+        # Coordinates of drawing-space box
+        my $box = [$l2l_box->[0] + $settings->{border_size},
+                   $l2l_box->[1] + $settings->{border_size},
+                   $l2l_box->[2] - $settings->{border_size},
+                   $l2l_box->[3] - $settings->{border_size}];
+
+        $self->{l2l_box} = $l2l_box;
+        $self->{box} = $box;
+
+        # Do shading, if any
+        my $shade = $self->find_last_special('shade', $self->{entries}->[$i]);
+        if ($shade) {
+                $cr->save;
+                $cr->set_source_rgb($shade->{r} / 255,
+                                    $shade->{g} / 255,
+                                    $shade->{b} / 255);
+                $cr->rectangle($l2l_box->[0], $l2l_box->[1],
+                               $l2l_box->[2] - $l2l_box->[0],
+                               $l2l_box->[3] - $l2l_box->[1]);
+                $cr->fill();
+                $cr->restore;
+        }
+
+        # Get the "day number" size to leave room for moon and week specials
+        my $layout = Pango::Cairo::create_layout($cr);
+        $layout->set_text("31");
+        my $desc = Pango::FontDescription->from_string($settings->{daynum_font} . ' ' . $settings->{daynum_size} . 'px');
+
+        $layout->set_font_description($desc);
+        my ($wid, $h) = $layout->get_pixel_size();
+
+        my $so_far = $box->[1] + $h + $settings->{border_size};
+
+        my $box_height = $box->[3] - $box->[1];
+        my $done = 0;
+        foreach my $entry (@{$self->{entries}->[$i]}) {
+                # Moon and week should not adjust height
+                if ($entry->isa('Remind::PDF::Entry::moon') ||
+                    $entry->isa('Remind::PDF::Entry::week')) {
+                        $entry->render($self, $cr, $settings, $box->[1], $i, $i, $box_height);
                         next;
                 }
+
+                # An absolutely-positioned Pango markup should not adjust height
+                # either
+                if ($entry->isa('Remind::PDF::Entry::pango') &&
+                    defined($entry->{atx}) && defined($entry->{aty})) {
+                        $entry->render($self, $cr, $settings, $box->[1], $i, $i, $box_height);
+                        next;
+                }
+
+                # Shade is done already
+                if ($entry->isa('Remind::PDF::Entry::shade')) {
+                        next;
+                }
+                if ($done) {
+                        $so_far += $settings->{border_size};
+                }
                 $done = 1;
-                $e->render($cr, $settings);
+                my $h2 = $entry->render($self, $cr, $settings, $so_far, $i, $i, $box_height);
+                $so_far += $h2;
         }
 }
 
+sub col_box_coordinates
+{
+
+        my ($self, $so_far, $col, $height, $settings) = @_;
+        return (@{$self->{l2l_box}});
+}
+
+
+
+sub draw_lines
+{
+        my ($self, $cr, $settings) = @_;
+
+        # Top horizonal line
+        $cr->move_to($self->{bounding_box}[0], $self->{bounding_box}[1]);
+        $cr->line_to($self->{bounding_box}[2], $self->{bounding_box}[1]);
+        $cr->stroke();
+
+        # Horizontal line below headings
+        $cr->move_to($self->{bounding_box}[0], $self->{heading_bottom_y});
+        $cr->line_to($self->{bounding_box}[2], $self->{heading_bottom_y});
+        $cr->stroke();
+
+        # Bottom horizontal line
+        $cr->move_to($self->{bounding_box}[0], $self->{bounding_box}[3]);
+        $cr->line_to($self->{bounding_box}[2], $self->{bounding_box}[3]);
+        $cr->stroke();
+
+        # Vertical lines
+        my $w = ($settings->{width} - $settings->{margin_left} - $settings->{margin_right})/7;
+        for (my $i=0; $i<=7; $i++) {
+                my $x = $settings->{margin_left} + ($i * $w);
+                $cr->move_to($x, $self->{bounding_box}[1]);
+                $cr->line_to($x, $self->{bounding_box}[3]);
+                $cr->stroke();
+        }
+}
+
+sub create_from_hash
+{
+        my ($class, $hash, $specials_accepted) = @_;
+        bless $hash, $class;
+
+        my $filtered_entries = [];
+        my $date_to_index;
+        for (my $i=0; $i<7; $i++) {
+                $date_to_index->{$hash->{dates}[$i]->{date}} = $i;
+        }
+
+        for (my $i=0; $i<7; $i++) {
+                $filtered_entries->[$i] = [];
+        }
+        foreach my $e (@{$hash->{entries}}) {
+                if ($hash->accept_special($e, $specials_accepted)) {
+                        my $index = $date_to_index->{$e->{date}};
+                        push(@{$filtered_entries->[$index]}, Remind::PDF::Entry->new_from_hash($e));
+                }
+        }
+        $hash->{entries} = $filtered_entries;
+        return $hash;
+}
+
 1;
 

scripts/tkremind.in

@@ -8,7 +8,7 @@
 #   A cheesy graphical front/back end for Remind using Tcl/Tk
 #
 #   This file is part of REMIND.
-#   Copyright (C) 1992-2024 Dianne Skoll
+#   Copyright (C) 1992-2025 Dianne Skoll
 #
 #--------------------------------------------------------------
 
@@ -280,6 +280,9 @@ set AppendFile $ReminderFile
 # Array of tags -> JSON dicts
 array unset TagToObj
 
+# Array of __syn__ tags -> JSON dicts
+array unset SynToObj
+
 set SetFontsWorked 0
 #---------------- DON'T CHANGE STUFF BELOW HERE ------------------
 
@@ -798,7 +801,7 @@ proc EditOptions {} {
     pack $w.f -side top -expand 1 -fill both
     pack $w.b -side top -expand 0 -fill x
 
-    label $w.ver -text "TkRemind version @VERSION@ on Tcl/Tk version [info tclversion] with Remind version $ver"
+    label $w.ver -text "TkRemind version @VERSION@ on Tcl/Tk version [info patchlevel] with Remind version $ver"
     pack $w.ver -in $w.f -side top -expand 0 -fill x
     # Start iconified
     checkbutton $w.startIconified -text "Start up Iconified" \
@@ -1138,9 +1141,10 @@ proc ConfigureCalWindow { month year firstDay numDays } {
 proc FillCalWindow {} {
     set FileName ""
     set LineNo 0
-    global DayNames CurYear CurMonth MonthNames CommandLine Option TagToObj RemindErrors MondayFirst
+    global DayNames CurYear CurMonth MonthNames CommandLine Option TagToObj SynToObj RemindErrors MondayFirst
 
     array unset TagToObj
+    array unset SynToObj
 
     Status "Firing off Remind..."
     set_button_to_queue
@@ -1230,7 +1234,7 @@ proc FillCalWindow {} {
 	set day [string trimleft $day 0]
 	set n [expr $day+$offset]
 	set month [string trimleft $month 0]
-	set extratags ""
+	set extratags {}
 	switch -nocase -- $type {
 	    "WEEK" {
 		set stuff [string trimleft $stuff]
@@ -1269,9 +1273,9 @@ proc FillCalWindow {} {
                     set b 0
                 }
                 set color [format "%02X%02X%02X" $r $g $b]
-                set extratags "clr$color"
+                lappend extratags "clr$color"
                 .cal.t$n configure -state normal
-                .cal.t$n tag configure $extratags -foreground "#$color"
+                .cal.t$n tag configure "clr$color" -foreground "#$color"
                 .cal.t$n configure -state disabled -takefocus 0
                 set stuff $stuff
                 set type "COLOR"
@@ -1288,18 +1292,27 @@ proc FillCalWindow {} {
         set stuff [regsub -all {\n[ \t]} $stuff "\n"]
         set stuff [regsub -all {\n+} $stuff "\n"]
 
+        if {[regexp {__syn__([0-9a-f]+)} $tag syntag]} {
+            set SynToObj($syntag) $obj
+            lappend extratags $syntag
+            .cal.t$n tag bind $syntag <Enter> [list details_enter .cal.t$n]
+            .cal.t$n tag bind $syntag <Leave> [list details_leave .cal.t$n]
+        } else {
+            set syntag ""
+        }
+
 	if {[regexp {TKTAG([0-9]+)} $tag all tagno] && "$fntag" != "x"} {
-	    .cal.t$n insert end [string trim $stuff] [list REM TAGGED "TKTAG$tagno" "date_$date" $extratags $fntag]
-	    .cal.t$n tag bind "TKTAG$tagno" <Enter> "TaggedEnter .cal.t$n"
-	    .cal.t$n tag bind "TKTAG$tagno" <Leave> "TaggedLeave .cal.t$n"
-	    set TagToObj(TKTAG$tagno) $obj
+	    .cal.t$n insert end [string trim $stuff] [concat REM TAGGED "TKTAG$tagno" "date_$date" $extratags $fntag]
+	    .cal.t$n tag bind "TKTAG$tagno" <Enter> [list TaggedEnter .cal.t$n]
+	    .cal.t$n tag bind "TKTAG$tagno" <Leave> [list TaggedLeave .cal.t$n]
+	    set TagToObj($all) $obj
 	} else {
             if {"$fntag" == "x" } {
-                .cal.t$n insert end [string trim $stuff] [list REM $extratags]
+                .cal.t$n insert end [string trim $stuff] [concat REM $extratags]
             } else {
-                .cal.t$n insert end [string trim $stuff] [list REM $extratags $fntag]
-                .cal.t$n tag bind $fntag <Enter> "EditableEnter .cal.t$n"
-                .cal.t$n tag bind $fntag <Leave> "EditableLeave .cal.t$n"
+                .cal.t$n insert end [string trim $stuff] [concat REM $extratags $fntag]
+                .cal.t$n tag bind $fntag <Enter> [list EditableEnter .cal.t$n]
+                .cal.t$n tag bind $fntag <Leave> [list EditableLeave .cal.t$n]
                 .cal.t$n tag bind $fntag <ButtonPress-1> "FireEditor .cal.t$n"
             }
 	}
@@ -1707,8 +1720,9 @@ proc CreateModifyDialog {w day firstDay args} {
     frame $w.msg
     frame $w.buttons
     pack $w.o1 $w.o2 $w.o3  -side top -anchor w -in $w.o
-    pack $w.o $w.exp $w.adv $w.weekend $w.time $w.durationbox $w.hol $w.msg -side top -anchor w -pady 4 -expand 1 -fill both
-    pack $w.buttons -side top -anchor w -pady 4 -expand 1 -fill x
+    pack $w.o $w.exp $w.adv $w.weekend $w.time $w.durationbox $w.hol $w.msg -side top -anchor w -pady 4 -expand 0 -fill both
+    pack $w.msg -side top -anchor w -pady 4 -padx 4 -expand true -fill both
+    pack $w.buttons -side top -anchor w -pady 4 -expand 0 -fill x
 
     # TYPE 1 REMINDER
     radiobutton $w.type1 -variable OptionType -value 1
@@ -1905,12 +1919,30 @@ proc CreateModifyDialog {w day firstDay args} {
     pack $w.labhol $w.issue $w.skip $w.before $w.after -side top -anchor w -in $w.hol
 
     # TEXT ENTRY
-    label $w.msglab -text "Body:"
+    label $w.msglab -text "Summary: "
     entry $w.entry
     balloon_add_help $w.entry "Enter the text of the reminder"
-    pack $w.msglab -side left -anchor w -in $w.msg
-    pack $w.entry -side left -anchor w -expand 1 -fill x -in $w.msg
+    grid $w.msglab -row 0 -column 0 -in $w.msg -sticky e
+    grid $w.entry -row 0 -column 1 -in $w.msg -sticky nsew
 
+    # LOCATION and DESCRIPTION
+    label $w.loclab -text "Location: "
+    entry $w.location
+    balloon_add_help $w.location "Enter the location, if any"
+    grid $w.loclab -row 1 -column 0 -in $w.msg -sticky e
+    grid $w.location -row 1 -column 1 -in $w.msg -sticky nsew
+
+    label $w.desclab -text "Description: "
+    text $w.description -width 80 -height 5
+    balloon_add_help $w.description "Enter a detailed description, if any"
+    grid $w.desclab -row 2 -column 0 -in $w.msg -sticky e
+    grid $w.description -row 2 -column 1 -in $w.msg -sticky nsew
+
+    grid columnconfigure $w.msg 0 -weight 0
+    grid columnconfigure $w.msg 1 -weight 1
+    grid rowconfigure $w.msg 0 -weight 0
+    grid rowconfigure $w.msg 1 -weight 0
+    grid rowconfigure $w.msg 2 -weight 1
     # BUTTONS
     set nbut 0
     foreach but $args {
@@ -1988,6 +2020,11 @@ proc OptionsToRemindDialog { w opts } {
 		    set hour $value
 		}
 	    }
+            "-txtentry-*" {
+		set win [string range $flag 10 end]
+		$w.$win delete 1.0 end
+		$w.$win insert end $value
+            }
 	    "-global-*" {
 		set win [string range $flag 8 end]
 		set $win $value
@@ -2170,6 +2207,13 @@ proc CenterWindow {w {parent {}}} {
     wm deiconify $w
 }
 
+#---------------------------------------------------------------------------
+# RemQuotedString - return a quoted string with difficult characters escaped
+#---------------------------------------------------------------------------
+proc RemQuotedString { str } {
+    set str [string map {"\n" "\\n" "\"" "\\\"" "[" "[\"[\"]"} $str]
+    return "\"$str\""
+}
 #---------------------------------------------------------------------------
 # CreateReminder -- create the reminder
 # Arguments:
@@ -2255,7 +2299,16 @@ proc CreateReminder {w} {
 	append rem " OMIT [GetWeekend $w 1]"
     }
 
-
+    set location [string trim [$w.location get]]
+    if {$location != ""} {
+        set location "Location: $location"
+        append rem " INFO [RemQuotedString $location]"
+    }
+    set description [string trim [$w.description get 1.0 end]]
+    if {$description != ""} {
+        set description "Description: $description"
+        append rem " INFO [RemQuotedString $description]"
+    }
     # Check it out!
     global Remind
     set f [open "|$Remind -arq -e - 2>@1" r+]
@@ -3086,7 +3139,7 @@ proc main {} {
 
     global AppendFile HighestTagSoFar DayNames
     catch {
-	puts "\nTkRemind Copyright (C) 1996-2024 Dianne Skoll"
+	puts "\nTkRemind Copyright (C) 1996-2025 Dianne Skoll"
     }
     catch { SetFonts }
     Initialize
@@ -3443,6 +3496,16 @@ proc ReadTaggedOptions { tag date } {
 	    lappend ans -text-year3 $y
 	}
     }
+
+    if {[dict exists $obj info]} {
+        set info [dict get $obj info]
+        if {[dict exists $info location]} {
+            lappend ans -entry-location [dict get $info location]
+        }
+        if {[dict exists $info description]} {
+            lappend ans -txtentry-description [dict get $info description]
+        }
+    }
     return $ans
 }
 
@@ -3573,6 +3636,87 @@ proc EditableLeave { w } {
     set tag [lindex $tags $index]
     $w tag configure $tag -underline 0
 }
+
+proc details_enter { w } {
+    global SynToObj Balloon
+    set tags [$w tag names current]
+    set index [lsearch -glob $tags "__syn__*"]
+    if {$index < 0} {
+        return
+    }
+    set syntag [lindex $tags $index]
+    if {![info exists SynToObj($syntag)]} {
+        return
+    }
+    set obj $SynToObj($syntag)
+    set lines {}
+    if {![dict exists $obj info]} {
+        return;
+    }
+    set info [dict get $obj info]
+    set llen 0
+    if {[dict exists $info location]} {
+        lappend lines [list "Location:" [dict get $info location]]
+    }
+    if {[dict exists $info description]} {
+        lappend lines [list "Description:" [dict get $info description]]
+    }
+    if {[llength $lines] < 1} {
+        return;
+    }
+    balloon_cancel_timer
+
+    set Balloon(HelpId) [after $Balloon(HelpTime) [list details_popup $lines]]
+}
+
+proc details_leave { w } {
+    balloon_cancel_timer
+    catch { destroy .balloonhelp }
+}
+
+proc details_popup { pairs } {
+    global Balloon
+    set maxwid 80
+    set h .balloonhelp
+    toplevel $h -bg #000000
+    text $h.l -width $maxwid -height 16 -bd 0 -wrap word -relief flat -bg #FFFFC0
+    $h.l tag configure bold -font {-weight bold}
+    $h.l tag configure medium -font {-weight normal}
+    foreach pair $pairs {
+        $h.l insert end [lindex $pair 0] bold " " medium [lindex $pair 1] medium "\n" medium
+    }
+    # Now calculate actual text window size
+    set wid 0
+    set height 0
+    set text [$h.l get 1.0 end]
+    set text [string trim $text]
+    set lines [split $text "\n"]
+    foreach line $lines {
+        incr height
+        set len [string length $line]
+        incr len
+        if {$len > $wid} {
+            set wid $len
+        }
+    }
+    if {$wid > $maxwid} {
+        set wid $maxwid
+    }
+    ### NOTE: I should be using "count -displaylines" to size
+    ### the window, but Tk gives the wrong answer.  I think
+    ### there is a bug in the text widget.  So we count the
+    ### number of lines and add 5 and hope for the best...
+    incr height 5
+    $h.l configure -width $wid -height $height
+    pack $h.l -padx 1 -pady 1 -ipadx 2 -ipady 1
+    $h.l configure -state disabled
+    wm overrideredirect $h 1
+    set geom [balloon_calculate_geometry $h]
+    wm geometry $h $geom
+    set Balloon(HelpId) [after $Balloon(StayTime) [list catch { destroy $h }]]
+    set Balloon(MustLeave) 1
+}
+
 #***********************************************************************
 # %PROCEDURE: EditTaggedReminder
 # %ARGUMENTS:

src/Makefile.in

@@ -31,9 +31,11 @@ REMINDSRCS= calendar.c dedupe.c dynbuf.c dorem.c dosubst.c expr.c	\
 		hbcal.c init.c main.c md5.c moon.c omit.c queue.c	\
 		sort.c token.c trans.c trigger.c userfns.c utils.c var.c
 
+XLATSRC= xlat.c
+
 REMINDHDRS=config.h custom.h dynbuf.h err.h globals.h hashtab.h	\
 	   md5.h protos.h rem2ps.h types.h version.h
-REMINDOBJS= $(REMINDSRCS:.c=.o)
+REMINDOBJS= $(REMINDSRCS:.c=.o) $(XLATSRC:.c=.o)
 
 all: remind rem2ps
 
@@ -43,6 +45,13 @@ test: all
 .c.o:
 	@CC@ -c @CPPFLAGS@ @CFLAGS@ @DEFS@ $(CEXTRA) -DSYSDIR=$(datarootdir)/remind -I. -I$(srcdir) $<
 
+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
+	@echo "    NULL" >> xlat.c
+	@echo "};" >> xlat.c
+
 $(REMINDOBJS): $(REMINDHDRS)
 
 rem2ps: rem2ps.o dynbuf.o json.o
@@ -80,7 +89,7 @@ install-stripped: install
 	strip $(DESTDIR)$(bindir)/rem2ps || true
 
 clean:
-	rm -f *.o *~ core *.bak $(PROGS)
+	rm -f *.o *~ core *.bak $(PROGS) $(XLATSRC)
 
 clobber:
 	rm -f *.o *~ remind rem2ps test.out core *.bak

src/calendar.c

@@ -5,7 +5,7 @@
 /*  The code for generating a calendar.                        */
 /*                                                             */
 /*  This file is part of REMIND.                               */
-/*  Copyright (C) 1992-2024 by Dianne Skoll                    */
+/*  Copyright (C) 1992-2025 by Dianne Skoll                    */
 /*  SPDX-License-Identifier: GPL-2.0-only                      */
 /*                                                             */
 /***************************************************************/
@@ -61,6 +61,7 @@ typedef struct cal_entry {
     TimeTrig tt;
     int nonconst_expr;
     int if_depth;
+    TrigInfo *infos;
 } CalEntry;
 
 /* Line-drawing sequences */
@@ -274,6 +275,7 @@ static int ColToDay[7];
 static int ColSpaces;
 
 static int DidAMonth;
+static int DidAWeek;
 static int DidADay;
 
 static void ColorizeEntry(CalEntry const *e, int clamp);
@@ -386,7 +388,13 @@ void PrintJSONChar(char c) {
     case '\t': printf("\\t"); break;
     case '"':  printf("\\\""); break;
     case '\\': printf("\\\\"); break;
-    default: printf("%c", c);
+    default:
+        if ((c > 0 && c < 32) || c == 0x7f) {
+            printf("\\u%04x", (unsigned int) c);
+        } else {
+            printf("%c", c);
+        }
+        break;
     }
 }
 
@@ -401,7 +409,36 @@ void PrintJSONString(char const *s)
         case '\t': printf("\\t"); break;
         case '"':  printf("\\\""); break;
         case '\\': printf("\\\\"); break;
-        default: printf("%c", *s);
+        default:
+            if ((*s > 0 && *s < 32) || *s == 0x7f) {
+                printf("\\u%04x", (unsigned int) *s);
+            } else {
+                printf("%c", *s);
+            }
+            break;
+        }
+        s++;
+    }
+}
+
+void PrintJSONStringLC(char const *s)
+{
+    while (*s) {
+        switch(*s) {
+        case '\b': printf("\\b"); break;
+        case '\f': printf("\\f"); break;
+        case '\n': printf("\\n"); break;
+        case '\r': printf("\\r"); break;
+        case '\t': printf("\\t"); break;
+        case '"':  printf("\\\""); break;
+        case '\\': printf("\\\\"); break;
+        default:
+            if ((*s > 0 && *s < 32) || *s == 0x7f) {
+                printf("\\u%04x", (unsigned int) *s);
+            } else {
+                printf("%c", tolower(*s));
+            }
+            break;
         }
         s++;
     }
@@ -498,7 +535,7 @@ get_month_abbrev(char const *mon)
 {
     static char buf[80];
 #ifndef REM_USE_WCHAR
-    sprintf(buf, "%.3s", mon);
+    snprintf(buf, sizeof(buf), "%.3s", mon);
     return buf;
 #else
     char *s;
@@ -625,9 +662,9 @@ Colorize256(int r, int g, int b, int bg, int clamp)
         }
     }
     if (bg) {
-        sprintf(buf, "\x1B[48;5;%dm", best);
+        snprintf(buf, sizeof(buf), "\x1B[48;5;%dm", best);
     } else {
-        sprintf(buf, "\x1B[38;5;%dm", best);
+        snprintf(buf, sizeof(buf), "\x1B[38;5;%dm", best);
     }
     return buf;
 }
@@ -640,9 +677,9 @@ ColorizeTrue(int r, int g, int b, int bg, int clamp)
         ClampColor(&r, &g, &b);
     }
     if (bg) {
-        sprintf(buf, "\x1B[48;2;%d;%d;%dm", r, g, b);
+        snprintf(buf, sizeof(buf), "\x1B[48;2;%d;%d;%dm", r, g, b);
     } else {
-        sprintf(buf, "\x1B[38;2;%d;%d;%dm", r, g, b);
+        snprintf(buf, sizeof(buf), "\x1B[38;2;%d;%d;%dm", r, g, b);
     }
     return buf;
 }
@@ -834,12 +871,33 @@ void ProduceCalendar(void)
             WriteIntermediateCalLine();
         }
 
-        while (CalWeeks--)
+        DidAWeek = 0;
+        if (PsCal == PSCAL_LEVEL3) {
+            printf("[\n");
+        }
+        while (CalWeeks--) {
             DoCalendarOneWeek(CalWeeks);
+            DidAWeek = 1;
+        }
+        if (PsCal == PSCAL_LEVEL3) {
+            printf("\n]\n");
+        }
         return;
     }
 }
 
+static void
+SendTranslationTable(int pslevel)
+{
+    if (pslevel < PSCAL_LEVEL3) {
+        printf("# translations\n");
+    }
+    DumpTranslationTable(stdout, 1);
+    if (pslevel < PSCAL_LEVEL3) {
+        printf("\n");
+    }
+}
+
 /***************************************************************/
 /*                                                             */
 /*  DoCalendarOneWeek                                          */
@@ -870,9 +928,33 @@ static void DoCalendarOneWeek(int nleft)
 /* Output the entries */
 /* If it's "Simple Calendar" format, do it simply... */
     if (DoSimpleCalendar) {
+        if (PsCal == PSCAL_LEVEL3) {
+            if (DidAWeek) {
+                printf(",\n");
+            }
+            printf("{\n\"caltype\":\"weekly\",");
+            if (!DidAWeek) {
+                printf("\"translations\":");
+                SendTranslationTable(PsCal);
+                printf(",");
+            }
+            printf("\"dates\":[");
+            for (i=0; i<7; i++) {
+                if (i != 0) {
+                    printf(",");
+                }
+                FromDSE(OrigDse+i-wd, &y, &m, &d);
+                printf("{\"dayname\":\"%s\",\"date\":\"%04d-%02d-%02d\",\"year\":%d,\"month\":\"%s\",\"day\":%d}", get_day_name((OrigDse+i-wd)%7),y, m+1, d, y, get_month_name(m), d);
+            }
+            printf("],\"entries\":[");
+        }
+        DidADay = 0;
         for (i=0; i<7; i++) {
             WriteSimpleEntries(i, OrigDse+i-wd);
         }
+        if (PsCal == PSCAL_LEVEL3) {
+            printf("\n]\n}");
+        }
         return;
     }
 
@@ -984,14 +1066,25 @@ static void DoSimpleCalendarOneMonth(void)
     if (PsCal) {
         FromDSE(DSEToday, &y, &m, &d);
         if (PsCal == PSCAL_LEVEL1) {
+            if (!DidAMonth) {
+                SendTranslationTable(PsCal);
+            }
             printf("%s\n", PSBEGIN);
         } else if (PsCal == PSCAL_LEVEL2) {
+            if (!DidAMonth) {
+                SendTranslationTable(PsCal);
+            }
             printf("%s\n", PSBEGIN2);
         } else {
             if (DidAMonth) {
                 printf(",\n");
             }
             printf("{\n");
+            if (!DidAMonth) {
+                printf("\"translations\":");
+                SendTranslationTable(PsCal);
+                printf(",");
+            }
         }
         if (PsCal < PSCAL_LEVEL3) {
             printf("%s %d %d %d %d\n",
@@ -1007,6 +1100,7 @@ static void DoSimpleCalendarOneMonth(void)
             }
             printf("\n");
         } else {
+            PrintJSONKeyPairString("caltype", "monthly");
             PrintJSONKeyPairString("monthname", get_month_name(m));
             PrintJSONKeyPairInt("year", y);
             PrintJSONKeyPairInt("daysinmonth", DaysInMonth(m, y));
@@ -1249,7 +1343,7 @@ static void PrintLeft(char const *s, int width, char pad)
         buf = calloc(len+1, sizeof(wchar_t));
         if (!buf) {
             /* Uh-oh... cannot recover */
-            fprintf(stderr, "%s\n", GetErr(E_NO_MEM));
+            fprintf(ErrFp, "%s\n", GetErr(E_NO_MEM));
             exit(EXIT_FAILURE);
         }
     }
@@ -1334,7 +1428,7 @@ static void PrintCentered(char const *s, int width, char *pad)
         buf = calloc(len+1, sizeof(wchar_t));
         if (!buf) {
             /* Uh-oh... cannot recover */
-            fprintf(stderr, "%s\n", GetErr(E_NO_MEM));
+            fprintf(ErrFp, "%s\n", GetErr(E_NO_MEM));
             exit(EXIT_FAILURE);
         }
     }
@@ -1446,6 +1540,7 @@ static int WriteOneColLine(int col)
             free(e->raw_text);
             free(e->filename);
             if (e->wc_text) free(e->wc_text);
+            FreeTrigInfoChain(e->infos);
             free(e);
             return 1;
         }
@@ -1532,6 +1627,7 @@ static int WriteOneColLine(int col)
             free(e->raw_text);
             free(e->filename);
             if (e->wc_text) free(e->wc_text);
+            FreeTrigInfoChain(e->infos);
             free(e);
         } else {
             e->wc_pos = ws;
@@ -1553,6 +1649,7 @@ static int WriteOneColLine(int col)
             if (e->wc_text) free(e->wc_text);
 #endif
             free(e->raw_text);
+            FreeTrigInfoChain(e->infos);
             free(e);
             return 1;
         }
@@ -1615,6 +1712,7 @@ static int WriteOneColLine(int col)
             if (e->wc_text) free(e->wc_text);
 #endif
             free(e->raw_text);
+            FreeTrigInfoChain(e->infos);
             free(e);
         } else {
             e->pos = s;
@@ -1685,6 +1783,7 @@ static void GenerateCalEntries(int col)
             case T_EndIf:   r=DoEndif(&p);   break;
 
             case T_Include:
+            case T_IncludeSys:
             case T_IncludeR: r=DoInclude(&p, tok.type); break;
 
             case T_IncludeCmd: r=DoIncludeCmd(&p); break;
@@ -1753,7 +1852,7 @@ static void WriteCalHeader(void)
     int y, m, d;
 
     FromDSE(DSEToday, &y, &m, &d);
-    sprintf(buf, "%s %d", get_month_name(m), y);
+    snprintf(buf, sizeof(buf), "%s %d", get_month_name(m), y);
 
     WriteTopCalLine();
 
@@ -1957,7 +2056,7 @@ static int DoCalRem(ParsePtr p, int col)
         trig.typ == MSF_TYPE) {
         if (PsCal && is_color) {
             char cbuf[24];
-            sprintf(cbuf, "%d %d %d ", col_r, col_g, col_b);
+            snprintf(cbuf, sizeof(cbuf), "%d %d %d ", col_r, col_g, col_b);
             DBufPuts(&pre_buf, cbuf);
             strcpy(trig.passthru, "COLOR");
             /* Don't change trig.typ or next if() will trigger! */
@@ -2090,7 +2189,7 @@ static int DoCalRem(ParsePtr p, int col)
         if (trig.typ != PASSTHRU_TYPE &&
             UserFuncExists("calprefix")==1) {
             char evalBuf[64];
-            sprintf(evalBuf, "calprefix(%d)", trig.priority);
+            snprintf(evalBuf, sizeof(evalBuf), "calprefix(%d)", trig.priority);
             s2 = evalBuf;
             r = EvalExpr(&s2, &v, NULL);
             if (!r) {
@@ -2133,7 +2232,7 @@ static int DoCalRem(ParsePtr p, int col)
         if (trig.typ != PASSTHRU_TYPE &&
             UserFuncExists("calsuffix")==1) {
             char evalBuf[64];
-            sprintf(evalBuf, "calsuffix(%d)", trig.priority);
+            snprintf(evalBuf, sizeof(evalBuf), "calsuffix(%d)", trig.priority);
             s2 = evalBuf;
             r = EvalExpr(&s2, &v, NULL);
             if (!r) {
@@ -2173,6 +2272,7 @@ static int DoCalRem(ParsePtr p, int col)
             FreeTrig(&trig);
             return E_NO_MEM;
         }
+        e->infos = NULL;
         e->nonconst_expr = nonconst_expr;
         e->if_depth = NumIfs;
         e->trig = trig;
@@ -2193,6 +2293,7 @@ static int DoCalRem(ParsePtr p, int col)
         if (!e->text || !e->raw_text) {
             if (e->text) free(e->text);
             if (e->raw_text) free(e->raw_text);
+            FreeTrigInfoChain(e->infos);
             free(e);
             FreeTrig(&trig);
             return E_NO_MEM;
@@ -2206,12 +2307,17 @@ static int DoCalRem(ParsePtr p, int col)
             AppendTag(&(e->tags), SynthesizeTag());
         }
 
+        /* Take over any TrigInfo! */
+        e->infos = trig.infos;
+        trig.infos = NULL;
+
         /* Don't need tags any more */
         FreeTrig(&trig);
         e->duration = tim.duration;
         e->priority = trig.priority;
         e->filename = StrDup(FileName);
         if(!e->filename) {
+            FreeTrigInfoChain(e->infos);
             if (e->text) free(e->text);
             if (e->raw_text) free(e->raw_text);
 #ifdef REM_USE_WCHAR
@@ -2283,6 +2389,41 @@ void WriteJSONTimeTrigger(TimeTrig const *tt)
     }
 }
 
+static void
+WriteJSONInfoChain(TrigInfo *ti)
+{
+    printf("\"info\":{");
+    while (ti) {
+        /* Skanky... */
+        char *colon = (char *) strchr(ti->info, ':');
+        char const *value;
+        if (!colon) {
+            /* Should be impossible... */
+            ti = ti->next;
+            continue;
+        }
+        /* Terminate the string at the colon */
+        *colon = 0;
+
+        value = colon+1;
+        while(*value && isspace(*value)) {
+            value++;
+        }
+        printf("\"");
+        PrintJSONStringLC(ti->info);
+        printf("\":\"");
+        PrintJSONString(value);
+        printf("\"");
+
+        /* Restore the value of the colon */
+        *colon = ':';
+        if (ti->next) {
+            printf(",");
+        }
+        ti = ti->next;
+    }
+    printf("},");
+}
 void WriteJSONTrigger(Trigger const *t, int include_tags, int today)
 {
     /* wd is an array of days from 0=monday to 6=sunday.
@@ -2297,7 +2438,7 @@ void WriteJSONTrigger(Trigger const *t, int include_tags, int today)
                     printf(",");
                 }
                 done = 1;
-                printf("\"%s\"", EnglishDayName[i]);
+                printf("\"%s\"", DayName[i]);
             }
         }
         printf("],");
@@ -2332,7 +2473,7 @@ void WriteJSONTrigger(Trigger const *t, int include_tags, int today)
                     printf(",");
                 }
                 done = 1;
-                printf("\"%s\"", EnglishDayName[i]);
+                printf("\"%s\"", DayName[i]);
             }
         }
         printf("],");
@@ -2374,6 +2515,9 @@ void WriteJSONTrigger(Trigger const *t, int include_tags, int today)
         PrintJSONKeyPairInt("addomit", 1);
     }
     if (include_tags) {
+        if (t->infos) {
+            WriteJSONInfoChain(t->infos);
+        }
         PrintJSONKeyPairString("tags", DBufValue(&(t->tags)));
     }
 }
@@ -2387,6 +2531,9 @@ static void WriteSimpleEntryProtocol2(CalEntry *e, int today)
     }
     PrintJSONKeyPairString("passthru", e->passthru);
     PrintJSONKeyPairString("tags", DBufValue(&(e->tags)));
+    if (e->infos) {
+        WriteJSONInfoChain(e->infos);
+    }
     if (e->duration != NO_TIME) {
         PrintJSONKeyPairInt("duration", e->duration);
     }
@@ -2517,6 +2664,7 @@ static void WriteSimpleEntries(int col, int dse)
         free(e->text);
         free(e->raw_text);
         free(e->filename);
+        FreeTrigInfoChain(e->infos);
 #ifdef REM_USE_WCHAR
         if (e->wc_text) free(e->wc_text);
 #endif
@@ -2677,20 +2825,20 @@ CalendarTime(int tim, int duration)
     else              hh2 = h2;
 
     if (days) {
-        sprintf(daybuf, "+%d", days);
+        snprintf(daybuf, sizeof(daybuf), "+%d", days);
     } else {
         daybuf[0] = 0;
     }
 
     if (h >= 12) {
-        ampm1 = DynamicPm;
+        ampm1 = tr("pm");
     } else {
-        ampm1 = DynamicAm;
+        ampm1 = tr("am");
     }
     if (h2 >= 12) {
-        ampm2 = DynamicPm;
+        ampm2 = tr("pm");
     } else {
-        ampm2 = DynamicAm;
+        ampm2 = tr("am");
     }
     if (!days) {
         if (!strcmp(ampm1, ampm2)) {
@@ -2700,12 +2848,12 @@ CalendarTime(int tim, int duration)
 
     switch(ScFormat) {
     case SC_AMPM:
-        sprintf(buf, "%d%c%02d%s-%d%c%02d%s%s ",
+        snprintf(buf, sizeof(buf), "%d%c%02d%s-%d%c%02d%s%s ",
                 hh, TimeSep, min, ampm1, hh2, TimeSep, min2, ampm2, daybuf);
         break;
 
     case SC_MIL:
-        sprintf(buf, "%02d%c%02d-%02d%c%02d%s ",
+        snprintf(buf, sizeof(buf), "%02d%c%02d-%02d%c%02d%s ",
                 h, TimeSep, min, h2, TimeSep, min2, daybuf);
         break;
     }
@@ -2723,7 +2871,7 @@ CalendarTime(int tim, int duration)
 /***************************************************************/
 char const *SimpleTime(int tim)
 {
-    static char buf[32];
+    static char buf[128];
     int h, min, hh;
 
     buf[0] = 0;
@@ -2737,7 +2885,7 @@ char const *SimpleTime(int tim)
             if (h == 0) hh=12;
             else if (h > 12) hh=h-12;
             else hh=h;
-            sprintf(buf, "%d%c%02d%s ", hh, TimeSep, min, (h>=12) ? DynamicPm : DynamicAm);
+            snprintf(buf, sizeof(buf), "%d%c%02d%.64s ", hh, TimeSep, min, (h>=12) ? tr("pm") : tr("am"));
         }
         break;
 
@@ -2745,7 +2893,7 @@ char const *SimpleTime(int tim)
         if (tim != NO_TIME) {
             h = tim / 60;
             min = tim % 60;
-            sprintf(buf, "%02d%c%02d ", h, TimeSep, min);
+            snprintf(buf, sizeof(buf), "%02d%c%02d ", h, TimeSep, min);
         }
         break;
     }
@@ -2796,8 +2944,11 @@ char const *SynthesizeTag(void)
     static char out[128];
     MD5Init(&ctx);
     MD5Update(&ctx, (unsigned char *) CurLine, strlen(CurLine));
+    MD5Update(&ctx, (unsigned char *) FileName, strlen(FileName));
+    snprintf((char *) buf, sizeof(buf), "%d", LineNo);
+    MD5Update(&ctx, buf, strlen( (char *) buf));
     MD5Final(buf, &ctx);
-    sprintf(out, "__syn__%02x%02x%02x%02x%02x%02x%02x%02x%02x%02x%02x%02x%02x%02x%02x%02x",
+    snprintf(out, sizeof(out), "__syn__%02x%02x%02x%02x%02x%02x%02x%02x%02x%02x%02x%02x%02x%02x%02x%02x",
             (unsigned int) buf[0], (unsigned int) buf[1],
             (unsigned int) buf[2], (unsigned int) buf[3],
             (unsigned int) buf[4], (unsigned int) buf[5],

src/config.h.in

@@ -116,4 +116,4 @@
 /* Define to 1 if your <sys/time.h> declares `struct tm'. */
 #undef TM_IN_SYS_TIME
 
-#include <custom.h>
+#include "custom.h"

src/custom.h

@@ -6,7 +6,7 @@
 /*  which you can customize.                                   */
 /*                                                             */
 /*  This file is part of REMIND.                               */
-/*  Copyright (C) 1992-2024 by Dianne Skoll                    */
+/*  Copyright (C) 1992-2025 by Dianne Skoll                    */
 /*  SPDX-License-Identifier: GPL-2.0-only                      */
 /*                                                             */
 /***************************************************************/

src/custom.h.in

@@ -6,7 +6,7 @@
 /*  which you can customize.                                   */
 /*                                                             */
 /*  This file is part of REMIND.                               */
-/*  Copyright (C) 1992-2024 by Dianne Skoll                    */
+/*  Copyright (C) 1992-2025 by Dianne Skoll                    */
 /*  SPDX-License-Identifier: GPL-2.0-only                      */
 /*                                                             */
 /***************************************************************/

src/dedupe.c

@@ -5,7 +5,7 @@
 /*  Code to suppress duplicate reminders                       */
 /*                                                             */
 /*  This file is part of REMIND.                               */
-/*  Copyright (C) 1992-2024 by Dianne Skoll                    */
+/*  Copyright (C) 1992-2025 by Dianne Skoll                    */
 /*  SPDX-License-Identifier: GPL-2.0-only                      */
 /*                                                             */
 /***************************************************************/
@@ -167,17 +167,13 @@ InitDedupeTable(void)
     if (hash_table_init(&DedupeTable,
                         offsetof(DedupeEntry, link),
                         DedupeHashFunc, CompareDedupes) < 0) {
-        fprintf(stderr, "Unable to initialize function hash table: Out of memory.  Exiting.\n");
+        fprintf(ErrFp, "Unable to initialize function hash table: Out of memory.  Exiting.\n");
         exit(1);
     }
 }
 
 void
-get_dedupe_hash_stats(int *total, int *maxlen, double *avglen)
+dump_dedupe_hash_stats(void)
 {
-    struct hash_table_stats s;
-    hash_table_get_stats(&DedupeTable, &s);
-    *total = s.num_entries;
-    *maxlen = s.max_len;
-    *avglen = s.avg_len;
+    hash_table_dump_stats(&DedupeTable, ErrFp);
 }

src/dorem.c

@@ -7,7 +7,7 @@
 /*  commands.                                                  */
 /*                                                             */
 /*  This file is part of REMIND.                               */
-/*  Copyright (C) 1992-2024 by Dianne Skoll                    */
+/*  Copyright (C) 1992-2025 by Dianne Skoll                    */
 /*  SPDX-License-Identifier: GPL-2.0-only                      */
 /*                                                             */
 /***************************************************************/
@@ -67,18 +67,18 @@ check_trigger_function(char const *fname, char const *type)
     if (!f) {
         if (strcmp(type, "WARN")) {
             /* Undefined WARN functions are diagnosed elsewhere... */
-            Wprint("Undefined %s function: `%s'", type, fname);
+            Wprint(tr("Undefined %s function: `%s'"), type, fname);
         }
         return;
     }
     if (f->nargs != 1) {
-        Wprint("%s function `%s' defined at %s:%d should take 1 argument but actually takes %d", type, fname, f->filename, f->lineno, f->nargs);
+        Wprint(tr("%s function `%s' defined at %s:%d should take 1 argument but actually takes %d"), type, fname, f->filename, f->lineno, f->nargs);
         return;
     }
     if (ensure_expr_references_first_local_arg(f->node)) {
         return;
     }
-    Wprint("%s function `%s' defined at %s:%d does not use its argument", type, fname, f->filename, f->lineno);
+    Wprint(tr("%s function `%s' defined at %s:%d does not use its argument"), type, fname, f->filename, f->lineno);
 }
 
 static void
@@ -154,7 +154,7 @@ static void ensure_satnode_mentions_trigdate(expr_node *node)
         if (node->type == N_CONSTANT) {
             if (node->u.value.type == INT_TYPE) {
                 if (node->u.value.v.val == 0) {
-                    Wprint("SATISFY: constant 0 will never be true");
+                    Wprint(tr("SATISFY: constant 0 will never be true"));
                 }
                 return;
             }
@@ -166,14 +166,14 @@ static void ensure_satnode_mentions_trigdate(expr_node *node)
             str = node->u.name;
         }
         if (!*str) {
-            Wprint("SATISFY: constant \"\" will never be true");
+            Wprint(tr("SATISFY: constant \"\" will never be true"));
         }
         return;
     }
 
     ensure_satnode_mentions_trigdate_aux(node, &mentioned);
     if (!mentioned) {
-        Wprint("SATISFY: expression has no reference to trigdate() or $T...");
+        Wprint(tr("SATISFY: expression has no reference to trigdate() or $T..."));
     }
 }
 
@@ -408,6 +408,7 @@ int ParseRem(ParsePtr s, Trigger *trig, TimeTrig *tim)
     tim->duration = NO_TIME;
     trig->need_wkday = 0;
     trig->adj_for_last = 0;
+    trig->infos = NULL;
 
     int parsing = 1;
     while(parsing) {
@@ -615,7 +616,7 @@ int ParseRem(ParsePtr s, Trigger *trig, TimeTrig *tim)
         case T_Omit:
             DBufFree(&buf);
             if (trig->omitfunc[0]) {
-                Wprint("Warning: OMIT is ignored if you use OMITFUNC");
+                Wprint(tr("Warning: OMIT is ignored if you use OMITFUNC"));
             }
 
             r = ParseLocalOmit(s, trig);
@@ -629,7 +630,7 @@ int ParseRem(ParsePtr s, Trigger *trig, TimeTrig *tim)
 
         case T_OmitFunc:
             if (trig->localomit) {
-                Wprint("Warning: OMIT is ignored if you use OMITFUNC");
+                Wprint(tr("Warning: OMIT is ignored if you use OMITFUNC"));
             }
             r=ParseToken(s, &buf);
             if (r) return r;
@@ -649,6 +650,15 @@ int ParseRem(ParsePtr s, Trigger *trig, TimeTrig *tim)
             DBufFree(&buf);
             break;
 
+        case T_Info:
+            r = ParseQuotedString(s, &buf);
+            if (r != OK) {
+                return r;
+            }
+            r = AppendTrigInfo(trig, DBufValue(&buf));
+            DBufFree(&buf);
+            if (r) return r;
+            break;
         case T_Tag:
             r = ParseToken(s, &buf);
             if (r) return r;
@@ -707,7 +717,7 @@ int ParseRem(ParsePtr s, Trigger *trig, TimeTrig *tim)
             trig->typ = MSG_TYPE;
             if (s->isnested) return E_CANT_NEST_RTYPE;
             if (!WarnedAboutImplicit && !SuppressImplicitRemWarnings) {
-                Wprint("Missing REM type; assuming MSG");
+                Wprint(tr("Missing REM type; assuming MSG"));
                 WarnedAboutImplicit = 1;
             }
             parsing = 0;
@@ -738,22 +748,22 @@ int ParseRem(ParsePtr s, Trigger *trig, TimeTrig *tim)
     if (!s->nonconst_expr) {
         if (trig->y != NO_YR && trig->m != NO_MON && trig->d != NO_DAY && trig->until != NO_UNTIL) {
             if (DSE(trig->y, trig->m, trig->d) > trig->until) {
-                Wprint("Warning: UNTIL/THROUGH date earlier than start date");
+                Wprint(tr("Warning: UNTIL/THROUGH date earlier than start date"));
             }
         }
         if (trig->from != NO_DATE) {
             if (trig->until != NO_UNTIL && trig->until < trig->from) {
-                Wprint("Warning: UNTIL/THROUGH date earlier than FROM date");
+                Wprint(tr("Warning: UNTIL/THROUGH date earlier than FROM date"));
             }
         } else if (trig->scanfrom != NO_DATE) {
             if (trig->until != NO_UNTIL && trig->until < trig->scanfrom) {
-                Wprint("Warning: UNTIL/THROUGH date earlier than SCANFROM date");
+                Wprint(tr("Warning: UNTIL/THROUGH date earlier than SCANFROM date"));
             }
         }
     }
 
     if (trig->y != NO_YR && trig->m != NO_MON && trig->d != NO_DAY && trig->until != NO_UNTIL && trig->rep == NO_REP) {
-        Wprint("Warning: Useless use of UNTIL with fully-specified date and no *rep");
+        Wprint(tr("Warning: Useless use of UNTIL with fully-specified date and no *rep"));
     }
 
     /* Set scanfrom to default if not set explicitly */
@@ -1180,7 +1190,7 @@ int TriggerReminder(ParsePtr p, Trigger *t, TimeTrig *tim, int dse, int is_queue
             return OK;
         }
         FromDSE(dse, &y, &m, &d);
-        sprintf(tmpBuf, "%04d/%02d/%02d ", y, m+1, d);
+        snprintf(tmpBuf, sizeof(tmpBuf), "%04d/%02d/%02d ", y, m+1, d);
         if (DBufPuts(&calRow, tmpBuf) != OK) {
             DBufFree(&calRow);
             DBufFree(&pre_buf);
@@ -1201,9 +1211,9 @@ int TriggerReminder(ParsePtr p, Trigger *t, TimeTrig *tim, int dse, int is_queue
                 DBufPuts(&calRow, "* ");
             }
             if (tim->duration != NO_TIME) {
-                sprintf(tmpBuf, "%d ", tim->duration);
+                snprintf(tmpBuf, sizeof(tmpBuf), "%d ", tim->duration);
             } else {
-                sprintf(tmpBuf, "* ");
+                snprintf(tmpBuf, sizeof(tmpBuf), "* ");
             }
             if (DBufPuts(&calRow, tmpBuf) != OK) {
                 DBufFree(&calRow);
@@ -1211,9 +1221,9 @@ int TriggerReminder(ParsePtr p, Trigger *t, TimeTrig *tim, int dse, int is_queue
                 return E_NO_MEM;
             }
             if (tim->ttime != NO_TIME) {
-                sprintf(tmpBuf, "%d ", tim->ttime);
+                snprintf(tmpBuf, sizeof(tmpBuf), "%d ", tim->ttime);
             } else {
-                sprintf(tmpBuf, "* ");
+                snprintf(tmpBuf, sizeof(tmpBuf), "* ");
             }
             if (DBufPuts(&calRow, tmpBuf) != OK) {
                 DBufFree(&calRow);
@@ -1263,7 +1273,7 @@ int TriggerReminder(ParsePtr p, Trigger *t, TimeTrig *tim, int dse, int is_queue
     /* Don't use msgprefix() on RUN-type reminders */
     if (t->typ != RUN_TYPE) {
         if (UserFuncExists("msgprefix") == 1) {
-            sprintf(PrioExpr, "msgprefix(%d)", t->priority);
+            snprintf(PrioExpr, sizeof(PrioExpr), "msgprefix(%d)", t->priority);
             s = PrioExpr;
             r = EvalExpr(&s, &v, NULL);
             if (!r) {
@@ -1289,7 +1299,7 @@ int TriggerReminder(ParsePtr p, Trigger *t, TimeTrig *tim, int dse, int is_queue
 
     if (t->typ != RUN_TYPE) {
         if (UserFuncExists("msgsuffix") == 1) {
-            sprintf(PrioExpr, "msgsuffix(%d)", t->priority);
+            snprintf(PrioExpr, sizeof(PrioExpr), "msgsuffix(%d)", t->priority);
             s = PrioExpr;
             r = EvalExpr(&s, &v, NULL);
             if (!r) {
@@ -1694,7 +1704,7 @@ static int ShouldTriggerBasedOnWarn(Trigger *t, int dse, int *err)
         return (dse == DSEToday);
     }
     for (i=1; ; i++) {
-        sprintf(buffer, "%s(%d)", t->warn, i);
+        snprintf(buffer, sizeof(buffer), "%s(%d)", t->warn, i);
         s = buffer;
         r = EvalExpr(&s, &v, NULL);
         if (r) {

src/dosubst.c

@@ -6,7 +6,7 @@
 /*  reminders are triggered.                                   */
 /*                                                             */
 /*  This file is part of REMIND.                               */
-/*  Copyright (C) 1992-2024 by Dianne Skoll                    */
+/*  Copyright (C) 1992-2025 by Dianne Skoll                    */
 /*  SPDX-License-Identifier: GPL-2.0-only                      */
 /*                                                             */
 /***************************************************************/
@@ -40,7 +40,7 @@ check_subst_args(UserFunc *f, int n)
     if (f->nargs == n) {
         return 1;
     }
-    Wprint("Function `%s' defined at %s:%d should take %d argument%s, but actually takes %d",
+    Wprint(tr("Function `%s' defined at %s:%d should take %d argument%s, but actually takes %d"),
            f->name, f->filename, f->lineno, n, (n == 1 ? "" : "s"), f->nargs);
     return 0;
 }
@@ -96,7 +96,7 @@ int DoSubst(ParsePtr p, DynamicBuffer *dbuf, Trigger *t, TimeTrig *tt, int dse,
     mplu = (mdiff == 1 ? "" : DynamicMplu);
     hplu = (hdiff == 1 ? "" : DynamicHplu);
 
-    when = (tdiff < 0) ? DynamicAgo : DynamicFromnow;
+    when = (tdiff < 0) ? tr("ago") : tr("from now");
 
     h = tim / 60;
     min = tim % 60;
@@ -120,7 +120,7 @@ int DoSubst(ParsePtr p, DynamicBuffer *dbuf, Trigger *t, TimeTrig *tt, int dse,
         }
     }
     if (r != OK) {
-        pm = (h < 12) ? DynamicAm : DynamicPm;
+        pm = (h < 12) ? tr("am") : tr("pm");
     }
 
     hh = (h == 12) ? 12 : h % 12;
@@ -147,7 +147,7 @@ int DoSubst(ParsePtr p, DynamicBuffer *dbuf, Trigger *t, TimeTrig *tt, int dse,
         }
     }
     if (r != OK) {
-        cpm = (h < 12) ? DynamicAm : DynamicPm;
+        cpm = (h < 12) ? tr("am") : tr("pm");
     }
     chh = (ch == 12) ? 12 : ch % 12;
 
@@ -215,6 +215,39 @@ int DoSubst(ParsePtr p, DynamicBuffer *dbuf, Trigger *t, TimeTrig *tt, int dse,
         if (!c) {
             break;
         }
+        if (c == '(') {
+            DynamicBuffer orig;
+            DynamicBuffer translated;
+            DBufInit(&orig);
+            DBufInit(&translated);
+            while(1) {
+                c = ParseChar(p, &err, 0);
+                if (err) {
+                    DBufFree(&orig);
+                    return err;
+                }
+                if (!c || c == ')') {
+                    break;
+                }
+                DBufPutc(&orig, c);
+            }
+            if (!c) {
+                Wprint(tr("Warning: Unterminated %%(...) substitution sequence"));
+            }
+            err = OK;
+            if (GetTranslatedStringTryingVariants(DBufValue(&orig), &translated)) {
+                err = DBufPuts(dbuf, DBufValue(&translated));
+            } else {
+                err = DBufPuts(dbuf, DBufValue(&orig));
+            }
+            if (DebugFlag & DB_TRANSLATE) {
+                TranslationTemplate(DBufValue(&orig));
+            }
+            DBufFree(&orig);
+            DBufFree(&translated);
+            if (err) return err;
+            continue;
+        }
         if (c == '*') {
             altmode = c;
             c = ParseChar(p, &err, 0);
@@ -245,11 +278,11 @@ int DoSubst(ParsePtr p, DynamicBuffer *dbuf, Trigger *t, TimeTrig *tt, int dse,
                 }
             }
             if (!c) {
-                Wprint("Warning: Unterminated %%{...} substitution sequence");
+                Wprint(tr("Warning: Unterminated %%{...} substitution sequence"));
             }
             func = FindUserFunc(s);
             if (!func) {
-                Wprint("No substition function `%s' defined", s);
+                Wprint(tr("No substition function `%s' defined"), s);
                 continue;
             }
 
@@ -311,7 +344,7 @@ int DoSubst(ParsePtr p, DynamicBuffer *dbuf, Trigger *t, TimeTrig *tt, int dse,
             case 'L':
             case 'U':
             case 'V':
-                snprintf(s, sizeof(s), "%s", (diff ? DynamicTomorrow: DynamicToday));
+                snprintf(s, sizeof(s), "%s", (diff ? tr("tomorrow") : tr("today")));
                 SHIP_OUT(s);
                 done = 1;
                 break;
@@ -347,11 +380,11 @@ int DoSubst(ParsePtr p, DynamicBuffer *dbuf, Trigger *t, TimeTrig *tt, int dse,
             }
             switch(UPPER(c)) {
             case 'A':
-                if (altmode == '*' || !strcmp(DynamicOn, "")) {
+                if (altmode == '*' || !strcmp(tr("on"), "")) {
                     snprintf(s, sizeof(s), "%s, %d %s, %d", get_day_name(dse%7), d,
                              get_month_name(m), y);
                 } else {
-                    snprintf(s, sizeof(s), "%s %s, %d %s, %d", DynamicOn, get_day_name(dse%7), d,
+                    snprintf(s, sizeof(s), "%s %s, %d %s, %d", tr("on"), get_day_name(dse%7), d,
                              get_month_name(m), y);
                 }
                 SHIP_OUT(s);
@@ -363,10 +396,10 @@ int DoSubst(ParsePtr p, DynamicBuffer *dbuf, Trigger *t, TimeTrig *tt, int dse,
                 break;
 
             case 'C':
-                if (altmode == '*' || !strcmp(DynamicOn, "")) {
+                if (altmode == '*' || !strcmp(tr("on"), "")) {
                     snprintf(s, sizeof(s), "%s", get_day_name(dse%7));
                 } else {
-                    snprintf(s, sizeof(s), "%s %s", DynamicOn, get_day_name(dse%7));
+                    snprintf(s, sizeof(s), "%s %s", tr("on"), get_day_name(dse%7));
                 }
                 SHIP_OUT(s);
                 break;
@@ -377,79 +410,79 @@ int DoSubst(ParsePtr p, DynamicBuffer *dbuf, Trigger *t, TimeTrig *tt, int dse,
                 break;
 
             case 'E':
-                if (altmode == '*' || !strcmp(DynamicOn, "")) {
+                if (altmode == '*' || !strcmp(tr("on"), "")) {
                     snprintf(s, sizeof(s), "%02d%c%02d%c%04d", d, DateSep,
                              m+1, DateSep, y);
                 } else {
-                    snprintf(s, sizeof(s), "%s %02d%c%02d%c%04d", DynamicOn, d, DateSep,
+                    snprintf(s, sizeof(s), "%s %02d%c%02d%c%04d", tr("on"), d, DateSep,
                              m+1, DateSep, y);
                 }
                 SHIP_OUT(s);
                 break;
 
             case 'F':
-                if (altmode == '*' || !strcmp(DynamicOn, "")) {
+                if (altmode == '*' || !strcmp(tr("on"), "")) {
                     snprintf(s, sizeof(s), "%02d%c%02d%c%04d", m+1, DateSep, d, DateSep, y);
                 } else {
-                    snprintf(s, sizeof(s), "%s %02d%c%02d%c%04d", DynamicOn, m+1, DateSep, d, DateSep, y);
+                    snprintf(s, sizeof(s), "%s %02d%c%02d%c%04d", tr("on"), m+1, DateSep, d, DateSep, y);
                 }
                 SHIP_OUT(s);
                 break;
 
             case 'G':
-                if (altmode == '*' || !strcmp(DynamicOn, "")) {
+                if (altmode == '*' || !strcmp(tr("on"), "")) {
                     snprintf(s, sizeof(s), "%s, %d %s", get_day_name(dse%7), d, get_month_name(m));
                 } else {
-                    snprintf(s, sizeof(s), "%s %s, %d %s", DynamicOn, get_day_name(dse%7), d, get_month_name(m));
+                    snprintf(s, sizeof(s), "%s %s, %d %s", tr("on"), get_day_name(dse%7), d, get_month_name(m));
                 }
                 SHIP_OUT(s);
                 break;
 
             case 'H':
-                if (altmode == '*' || !strcmp(DynamicOn, "")) {
+                if (altmode == '*' || !strcmp(tr("on"), "")) {
                     snprintf(s, sizeof(s), "%02d%c%02d", d, DateSep, m+1);
                 } else {
-                    snprintf(s, sizeof(s), "%s %02d%c%02d", DynamicOn, d, DateSep, m+1);
+                    snprintf(s, sizeof(s), "%s %02d%c%02d", tr("on"), d, DateSep, m+1);
                 }
                 SHIP_OUT(s);
                 break;
 
             case 'I':
-                if (altmode == '*' || !strcmp(DynamicOn, "")) {
+                if (altmode == '*' || !strcmp(tr("on"), "")) {
                     snprintf(s, sizeof(s), "%02d%c%02d", m+1, DateSep, d);
                 } else {
-                    snprintf(s, sizeof(s), "%s %02d%c%02d", DynamicOn, m+1, DateSep, d);
+                    snprintf(s, sizeof(s), "%s %02d%c%02d", tr("on"), m+1, DateSep, d);
                 }
                 SHIP_OUT(s);
                 break;
 
             case 'J':
-                if (altmode == '*' || !strcmp(DynamicOn, "")) {
+                if (altmode == '*' || !strcmp(tr("on"), "")) {
                     snprintf(s, sizeof(s), "%s, %s %d%s, %d", get_day_name(dse%7),
                              get_month_name(m), d, plu, y);
                 } else {
-                    snprintf(s, sizeof(s), "%s %s, %s %d%s, %d", DynamicOn, get_day_name(dse%7),
+                    snprintf(s, sizeof(s), "%s %s, %s %d%s, %d", tr("on"), get_day_name(dse%7),
                              get_month_name(m), d, plu, y);
                 }
                 SHIP_OUT(s);
                 break;
 
             case 'K':
-                if (altmode == '*' || !strcmp(DynamicOn, "")) {
+                if (altmode == '*' || !strcmp(tr("on"), "")) {
                     snprintf(s, sizeof(s), "%s, %s %d%s", get_day_name(dse%7),
                              get_month_name(m), d, plu);
                 } else {
-                    snprintf(s, sizeof(s), "%s %s, %s %d%s", DynamicOn, get_day_name(dse%7),
+                    snprintf(s, sizeof(s), "%s %s, %s %d%s", tr("on"), get_day_name(dse%7),
                              get_month_name(m), d, plu);
                 }
                 SHIP_OUT(s);
                 break;
 
             case 'L':
-                if (altmode == '*' || !strcmp(DynamicOn, "")) {
+                if (altmode == '*' || !strcmp(tr("on"), "")) {
                     snprintf(s, sizeof(s), "%04d%c%02d%c%02d", y, DateSep, m+1, DateSep, d);
                 } else {
-                    snprintf(s, sizeof(s), "%s %04d%c%02d%c%02d", DynamicOn, y, DateSep, m+1, DateSep, d);
+                    snprintf(s, sizeof(s), "%s %04d%c%02d%c%02d", tr("on"), y, DateSep, m+1, DateSep, d);
                 }
                 SHIP_OUT(s);
                 break;
@@ -465,7 +498,7 @@ int DoSubst(ParsePtr p, DynamicBuffer *dbuf, Trigger *t, TimeTrig *tt, int dse,
                 break;
 
             case 'O':
-                if (RealToday == DSEToday) snprintf(s, sizeof(s), " (%s)", DynamicToday);
+                if (RealToday == DSEToday) snprintf(s, sizeof(s), " (%s)", tr("today"));
                 else *s = 0;
                 SHIP_OUT(s);
                 break;
@@ -496,22 +529,22 @@ int DoSubst(ParsePtr p, DynamicBuffer *dbuf, Trigger *t, TimeTrig *tt, int dse,
                 break;
 
             case 'U':
-                if (altmode == '*' || !strcmp(DynamicOn, "")) {
+                if (altmode == '*' || !strcmp(tr("on"), "")) {
                     snprintf(s, sizeof(s), "%s, %d%s %s, %d", get_day_name(dse%7), d,
                              plu, get_month_name(m), y);
                 } else {
-                    snprintf(s, sizeof(s), "%s %s, %d%s %s, %d", DynamicOn, get_day_name(dse%7), d,
+                    snprintf(s, sizeof(s), "%s %s, %d%s %s, %d", tr("on"), get_day_name(dse%7), d,
                              plu, get_month_name(m), y);
                 }
                 SHIP_OUT(s);
                 break;
 
             case 'V':
-                if (altmode == '*' || !strcmp(DynamicOn, "")) {
+                if (altmode == '*' || !strcmp(tr("on"), "")) {
                     snprintf(s, sizeof(s), "%s, %d%s %s", get_day_name(dse%7), d, plu,
                              get_month_name(m));
                 } else {
-                    snprintf(s, sizeof(s), "%s %s, %d%s %s", DynamicOn, get_day_name(dse%7), d, plu,
+                    snprintf(s, sizeof(s), "%s %s, %d%s %s", tr("on"), get_day_name(dse%7), d, plu,
                              get_month_name(m));
                 }
                 SHIP_OUT(s);
@@ -539,14 +572,14 @@ int DoSubst(ParsePtr p, DynamicBuffer *dbuf, Trigger *t, TimeTrig *tt, int dse,
 
             case '1':
                 if (tdiff == 0)
-                    snprintf(s, sizeof(s), "%s", DynamicNow);
+                    snprintf(s, sizeof(s), "%s", tr("now"));
                 else if (hdiff == 0)
-                    snprintf(s, sizeof(s), "%d %s%s %s", mdiff, DynamicMinute, mplu, when);
+                    snprintf(s, sizeof(s), "%d %s%s %s", mdiff, tr("minute"), mplu, when);
                 else if (mdiff == 0)
-                    snprintf(s, sizeof(s), "%d %s%s %s", hdiff, DynamicHour, hplu, when);
+                    snprintf(s, sizeof(s), "%d %s%s %s", hdiff, tr("hour"), hplu, when);
                 else
-                    snprintf(s, sizeof(s), "%d %s%s %s %d %s%s %s", hdiff, DynamicHour, hplu,
-                             DynamicAnd, mdiff, DynamicMinute, mplu, when);
+                    snprintf(s, sizeof(s), "%d %s%s %s %d %s%s %s", hdiff, tr("hour"), hplu,
+                             tr("and"), mdiff, tr("minute"), mplu, when);
                 SHIP_OUT(s);
                 break;
 
@@ -554,7 +587,7 @@ int DoSubst(ParsePtr p, DynamicBuffer *dbuf, Trigger *t, TimeTrig *tt, int dse,
                 if (altmode == '*') {
                     snprintf(s, sizeof(s), "%d%c%02d%s", hh, TimeSep, min, pm);
                 } else {
-                    snprintf(s, sizeof(s), "%s %d%c%02d%s", DynamicAt, hh, TimeSep, min, pm);
+                    snprintf(s, sizeof(s), "%s %d%c%02d%s", tr("at"), hh, TimeSep, min, pm);
                 }
                 SHIP_OUT(s);
                 break;
@@ -563,7 +596,7 @@ int DoSubst(ParsePtr p, DynamicBuffer *dbuf, Trigger *t, TimeTrig *tt, int dse,
                 if (altmode == '*') {
                     snprintf(s, sizeof(s), "%02d%c%02d", h, TimeSep, min);
                 } else {
-                    snprintf(s, sizeof(s), "%s %02d%c%02d", DynamicAt, h, TimeSep, min);
+                    snprintf(s, sizeof(s), "%s %02d%c%02d", tr("at"), h, TimeSep, min);
                 }
                 SHIP_OUT(s);
                 break;
@@ -604,7 +637,7 @@ int DoSubst(ParsePtr p, DynamicBuffer *dbuf, Trigger *t, TimeTrig *tt, int dse,
                 break;
 
             case '!':
-                snprintf(s, sizeof(s), "%s", (tdiff >= 0 ? DynamicIs : DynamicWas));
+                snprintf(s, sizeof(s), "%s", (tdiff >= 0 ? tr("is") : tr("was")));
                 SHIP_OUT(s);
                 break;
 

src/dynbuf.c

@@ -6,7 +6,7 @@
 /*  buffers.                                                   */
 /*                                                             */
 /*  This file is part of REMIND.                               */
-/*  Copyright (C) 1992-2024 by Dianne Skoll                    */
+/*  Copyright (C) 1992-2025 by Dianne Skoll                    */
 /*  SPDX-License-Identifier: GPL-2.0-only                      */
 /*                                                             */
 /***************************************************************/

src/dynbuf.h

@@ -5,7 +5,7 @@
 /*  Declaration of functions for manipulating dynamic buffers  */
 /*                                                             */
 /*  This file is part of REMIND.                               */
-/*  Copyright (C) 1992-2024 by Dianne Skoll                    */
+/*  Copyright (C) 1992-2025 by Dianne Skoll                    */
 /*  SPDX-License-Identifier: GPL-2.0-only                      */
 /*                                                             */
 /***************************************************************/

src/err.h

@@ -5,7 +5,7 @@
 /*  Error definitions.                                         */
 /*                                                             */
 /*  This file is part of REMIND.                               */
-/*  Copyright (C) 1992-2024 by Dianne Skoll                    */
+/*  Copyright (C) 1992-2025 by Dianne Skoll                    */
 /*  SPDX-License-Identifier: GPL-2.0-only                      */
 /*                                                             */
 /***************************************************************/
@@ -230,20 +230,20 @@ EXTERN char *ErrMsg[]
 /* E_EXPIRED */           "Expired",
 /* E_CANTFORK */          "fork() failed - can't do queued reminders",
 /* E_CANTACCESS */        "Can't access file",
-/* M_BAD_SYS_DATE */      "Illegal system date: Year is less than %d\n",
-/* M_BAD_DB_FLAG */       "Unknown debug flag '%c'\n",
-/* M_BAD_OPTION */        "Unknown option '%c'\n",
-/* M_BAD_USER */          "Unknown user '%s'\n",
-/* M_NO_CHG_GID */        "Could not change gid to %d\n",
-/* M_NO_CHG_UID */        "Could not change uid to %d\n",
-/* M_NOMEM_ENV */         "Out of memory for environment\n",
+/* M_BAD_SYS_DATE */      "Illegal system date: Year is less than %d",
+/* M_BAD_DB_FLAG */       "Unknown debug flag '%c'",
+/* M_BAD_OPTION */        "Unknown option '%c'",
+/* M_BAD_USER */          "Unknown user '%s'",
+/* M_NO_CHG_GID */        "Could not change gid to %d",
+/* M_NO_CHG_UID */        "Could not change uid to %d",
+/* M_NOMEM_ENV */         "Out of memory for environment",
 /* E_MISS_EQ */           "Missing '=' sign",
 /* E_MISS_VAR */          "Missing variable name",
 /* E_MISS_EXPR */         "Missing expression",
 /* M_CANTSET_ACCESS */    "",
-/* M_I_OPTION */          "Remind: '-i' option: %s\n",
+/* M_I_OPTION */          "Remind: '-i' option: %s",
 /* E_NOREMINDERS */       "No reminders.",
-/* M_QUEUED */            "%d reminder(s) queued for later today.\n",
+/* M_QUEUED */            "%d reminder(s) queued for later today.",
 /* E_EXPECTING_NUMBER */  "Expecting number",
 /* M_BAD_WARN_FUNC */     "Undefined WARN function",
 /* E_CANT_CONVERT_TZ */   "Can't convert between time zones",

src/expr.c

@@ -12,7 +12,7 @@
 /*     evaluated.                                              */
 /*                                                             */
 /*  This file is part of REMIND.                               */
-/*  Copyright (C) 1992-2024 by Dianne Skoll                    */
+/*  Copyright (C) 1992-2025 by Dianne Skoll                    */
 /*  SPDX-License-Identifier: GPL-2.0-only                      */
 /*                                                             */
 /***************************************************************/
@@ -199,6 +199,46 @@ static UserFunc *CurrentUserFunc = NULL;
 /* How many expr_node objects to allocate at a time */
 #define ALLOC_CHUNK 64
 
+static char const *
+find_end_of_expr(char const *s)
+{
+    char const *e = s;
+    int in_quoted_string = 0;
+    int escaped = 0;
+
+    while(*e) {
+        if (in_quoted_string) {
+            if (escaped) {
+                escaped = 0;
+                e++;
+                continue;
+            }
+            if (*e == '\\') {
+                escaped = 1;
+                e++;
+                continue;
+            }
+            if (*e == '"') {
+                in_quoted_string = 0;
+                e++;
+                continue;
+            }
+            e++;
+            continue;
+        }
+        if (*e == '"') {
+            in_quoted_string = 1;
+            e++;
+            continue;
+        }
+        if (*e == ']') {
+            break;
+        }
+        e++;
+    }
+    return e;
+}
+
 /***************************************************************/
 /*                                                             */
 /* alloc_expr_node - allocate an expr_node object              */
@@ -1506,6 +1546,8 @@ static int parse_expr_token(DynamicBuffer *buf, char const **in)
 {
 
     char c;
+    char c2;
+    char hexbuf[3];
 
     DBufFree(buf);
 
@@ -1541,7 +1583,7 @@ static int parse_expr_token(DynamicBuffer *buf, char const **in)
             }
             (*in)++;
         } else {
-            Eprint("%s `%c' (did you mean `%c%c'?)", GetErr(E_PARSE_ERR), c, c, c);
+            Eprint("%s `%c' (%s `%c%c'?)", GetErr(E_PARSE_ERR), c, tr("did you mean"), c, c);
             return E_PARSE_ERR;
         }
         return OK;
@@ -1593,8 +1635,32 @@ static int parse_expr_token(DynamicBuffer *buf, char const **in)
                 case 'v':
                     r = DBufPutc(buf, '\v');
                     break;
+                case 'x':
+                    c2 = *(*in + 1);
+                    if (!isxdigit(c2)) {
+                        r = DBufPutc(buf, **in);
+                        break;
+                    }
+                    hexbuf[0] = c2;
+                    hexbuf[1] = 0;
+                    (*in)++;
+                    c2 = *(*in + 1);
+                    if (isxdigit(c2)) {
+                        hexbuf[1] = c2;
+                        hexbuf[2] = 0;
+                        (*in)++;
+                    }
+                    c2 = (int) strtol(hexbuf, NULL, 16);
+                    if (!c2) {
+                        Eprint(tr("\\x00 is not a valid escape sequence"));
+                        r = E_PARSE_ERR;
+                    } else {
+                        r = DBufPutc(buf, c2);
+                    }
+                    break;
                 default:
                     r = DBufPutc(buf, **in);
+                    break;
                 }
                 (*in)++;
                 if (r != OK) {
@@ -1837,8 +1903,8 @@ static expr_node * parse_function_call(char const **e, int *r, Var *locals, int
             }
         }
     }
+    ptr = *e;
     if (TOKEN_IS(")")) {
-        ptr = *e;
         *r = GET_TOKEN();
         if (*r != OK) {
             return free_expr_tree(node);
@@ -2137,6 +2203,7 @@ static expr_node *parse_atom(char const **e, int *r, Var *locals, int level)
     }
 
     /* It's a constant or a variable reference */
+    char const *olds = *e;
     *r = GET_TOKEN();
     if (*r != OK) return NULL;
     node = alloc_expr_node(r);
@@ -2145,6 +2212,8 @@ static expr_node *parse_atom(char const **e, int *r, Var *locals, int level)
     }
     *r = make_atom(node, locals);
     if (*r != OK) {
+        /* Preserve location for error position when we print ^-- here */
+        *e = olds;
         return free_expr_tree(node);
     }
     return node;
@@ -2498,6 +2567,7 @@ expr_node *parse_expression(char const **e, int *r, Var *locals)
 {
     char const *orig = *e;
     char const *o2 = *e;
+    char const *end_of_expr;
     if (ExpressionEvaluationDisabled) {
         *r = E_EXPR_DISABLED;
         return NULL;
@@ -2529,25 +2599,29 @@ expr_node *parse_expression(char const **e, int *r, Var *locals)
         *r == E_2FEW_ARGS        ||
         *r == E_PARSE_ERR        ||
         *r == E_EOLN             ||
+        *r == E_BAD_NUMBER       ||
+        *r == E_BAD_DATE         ||
+        *r == E_BAD_TIME         ||
         *r == E_ILLEGAL_CHAR) {
-        orig = o2;
-        while (*orig) {
+        end_of_expr = find_end_of_expr(orig);
+        while (**e && isempty(**e)) {
+            (*e)++;
+        }
+        while (*orig && ((orig < end_of_expr) || (orig <= *e))) {
             if (*orig == '\n') {
                 fprintf(ErrFp, " ");
-                orig++;
-            } else if (*orig == ']' && ! *(orig+1)) {
-                break;
             } else {
-                fprintf(ErrFp, "%c", *orig++);
+                fprintf(ErrFp, "%c", *orig);
             }
+            orig++;
         }
         fprintf(ErrFp, "\n");
         orig = o2;
-        while ((orig < *e) && *orig) {
+        while (*orig && (orig < *e || isspace(*orig))) {
             orig++;
             fprintf(ErrFp, " ");
         }
-        fprintf(ErrFp, "^-- here\n");
+        fprintf(ErrFp, "^-- %s\n", tr("here"));
     }
     return node;
 }
@@ -2966,12 +3040,12 @@ int DoCoerce(char type, Value *v)
         }
     case STR_TYPE:
         switch(v->type) {
-        case INT_TYPE: sprintf(coerce_buf, "%d", v->v.val); break;
-        case TIME_TYPE: sprintf(coerce_buf, "%02d%c%02d", v->v.val / 60,
+        case INT_TYPE: snprintf(coerce_buf, sizeof(coerce_buf), "%d", v->v.val); break;
+        case TIME_TYPE: snprintf(coerce_buf, sizeof(coerce_buf), "%02d%c%02d", v->v.val / 60,
                                TimeSep, v->v.val % 60);
         break;
         case DATE_TYPE: FromDSE(v->v.val, &y, &m, &d);
-            sprintf(coerce_buf, "%04d%c%02d%c%02d",
+            snprintf(coerce_buf, sizeof(coerce_buf), "%04d%c%02d%c%02d",
                     y, DateSep, m+1, DateSep, d);
             break;
         case DATETIME_TYPE:
@@ -2980,7 +3054,7 @@ int DoCoerce(char type, Value *v)
             k = v->v.val % MINUTES_PER_DAY;
             h = k / 60;
             i = k % 60;
-            sprintf(coerce_buf, "%04d%c%02d%c%02d%c%02d%c%02d",
+            snprintf(coerce_buf, sizeof(coerce_buf), "%04d%c%02d%c%02d%c%02d%c%02d",
                     y, DateSep, m+1, DateSep, d, DateTimeSep, h, TimeSep, i);
             break;
         default: return E_CANT_COERCE;
@@ -3088,10 +3162,10 @@ int DoCoerce(char type, Value *v)
 /***************************************************************/
 void print_expr_nodes_stats(void)
 {
-    fprintf(stderr, " Expression nodes allocated: %d\n", ExprNodesAllocated);
-    fprintf(stderr, "Expression nodes high-water: %d\n", ExprNodesHighWater);
-    fprintf(stderr, "    Expression nodes leaked: %d\n", ExprNodesUsed);
-    fprintf(stderr, "     Parse level high-water: %d\n", parse_level_high_water);
+    fprintf(ErrFp, " Expression nodes allocated: %d\n", ExprNodesAllocated);
+    fprintf(ErrFp, "Expression nodes high-water: %d\n", ExprNodesHighWater);
+    fprintf(ErrFp, "    Expression nodes leaked: %d\n", ExprNodesUsed);
+    fprintf(ErrFp, "     Parse level high-water: %d\n", parse_level_high_water);
 }
 
 /* Return 1 if a value is "true" for its type, 0 if "false" */

src/files.c

@@ -7,7 +7,7 @@
 /*  files.                                                     */
 /*                                                             */
 /*  This file is part of REMIND.                               */
-/*  Copyright (C) 1992-2024 by Dianne Skoll                    */
+/*  Copyright (C) 1992-2025 by Dianne Skoll                    */
 /*  SPDX-License-Identifier: GPL-2.0-only                      */
 /*                                                             */
 /***************************************************************/
@@ -145,7 +145,8 @@ static void OpenPurgeFile(char const *fname, char const *mode)
     if (DBufPuts(&fname_buf, ".purged") != OK) return;
     PurgeFP = fopen(DBufValue(&fname_buf), mode);
     if (!PurgeFP) {
-        fprintf(ErrFp, "Cannot open `%s' for writing: %s\n", DBufValue(&fname_buf), strerror(errno));
+        fprintf(ErrFp, tr("Cannot open `%s' for writing: %s"), DBufValue(&fname_buf), strerror(errno));
+        fprintf(ErrFp, "\n");
     }
     set_cloexec(PurgeFP);
     DBufFree(&fname_buf);
@@ -325,7 +326,8 @@ int OpenFile(char const *fname)
     while (h) {
         if (!strcmp(fname, h->filename)) {
             if (DebugFlag & DB_TRACE_FILES) {
-                fprintf(ErrFp, "Reading `%s': Found in cache\n", fname);
+                fprintf(ErrFp, tr("Reading `%s': Found in cache"), fname);
+                fprintf(ErrFp, "\n");
             }
             CLine = h->cache;
             STRSET(FileName, fname);
@@ -348,13 +350,14 @@ int OpenFile(char const *fname)
             PurgeFP = stdout;
         }
         if (DebugFlag & DB_TRACE_FILES) {
-            fprintf(ErrFp, "Reading `-': Reading stdin\n");
+            fprintf(ErrFp, "%s\n", tr("Reading `-': Reading stdin"));
         }
     } else {
         fp = fopen(fname, "r");
         set_cloexec(fp);
         if (DebugFlag & DB_TRACE_FILES) {
-            fprintf(ErrFp, "Reading `%s': Opening file on disk\n", fname);
+            fprintf(ErrFp, tr("Reading `%s': Opening file on disk"), fname);
+            fprintf(ErrFp, "\n");
         }
         if (PurgeMode) {
             OpenPurgeFile(fname, "w");
@@ -401,7 +404,8 @@ static int CacheFile(char const *fname, int use_pclose)
     char const *s;
 
     if (DebugFlag & DB_TRACE_FILES) {
-        fprintf(ErrFp, "Caching file `%s' in memory\n", fname);
+        fprintf(ErrFp, tr("Caching file `%s' in memory"), fname);
+        fprintf(ErrFp, "\n");
     }
     cl = NULL;
 /* Create a file header */
@@ -539,7 +543,8 @@ static int PopFile(void)
     if (!Hush && NumIfs) {
         Eprint("%s", GetErr(E_MISS_ENDIF));
         for (j=NumIfs-1; j >=0; j--) {
-            fprintf(ErrFp, "%s(%d): IF without ENDIF\n", FileName, IfLinenos[j]);
+            fprintf(ErrFp, tr("%s(%d): IF without ENDIF"), FileName, IfLinenos[j]);
+            fprintf(ErrFp, "\n");
         }
     }
     if (!IStackPtr) return E_EOF;
@@ -608,16 +613,25 @@ int DoInclude(ParsePtr p, enum TokTypes tok)
     DBufInit(&buf);
     DBufInit(&fullname);
     DBufInit(&path);
-    if ( (r=ParseToken(p, &buf)) ) return r;
+    if ( (r=ParseTokenOrQuotedString(p, &buf)) ) return r;
     e = VerifyEoln(p);
     if (e) Eprint("%s", GetErr(e));
 
-    if (tok == T_IncludeR && *(DBufValue(&buf)) != '/') {
+    if ((tok == T_IncludeR || tok == T_IncludeSys) &&
+        *(DBufValue(&buf)) != '/') {
         /* Relative include: Include relative to dir
            containing current file */
-        if (DBufPuts(&path, FileName) != OK) {
-            r = E_NO_MEM;
-            goto bailout;
+        if (tok == T_IncludeR) {
+            if (DBufPuts(&path, FileName) != OK) {
+                r = E_NO_MEM;
+                goto bailout;
+            }
+        } else {
+            if (DBufPuts(&path, SysDir) != OK ||
+                DBufPutc(&path, '/') != OK) {
+                r = E_NO_MEM;
+                goto bailout;
+            }
         }
         if (DBufLen(&path) == 0) {
             s = DBufValue(&buf);
@@ -650,9 +664,6 @@ int DoInclude(ParsePtr p, enum TokTypes tok)
         goto bailout;
     }
 
-    NumIfs = 0;
-    IfFlags = 0;
-
   bailout:
     DBufFree(&buf);
     DBufFree(&path);
@@ -713,8 +724,6 @@ int DoIncludeCmd(ParsePtr p)
         return r;
     }
     DBufFree(&buf);
-    NumIfs = 0;
-    IfFlags = 0;
     return OK;
 }
 
@@ -756,8 +765,9 @@ static int SetupGlobChain(char const *dirname, IncludeStruct *i)
     while(dc) {
         if (!strcmp(dc->dirname, dir)) {
             if (DebugFlag & DB_TRACE_FILES) {
-                fprintf(ErrFp, "Found cached directory listing for `%s'\n",
+                fprintf(ErrFp, tr("Found cached directory listing for `%s'"),
                         dir);
+                fprintf(ErrFp, "\n");
             }
             free(dir);
             i->chain = dc->chain;
@@ -767,7 +777,8 @@ static int SetupGlobChain(char const *dirname, IncludeStruct *i)
     }
 
     if (DebugFlag & DB_TRACE_FILES) {
-        fprintf(ErrFp, "Scanning directory `%s' for *.rem files\n", dir);
+        fprintf(ErrFp, tr("Scanning directory `%s' for *.rem files"), dir);
+        fprintf(ErrFp, "\n");
     }
 
     if (ShouldCache) {
@@ -781,7 +792,8 @@ static int SetupGlobChain(char const *dirname, IncludeStruct *i)
         }
         if (dc) {
             if (DebugFlag & DB_TRACE_FILES) {
-                fprintf(ErrFp, "Caching directory `%s' listing\n", dir);
+                fprintf(ErrFp, tr("Caching directory `%s' listing"), dir);
+                fprintf(ErrFp, "\n");
             }
 
             dc->chain = NULL;
@@ -905,13 +917,16 @@ static int IncludeCmd(char const *cmd)
         FCLOSE(fp);
     }
     IStackPtr++;
+    NumIfs = 0;
+    IfFlags = 0;
 
     /* If the file is cached, use it */
     h = CachedFiles;
     while(h) {
         if (!strcmp(fname, h->filename)) {
             if (DebugFlag & DB_TRACE_FILES) {
-                fprintf(ErrFp, "Reading command `%s': Found in cache\n", fname);
+                fprintf(ErrFp, tr("Reading command `%s': Found in cache"), fname);
+                fprintf(ErrFp, "\n");
             }
             CLine = h->cache;
             STRSET(FileName, fname);
@@ -928,8 +943,9 @@ static int IncludeCmd(char const *cmd)
     }
 
     if (DebugFlag & DB_TRACE_FILES) {
-        fprintf(ErrFp, "Executing `%s' for INCLUDECMD and caching as `%s'\n",
+        fprintf(ErrFp, tr("Executing `%s' for INCLUDECMD and caching as `%s'"),
                 cmd, fname);
+        fprintf(ErrFp, "\n");
     }
 
     /* Not found in cache */
@@ -941,6 +957,7 @@ static int IncludeCmd(char const *cmd)
         fp2 = popen(cmd, "r");
     }
     if (!fp2) {
+        PopFile();
         DBufFree(&buf);
         return E_CANT_OPEN;
     }
@@ -1014,6 +1031,8 @@ int IncludeFile(char const *fname)
     }
 
     IStackPtr++;
+    NumIfs = 0;
+    IfFlags = 0;
 
 #ifdef HAVE_GLOB
     /* If it's a directory, set up the glob chain here. */
@@ -1192,7 +1211,7 @@ static int CheckSafetyAux(struct stat *statbuf)
     if (!geteuid()) {
         /* Reject files not owned by root or group/world writable */
         if (statbuf->st_uid != 0) {
-            fprintf(ErrFp, "SECURITY: Won't read non-root-owned file or directory when running as root!\n");
+            fprintf(ErrFp, "%s\n", tr("SECURITY: Won't read non-root-owned file or directory when running as root!"));
             return 0;
         }
     }
@@ -1202,7 +1221,7 @@ static int CheckSafetyAux(struct stat *statbuf)
         return 1;
     }
     if ((statbuf->st_mode & S_IWOTH)) {
-        fprintf(ErrFp, "SECURITY: Won't read world-writable file or directory!\n");
+        fprintf(ErrFp, "%s\n", tr("SECURITY: Won't read world-writable file or directory!"));
         return 0;
     }
 

src/funcs.c

@@ -6,7 +6,7 @@
 /*  expressions.                                               */
 /*                                                             */
 /*  This file is part of REMIND.                               */
-/*  Copyright (C) 1992-2024 by Dianne Skoll                    */
+/*  Copyright (C) 1992-2025 by Dianne Skoll                    */
 /*  SPDX-License-Identifier: GPL-2.0-only                      */
 /*                                                             */
 /***************************************************************/
@@ -93,6 +93,7 @@ static int FDefined        (func_info *);
 static int FDosubst        (func_info *);
 static int FDusk           (func_info *);
 static int FEasterdate     (func_info *);
+static int FEscape         (func_info *);
 static int FEvalTrig       (func_info *);
 static int FFiledate       (func_info *);
 static int FFiledatetime   (func_info *);
@@ -252,6 +253,7 @@ BuiltinFunc Func[] = {
     {   "dosubst",      1,      3,      0,          FDosubst, NULL },
     {   "dusk",         0,      1,      0,          FDusk, NULL },
     {   "easterdate",   0,      1,      0,          FEasterdate, NULL },
+    {   "escape",       1,      2,      1,          FEscape, NULL },
     {   "evaltrig",     1,      2,      0,          FEvalTrig, NULL },
     {   "filedate",     1,      1,      0,          FFiledate, NULL },
     {   "filedatetime", 1,      1,      0,          FFiledatetime, NULL },
@@ -392,6 +394,9 @@ static int F_(func_info *info)
     }
     r = RetStrVal(DBufValue(&translated), info);
     DBufFree(&translated);
+    if (DebugFlag & DB_TRANSLATE) {
+        TranslationTemplate(ARGSTR(0));
+    }
     return r;
 }
 
@@ -1073,7 +1078,7 @@ static int FOrd(func_info *info)
     if (u == 1 && t != 11) s = "st";
     if (u == 2 && t != 12) s = "nd";
     if (u == 3 && t != 13) s = "rd";
-    sprintf(buf, "%d%s", v, s);
+    snprintf(buf, sizeof(buf), "%d%s", v, s);
     return RetStrVal(buf, info);
 }
 
@@ -1825,10 +1830,10 @@ static int FTrigger(func_info *info)
 
     FromDSE(date, &y, &m, &d);
     if (tim != NO_TIME) {
-        sprintf(buf, "%d %s %d AT %02d:%02d", d, EnglishMonthName[m], y,
+        snprintf(buf, sizeof(buf), "%d %s %d AT %02d:%02d", d, MonthName[m], y,
                 tim/60, tim%60);
     } else {
-        sprintf(buf, "%d %s %d", d, EnglishMonthName[m], y);
+        snprintf(buf, sizeof(buf), "%d %s %d", d, MonthName[m], y);
     }
     return RetStrVal(buf, info);
 }
@@ -2360,6 +2365,89 @@ static int FHebyear(func_info *info)
     return OK;
 }
 
+/****************************************************************/
+/*                                                              */
+/* escape - escape special characters with "\xx" sequences      */
+/*                                                              */
+/****************************************************************/
+static int FEscape(func_info *info)
+{
+    DynamicBuffer dbuf;
+    char const *s;
+    char hexbuf[16];
+    int r;
+    int include_quotes = 0;
+    ASSERT_TYPE(0, STR_TYPE);
+    if (Nargs >= 2) {
+        ASSERT_TYPE(1, INT_TYPE);
+        include_quotes = ARGV(1);
+    }
+
+    DBufInit(&dbuf);
+    if (include_quotes) {
+        r = DBufPutc(&dbuf, '"');
+        if (r != OK) {
+            DBufFree(&dbuf);
+            return r;
+        }
+    }
+    s = ARGSTR(0);
+    while(*s) {
+        switch(*s) {
+        case '\a':
+            r = DBufPuts(&dbuf, "\\a");
+            break;
+        case '\b':
+            r = DBufPuts(&dbuf, "\\b");
+            break;
+        case '\f':
+            r = DBufPuts(&dbuf, "\\f");
+            break;
+        case '\n':
+            r = DBufPuts(&dbuf, "\\n");
+            break;
+        case '\r':
+            r = DBufPuts(&dbuf, "\\r");
+            break;
+        case '\t':
+            r = DBufPuts(&dbuf, "\\t");
+            break;
+        case '\v':
+            r = DBufPuts(&dbuf, "\\v");
+            break;
+        case '\\':
+            r = DBufPuts(&dbuf, "\\\\");
+            break;
+        case '"':
+            r = DBufPuts(&dbuf, "\\\"");
+            break;
+        default:
+            if ((*s > 0 && *s < ' ') || *s == 0x7f) {
+                snprintf(hexbuf, sizeof(hexbuf), "\\x%02x", (unsigned int) *s);
+                r = DBufPuts(&dbuf, hexbuf);
+            } else {
+                r = DBufPutc(&dbuf, *s);
+            }
+            break;
+        }
+        if (r != OK) {
+            DBufFree(&dbuf);
+            return r;
+        }
+        s++;
+    }
+    if (include_quotes) {
+        r = DBufPutc(&dbuf, '"');
+        if (r != OK) {
+            DBufFree(&dbuf);
+            return r;
+        }
+    }
+    r = RetStrVal(DBufValue(&dbuf), info);
+    DBufFree(&dbuf);
+    return r;
+}
+
 /****************************************************************/
 /*                                                              */
 /* htmlescape - replace <. > and & by &lt; &gt; and &amp;       */
@@ -3009,6 +3097,7 @@ static int FPsshade(func_info *info)
     char psbuff[256];
     char *s = psbuff;
     int i;
+    size_t len = sizeof(psbuff);
 
     /* 1 or 3 args */
     if (Nargs != 1 && Nargs != 3) return E_2MANY_ARGS;
@@ -3021,19 +3110,22 @@ static int FPsshade(func_info *info)
 
     if (!psshade_warned) {
         psshade_warned = 1;
-        Wprint("psshade() is deprecated; use SPECIAL SHADE instead.");
+        Wprint(tr("psshade() is deprecated; use SPECIAL SHADE instead."));
     }
 
-    sprintf(s, "/_A LineWidth 2 div def ");
+    snprintf(s, len, "/_A LineWidth 2 div def ");
+    len -= strlen(s);
     s += strlen(s);
-    sprintf(s, "_A _A moveto ");
+    snprintf(s, len, "_A _A moveto ");
+    len -= strlen(s);
     s += strlen(s);
-    sprintf(s, "BoxWidth _A sub _A lineto BoxWidth _A sub BoxHeight _A sub lineto ");
+    snprintf(s, len, "BoxWidth _A sub _A lineto BoxWidth _A sub BoxHeight _A sub lineto ");
+    len -= strlen(s);
     s += strlen(s);
     if (Nargs == 1) {
-        sprintf(s, "_A BoxHeight _A sub lineto closepath %d 100 div setgray fill 0.0 setgray", ARGV(0));
+        snprintf(s, len, "_A BoxHeight _A sub lineto closepath %d 100 div setgray fill 0.0 setgray", ARGV(0));
     } else {
-        sprintf(s, "_A BoxHeight _A sub lineto closepath %d 100 div %d 100 div %d 100 div setrgbcolor fill 0.0 setgray", ARGV(0), ARGV(1), ARGV(2));
+        snprintf(s, len, "_A BoxHeight _A sub lineto closepath %d 100 div %d 100 div %d 100 div setrgbcolor fill 0.0 setgray", ARGV(0), ARGV(1), ARGV(2));
     }
     return RetStrVal(psbuff, info);
 }
@@ -3056,6 +3148,7 @@ static int FPsmoon(func_info *info)
     char const *extra = NULL;
     int size = -1;
     int fontsize = -1;
+    size_t len = sizeof(psbuff);
 
     ASSERT_TYPE(0, INT_TYPE);
     if (ARGV(0) < 0) return E_2LOW;
@@ -3076,63 +3169,74 @@ static int FPsmoon(func_info *info)
     }
     if (!psmoon_warned) {
         psmoon_warned = 1;
-        Wprint("psmoon() is deprecated; use SPECIAL MOON instead.");
+        Wprint(tr("psmoon() is deprecated; use SPECIAL MOON instead."));
     }
     if (size > 0) {
-        sprintf(sizebuf, "%d", size);
+        snprintf(sizebuf, sizeof(sizebuf), "%d", size);
     } else {
         strcpy(sizebuf, "DaySize 2 div");
     }
 
     if (fontsize > 0) {
-        sprintf(fontsizebuf, "%d", fontsize);
+        snprintf(fontsizebuf, sizeof(fontsizebuf), "%d", fontsize);
     } else {
         strcpy(fontsizebuf, "EntrySize");
     }
 
-    sprintf(s, "gsave 0 setgray newpath Border %s add BoxHeight Border sub %s sub",
+    snprintf(s, len, "gsave 0 setgray newpath Border %s add BoxHeight Border sub %s sub",
             sizebuf, sizebuf);
+    len -= strlen(s);
     s += strlen(s);
-    sprintf(s, " %s 0 360 arc closepath", sizebuf);
+    snprintf(s, len, " %s 0 360 arc closepath", sizebuf);
+    len -= strlen(s);
     s += strlen(s);
     switch(ARGV(0)) {
     case 0:
-        sprintf(s, " fill");
+        snprintf(s, len, " fill");
+        len -= strlen(s);
         s += strlen(s);
         break;
 
     case 2:
-        sprintf(s, " stroke");
+        snprintf(s, len, " stroke");
+        len -= strlen(s);
         s += strlen(s);
         break;
 
     case 1:
-        sprintf(s, " stroke");
+        snprintf(s, len, " stroke");
+        len -= strlen(s);
         s += strlen(s);
-        sprintf(s, " newpath Border %s add BoxHeight Border sub %s sub",
+        snprintf(s, len, " newpath Border %s add BoxHeight Border sub %s sub",
                 sizebuf, sizebuf);
+        len -= strlen(s);
         s += strlen(s);
-        sprintf(s, " %s 90 270 arc closepath fill", sizebuf);
+        snprintf(s, len, " %s 90 270 arc closepath fill", sizebuf);
+        len -= strlen(s);
         s += strlen(s);
         break;
 
     default:
-        sprintf(s, " stroke");
+        snprintf(s, len, " stroke");
+        len -= strlen(s);
         s += strlen(s);
-        sprintf(s, " newpath Border %s add BoxHeight Border sub %s sub",
+        snprintf(s, len, " newpath Border %s add BoxHeight Border sub %s sub",
                 sizebuf, sizebuf);
+        len -= strlen(s);
         s += strlen(s);
-        sprintf(s, " %s 270 90 arc closepath fill", sizebuf);
+        snprintf(s, len, " %s 270 90 arc closepath fill", sizebuf);
+        len -= strlen(s);
         s += strlen(s);
         break;
     }
     if (extra) {
-        sprintf(s, " Border %s add %s add Border add BoxHeight border sub %s sub %s sub moveto /EntryFont findfont %s scalefont setfont (%s) show",
+        snprintf(s, len, " Border %s add %s add Border add BoxHeight border sub %s sub %s sub moveto /EntryFont findfont %s scalefont setfont (%s) show",
                 sizebuf, sizebuf, sizebuf, sizebuf, fontsizebuf, extra);
+        len -= strlen(s);
         s += strlen(s);
     }
 
-    sprintf(s, " grestore");
+    snprintf(s, len, " grestore");
     return RetStrVal(psbuff, info);
 }
 
@@ -3263,20 +3367,20 @@ static int FDatepart(func_info *info)
  * used for the timezone stuff! */
 static int setenv(char const *varname, char const *val, int overwrite)
 {
-    static char tzbuf[256];
+    static char tzbuf[128];
     if (strcmp(varname, "TZ")) {
-        fprintf(stderr, "built-in setenv can only be used with TZ\n");
+        fprintf(ErrFp, "built-in setenv can only be used with TZ\n");
         abort();
     }
     if (!overwrite) {
-        fprintf(stderr, "built-in setenv must have overwrite=1\n");
+        fprintf(ErrFp, "built-in setenv must have overwrite=1\n");
         abort();
     }
 
     if (strlen(val) > 250) {
         return -1;
     }
-    sprintf(tzbuf, "%s=%s", varname, val);
+    snprintf(tzbuf, sizeof(tzbuf), "%s=%s", varname, val);
     return(putenv(tzbuf));
 }
 #endif
@@ -3285,12 +3389,12 @@ static int setenv(char const *varname, char const *val, int overwrite)
  * used for the timezone stuff! */
 static void unsetenv(char const *varname)
 {
-    static char tzbuf[8];
+    static char tzbuf[128];
     if (strcmp(varname, "TZ")) {
-        fprintf(stderr, "built-in unsetenv can only be used with TZ\n");
+        fprintf(ErrFp, "built-in unsetenv can only be used with TZ\n");
         abort();
     }
-    sprintf(tzbuf, "%s", varname);
+    snprintf(tzbuf, sizeof(tzbuf), "%s", varname);
     putenv(tzbuf);
 }
 #endif
@@ -3622,7 +3726,7 @@ FEvalTrig(func_info *info)
     } else {
         /* Hokey... */
         if (trig.scanfrom != DSEToday) {
-            Wprint("Warning: SCANFROM is ignored in two-argument form of evaltrig()");
+            Wprint(tr("Warning: SCANFROM is ignored in two-argument form of evaltrig()"));
         }
         dse = ComputeTrigger(scanfrom, &trig, &tim, &r, 0);
     }
@@ -3677,7 +3781,7 @@ FMultiTrig(func_info *info)
             return E_PARSE_ERR;
         }
         if (tim.ttime != NO_TIME) {
-            Eprint("Cannot use AT clause in multitrig() function");
+            Eprint(tr("Cannot use AT clause in multitrig() function"));
             return E_PARSE_ERR;
         }
         dse = ComputeTrigger(trig.scanfrom, &trig, &tim, &r, 0);

src/globals.c

@@ -8,7 +8,7 @@
 /*  globals.h and err.h                                        */
 /*                                                             */
 /*  This file is part of REMIND.                               */
-/*  Copyright (C) 1992-2024 by Dianne Skoll                    */
+/*  Copyright (C) 1992-2025 by Dianne Skoll                    */
 /*  SPDX-License-Identifier: GPL-2.0-only                      */
 /*                                                             */
 /***************************************************************/

src/globals.h

@@ -7,7 +7,7 @@
 /*  MK_GLOBALS.  Also contains useful macro definitions.       */
 /*                                                             */
 /*  This file is part of REMIND.                               */
-/*  Copyright (C) 1992-2021 by Dianne Skoll                    */
+/*  Copyright (C) 1992-2025 by Dianne Skoll                    */
 /*  SPDX-License-Identifier: GPL-2.0-only                      */
 /*                                                             */
 /***************************************************************/
@@ -68,6 +68,7 @@ EXTERN  INIT(   int     PsCal, 0);
 EXTERN  INIT(   int     CalWidth, 80);
 EXTERN  INIT(   int     CalWeeks, 0);
 EXTERN  INIT(   int     CalMonths, 0);
+EXTERN  INIT(   char const *CalType, "none");
 EXTERN  INIT(   int     Hush, 0);
 EXTERN  INIT(   int     NextMode, 0);
 EXTERN  INIT(   int     InfiniteDelta, 0);
@@ -175,34 +176,20 @@ EXTERN  INIT(   unsigned int FuncRecursionLevel, 0);
 /* Suppress warnings about implicit REM and MSG */
 EXTERN  INIT(   int SuppressImplicitRemWarnings, 0);
 
+/* Test mode - used by the acceptance tests */
+EXTERN  INIT(   int TestMode, 0);
+
 extern int NumFullOmits, NumPartialOmits;
 
 /* List of months */
-EXTERN  char    *EnglishMonthName[]
+EXTERN  char    *MonthName[]
 #ifdef MK_GLOBALS
 = {"January", "February", "March", "April", "May", "June",
    "July", "August", "September", "October", "November", "December"}
 #endif
 ;
 
-#define MonthName EnglishMonthName
-
-EXTERN char *DynamicMonthName[]
-#ifdef MK_GLOBALS
-= {"January", "February", "March", "April", "May", "June",
-   "July", "August", "September", "October", "November", "December"}
-#endif
-;
-EXTERN  char    *EnglishDayName[]
-#ifdef MK_GLOBALS
-= {"Monday", "Tuesday", "Wednesday", "Thursday", "Friday",
-   "Saturday", "Sunday"}
-#endif
-;
-
-#define DayName EnglishDayName
-
-EXTERN char *DynamicDayName []
+EXTERN  char    *DayName[]
 #ifdef MK_GLOBALS
 = {"Monday", "Tuesday", "Wednesday", "Thursday", "Friday",
    "Saturday", "Sunday"}
@@ -227,86 +214,17 @@ EXTERN  int     MonthIndex[2][12]
 #endif
 ;
 
-EXTERN char *DynamicAgo
-#ifdef MK_GLOBALS
-= "ago"
-#endif
-;
-EXTERN char *DynamicAm
-#ifdef MK_GLOBALS
-= "am"
-#endif
-;
-EXTERN char *DynamicAnd
-#ifdef MK_GLOBALS
-= "and"
-#endif
-;
-EXTERN char *DynamicAt
-#ifdef MK_GLOBALS
-= "at"
-#endif
-;
-EXTERN char *DynamicFromnow
-#ifdef MK_GLOBALS
-= "from now"
-#endif
-;
-EXTERN char *DynamicHour
-#ifdef MK_GLOBALS
-= "hour"
-#endif
-;
 EXTERN char *DynamicHplu
 #ifdef MK_GLOBALS
 = "s"
 #endif
 ;
-EXTERN char *DynamicIs
-#ifdef MK_GLOBALS
-= "is"
-#endif
-;
-EXTERN char *DynamicMinute
-#ifdef MK_GLOBALS
-= "minute"
-#endif
-;
+
 EXTERN char *DynamicMplu
 #ifdef MK_GLOBALS
 = "s"
 #endif
 ;
-EXTERN char *DynamicNow
-#ifdef MK_GLOBALS
-= "now"
-#endif
-;
-EXTERN char *DynamicOn
-#ifdef MK_GLOBALS
-= "on"
-#endif
-;
-EXTERN char *DynamicPm
-#ifdef MK_GLOBALS
-= "pm"
-#endif
-;
-EXTERN char *DynamicToday
-#ifdef MK_GLOBALS
-= "today"
-#endif
-;
-EXTERN char *DynamicTomorrow
-#ifdef MK_GLOBALS
-= "tomorrow"
-#endif
-;
-EXTERN char *DynamicWas
-#ifdef MK_GLOBALS
-= "was"
-#endif
-;
 
 #define XSTR(x) #x
 #define STRSYSDIR(x) XSTR(x)
@@ -322,3 +240,6 @@ EXTERN int SuppressLRM
 = 0
 #endif
 ;
+
+/* Translatable messages */
+extern char const *translatables[];

src/hashtab.c

@@ -5,7 +5,7 @@
 /*  Implementation of hash table.                              */
 /*                                                             */
 /*  This file is part of REMIND.                               */
-/*  Copyright (C) 1992-2024 by Dianne Skoll                    */
+/*  Copyright (C) 1992-2025 by Dianne Skoll                    */
 /*  SPDX-License-Identifier: GPL-2.0-only                      */
 /*                                                             */
 /***************************************************************/
@@ -63,7 +63,7 @@
  * These are used as choices for the number of hash buckets in the table
  */
 static size_t bucket_choices[] = {
-    17, 37, 79, 163, 331, 673, 1361, 2729, 5471, 10949, 21911, 43853, 87719,
+    7, 17, 37, 79, 163, 331, 673, 1361, 2729, 5471, 10949, 21911, 43853, 87719,
     175447, 350899, 701819, 1403641, 2807303, 5614657, 11229331, 22458671,
     44917381, 89834777, 179669557, 359339171, 718678369, 1437356741 };
 
@@ -108,6 +108,8 @@ hash_table_init(hash_table *t,
     t->hashfunc            = hashfunc;
     t->compare             = compare;
     t->buckets             = malloc(sizeof(void *) * bucket_choices[0]);
+    t->num_growths         = 0;
+    t->num_shrinks         = 0;
     if (!t->buckets) {
         return -1;
     }
@@ -216,15 +218,17 @@ hash_table_resize(hash_table *t, int dir)
         /* Out of memory... just don't resize? */
         return 0;
     }
+    if (dir == 1) {
+        t->num_growths++;
+    } else {
+        t->num_shrinks++;
+    }
     for (size_t j=0; j<num_new_buckets; j++) {
         new_buckets[j] = NULL;
     }
 
     /* Move everything from the old buckets into the new */
     for (size_t i=0; i<num_old_buckets; i++) {
-        if (!t->buckets[i]) {
-            continue;
-        }
         void *p = t->buckets[i];
         while(p) {
             struct hash_link *l = LINK(t, p);
@@ -308,32 +312,6 @@ hash_table_find(hash_table *t, void *candidate)
     return NULL;
 }
 
-/**
- * \brief Find the next item in a hash table
- *
- * \param t Pointer to a hash table object
- * \param obj Pointer to an object that was perviously returned by
- * hash_table_find() or hash_table_find_next().
- *
- * \return A pointer to the next object matching obj, or NULL if
- * no more exist
- */
-void *
-hash_table_find_next(hash_table *t, void *obj)
-{
-    if (!obj) {
-        return NULL;
-    }
-    void *ptr = LINK(t, obj)->next;
-    while(ptr) {
-        if (!t->compare(obj, ptr)) {
-            return ptr;
-        }
-        ptr = LINK(t, ptr)->next;
-    }
-    return NULL;
-}
-
 /**
  * \brief Delete an item from a hash table
  *

src/hashtab.h

@@ -5,7 +5,7 @@
 /*  Header file for hash-table related functions.              */
 /*                                                             */
 /*  This file is part of REMIND.                               */
-/*  Copyright (C) 1992-2024 by Dianne Skoll                    */
+/*  Copyright (C) 1992-2025 by Dianne Skoll                    */
 /*  SPDX-License-Identifier: GPL-2.0-only                      */
 /*                                                             */
 /***************************************************************/
@@ -29,6 +29,8 @@ struct hash_link {
  */
 typedef struct {
     unsigned int bucket_choice_index;  /**< Index into array of possible bucket counts */
+    size_t num_growths;       /**< How many times have we grown the hash table? */
+    size_t num_shrinks;       /**< How many times have we grown the hash table? */
     size_t num_entries;       /**< Number of entries in the hash table */
     size_t hash_link_offset;  /**< Offset of the struct hash_link in the container */
     void **buckets;           /**< Array of buckets */
@@ -45,6 +47,8 @@ struct hash_table_stats {
     size_t num_nonempty_buckets; /**< Number of non-emptry buckets */
     size_t max_len;      /**< Length of longest chain in the hash table */
     size_t min_len;      /**< Length of the shortest chain in the hash table */
+    size_t num_growths;       /**< How many times have we grown the hash table? */
+    size_t num_shrinks;       /**< How many times have we grown the hash table? */
     double avg_len;      /**< Average chain length */
     double avg_nonempty_len; /**< Average chain length of non-empty bucket */
     double stddev;       /**< Standard deviation of chain lengths */
@@ -60,7 +64,6 @@ size_t hash_table_num_buckets(hash_table *t);
 size_t hash_table_chain_len(hash_table *t, size_t i);
 int hash_table_insert(hash_table *t, void *item);
 void *hash_table_find(hash_table *t, void *candidate);
-void *hash_table_find_next(hash_table *t, void *obj);
 int hash_table_delete(hash_table *t, void *item);
 int hash_table_delete_no_resize(hash_table *t, void *item);
 void *hash_table_next(hash_table *t, void *cur);
@@ -84,29 +87,3 @@ void hash_table_get_stats(hash_table *t, struct hash_table_stats *stat);
          (item);                                \
          (item) = hash_table_next((t), (item)))
 
-/**
- * \brief Iterate over all items in a hash table that match a candidate
- *
- * This macro iterates over all items in a hash table that match a
- * candidate object.  (In general, a hash table may contain multiple
- * objects with the same key.)  Here is an example assuming that the hash
- * table holds objects of type struct int_object:
- *
- *     struct int_object {
- *         int value;
- *         struct hash_link link;
- *     }
- *
- *     hash_table tab;
- *     int_object candidate;
- *
- *     candidate.value = 7;
- *     int_object *item;
- *     hash_table_for_each_matching(item, &candidate, &tab) {
- *         // Do something with item, which will match "7"
- *     }
- */
-#define hash_table_for_each_matching(item, candidate, t)    \
-    for ((item) = hash_table_find((t), (candidate));        \
-         (item);                                            \
-         (item) = hash_table_find_next((t), (item)))

src/hashtab_stats.c

@@ -5,7 +5,7 @@
 /*  Utility function to print hash table stats.                */
 /*                                                             */
 /*  This file is part of REMIND.                               */
-/*  Copyright (C) 1992-2024 by Dianne Skoll                    */
+/*  Copyright (C) 1992-2025 by Dianne Skoll                    */
 /*  SPDX-License-Identifier: GPL-2.0-only                      */
 /*                                                             */
 /***************************************************************/
@@ -33,14 +33,15 @@ hash_table_dump_stats(hash_table *t, FILE *fp)
 {
     struct hash_table_stats stat;
     hash_table_get_stats(t, &stat);
-    fprintf(fp, "#Entries: %lu\n#Buckets: %lu\n#Non-empty Buckets: %lu\n",
+    fprintf(fp, "  Entries: %lu; Buckets: %lu; Non-empty Buckets: %lu\n",
             (unsigned long) stat.num_entries,
             (unsigned long) stat.num_buckets,
             (unsigned long) stat.num_nonempty_buckets);
-    fprintf(fp, "Max len: %lu\nMin len: %lu\nAvg len: %.4f\nStd dev: %.4f\nAvg nonempty len: %.4f\n",
+    fprintf(fp, "  Maxlen: %lu; Minlen: %lu; Avglen: %.3f; Stddev: %.3f; Avg nonempty len: %.3f\n",
             (unsigned long) stat.max_len,
             (unsigned long) stat.min_len,
             stat.avg_len, stat.stddev, stat.avg_nonempty_len);
+    fprintf(fp, "  Growths: %lu; Shrinks: %lu\n", (unsigned long) stat.num_growths, (unsigned long) stat.num_shrinks);
 }
 
 /**
@@ -67,6 +68,8 @@ hash_table_get_stats(hash_table *t, struct hash_table_stats *stat)
     stat->stddev  = 0.0;
     stat->num_nonempty_buckets = 0;
     stat->avg_nonempty_len = 0.0;
+    stat->num_growths = t->num_growths;
+    stat->num_shrinks = t->num_shrinks;
     double sum = 0.0;
     double sumsq = 0.0;
 

src/hbcal.c

@@ -5,7 +5,7 @@
 /*  Support for the Hebrew calendar                            */
 /*                                                             */
 /*  This file is part of REMIND.                               */
-/*  Copyright (C) 1992-2024 by Dianne Skoll                    */
+/*  Copyright (C) 1992-2025 by Dianne Skoll                    */
 /*  SPDX-License-Identifier: GPL-2.0-only                      */
 /*                                                             */
 /*  Derived from code written by Amos Shapir in 1978; revised  */
@@ -324,7 +324,7 @@ int GetValidHebDate(int yin, int min, int din, int adarbehave,
         case ADAR2ADARB: *mout = min = ADARB; break;
 
         default:
-            Eprint("GetValidHebDate: Bad adarbehave value %d", adarbehave);
+            Eprint(tr("GetValidHebDate: Bad adarbehave value %d"), adarbehave);
             return E_SWERR;
         }
     }
@@ -464,7 +464,7 @@ int ComputeJahr(int y, int m, int d, int *ans)
 
 /* Check for Adar A */
     if (m == ADARA && monlen[m] == 0) {
-        Eprint("No Adar A in %d", y);
+        Eprint(tr("No Adar A in %d"), y);
         return E_BAD_HEBDATE;
     }
 

src/init.c

@@ -7,7 +7,7 @@
 /*  in normal mode.                                            */
 /*                                                             */
 /*  This file is part of REMIND.                               */
-/*  Copyright (C) 1992-2024 by Dianne Skoll                    */
+/*  Copyright (C) 1992-2025 by Dianne Skoll                    */
 /*  SPDX-License-Identifier: GPL-2.0-only                      */
 /*                                                             */
 /***************************************************************/
@@ -149,7 +149,7 @@ static char const *DefaultFilename(void)
 
     s = getenv("HOME");
     if (!s) {
-        fprintf(stderr, "HOME environment variable not set.  Unable to determine reminder file.\n");
+        fprintf(ErrFp, "HOME environment variable not set.  Unable to determine reminder file.\n");
         exit(EXIT_FAILURE);
     }
     DBufPuts(&default_filename_buf, s);
@@ -217,6 +217,7 @@ void InitRemind(int argc, char const *argv[])
     RealToday = SystemDate(&CurYear, &CurMon, &CurDay);
     if (RealToday < 0) {
         fprintf(ErrFp, GetErr(M_BAD_SYS_DATE), BASE);
+        fprintf(ErrFp, "\n");
         exit(EXIT_FAILURE);
     }
     DSEToday = RealToday;
@@ -237,7 +238,7 @@ void InitRemind(int argc, char const *argv[])
             InvokedAsRem = 1;
         }
     } else {
-        fprintf(stderr, "Invoked with a NULL argv[0]; bailing because that's just plain bizarre.\n");
+        fprintf(ErrFp, "Invoked with a NULL argv[0]; bailing because that's just plain bizarre.\n");
         exit(EXIT_FAILURE);
     }
 
@@ -501,9 +502,11 @@ void InitRemind(int argc, char const *argv[])
                     break;
                 }
                 if (weeks) {
+                    CalType = "weekly";
                     PARSENUM(CalWeeks, arg);
                     if (!CalWeeks) CalWeeks = 1;
                 } else {
+                    CalType = "monthly";
                     PARSENUM(CalMonths, arg);
                     if (!CalMonths) CalMonths = 1;
                 }
@@ -528,9 +531,11 @@ void InitRemind(int argc, char const *argv[])
                     break;
                 }
                 if (weeks) {
+                    CalType = "weekly";
                     PARSENUM(CalWeeks, arg);
                     if (!CalWeeks) CalWeeks = 1;
                 } else {
+                    CalType = "monthly";
                     PARSENUM(CalMonths, arg);
                     if (!CalMonths) CalMonths = 1;
                 }
@@ -541,10 +546,14 @@ void InitRemind(int argc, char const *argv[])
                 DoSimpleCalendar = 1;
                 IgnoreOnce = 1;
                 PsCal = PSCAL_LEVEL1;
+                weeks = 0;
                 while (*arg == 'a' || *arg == 'A' ||
                        *arg == 'q' || *arg == 'Q' ||
+                       *arg == '+' ||
                        *arg == 'p' || *arg == 'P') {
-                    if (*arg == 'a' || *arg == 'A') {
+                    if (*arg == '+') {
+                        weeks = 1;
+                    } else if (*arg == 'a' || *arg == 'A') {
                         DoSimpleCalDelta = 1;
                     } else if (*arg == 'p' || *arg == 'P') {
                         /* JSON interchange formats always include
@@ -560,8 +569,16 @@ void InitRemind(int argc, char const *argv[])
                     }
                     arg++;
                 }
-                PARSENUM(CalMonths, arg);
-                if (!CalMonths) CalMonths = 1;
+                if (weeks) {
+                    CalType = "weekly";
+                    PARSENUM(CalWeeks, arg);
+                    if (!CalWeeks) CalWeeks = 1;
+                    PsCal = PSCAL_LEVEL3;
+                } else {
+                    CalType = "monthly";
+                    PARSENUM(CalMonths, arg);
+                    if (!CalMonths) CalMonths = 1;
+                }
                 break;
 
             case 'l':
@@ -577,7 +594,7 @@ void InitRemind(int argc, char const *argv[])
                         /* -wt means get width from /dev/tty */
                         ttyfd = open("/dev/tty", O_RDONLY);
                         if (ttyfd < 0) {
-                            fprintf(stderr, "%s: `-wt': Cannot open /dev/tty: %s\n",
+                            fprintf(ErrFp, "%s: `-wt': Cannot open /dev/tty: %s\n",
                                     argv[0], strerror(errno));
                         } else {
                             InitCalWidthAndFormWidth(ttyfd);
@@ -618,14 +635,17 @@ void InitRemind(int argc, char const *argv[])
                 while (*arg) {
                     switch(*arg++) {
                     case 's': case 'S': DebugFlag |= DB_PARSE_EXPR;  break;
+                    case 'h': case 'H': DebugFlag |= DB_HASHSTATS;  break;
                     case 'e': case 'E': DebugFlag |= DB_ECHO_LINE;   break;
                     case 'x': case 'X': DebugFlag |= DB_PRTEXPR;     break;
                     case 't': case 'T': DebugFlag |= DB_PRTTRIG;     break;
                     case 'v': case 'V': DebugFlag |= DB_DUMP_VARS;   break;
                     case 'l': case 'L': DebugFlag |= DB_PRTLINE;     break;
                     case 'f': case 'F': DebugFlag |= DB_TRACE_FILES; break;
+                    case 'q': case 'Q': DebugFlag |= DB_TRANSLATE;   break;
                     default:
                         fprintf(ErrFp, GetErr(M_BAD_DB_FLAG), *(arg-1));
+                        fprintf(ErrFp, "\n");
                     }
                 }
                 break;
@@ -661,6 +681,7 @@ void InitRemind(int argc, char const *argv[])
 
             default:
                 fprintf(ErrFp, GetErr(M_BAD_OPTION), *(arg-1));
+                fprintf(ErrFp, "\n");
             }
 
         }
@@ -728,7 +749,7 @@ void InitRemind(int argc, char const *argv[])
 
             default:
                 if (tok.type == T_Illegal && tok.val < 0) {
-                    fprintf(stderr, "%s: `%s'\n", GetErr(-tok.val), arg);
+                    fprintf(ErrFp, "%s: `%s'\n", GetErr(-tok.val), arg);
                     Usage();
                 }
                 Usage();
@@ -774,10 +795,11 @@ void InitRemind(int argc, char const *argv[])
 
     }
 
-/* Figure out the offset from UTC */
-    if (CalculateUTC)
+    /* Figure out the offset from UTC */
+    if (CalculateUTC) {
         (void) CalcMinsFromUTC(DSEToday, MinutesPastMidnight(0),
                                &MinsFromUTC, NULL);
+    }
 }
 
 /***************************************************************/
@@ -790,7 +812,7 @@ void InitRemind(int argc, char const *argv[])
 #ifndef L_USAGE_OVERRIDE
 void Usage(void)
 {
-    fprintf(ErrFp, "\nREMIND %s Copyright 1992-2024 Dianne Skoll\n", VERSION);
+    fprintf(ErrFp, "\nREMIND %s Copyright (C) 1992-2025 Dianne Skoll\n", VERSION);
 #ifdef BETA
     fprintf(ErrFp, ">>>> BETA VERSION <<<<\n");
 #endif
@@ -853,6 +875,7 @@ static void ChgUser(char const *user)
 
     if (!pwent) {
         fprintf(ErrFp, GetErr(M_BAD_USER), user);
+        fprintf(ErrFp, "\n");
         exit(EXIT_FAILURE);
     }
 
@@ -861,16 +884,19 @@ static void ChgUser(char const *user)
 #ifdef HAVE_INITGROUPS
         if (initgroups(pwent->pw_name, pwent->pw_gid) < 0) {
             fprintf(ErrFp, GetErr(M_NO_CHG_GID), pwent->pw_gid);
+            fprintf(ErrFp, "\n");
             exit(EXIT_FAILURE);
         };
 #endif
         if (setgid(pwent->pw_gid) < 0) {
             fprintf(ErrFp, GetErr(M_NO_CHG_GID), pwent->pw_gid);
+            fprintf(ErrFp, "\n");
             exit(EXIT_FAILURE);
         }
 
         if (setuid(pwent->pw_uid) < 0) {
             fprintf(ErrFp, GetErr(M_NO_CHG_UID), pwent->pw_uid);
+            fprintf(ErrFp, "\n");
             exit(EXIT_FAILURE);
         }
     }
@@ -878,6 +904,7 @@ static void ChgUser(char const *user)
     home = malloc(strlen(pwent->pw_dir) + 6);
     if (!home) {
         fprintf(ErrFp, "%s", GetErr(M_NOMEM_ENV));
+        fprintf(ErrFp, "\n");
         exit(EXIT_FAILURE);
     }
     sprintf(home, "HOME=%s", pwent->pw_dir);
@@ -886,6 +913,7 @@ static void ChgUser(char const *user)
     shell = malloc(strlen(pwent->pw_shell) + 7);
     if (!shell) {
         fprintf(ErrFp, "%s", GetErr(M_NOMEM_ENV));
+        fprintf(ErrFp, "\n");
         exit(EXIT_FAILURE);
     }
     sprintf(shell, "SHELL=%s", pwent->pw_shell);
@@ -895,6 +923,7 @@ static void ChgUser(char const *user)
         username = malloc(strlen(pwent->pw_name) + 6);
         if (!username) {
             fprintf(ErrFp, "%s", GetErr(M_NOMEM_ENV));
+            fprintf(ErrFp, "\n");
             exit(EXIT_FAILURE);
         }
         sprintf(username, "USER=%s", pwent->pw_name);
@@ -902,6 +931,7 @@ static void ChgUser(char const *user)
         logname= malloc(strlen(pwent->pw_name) + 9);
         if (!logname) {
             fprintf(ErrFp, "%s", GetErr(M_NOMEM_ENV));
+            fprintf(ErrFp, "\n");
             exit(EXIT_FAILURE);
         }
         sprintf(logname, "LOGNAME=%s", pwent->pw_name);
@@ -947,6 +977,7 @@ static void InitializeVar(char const *str)
                 varname[r++] = *str;
             } else {
                 fprintf(ErrFp, GetErr(M_I_OPTION), GetErr(E_ILLEGAL_CHAR));
+                fprintf(ErrFp, "\n");
                 return;
             }
         }
@@ -960,12 +991,14 @@ static void InitializeVar(char const *str)
     varname[r] = 0;
     if (!*varname) {
         fprintf(ErrFp, GetErr(M_I_OPTION), GetErr(E_MISS_VAR));
+        fprintf(ErrFp, "\n");
         return;
     }
     if (!*str) {
         /* Setting a system var does require =expr on the commandline */
         if (*varname == '$') {
             fprintf(ErrFp, GetErr(M_I_OPTION), GetErr(E_MISS_EQ));
+            fprintf(ErrFp, "\n");
             return;
         }
         val.type = INT_TYPE;
@@ -976,40 +1009,51 @@ static void InitializeVar(char const *str)
         }
         if (r) {
             fprintf(ErrFp, GetErr(M_I_OPTION), GetErr(r));
+            fprintf(ErrFp, "\n");
         }
         return;
     }
 
     if (!*varname) {
         fprintf(ErrFp, GetErr(M_I_OPTION), GetErr(E_MISS_VAR));
+        fprintf(ErrFp, "\n");
         return;
     }
     expr = str+1;
     if (!*expr) {
         fprintf(ErrFp, GetErr(M_I_OPTION), GetErr(E_MISS_EXPR));
+        fprintf(ErrFp, "\n");
         return;
     }
 
     r=EvalExpr(&expr, &val, NULL);
     if (r) {
         fprintf(ErrFp, GetErr(M_I_OPTION), GetErr(r));
+        fprintf(ErrFp, "\n");
         return;
     }
 
     if (*varname == '$') {
         r=SetSysVar(varname+1, &val);
         DestroyValue(val);
-        if (r) fprintf(ErrFp, GetErr(M_I_OPTION), GetErr(r));
+        if (r) {
+            fprintf(ErrFp, GetErr(M_I_OPTION), GetErr(r));
+            fprintf(ErrFp, "\n");
+        }
         return;
     }
 
     r=SetVar(varname, &val);
     if (r) {
         fprintf(ErrFp, GetErr(M_I_OPTION), GetErr(r));
+        fprintf(ErrFp, "\n");
         return;
     }
     r=PreserveVar(varname);
-    if (r) fprintf(ErrFp, GetErr(M_I_OPTION), GetErr(r));
+    if (r) {
+        fprintf(ErrFp, GetErr(M_I_OPTION), GetErr(r));
+        fprintf(ErrFp, "\n");
+    }
     return;
 }
 
@@ -1018,7 +1062,7 @@ AddTrustedUser(char const *username)
 {
     struct passwd *pwent;
     if (NumTrustedUsers >= MAX_TRUSTED_USERS) {
-        fprintf(stderr, "Too many trusted users (%d max)\n",
+        fprintf(ErrFp, "Too many trusted users (%d max)\n",
                 MAX_TRUSTED_USERS);
         exit(EXIT_FAILURE);
     }
@@ -1026,6 +1070,7 @@ AddTrustedUser(char const *username)
     pwent = getpwnam(username);
     if (!pwent) {
         fprintf(ErrFp, GetErr(M_BAD_USER), username);
+        fprintf(ErrFp, "\n");
         exit(EXIT_FAILURE);
     }
     TrustedUsers[NumTrustedUsers] = pwent->pw_uid;
@@ -1077,6 +1122,17 @@ static void
 ProcessLongOption(char const *arg)
 {
     int t;
+    if (!strcmp(arg, "test")) {
+        fprintf(stderr, "Enabling test mode: This is meant for the acceptance test.\nDo not use --test in production.\nIn test mode, the system time is fixed at 2025-01-06@19:00\n");
+        TestMode = 1;
+
+        /* Update RealToday because of TestMode */
+        RealToday = SystemDate(&CurYear, &CurMon, &CurDay);
+        DSEToday = RealToday;
+        FromDSE(DSEToday, &CurYear, &CurMon, &CurDay);
+
+        return;
+    }
     if (!strcmp(arg, "version")) {
         printf("%s\n", VERSION);
         exit(EXIT_SUCCESS);

src/json.c

@@ -299,7 +299,7 @@ json_value * json_parse_ex (json_settings * settings,
          if (flags & flag_string)
          {
             if (!b)
-            {  sprintf (error, "Unexpected EOF in string (at %u:%u)", line_and_col);
+            {  snprintf (error, sizeof(error), "Unexpected EOF in string (at %u:%u)", line_and_col);
                goto e_failed;
             }
 
@@ -325,7 +325,7 @@ json_value * json_parse_ex (json_settings * settings,
                         (uc_b3 = hex_value (*++ state.ptr)) == 0xFF ||
                         (uc_b4 = hex_value (*++ state.ptr)) == 0xFF)
                     {
-                        sprintf (error, "Invalid character value `%c` (at %u:%u)", b, line_and_col);
+                        snprintf (error, sizeof(error), "Invalid character value `%c` (at %u:%u)", b, line_and_col);
                         goto e_failed;
                     }
 
@@ -342,7 +342,7 @@ json_value * json_parse_ex (json_settings * settings,
                             (uc_b3 = hex_value (*++ state.ptr)) == 0xFF ||
                             (uc_b4 = hex_value (*++ state.ptr)) == 0xFF)
                         {
-                            sprintf (error, "Invalid character value `%c` (at %u:%u)", b, line_and_col);
+                            snprintf (error, sizeof(error), "Invalid character value `%c` (at %u:%u)", b, line_and_col);
                             goto e_failed;
                         }
 
@@ -472,7 +472,7 @@ json_value * json_parse_ex (json_settings * settings,
                if (flags & flag_block_comment)
                {
                   if (!b)
-                  {  sprintf (error, "%u:%u: Unexpected EOF in block comment", line_and_col);
+                  {  snprintf (error, sizeof(error), "%u:%u: Unexpected EOF in block comment", line_and_col);
                      goto e_failed;
                   }
 
@@ -488,12 +488,12 @@ json_value * json_parse_ex (json_settings * settings,
             else if (b == '/')
             {
                if (! (flags & (flag_seek_value | flag_done)) && top->type != json_object)
-               {  sprintf (error, "%u:%u: Comment not allowed here", line_and_col);
+               {  snprintf (error, sizeof(error), "%u:%u: Comment not allowed here", line_and_col);
                   goto e_failed;
                }
 
                if (++ state.ptr == end)
-               {  sprintf (error, "%u:%u: EOF unexpected", line_and_col);
+               {  snprintf (error, sizeof(error), "%u:%u: EOF unexpected", line_and_col);
                   goto e_failed;
                }
 
@@ -508,7 +508,7 @@ json_value * json_parse_ex (json_settings * settings,
                      continue;
 
                   default:
-                     sprintf (error, "%u:%u: Unexpected `%c` in comment opening sequence", line_and_col, b);
+                     snprintf (error, sizeof(error), "%u:%u: Unexpected `%c` in comment opening sequence", line_and_col, b);
                      goto e_failed;
                };
             }
@@ -526,7 +526,7 @@ json_value * json_parse_ex (json_settings * settings,
 
                default:
 
-                  sprintf (error, "%u:%u: Trailing garbage: `%c`",
+                  snprintf (error, sizeof(error), "%u:%u: Trailing garbage: `%c`",
                            state.cur_line, state.cur_col, b);
 
                   goto e_failed;
@@ -545,7 +545,7 @@ json_value * json_parse_ex (json_settings * settings,
                   if (top && top->type == json_array)
                      flags = (flags & ~ (flag_need_comma | flag_seek_value)) | flag_next;
                   else
-                  {  sprintf (error, "%u:%u: Unexpected ]", line_and_col);
+                  {  snprintf (error, sizeof(error), "%u:%u: Unexpected ]", line_and_col);
                      goto e_failed;
                   }
 
@@ -561,7 +561,7 @@ json_value * json_parse_ex (json_settings * settings,
                      }
                      else
                      {
-                        sprintf (error, "%u:%u: Expected , before %c",
+                        snprintf (error, sizeof(error), "%u:%u: Expected , before %c",
                                  state.cur_line, state.cur_col, b);
 
                         goto e_failed;
@@ -576,7 +576,7 @@ json_value * json_parse_ex (json_settings * settings,
                      }
                      else
                      {
-                        sprintf (error, "%u:%u: Expected : before %c",
+                        snprintf (error, sizeof(error), "%u:%u: Expected : before %c",
                                  state.cur_line, state.cur_col, b);
 
                         goto e_failed;
@@ -702,7 +702,7 @@ json_value * json_parse_ex (json_settings * settings,
                            continue;
                         }
                         else
-                        {  sprintf (error, "%u:%u: Unexpected %c when seeking value", line_and_col, b);
+                        {  snprintf (error, sizeof(error), "%u:%u: Unexpected %c when seeking value", line_and_col, b);
                            goto e_failed;
                         }
                   };
@@ -722,7 +722,7 @@ json_value * json_parse_ex (json_settings * settings,
                   case '"':
 
                      if (flags & flag_need_comma)
-                     {  sprintf (error, "%u:%u: Expected , before \"", line_and_col);
+                     {  snprintf (error, sizeof(error), "%u:%u: Expected , before \"", line_and_col);
                         goto e_failed;
                      }
 
@@ -747,7 +747,7 @@ json_value * json_parse_ex (json_settings * settings,
                      }
                      /* FALLTHROUGH */
                   default:
-                     sprintf (error, "%u:%u: Unexpected `%c` in object", line_and_col, b);
+                     snprintf (error, sizeof(error), "%u:%u: Unexpected `%c` in object", line_and_col, b);
                      goto e_failed;
                };
 
@@ -765,7 +765,7 @@ json_value * json_parse_ex (json_settings * settings,
                      if (! (flags & flag_num_e))
                      {
                         if (flags & flag_num_zero)
-                        {  sprintf (error, "%u:%u: Unexpected `0` before `%c`", line_and_col, b);
+                        {  snprintf (error, sizeof(error), "%u:%u: Unexpected `0` before `%c`", line_and_col, b);
                            goto e_failed;
                         }
 
@@ -814,7 +814,7 @@ json_value * json_parse_ex (json_settings * settings,
                else if (b == '.' && top->type == json_integer)
                {
                   if (!num_digits)
-                  {  sprintf (error, "%u:%u: Expected digit before `.`", line_and_col);
+                  {  snprintf (error, sizeof(error), "%u:%u: Expected digit before `.`", line_and_col);
                      goto e_failed;
                   }
 
@@ -831,7 +831,7 @@ json_value * json_parse_ex (json_settings * settings,
                   if (top->type == json_double)
                   {
                      if (!num_digits)
-                     {  sprintf (error, "%u:%u: Expected digit after `.`", line_and_col);
+                     {  snprintf (error, sizeof(error), "%u:%u: Expected digit after `.`", line_and_col);
                         goto e_failed;
                      }
 
@@ -857,7 +857,7 @@ json_value * json_parse_ex (json_settings * settings,
                else
                {
                   if (!num_digits)
-                  {  sprintf (error, "%u:%u: Expected digit after `e`", line_and_col);
+                  {  snprintf (error, sizeof(error), "%u:%u: Expected digit after `e`", line_and_col);
                      goto e_failed;
                   }
 
@@ -942,7 +942,7 @@ json_value * json_parse_ex (json_settings * settings,
 
 e_unknown_value:
 
-   sprintf (error, "%u:%u: Unknown value", line_and_col);
+   snprintf (error, sizeof(error), "%u:%u: Unknown value", line_and_col);
    goto e_failed;
 
 e_alloc_failure:
@@ -952,7 +952,7 @@ e_alloc_failure:
 
 e_overflow:
 
-   sprintf (error, "%u:%u: Too long (caught overflow)", line_and_col);
+   snprintf (error, sizeof(error), "%u:%u: Too long (caught overflow)", line_and_col);
    goto e_failed;
 
 e_failed:

src/main.c

@@ -6,7 +6,7 @@
 /*  routines, etc.                                             */
 /*                                                             */
 /*  This file is part of REMIND.                               */
-/*  Copyright (C) 1992-2024 by Dianne Skoll                    */
+/*  Copyright (C) 1992-2025 by Dianne Skoll                    */
 /*  SPDX-License-Identifier: GPL-2.0-only                      */
 /*                                                             */
 /***************************************************************/
@@ -60,19 +60,21 @@ exitfunc(void)
     /* Kill any execution-time-limiter process */
     unlimit_execution_time();
 
-    int maxlen, total;
-    double avglen;
-    if (DebugFlag & DB_PARSE_EXPR) {
+    if (DebugFlag & DB_HASHSTATS) {
         fflush(stdout);
-        fflush(stderr);
-        get_var_hash_stats(&total, &maxlen, &avglen);
-        fprintf(stderr, "  Var hash: total = %d; maxlen = %d; avglen = %.3f\n", total, maxlen, avglen);
-        get_userfunc_hash_stats(&total, &maxlen, &avglen);
-        fprintf(stderr, " Func hash: total = %d; maxlen = %d; avglen = %.3f\n", total, maxlen, avglen);
-        get_dedupe_hash_stats(&total, &maxlen, &avglen);
-        fprintf(stderr, "Dedup hash: total = %d; maxlen = %d; avglen = %.3f\n", total, maxlen, avglen);
-        get_translation_hash_stats(&total, &maxlen, &avglen);
-        fprintf(stderr, "Trans hash: total = %d; maxlen = %d; avglen = %.3f\n", total, maxlen, avglen);
+        fflush(ErrFp);
+        fprintf(ErrFp, "Variable hash table statistics:\n");
+        dump_var_hash_stats();
+
+        fprintf(ErrFp, "Function hash table statistics:\n");
+        dump_userfunc_hash_stats();
+
+        fprintf(ErrFp, "Dedupe hash table statistics:\n");
+        dump_dedupe_hash_stats();
+
+        fprintf(ErrFp, "Translation hash table statistics:\n");
+        dump_translation_hash_stats();
+
         UnsetAllUserFuncs();
         print_expr_nodes_stats();
     }
@@ -128,7 +130,7 @@ int main(int argc, char *argv[])
     sigemptyset(&act.sa_mask);
     act.sa_flags = SA_RESTART;
     if (sigaction(SIGALRM, &act, NULL) < 0) {
-        fprintf(stderr, "%s: sigaction() failed: %s\n",
+        fprintf(ErrFp, "%s: sigaction() failed: %s\n",
                 argv[0], strerror(errno));
         exit(1);
     }
@@ -137,7 +139,7 @@ int main(int argc, char *argv[])
     act.sa_flags = SA_RESTART;
     sigemptyset(&act.sa_mask);
     if (sigaction(SIGXCPU, &act, NULL) < 0) {
-        fprintf(stderr, "%s: sigaction() failed: %s\n",
+        fprintf(ErrFp, "%s: sigaction() failed: %s\n",
                 argv[0], strerror(errno));
         exit(1);
     }
@@ -177,6 +179,7 @@ int main(int argc, char *argv[])
                 printf("%s\n", GetErr(E_NOREMINDERS));
             } else if (!Daemon && !NextMode && !NumTriggered) {
                 printf(GetErr(M_QUEUED), NumQueued);
+                printf("\n");
             }
         }
 
@@ -314,6 +317,7 @@ static void DoReminders(void)
             case T_EndIf:   r=DoEndif(&p);   break;
             case T_Include:
             case T_IncludeR:
+            case T_IncludeSys:
                 /* In purge mode, include closes file, so we
                    need to echo it here! */
                 if (PurgeMode) {
@@ -370,7 +374,7 @@ static void DoReminders(void)
 
             default:
                 if (!SuppressImplicitRemWarnings) {
-                    Wprint("Unrecognized command; interpreting as REM");
+                    Wprint(tr("Unrecognized command; interpreting as REM"));
                     WarnedAboutImplicit = 1;
                 }
                 DestroyParser(&p);
@@ -599,6 +603,24 @@ int ParseNonSpaceChar(ParsePtr p, int *err, int peek)
     return ch;
 }
 
+/***************************************************************/
+/*                                                             */
+/*  ParseTokenOrQuotedString                                   */
+/*                                                             */
+/*  Parse either a token or a double-quote-delimited string.   */
+/*                                                             */
+/***************************************************************/
+int ParseTokenOrQuotedString(ParsePtr p, DynamicBuffer *dbuf)
+{
+    int c, err;
+    c = ParseNonSpaceChar(p, &err, 1);
+    if (err) return err;
+    if (c != '"') {
+        return ParseToken(p, dbuf);
+    }
+    return ParseQuotedString(p, dbuf);
+}
+
 /***************************************************************/
 /*                                                             */
 /*  ParseQuotedString                                          */
@@ -608,7 +630,9 @@ int ParseNonSpaceChar(ParsePtr p, int *err, int peek)
 /***************************************************************/
 int ParseQuotedString(ParsePtr p, DynamicBuffer *dbuf)
 {
-    int c, err;
+    int c, err, c2;
+    char hexbuf[3];
+
     DBufFree(dbuf);
     c = ParseNonSpaceChar(p, &err, 0);
     if (err) return err;
@@ -652,6 +676,34 @@ int ParseQuotedString(ParsePtr p, DynamicBuffer *dbuf)
             case 'v':
                 err = DBufPutc(dbuf, '\v');
                 break;
+            case 'x':
+                /* \x Followed by one or two hex digits */
+                c2 = ParseChar(p, &err, 1);
+                if (err) break;
+                if (!isxdigit(c2)) {
+                    err = DBufPutc(dbuf, c);
+                    break;
+                }
+                hexbuf[0] = c2;
+                hexbuf[1] = 0;
+                c2 = ParseChar(p, &err, 0);
+                if (err) break;
+                c2 = ParseChar(p, &err, 1);
+                if (err) break;
+                if (isxdigit(c2)) {
+                    hexbuf[1] = c2;
+                    hexbuf[2] = 0;
+                    c2 = ParseChar(p, &err, 0);
+                    if (err) break;
+                }
+                c2 = (int) strtol(hexbuf, NULL, 16);
+                if (!c2) {
+                    Eprint(tr("\\x00 is not a valid escape sequence"));
+                    err = E_PARSE_ERR;
+                } else {
+                    err = DBufPutc(dbuf, c2);
+                }
+                break;
             default:
                 err = DBufPutc(dbuf, c);
             }
@@ -988,6 +1040,11 @@ int SystemTime(int realtime)
 
     if (!realtime && (SysTime != -1)) return SysTime;
 
+    if (TestMode) {
+        /* Pretend it's 7:00PM in test mode */
+        return 19 * 3600;
+    }
+
     now = time(NULL);
     t = localtime(&now);
     return t->tm_hour * 3600L + t->tm_min * 60L +
@@ -1021,6 +1078,14 @@ int SystemDate(int *y, int *m, int *d)
     time_t now;
     struct tm *t;
 
+    /* In test mode, always return 6 January 2025 */
+    if (TestMode) {
+        *y = 2025;
+        *m = 0;
+        *d = 6;
+        return 12789; /* 2025-01-06 */
+    }
+
     now = time(NULL);
     t = localtime(&now);
 
@@ -1246,12 +1311,24 @@ int DoDebug(ParsePtr p)
             else     DebugFlag &= ~DB_ECHO_LINE;
             break;
 
+        case 'q':
+        case 'Q':
+            if (val) DebugFlag |=  DB_TRANSLATE;
+            else     DebugFlag &= ~DB_TRANSLATE;
+            break;
+
         case 's':
         case 'S':
             if (val) DebugFlag |=  DB_PARSE_EXPR;
             else     DebugFlag &= ~DB_PARSE_EXPR;
             break;
 
+        case 'h':
+        case 'H':
+            if (val) DebugFlag |=  DB_HASHSTATS;
+            else     DebugFlag &= ~DB_HASHSTATS;
+            break;
+
         case 'x':
         case 'X':
             if (val) DebugFlag |=  DB_PRTEXPR;
@@ -1281,6 +1358,9 @@ int DoDebug(ParsePtr p)
             if (val) DebugFlag |= DB_TRACE_FILES;
             else     DebugFlag &= ~DB_TRACE_FILES;
             break;
+        default:
+            Wprint(GetErr(M_BAD_DB_FLAG), ch);
+            break;
         }
     }
 }
@@ -1865,6 +1945,8 @@ void
 FreeTrig(Trigger *t)
 {
     DBufFree(&(t->tags));
+    FreeTrigInfoChain(t->infos);
+    t->infos = NULL;
 }
 
 void
@@ -1891,7 +1973,7 @@ ClearLastTriggers(void)
     LastTrigger.omitfunc[0] = 0;
     LastTrigger.passthru[0] = 0;
     DBufFree(&(LastTrigger.tags));
-
+    LastTrigger.infos = NULL;
     LastTimeTrig.ttime = NO_TIME;
     LastTimeTrig.delta = NO_DELTA;
     LastTimeTrig.rep   = NO_REP;
@@ -1979,8 +2061,7 @@ get_day_name(int wkday)
     if (wkday < 0 || wkday > 6) {
         return "INVALID_WKDAY";
     }
-    if (DynamicDayName[wkday]) return DynamicDayName[wkday];
-    return DayName[wkday];
+    return tr(DayName[wkday]);
 }
 
 char const *
@@ -1989,8 +2070,7 @@ get_month_name(int mon)
     if (mon < 0 || mon > 11) {
         return "INVALID_MON";
     }
-    if (DynamicMonthName[mon]) return DynamicMonthName[mon];
-    return MonthName[mon];
+    return tr(MonthName[mon]);
 }
 
 static int GetOnceDateFromFile(void)
@@ -2009,7 +2089,7 @@ static int GetOnceDateFromFile(void)
     /* Save today to file */
     fp = fopen(OnceFile, "w");
     if (!fp) {
-        Wprint("Warning: Unable to save ONCE timestamp to %s: %s",
+        Wprint(tr("Warning: Unable to save ONCE timestamp to %s: %s"),
                OnceFile, strerror(errno));
         return once_date;
     }
@@ -2030,25 +2110,9 @@ int GetOnceDate(void)
     return OnceDate;
 }
 
-static void
-get_printf_escapes(char const *str, DynamicBuffer *out)
-{
-    char const *s = str;
-    while(*s) {
-        if (*s == '%' && *(s+1) != 0) {
-            s++;
-            DBufPutc(out, *s);
-        }
-        s++;
-    }
-}
-
 char const *GetErr(int r)
 {
     char const *msg;
-    DynamicBuffer origEscapes;
-    DynamicBuffer translatedEscapes;
-    int dangerous;
 
     if (r < 0 || r >= NumErrs) {
         r = E_SWERR;
@@ -2059,23 +2123,5 @@ char const *GetErr(int r)
         return ErrMsg[r];
     }
 
-    /* We need to make sure both the original and translated version
-       have the *SAME* printf-style escapes to avoid a malicious
-       translation file doing a format-string attack */
-    DBufInit(&origEscapes);
-    DBufInit(&translatedEscapes);
-
-    get_printf_escapes(ErrMsg[r], &origEscapes);
-    get_printf_escapes(msg, &translatedEscapes);
-
-    dangerous = strcmp(DBufValue(&origEscapes), DBufValue(&translatedEscapes));
-
-    DBufFree(&origEscapes);
-    DBufFree(&translatedEscapes);
-
-    if (dangerous) {
-        return ErrMsg[r];
-    } else {
-        return msg;
-    }
+    return msg;
 }

src/moon.c

@@ -5,7 +5,7 @@
 /*  Calculations for figuring out moon phases.                 */
 /*                                                             */
 /*  This file is part of REMIND.                               */
-/*  Copyright (C) 1992-2024 by Dianne Skoll                    */
+/*  Copyright (C) 1992-2025 by Dianne Skoll                    */
 /*  SPDX-License-Identifier: GPL-2.0-only                      */
 /*                                                             */
 /***************************************************************/

src/omit.c

@@ -6,7 +6,7 @@
 /*  the data structures for OMITted dates.                     */
 /*                                                             */
 /*  This file is part of REMIND.                               */
-/*  Copyright (C) 1992-2024 by Dianne Skoll                    */
+/*  Copyright (C) 1992-2025 by Dianne Skoll                    */
 /*  SPDX-License-Identifier: GPL-2.0-only                      */
 /*                                                             */
 /***************************************************************/
@@ -92,7 +92,7 @@ int DestroyOmitContexts(int print_unmatched)
 
     while (c) {
         if (print_unmatched) {
-            Wprint("Unmatched PUSH-OMIT-CONTEXT at %s(%d)",
+            Wprint(tr("Unmatched PUSH-OMIT-CONTEXT at %s(%d)"),
                    c->filename, c->lineno);
         }
         num++;
@@ -185,6 +185,9 @@ int PopOmitContext(ParsePtr p)
     /* Remove the context from the stack */
     SavedOmitContexts = c->next;
 
+    if (c->filename && FileName && strcmp(c->filename, FileName)) {
+        Wprint(tr("POP-OMIT-CONTEXT at %s:%d matches PUSH-OMIT-CONTEXT in different file: %s:%d"), FileName, LineNo, c->filename, c->lineno);
+    }
     /* Free memory used by the saved context */
     if (c->partsave) free(c->partsave);
     if (c->fullsave) free(c->fullsave);
@@ -215,7 +218,7 @@ int IsOmitted(int dse, int localomit, char const *omitfunc, int *omit)
         Value v;
 
         FromDSE(dse, &y, &m, &d);
-        sprintf(expr, "%s('%04d-%02d-%02d')",
+        snprintf(expr, sizeof(expr), "%s('%04d-%02d-%02d')",
                 omitfunc, y, m+1, d);
         s = expr;
         r = EvalExpr(&s, &v, NULL);
@@ -385,6 +388,7 @@ int DoOmit(ParsePtr p)
         case T_RemType:
         case T_Priority:
         case T_Tag:
+        case T_Info:
         case T_Duration:
             DBufFree(&buf);
             parsing = 0;
@@ -392,7 +396,7 @@ int DoOmit(ParsePtr p)
 
         default:
             if (tok.type == T_Until) {
-                Eprint("OMIT: UNTIL not allowed; did you mean THROUGH?");
+                Eprint(tr("OMIT: UNTIL not allowed; did you mean THROUGH?"));
             } else if (tok.type == T_Illegal && tok.val < 0) {
                 Eprint("%s: `%s'", GetErr(-tok.val), DBufValue(&buf));
             } else {
@@ -412,7 +416,7 @@ int DoOmit(ParsePtr p)
             return E_2MANY_LOCALOMIT;
         }
         WeekdayOmits |= wd;
-        if (tok.type == T_Tag || tok.type == T_Duration || tok.type == T_RemType || tok.type == T_Priority) return E_PARSE_AS_REM;
+        if (tok.type == T_Tag || tok.type == T_Info || tok.type == T_Duration || tok.type == T_RemType || tok.type == T_Priority) return E_PARSE_AS_REM;
         return OK;
     }
 
@@ -462,7 +466,7 @@ int DoOmit(ParsePtr p)
                 InsertIntoSortedArray(PartialOmitArray, NumPartialOmits, syndrome);
                 NumPartialOmits++;
                 if (NumPartialOmits == 366) {
-                    Wprint("You have OMITted everything!  The space-time continuum is at risk.");
+                    Wprint(tr("You have OMITted everything!  The space-time continuum is at risk."));
                 }
             }
             if (mc == m[1] && dc == d[1]) {
@@ -484,7 +488,7 @@ int DoOmit(ParsePtr p)
         start = DSE(y[0], m[0], d[0]);
         end   = DSE(y[1], m[1], d[1]);
         if (end < start) {
-            Eprint("Error: THROUGH date earlier than start date");
+            Eprint(tr("Error: THROUGH date earlier than start date"));
             return E_BAD_DATE;
         }
 
@@ -497,7 +501,7 @@ int DoOmit(ParsePtr p)
         }
     }
 
-    if (tok.type == T_Tag || tok.type == T_Duration || tok.type == T_RemType || tok.type == T_Priority) return E_PARSE_AS_REM;
+    if (tok.type == T_Tag || tok.type == T_Info || tok.type == T_Duration || tok.type == T_RemType || tok.type == T_Priority) return E_PARSE_AS_REM;
     return OK;
 
 }
@@ -544,7 +548,7 @@ DumpOmits(void)
     } else {
         for (i=0; i<7; i++) {
             if (WeekdayOmits & (1<<i)) {
-                printf("\t%s\n", EnglishDayName[i]);
+                printf("\t%s\n", DayName[i]);
             }
         }
     }

src/protos.h

@@ -5,7 +5,7 @@
 /*  Function Prototypes.                                       */
 /*                                                             */
 /*  This file is part of REMIND.                               */
-/*  Copyright (C) 1992-2024 by Dianne Skoll                    */
+/*  Copyright (C) 1992-2025 by Dianne Skoll                    */
 /*  SPDX-License-Identifier: GPL-2.0-only                      */
 /*                                                             */
 /***************************************************************/
@@ -88,6 +88,7 @@ int JulianToGregorianOffset(int y, int m);
 int ParseChar (ParsePtr p, int *err, int peek);
 int ParseToken (ParsePtr p, DynamicBuffer *dbuf);
 int ParseQuotedString (ParsePtr p, DynamicBuffer *dbuf);
+int ParseTokenOrQuotedString (ParsePtr p, DynamicBuffer *dbuf);
 int ParseIdentifier (ParsePtr p, DynamicBuffer *dbuf);
 expr_node * ParseExpr(ParsePtr p, int *r);
 void print_expr_nodes_stats(void);
@@ -228,7 +229,6 @@ void set_cloexec(FILE *fp);
 int push_call(char const *filename, char const *func, int lineno);
 void clear_callstack(void);
 int print_callstack(FILE *fp);
-int have_callstack(void);
 void pop_call(void);
 void FixSpecialType(Trigger *trig);
 void WriteJSONTrigger(Trigger const *t, int include_tags, int today);
@@ -255,10 +255,10 @@ void print_builtinfunc_tokens(void);
 void print_remind_tokens(void);
 
 /* Stats for -ds output */
-void get_var_hash_stats(int *total, int *maxlen, double *avglen);
-void get_userfunc_hash_stats(int *total, int *maxlen, double *avglen);
-void get_dedupe_hash_stats(int *total, int *maxlen, double *avglen);
-void get_translation_hash_stats(int *total, int *maxlen, double *avglen);
+void dump_var_hash_stats(void);
+void dump_userfunc_hash_stats(void);
+void dump_dedupe_hash_stats(void);
+void dump_translation_hash_stats(void);
 
 /* Dedupe code */
 int ShouldDedupe(int trigger_date, int trigger_time, char const *body);
@@ -271,5 +271,14 @@ void InitTranslationTable(void);
 char const *GetTranslatedString(char const *orig);
 int GetTranslatedStringTryingVariants(char const *orig, DynamicBuffer *out);
 char const *GetErr(int r);
-char const *t(char const *s);
+char const *tr(char const *s);
 void print_escaped_string(FILE *fp, char const *s);
+void print_escaped_string_helper(FILE *fp, char const *s, int esc_for_remind, int json);
+void GenerateSysvarTranslationTemplates(void);
+void TranslationTemplate(char const *msg);
+TrigInfo *NewTrigInfo(char const *i);
+void FreeTrigInfo(TrigInfo *ti);
+void FreeTrigInfoChain(TrigInfo *ti);
+int AppendTrigInfo(Trigger *t, char const *info);
+int TrigInfoHeadersAreTheSame(char const *i1, char const *i2);
+int TrigInfoIsValid(char const *info);

src/queue.c

@@ -5,7 +5,7 @@
 /*  Queue up reminders for subsequent execution.               */
 /*                                                             */
 /*  This file is part of REMIND.                               */
-/*  Copyright (C) 1992-2024 by Dianne Skoll                    */
+/*  Copyright (C) 1992-2025 by Dianne Skoll                    */
 /*  SPDX-License-Identifier: GPL-2.0-only                      */
 /*                                                             */
 /***************************************************************/
@@ -163,6 +163,7 @@ static void del_reminder(QueuedRem *qid)
     if (q == qid) {
         QueueHead = q->next;
         if (q->text) free((void *) q->text);
+        FreeTrig(&(q->t));
         free(q);
         return;
     }
@@ -171,6 +172,7 @@ static void del_reminder(QueuedRem *qid)
         if (q->next == qid) {
             q->next = q->next->next;
             if (next->text) free((void *) next->text);
+            FreeTrig(&(next->t));
             free(next);
             return;
         }
@@ -227,6 +229,10 @@ int QueueReminder(ParsePtr p, Trigger *trig,
     strcpy(qelem->passthru, trig->passthru);
     qelem->tt = *tim;
     qelem->t = *trig;
+
+    /* Take over infos */
+    trig->infos = NULL;
+
     DBufInit(&(qelem->t.tags));
     DBufPuts(&(qelem->t.tags), DBufValue(&(trig->tags)));
     if (SynthesizeTags) {
@@ -346,8 +352,9 @@ void HandleQueuedReminders(void)
     /* If we're a daemon, get the mod time of initial file */
     if (Daemon > 0) {
         if (stat(InitialFile, &StatBuf)) {
-            fprintf(ErrFp, "Cannot stat %s - not running as daemon!\n",
+            fprintf(ErrFp, tr("Cannot stat %s - not running as daemon!"),
                     InitialFile);
+            fprintf(ErrFp, "\n");
             Daemon = 0;
         } else FileModTime = StatBuf.st_mtime;
     }
@@ -459,7 +466,11 @@ void HandleQueuedReminders(void)
             if (IsServerMode() && q->typ != RUN_TYPE) {
                 if (DaemonJSON) {
                     printf("{\"response\":\"reminder\",");
-                    snprintf(qid, sizeof(qid), "%lx", (unsigned long) q);
+                    if (TestMode) {
+                        snprintf(qid, sizeof(qid), "42424242");
+                    } else {
+                        snprintf(qid, sizeof(qid), "%lx", (unsigned long) q);
+                    }
                     PrintJSONKeyPairString("qid", qid);
                     PrintJSONKeyPairString("ttime", SimpleTimeNoSpace(q->tt.ttime));
                     PrintJSONKeyPairString("now", SimpleTimeNoSpace(MinutesPastMidnight(1)));
@@ -485,6 +496,7 @@ void HandleQueuedReminders(void)
             DefaultColorB = q->blue;
             /* Make a COPY of q->t because TriggerReminder can change q->t.typ */
             Trigger tcopy = q->t;
+
             if (DaemonJSON) {
                 DynamicBuffer out;
                 DBufInit(&out);
@@ -697,7 +709,7 @@ static int CalculateNextTimeUsingSched(QueuedRem *q)
                                      to be a security hole!                */
     while(1) {
         char exprBuf[VAR_NAME_LEN+32];
-        sprintf(exprBuf, "%s(%d)", q->sched, q->ntrig);
+        snprintf(exprBuf, sizeof(exprBuf), "%s(%d)", q->sched, q->ntrig);
         s = exprBuf;
         r = EvalExpr(&s, &v, NULL);
         if (r) {
@@ -759,7 +771,11 @@ json_queue(QueuedRem const *q)
         printf("{");
         WriteJSONTrigger(&(q->t), 1, DSEToday);
         WriteJSONTimeTrigger(&(q->tt));
-        snprintf(idbuf, sizeof(idbuf), "%lx", (unsigned long) q);
+        if (TestMode) {
+            snprintf(idbuf, sizeof(idbuf), "42424242");
+        } else {
+            snprintf(idbuf, sizeof(idbuf), "%lx", (unsigned long) q);
+        }
         PrintJSONKeyPairString("qid", idbuf);
         PrintJSONKeyPairInt("rundisabled", q->RunDisabled);
         PrintJSONKeyPairInt("ntrig", q->ntrig);

src/rem2ps.c

@@ -5,7 +5,7 @@
 /*  Print a PostScript calendar.                               */
 /*                                                             */
 /*  This file is part of REMIND.                               */
-/*  Copyright (C) 1992-2024 by Dianne Skoll                    */
+/*  Copyright (C) 1992-2025 by Dianne Skoll                    */
 /*  SPDX-License-Identifier: GPL-2.0-only                      */
 /*                                                             */
 /***************************************************************/
@@ -350,13 +350,14 @@ int main(int argc, char *argv[])
             !strcmp(DBufValue(&buf), PSBEGIN2)) {
             if (!validfile) {
                 if (Verbose) {
-                    fprintf(stderr, "Rem2PS: Version %s Copyright 1992-2024 by Dianne Skoll\n\n", VERSION);
+                    fprintf(stderr, "Rem2PS: Version %s Copyright (C) 1992-2025 by Dianne Skoll\n\n", VERSION);
                     fprintf(stderr, "Generating PostScript calendar\n");
                 }
             }
             validfile++;
             DoPsCal();
         }
+        DBufFree(&buf);
     }
     if (!validfile) {
         fprintf(stderr, "Rem2PS: Couldn't find any calendar data - are you\n");
@@ -1221,7 +1222,7 @@ int DoQueuedPs(void)
                 if (moonsize < 0) {
                     size = "DaySize 2 div";
                 } else {
-                    sprintf(buffer, "%d", moonsize);
+                    snprintf(buffer, sizeof(buffer), "%d", moonsize);
                     size = buffer;
                 }
 
@@ -1234,7 +1235,7 @@ int DoQueuedPs(void)
                         if (fontsize < 0) {
                             fsize = "EntrySize";
                         } else {
-                            sprintf(fbuffer, "%d", fontsize);
+                            snprintf(fbuffer, sizeof(fbuffer), "%d", fontsize);
                             fsize = fbuffer;
                         }
                         printf("/EntryFont findfont %s scalefont setfont (",
@@ -1272,7 +1273,7 @@ int DoQueuedPs(void)
                     if (fontsize < 0) {
                         fsize = "EntrySize";
                     } else {
-                        sprintf(fbuffer, "%d", fontsize);
+                        snprintf(fbuffer, sizeof(fbuffer), "%d", fontsize);
                         fsize = fbuffer;
                     }
                     printf("/EntryFont findfont %s scalefont setfont (",

src/rem2ps.h

@@ -5,7 +5,7 @@
 /*  Define the PostScript prologue                             */
 /*                                                             */
 /*  This file is part of REMIND.                               */
-/*  Copyright (C) 1992-2024 by Dianne Skoll                    */
+/*  Copyright (C) 1992-2025 by Dianne Skoll                    */
 /*  SPDX-License-Identifier: GPL-2.0-only                      */
 /*                                                             */
 /***************************************************************/
@@ -14,7 +14,7 @@ char *PSProlog1[] =
 {
     "% This file was produced by Remind and Rem2PS, written by",
     "% Dianne Skoll.",
-    "% Remind and Rem2PS are Copyright 1992-2024 Dianne Skoll.",
+    "% Remind and Rem2PS are Copyright (C) 1992-2025 Dianne Skoll.",
     "/ISOLatin1Encoding where { pop save true }{ false } ifelse",
     "  /ISOLatin1Encoding [ StandardEncoding 0 45 getinterval aload pop /minus",
     "    StandardEncoding 46 98 getinterval aload pop /dotlessi /grave /acute",

src/sort.c

@@ -5,7 +5,7 @@
 /*  Routines for sorting reminders by trigger date             */
 /*                                                             */
 /*  This file is part of REMIND.                               */
-/*  Copyright (C) 1992-2024 by Dianne Skoll                    */
+/*  Copyright (C) 1992-2025 by Dianne Skoll                    */
 /*  SPDX-License-Identifier: GPL-2.0-only                      */
 /*                                                             */
 /***************************************************************/
@@ -183,7 +183,7 @@ static void IssueSortBanner(int dse)
     if (UserFuncExists("sortbanner") != 1) return;
 
     FromDSE(dse, &y, &m, &d);
-    sprintf(BanExpr, "sortbanner('%04d/%02d/%02d')", y, m+1, d);   
+    snprintf(BanExpr, sizeof(BanExpr), "sortbanner('%04d/%02d/%02d')", y, m+1, d);   
     y = EvalExpr(&s, &v, NULL);
     if (y) return;
     if (DoCoerce(STR_TYPE, &v)) return;

src/token.c

@@ -6,7 +6,7 @@
 /*  classifying the tokens parsed.                             */
 /*                                                             */
 /*  This file is part of REMIND.                               */
-/*  Copyright (C) 1992-2024 by Dianne Skoll                    */
+/*  Copyright (C) 1992-2025 by Dianne Skoll                    */
 /*  SPDX-License-Identifier: GPL-2.0-only                      */
 /*                                                             */
 /***************************************************************/
@@ -71,6 +71,7 @@ Token TokArray[] = {
     { "in",             2,      T_In,           0 },
     { "include",        3,      T_Include,      0 },
     { "includecmd",     10,     T_IncludeCmd,   0 },
+    { "info",           4,      T_Info,         0 },
     { "january",        3,      T_Month,        0 },
     { "july",           3,      T_Month,        6 },
     { "june",           3,      T_Month,        5 },
@@ -107,6 +108,7 @@ Token TokArray[] = {
     { "skip",           4,      T_Skip, SKIP_SKIP },
     { "special",        7,      T_RemType,      PASSTHRU_TYPE },
     { "sunday",         3,      T_WkDay,        6 },
+    { "sysinclude",     10,     T_IncludeSys,   0 },
     { "tag",            3,      T_Tag,          0 },
     { "third",          5,      T_Ordinal,      2 },
     { "through",        7,      T_Through,      0 },

src/trans.c

@@ -6,7 +6,7 @@
 /*  the TRANSLATE keyword.                                     */
 /*                                                             */
 /*  This file is part of REMIND.                               */
-/*  Copyright (C) 1992-2024 by Dianne Skoll                    */
+/*  Copyright (C) 1992-2025 by Dianne Skoll                    */
 /*  SPDX-License-Identifier: GPL-2.0-only                      */
 /*                                                             */
 /***************************************************************/
@@ -34,6 +34,71 @@ typedef struct xlat {
 
 hash_table TranslationTable;
 
+static XlateItem *FindTranslation(char const *orig);
+static int printf_formatters_are_safe(char const *orig, char const *translated);
+
+void
+TranslationTemplate(char const *in)
+{
+    if (!*in) {
+        return;
+    }
+    if (!strcmp(in, "LANGID")) {
+        return;
+    }
+
+    printf("TRANSLATE ");
+    print_escaped_string_helper(stdout, in, 1, 0);
+    if (FindTranslation(in)) {
+        printf(" ");
+        print_escaped_string_helper(stdout, tr(in), 1, 0);
+        printf("\n");
+    } else {
+        printf(" \"\"\n");
+    }
+}
+
+static void
+GenerateTranslationTemplate(void)
+{
+    int i;
+
+    printf("# Translation table template\n\n");
+
+    printf("TRANSLATE \"LANGID\" ");
+    print_escaped_string_helper(stdout, tr("LANGID"), 1, 0);
+    printf("\n\n");
+
+    printf("BANNER %s\n", DBufValue(&Banner));
+
+    printf("\n# Weekday Names\n");
+    for (i=0; i<7; i++) {
+        printf("SET $%s ", DayName[i]);
+        print_escaped_string_helper(stdout, tr(DayName[i]), 1, 0);
+        printf("\n");
+    }
+
+    printf("\n# Month Names\n");
+    for (i=0; i<12; i++) {
+        printf("SET $%s ", MonthName[i]);
+        print_escaped_string_helper(stdout, tr(MonthName[i]), 1, 0);
+        printf("\n");
+    }
+
+    printf("\n# Other Translation-related System Variables\n");
+    GenerateSysvarTranslationTemplates();
+
+    printf("\n# Error Messages\n");
+    for (i=0; i<NumErrs; i++) {
+        TranslationTemplate(ErrMsg[i]);
+    }
+
+    printf("\n# Other Messages\n");
+    for (i=0; translatables[i] != NULL; i++) {
+        TranslationTemplate(translatables[i]);
+    }
+}
+
 /***************************************************************/
 /*                                                             */
 /*  AllocateXlateItem - Allocate a new translation item        */
@@ -113,6 +178,17 @@ ClearTranslationTable(void)
 void
 print_escaped_string(FILE *fp, char const *s)
 {
+    print_escaped_string_helper(fp, s, 0, 0);
+}
+
+static void
+print_escaped_string_json(FILE *fp, char const *s)
+{
+    print_escaped_string_helper(fp, s, 0, 1);
+}
+
+void
+print_escaped_string_helper(FILE *fp, char const *s, int esc_for_remind, int json) {
     putc('"', fp);
     while(*s) {
         switch(*s) {
@@ -126,7 +202,20 @@ print_escaped_string(FILE *fp, char const *s)
         case '"':  putc('\\', fp); putc('"', fp); break;
         case '\\': putc('\\', fp); putc('\\', fp); break;
         default:
-            putc(*s, fp); break;
+            if ((*s > 0 && *s < 32) || *s == 0x7f) {
+                if (json) {
+                    fprintf(fp, "\\u%04x", (unsigned int) *s);
+                } else {
+                    fprintf(fp, "\\x%02x", (unsigned int) *s);
+                }
+            } else {
+                if (esc_for_remind && *s == '[') {
+                    fprintf(fp, "[\"[\"]");
+                } else {
+                    putc(*s, fp);
+                }
+            }
+            break;
         }
         s++;
     }
@@ -171,9 +260,9 @@ DumpTranslationTable(FILE *fp, int json)
                 fprintf(fp, ",");
             }
             done=1;
-            print_escaped_string(fp, item->orig);
+            print_escaped_string_json(fp, item->orig);
             fprintf(fp, ":");
-            print_escaped_string(fp, item->translated);
+            print_escaped_string_json(fp, item->translated);
         }
         item = hash_table_next(&TranslationTable, item);
     }
@@ -202,7 +291,7 @@ InitTranslationTable(void)
 {
     if (hash_table_init(&TranslationTable, offsetof(XlateItem, link),
                         HashXlateItem, CompareXlateItems) < 0) {
-        fprintf(stderr, "Unable to initialize translation hash table: Out of memory.  Exiting.\n");
+        fprintf(ErrFp, "Unable to initialize translation hash table: Out of memory.  Exiting.\n");
         exit(1);
     }
     InsertTranslation("LANGID", "en");
@@ -221,7 +310,13 @@ FindTranslation(char const *orig)
 int
 InsertTranslation(char const *orig, char const *translated)
 {
-    XlateItem *item = FindTranslation(orig);
+    XlateItem *item;
+
+    if (!printf_formatters_are_safe(orig, translated)) {
+        Eprint(tr("Invalid translation: Both original and translated must have the same printf-style formatting sequences in the same order."));
+        return E_PARSE_ERR;
+    }
+    item = FindTranslation(orig);
     if (item) {
         if (!strcmp(item->translated, translated)) {
             /* Translation is the same; do nothing */
@@ -229,6 +324,10 @@ InsertTranslation(char const *orig, char const *translated)
         }
         RemoveTranslation(item);
     }
+
+    if (strcmp(orig, "LANGID") && (!strcmp(orig, translated))) {
+        return OK;
+    }
     item = AllocateXlateItem(orig, translated);
     if (!item) {
         return E_NO_MEM;
@@ -308,7 +407,7 @@ GetTranslatedStringTryingVariants(char const *orig, DynamicBuffer *out)
     return 0;
 }
 
-char const *t(char const *orig)
+char const *tr(char const *orig)
 {
     char const *n = GetTranslatedString(orig);
     if (n) {
@@ -348,6 +447,12 @@ DoTranslate(ParsePtr p)
             ClearTranslationTable();
             return OK;
         }
+        if (!StrCmpi(DBufValue(&orig), "generate")) {
+            DBufFree(&orig);
+            if (r) return r;
+            GenerateTranslationTemplate();
+            return OK;
+        }
         return E_PARSE_ERR;
     }
 
@@ -381,12 +486,51 @@ DoTranslate(ParsePtr p)
 }
 
 void
-get_translation_hash_stats(int *total, int *maxlen, double *avglen)
+dump_translation_hash_stats(void)
 {
-    struct hash_table_stats s;
-    hash_table_get_stats(&TranslationTable, &s);
-    *total = s.num_entries;
-    *maxlen = s.max_len;
-    *avglen = s.avg_len;
+    hash_table_dump_stats(&TranslationTable, ErrFp);
 }
 
+static void
+get_printf_escapes(char const *str, DynamicBuffer *out)
+{
+    char const *s = str;
+    while(*s) {
+        if (*s == '%' && *(s+1) != 0) {
+
+            /* %% is safe and does not need to be replicated in translation */
+            if (*(s+1) == '%') {
+                s += 2;
+                continue;
+            }
+            s++;
+            DBufPutc(out, *s);
+            while (*s && *(s+1) && strchr("#0- +'I%123456789.hlqLjzZt", *s)) {
+                s++;
+                DBufPutc(out, *s);
+            }
+        }
+        s++;
+    }
+}
+
+static int
+printf_formatters_are_safe(char const *orig, char const *translated)
+{
+    DynamicBuffer origEscapes;
+    DynamicBuffer translatedEscapes;
+    int dangerous;
+
+    DBufInit(&origEscapes);
+    DBufInit(&translatedEscapes);
+
+    get_printf_escapes(orig, &origEscapes);
+    get_printf_escapes(translated, &translatedEscapes);
+
+    dangerous = strcmp(DBufValue(&origEscapes), DBufValue(&translatedEscapes));
+
+    if (dangerous) {
+        return 0;
+    }
+    return 1;
+}

src/trigger.c

@@ -5,15 +5,16 @@
 /*  Routines for figuring out the trigger date of a reminder   */
 /*                                                             */
 /*  This file is part of REMIND.                               */
-/*  Copyright (C) 1992-2024 by Dianne Skoll                    */
+/*  Copyright (C) 1992-2025 by Dianne Skoll                    */
 /*  SPDX-License-Identifier: GPL-2.0-only                      */
 /*                                                             */
 /***************************************************************/
 
 #include "config.h"
 #include <stdio.h>
-
 #include <stdlib.h>
+#include <string.h>
+
 #include "types.h"
 #include "protos.h"
 #include "globals.h"
@@ -668,3 +669,126 @@ int ComputeTriggerNoAdjustDuration(int today, Trigger *trig, TimeTrig *tim,
     return -1;
 }
 
+/***************************************************************/
+/*                                                             */
+/*  NewTrigInfo                                                */
+/*                                                             */
+/*  Create a new TrigInfo object with the specified contents.  */
+/*  Returns NULL if memory allocation fails.                   */
+/*                                                             */
+/***************************************************************/
+TrigInfo *
+NewTrigInfo(char const *i)
+{
+    TrigInfo *ti = malloc(sizeof(TrigInfo));
+
+    if (!ti) {
+        return NULL;
+    }
+    ti->next = NULL;
+    ti->info = StrDup(i);
+    if (!ti->info) {
+        free(ti);
+        return NULL;
+    }
+    return ti;
+}
+
+/***************************************************************/
+/*                                                             */
+/*  FreeTrigInfo                                               */
+/*                                                             */
+/*  Free a TrigInfo objects.                                   */
+/*                                                             */
+/***************************************************************/
+void
+FreeTrigInfo(TrigInfo *ti)
+{
+    if (ti->info) {
+        free( (void *) ti->info);
+    }
+    free(ti);
+}
+
+void
+FreeTrigInfoChain(TrigInfo *ti)
+{
+    TrigInfo *next;
+
+    while(ti) {
+        next = ti->next;
+        FreeTrigInfo(ti);
+        ti = next;
+    }
+}
+
+/***************************************************************/
+/*                                                             */
+/*  AppendTrigInfo                                             */
+/*                                                             */
+/*  Append an info item to a trigger.                          */
+/*                                                             */
+/***************************************************************/
+int
+AppendTrigInfo(Trigger *t, char const *info)
+{
+    TrigInfo *ti;
+    TrigInfo *last;
+
+    if (!TrigInfoIsValid(info)) {
+        Eprint("%s", tr("Invalid INFO string: Must be of the form \"Header: Value\""));
+        return E_PARSE_ERR;
+    }
+
+    ti = NewTrigInfo(info);
+    last = t->infos;
+    if (!ti) {
+        return E_NO_MEM;
+    }
+    if (!last) {
+        t->infos = ti;
+        return OK;
+    }
+    if (TrigInfoHeadersAreTheSame(info, last->info)) {
+        Eprint("%s", tr("Duplicate INFO headers are not permitted"));
+        FreeTrigInfo(ti);
+        return E_PARSE_ERR;
+    }
+    while (last->next) {
+        last = last->next;
+        if (TrigInfoHeadersAreTheSame(info, last->info)) {
+            Eprint("%s", tr("Duplicate INFO headers are not permitted"));
+            FreeTrigInfo(ti);
+            return E_PARSE_ERR;
+        }
+    }
+    last->next = ti;
+    return OK;
+}
+
+int
+TrigInfoHeadersAreTheSame(char const *i1, char const *i2)
+{
+    char const *c1 = strchr(i1, ':');
+    char const *c2 = strchr(i2, ':');
+    if (!c1 || !c2) return 1;
+    if (c1 - i1 != c2 - i2) return 0;
+    if (!strncasecmp(i1, i2, (c1 - i1))) return 1;
+    return 0;
+}
+
+int
+TrigInfoIsValid(char const *info)
+{
+    char const *t;
+    char const *s = strchr(info, ':');
+    if (!s) return 0;
+    if (s == info) return 0;
+
+    t = info;
+    while (t < s) {
+        if (isspace(*t) || iscntrl(*t)) return 0;
+        t++;
+    }
+    return 1;
+}

src/types.h

@@ -5,7 +5,7 @@
 /*  Type definitions all dumped here.                          */
 /*                                                             */
 /*  This file is part of REMIND.                               */
-/*  Copyright (C) 1992-2024 by Dianne Skoll                    */
+/*  Copyright (C) 1992-2025 by Dianne Skoll                    */
 /*  SPDX-License-Identifier: GPL-2.0-only                      */
 /*                                                             */
 /***************************************************************/
@@ -28,6 +28,7 @@ typedef struct udf_struct UserFunc;
 #define STR_TYPE       0x8
 #define SPECIAL_TYPE   0x10 /* Only for system variables */
 #define CONST_INT_TYPE 0x20 /* Only for system variables */
+#define TRANS_TYPE     0x40 /* Only for system variables */
 
 #define BEG_OF_EXPR '['
 #define END_OF_EXPR ']'
@@ -57,7 +58,7 @@ enum expr_node_type
     N_SHORT_USER_FUNC,
     N_USER_FUNC,
     N_OPERATOR,
-    N_ERROR = 32767,
+    N_ERROR = 0x7FFF,
 };
 
 /* Structure for passing in Nargs and out RetVal from functions */
@@ -106,6 +107,11 @@ typedef struct var {
     Value v;
 } Var;
 
+typedef struct triginfo {
+    struct triginfo *next;
+    char const *info;
+} TrigInfo;
+
 /* A trigger */
 typedef struct {
     int expired;
@@ -137,6 +143,7 @@ typedef struct {
     char omitfunc[VAR_NAME_LEN+1]; /* OMITFUNC function */
     DynamicBuffer tags;
     char passthru[PASSTHRU_LEN+1];
+    TrigInfo *infos;
 } Trigger;
 
 /* A time trigger */
@@ -199,13 +206,15 @@ typedef Parser *ParsePtr;  /* Pointer to parser structure */
 #define NO_MAX 127
 
 /* DEFINES for debugging flags */
-#define DB_PRTLINE      1
-#define DB_PRTEXPR      2
-#define DB_PRTTRIG      4
-#define DB_DUMP_VARS    8
-#define DB_ECHO_LINE   16
-#define DB_TRACE_FILES 32
-#define DB_PARSE_EXPR  64
+#define DB_PRTLINE      0x001
+#define DB_PRTEXPR      0x002
+#define DB_PRTTRIG      0x004
+#define DB_DUMP_VARS    0x008
+#define DB_ECHO_LINE    0x010
+#define DB_TRACE_FILES  0x020
+#define DB_PARSE_EXPR   0x040
+#define DB_HASHSTATS    0x080
+#define DB_TRANSLATE    0x100
 
 /* Enumeration of the tokens */
 enum TokTypes
@@ -214,9 +223,9 @@ enum TokTypes
   T_Date, T_DateTime, T_Day, T_Debug, T_Delta, T_Dumpvars, T_Duration,
   T_Else, T_Empty, T_EndIf, T_ErrMsg, T_Exit, T_Expr,
   T_Flush, T_Frename, T_Fset, T_Funset, T_If, T_IfTrig, T_In,
-  T_Include, T_IncludeCmd, T_IncludeR, T_LastBack, T_LongTime,
-  T_MaybeUncomputable, T_Month, T_NoQueue, T_Number, T_Omit, T_OmitFunc,
-  T_Once, T_Ordinal, T_Pop, T_Preserve, T_Priority, T_Push,T_Rem,
+  T_Include, T_IncludeCmd, T_IncludeR, T_IncludeSys, T_Info, T_LastBack,
+  T_LongTime, T_MaybeUncomputable, T_Month, T_NoQueue, T_Number, T_Omit,
+  T_OmitFunc, T_Once, T_Ordinal, T_Pop, T_Preserve, T_Priority, T_Push,T_Rem,
   T_RemType, T_Rep, T_Scanfrom, T_Sched, T_Set, T_Skip, T_Tag, T_Through,
   T_Time, T_Translate, T_UnSet, T_Until, T_Warn, T_WkDay, T_Year
 };
@@ -230,13 +239,13 @@ typedef struct {
 } Token;
 
 /* Flags for the state of the "if" stack */
-#define IF_TRUE      0
-#define IF_FALSE     1
-#define BEFORE_ELSE  0
-#define AFTER_ELSE   2
-#define IF_MASK      3
-#define IF_TRUE_MASK 1
-#define IF_ELSE_MASK 2
+#define IF_TRUE      0x00
+#define IF_FALSE     0x01
+#define BEFORE_ELSE  0x00
+#define AFTER_ELSE   0x02
+#define IF_MASK      0x03
+#define IF_TRUE_MASK 0x01
+#define IF_ELSE_MASK 0x02
 
 /* Flags for the DoSubst function */
 #define NORMAL_MODE  0
@@ -246,9 +255,9 @@ typedef struct {
 #define QUOTE_MARKER 1 /* Unlikely character to appear in reminder */
 
 /* Flags for disabling run */
-#define RUN_CMDLINE  1
-#define RUN_SCRIPT   2
-#define RUN_NOTOWNER 4
+#define RUN_CMDLINE  0x01
+#define RUN_SCRIPT   0x02
+#define RUN_NOTOWNER 0x04
 
 /* Flags for the SimpleCalendar format */
 #define SC_AMPM   0   /* Time shown as 3:00am, etc. */

src/userfns.c

@@ -6,7 +6,7 @@
 /*  functions.                                                 */
 /*                                                             */
 /*  This file is part of REMIND.                               */
-/*  Copyright (C) 1992-2024 by Dianne Skoll                    */
+/*  Copyright (C) 1992-2025 by Dianne Skoll                    */
 /*  SPDX-License-Identifier: GPL-2.0-only                      */
 /*                                                             */
 /***************************************************************/
@@ -56,7 +56,7 @@ InitUserFunctions(void)
                         offsetof(UserFunc, link),
                         HashUserFunc,
                         CompareUserFuncs) < 0) {
-        fprintf(stderr, "Unable to initialize function hash table: Out of memory.  Exiting.\n");
+        fprintf(ErrFp, "Unable to initialize function hash table: Out of memory.  Exiting.\n");
         exit(1);
     }
 }
@@ -208,7 +208,7 @@ int DoFset(ParsePtr p)
             return OK;
         }
         /* Warn about redefinition */
-        Wprint("Function %s redefined (previously defined at %s:%d)",
+        Wprint(tr("Function `%s' redefined (previously defined at %s:%d)"),
                existing->name, existing->filename, existing->lineno);
     }
 
@@ -352,7 +352,7 @@ int DoFset(ParsePtr p)
     /* Add the function definition */
     FSet(func);
     if (orig_namelen > VAR_NAME_LEN) {
-        Wprint("Warning: Function name `%s...' truncated to `%s'",
+        Wprint(tr("Warning: Function name `%s...' truncated to `%s'"),
                func->name, func->name);
     }
     return OK;
@@ -506,12 +506,8 @@ RenameUserFunc(char const *oldname, char const *newname)
 }
 
 void
-get_userfunc_hash_stats(int *total, int *maxlen, double *avglen)
+dump_userfunc_hash_stats(void)
 {
-    struct hash_table_stats s;
-    hash_table_get_stats(&FuncHash, &s);
-    *total = s.num_entries;
-    *maxlen = s.max_len;
-    *avglen = s.avg_len;
+    hash_table_dump_stats(&FuncHash, ErrFp);
 }
 

src/utils.c

@@ -5,7 +5,7 @@
 /*  Useful utility functions.                                  */
 /*                                                             */
 /*  This file is part of REMIND.                               */
-/*  Copyright (C) 1992-2024 by Dianne Skoll                    */
+/*  Copyright (C) 1992-2025 by Dianne Skoll                    */
 /*  SPDX-License-Identifier: GPL-2.0-only                      */
 /*                                                             */
 /***************************************************************/
@@ -244,17 +244,18 @@ static void
 print_callstack_aux(FILE *fp, cs *entry)
 {
     int i = 0;
-    char const *in = "In";
+    char const *in = tr("In");
     cs *prev = NULL;
     while(entry) {
         if (prev) {
-            in = "Called from";
+            in = tr("Called from");
         }
         if (!prev || strcmp(prev->func, entry->func) || strcmp(prev->filename, entry->filename) || prev->lineno != entry->lineno) {
             if (prev) {
                 fprintf(fp, "\n");
             }
-            (void) fprintf(fp, "    %s(%d): [#%d] %s function `%s'", entry->filename, entry->lineno, i, in, entry->func);
+            fprintf(fp, "    ");
+            fprintf(fp, tr("%s(%d): [#%d] %s function `%s'"), entry->filename, entry->lineno, i, in, entry->func);
         }
         prev = entry;
         entry = entry->next;
@@ -264,14 +265,11 @@ print_callstack_aux(FILE *fp, cs *entry)
         }
     }
     if (entry) {
-        (void) fprintf(fp, "\n    [remaining call frames omitted]");
-    }
-}
+        (void) fprintf(fp, "\n    [");
+        (void) fprintf(fp, "%s", tr("remaining call frames omitted"));
+        (void) fprintf(fp, "]");
 
-int
-have_callstack(void)
-{
-    return (callstack != NULL);
+    }
 }
 
 int

src/var.c

@@ -6,7 +6,7 @@
 /*  user- and system-defined variables.                        */
 /*                                                             */
 /*  This file is part of REMIND.                               */
-/*  Copyright (C) 1992-2024 by Dianne Skoll                    */
+/*  Copyright (C) 1992-2025 by Dianne Skoll                    */
 /*  SPDX-License-Identifier: GPL-2.0-only                      */
 /*                                                             */
 /***************************************************************/
@@ -36,6 +36,7 @@ static int IntMin = INT_MIN;
 static int IntMax = INT_MAX;
 
 static hash_table VHashTbl;
+static int SetSysVarHelper(SysVar *v, Value *value);
 
 static unsigned int VarHashFunc(void *x)
 {
@@ -55,7 +56,7 @@ InitVars(void)
 {
     if (hash_table_init(&VHashTbl, offsetof(Var, link),
                         VarHashFunc, VarCompareFunc) < 0) {
-        fprintf(stderr, "Unable to initialize variable hash table: Out of memory.  Exiting.\n");
+        fprintf(ErrFp, "Unable to initialize variable hash table: Out of memory.  Exiting.\n");
         exit(1);
     }
 }
@@ -84,7 +85,7 @@ strtod_in_c_locale(char const *str, char **endptr)
     if (**endptr) {
         x = strtod(str, endptr);
         if (!**endptr) {
-            Wprint("Accepting \"%s\" for $Latitude/$Longitude, but you should use the \"C\" locale decimal separator \".\" instead", str);
+            Wprint(tr("Accepting \"%s\" for $Latitude/$Longitude, but you should use the \"C\" locale decimal separator \".\" instead"), str);
         }
     }
     return x;
@@ -93,7 +94,7 @@ strtod_in_c_locale(char const *str, char **endptr)
 static void deprecated_var(char const *var, char const *instead)
 {
     if (DebugFlag & DB_PRTLINE) {
-        Wprint("%s is deprecated; use %s instead", var, instead);
+        Wprint(tr("%s is deprecated; use %s instead"), var, instead);
     }
 }
 
@@ -200,7 +201,7 @@ static int oncefile_func(int do_set, Value *val)
         }
 
         if (ProcessedOnce) {
-            Wprint("Not setting $OnceFile: Already processed a reminder with a ONCE clause");
+            Wprint(tr("Not setting $OnceFile: Already processed a reminder with a ONCE clause"));
             return OK;
         }
         if (OnceFile) {
@@ -607,7 +608,7 @@ int DoSet (Parser *p)
     }
 
     if (p->isnested) {
-        Eprint("%s", "Do not use [] around expression in SET command");
+        Eprint("%s", tr("Do not use [] around expression in SET command"));
         return E_CANTNEST_FDEF;
     }
 
@@ -627,7 +628,7 @@ int DoSet (Parser *p)
     if (*DBufValue(&buf) == '$') r = SetSysVar(DBufValue(&buf)+1, &v);
     else r = SetVar(DBufValue(&buf), &v);
     if (buf.len > VAR_NAME_LEN) {
-        Wprint("Warning: Variable name `%.*s...' truncated to `%.*s'",
+        Wprint(tr("Warning: Variable name `%.*s...' truncated to `%.*s'"),
                VAR_NAME_LEN, DBufValue(&buf), VAR_NAME_LEN, DBufValue(&buf));
     }
     DBufFree(&buf);
@@ -722,7 +723,7 @@ int DoDump(ParsePtr p)
 /*                                                             */
 /*  DumpVarTable                                               */
 /*                                                             */
-/*  Dump the variable table to stderr.                         */
+/*  Dump the variable table to ErrFp.                         */
 /*                                                             */
 /***************************************************************/
 void DumpVarTable(void)
@@ -844,47 +845,48 @@ int DoPreserve (Parser *p)
 static SysVar SysVarArr[] = {
     /*  name          mod  type              value          min/mal   max */
     {"AddBlankLines",  1,  INT_TYPE,     &AddBlankLines,       0,      1 },
-    {"Ago",            1,  STR_TYPE,     &DynamicAgo,          0,      0 },
-    {"Am",             1,  STR_TYPE,     &DynamicAm,           0,      0 },
-    {"And",            1,  STR_TYPE,     &DynamicAnd,          0,      0 },
-    {"April",          1,  STR_TYPE,     &DynamicMonthName[3], 0,      0 },
-    {"At",             1,  STR_TYPE,     &DynamicAt,           0,      0 },
-    {"August",         1,  STR_TYPE,     &DynamicMonthName[7], 0,      0 },
+    {"Ago",            1,  TRANS_TYPE,   "ago",                0,      0 },
+    {"Am",             1,  TRANS_TYPE,   "am",                 0,      0 },
+    {"And",            1,  TRANS_TYPE,   "and",                0,      0 },
+    {"April",          1,  TRANS_TYPE,   "April",              0,      0 },
+    {"At",             1,  TRANS_TYPE,   "at",                 0,      0 },
+    {"August",         1,  TRANS_TYPE,   "August",             0,      0 },
     {"CalcUTC",        1,  INT_TYPE,     &CalculateUTC,        0,      1 },
     {"CalMode",        0,  INT_TYPE,     &DoCalendar,          0,      0 },
+    {"CalType",        0,  STR_TYPE,     &CalType,             0,      0 },
     {"Daemon",         0,  INT_TYPE,     &Daemon,              0,      0 },
     {"DateSep",        1,  SPECIAL_TYPE, date_sep_func,        0,      0 },
     {"DateTimeSep",    1,  SPECIAL_TYPE, datetime_sep_func,    0,      0 },
-    {"December",       1,  STR_TYPE,     &DynamicMonthName[11],0,      0 },
+    {"December",       1,  TRANS_TYPE,   "December",           0,      0 },
     {"DedupeReminders",1,  INT_TYPE,     &DedupeReminders,     0,      1 },
     {"DefaultColor",   1,  SPECIAL_TYPE, default_color_func,   0,      0 },
     {"DefaultDelta",   1,  INT_TYPE,     &DefaultDelta,        0,      10000 },
     {"DefaultPrio",    1,  INT_TYPE,     &DefaultPrio,         0,      9999 },
     {"DefaultTDelta",  1,  INT_TYPE,     &DefaultTDelta,       0,      1440 },
-    {"DeltaOverride",  0,  INT_TYPE,     &DeltaOverride,         0,      0 },
+    {"DeltaOverride",  0,  INT_TYPE,     &DeltaOverride,       0,      0 },
     {"DontFork",       0,  INT_TYPE,     &DontFork,            0,      0 },
     {"DontQueue",      0,  INT_TYPE,     &DontQueue,           0,      0 },
     {"DontTrigAts",    0,  INT_TYPE,     &DontIssueAts,        0,      0 },
     {"EndSent",        1,  STR_TYPE,     &EndSent,             0,      0 },
     {"EndSentIg",      1,  STR_TYPE,     &EndSentIg,           0,      0 },
     {"ExpressionTimeLimit", 1, SPECIAL_TYPE, expr_time_limit_func, 0,  0 },
-    {"February",       1,  STR_TYPE,     &DynamicMonthName[1], 0,      0 },
+    {"February",       1,  TRANS_TYPE,   "February",           0,      0 },
     {"FirstIndent",    1,  INT_TYPE,     &FirstIndent,         0,      132 },
     {"FoldYear",       1,  INT_TYPE,     &FoldYear,            0,      1 },
     {"FormWidth",      1,  INT_TYPE,     &FormWidth,           20,     500 },
-    {"Friday",         1,  STR_TYPE,     &DynamicDayName[4],   0,      0 },
-    {"Fromnow",        1,  STR_TYPE,     &DynamicFromnow,      0,      0 },
-    {"Hour",           1,  STR_TYPE,     &DynamicHour,         0,      0 },
+    {"Friday",         1,  TRANS_TYPE,   "Friday",             0,      0 },
+    {"Fromnow",        1,  TRANS_TYPE,   "from now",           0,      0 },
+    {"Hour",           1,  TRANS_TYPE,   "hour",               0,      0 },
     {"Hplu",           1,  STR_TYPE,     &DynamicHplu,         0,      0 },
     {"HushMode",       0,  INT_TYPE,     &Hush,                0,      0 },
     {"IgnoreOnce",     0,  INT_TYPE,     &IgnoreOnce,          0,      0 },
     {"InfDelta",       0,  INT_TYPE,     &InfiniteDelta,       0,      0 },
     {"IntMax",         0,  INT_TYPE,     &IntMax,              0,      0 },
     {"IntMin",         0,  INT_TYPE,     &IntMin,              0,      0 },
-    {"Is",             1,  STR_TYPE,     &DynamicIs,           0,      0 },
-    {"January",        1,  STR_TYPE,     &DynamicMonthName[0], 0,      0 },
-    {"July",           1,  STR_TYPE,     &DynamicMonthName[6], 0,      0 },
-    {"June",           1,  STR_TYPE,     &DynamicMonthName[5], 0,      0 },
+    {"Is",             1,  TRANS_TYPE,   "is",                 0,      0 },
+    {"January",        1,  TRANS_TYPE,   "January",            0,      0 },
+    {"July",           1,  TRANS_TYPE,   "July",               0,      0 },
+    {"June",           1,  TRANS_TYPE,   "June",               0,      0 },
     {"LatDeg",         1,  SPECIAL_TYPE, latdeg_func,          0,      0 },
     {"Latitude",       1,  SPECIAL_TYPE, latitude_func,        0,      0 },
     {"LatMin",         1,  SPECIAL_TYPE, latmin_func,          0,      0 },
@@ -894,53 +896,53 @@ static SysVar SysVarArr[] = {
     {"Longitude",      1,  SPECIAL_TYPE, longitude_func,       0,      0 },
     {"LongMin",        1,  SPECIAL_TYPE, longmin_func,         0,      0 },
     {"LongSec",        1,  SPECIAL_TYPE, longsec_func,         0,      0 },
-    {"March",          1,  STR_TYPE,     &DynamicMonthName[2], 0,      0 },
+    {"March",          1,  TRANS_TYPE,   "March",              0,      0 },
     {"MaxFullOmits",   0,  CONST_INT_TYPE, NULL,        MAX_FULL_OMITS, 0},
     {"MaxLateMinutes", 1,  INT_TYPE,     &MaxLateMinutes,      0,      1440 },
     {"MaxPartialOmits",0,  CONST_INT_TYPE, NULL,    MAX_PARTIAL_OMITS, 0},
     {"MaxSatIter",     1,  INT_TYPE,     &MaxSatIter,          10,     ANY },
     {"MaxStringLen",   1,  INT_TYPE,     &MaxStringLen,        -1,     ANY },
-    {"May",            1,  STR_TYPE,     &DynamicMonthName[4], 0,      0 },
+    {"May",            1,  TRANS_TYPE,   "May",                0,      0 },
     {"MinsFromUTC",    1,  INT_TYPE,     &MinsFromUTC,         -780,   780 },
-    {"Minute",         1,  STR_TYPE,     &DynamicMinute,       0,      0 },
-    {"Monday",         1,  STR_TYPE,     &DynamicDayName[0],   0,      0 },
+    {"Minute",         1,  TRANS_TYPE,   "minute",             0,      0 },
+    {"Monday",         1,  TRANS_TYPE,   "Monday",             0,      0 },
     {"Mplu",           1,  STR_TYPE,     &DynamicMplu,         0,      0 },
     {"NextMode",       0,  INT_TYPE,     &NextMode,            0,      0 },
-    {"November",       1,  STR_TYPE,     &DynamicMonthName[10],0,      0 },
-    {"Now",            1,  STR_TYPE,     &DynamicNow,          0,      0 },
+    {"November",       1,  TRANS_TYPE,   "November",           0,      0 },
+    {"Now",            1,  TRANS_TYPE,   "now",                0,      0 },
     {"NumFullOmits",   0,  INT_TYPE,     &NumFullOmits,        0,      0 },
     {"NumPartialOmits",0,  INT_TYPE,     &NumPartialOmits,     0,      0 },
     {"NumQueued",      0,  INT_TYPE,     &NumQueued,           0,      0 },
     {"NumTrig",        0,  INT_TYPE,     &NumTriggered,        0,      0 },
-    {"October",        1,  STR_TYPE,     &DynamicMonthName[9], 0,      0 },
-    {"On",             1,  STR_TYPE,     &DynamicOn,           0,      0 },
+    {"October",        1,  TRANS_TYPE,   "October",            0,      0 },
+    {"On",             1,  TRANS_TYPE,   "on",                 0,      0 },
     {"OnceFile",       1,  SPECIAL_TYPE, oncefile_func,        0,      0 },
     {"ParseUntriggered", 1, INT_TYPE,    &ParseUntriggered,    0,      1 },
-    {"Pm",             1,  STR_TYPE,     &DynamicPm,           0,      0 },
+    {"Pm",             1,  TRANS_TYPE,   "pm",                 0,      0 },
     {"PrefixLineNo",   0,  INT_TYPE,     &DoPrefixLineNo,      0,      0 },
     {"PSCal",          0,  INT_TYPE,     &PsCal,               0,      0 },
     {"RunOff",         0,  INT_TYPE,     &RunDisabled,         0,      0 },
-    {"Saturday",       1,  STR_TYPE,     &DynamicDayName[5],   0,      0 },
-    {"September",      1,  STR_TYPE,     &DynamicMonthName[8], 0,      0 },
+    {"Saturday",       1,  TRANS_TYPE,   "Saturday",           0,      0 },
+    {"September",      1,  TRANS_TYPE,   "September",          0,      0 },
     {"SimpleCal",      0,  INT_TYPE,     &DoSimpleCalendar,    0,      0 },
     {"SortByDate",     0,  INT_TYPE,     &SortByDate,          0,      0 },
     {"SortByPrio",     0,  INT_TYPE,     &SortByPrio,          0,      0 },
     {"SortByTime",     0,  INT_TYPE,     &SortByTime,          0,      0 },
     {"SubsIndent",     1,  INT_TYPE,     &SubsIndent,          0,      132 },
-    {"Sunday",         1,  STR_TYPE,     &DynamicDayName[6],   0,      0 },
+    {"Sunday",         1,  TRANS_TYPE,   "Sunday",             0,      0 },
     {"SuppressImplicitWarnings", 1, INT_TYPE, &SuppressImplicitRemWarnings, 0, 1},
     {"SuppressLRM",    1,  INT_TYPE,     &SuppressLRM,         0,      1 },
     {"SysInclude",     0,  STR_TYPE,     &SysDir,              0,      0 },
     {"T",              0,  SPECIAL_TYPE, trig_date_func,       0,      0 },
     {"Td",             0,  SPECIAL_TYPE, trig_day_func,        0,      0 },
     {"TerminalBackground", 0, SPECIAL_TYPE,  terminal_bg_func, 0,      0 },
-    {"Thursday",       1,  STR_TYPE,     &DynamicDayName[3],   0,      0 },
+    {"Thursday",       1,  TRANS_TYPE,   "Thursday",           0,      0 },
     {"TimeSep",        1,  SPECIAL_TYPE, time_sep_func,        0,      0 },
     {"Tm",             0,  SPECIAL_TYPE, trig_mon_func,        0,      0 },
-    {"Today",          1,  STR_TYPE,     &DynamicToday,        0,      0 },
-    {"Tomorrow",       1,  STR_TYPE,     &DynamicTomorrow,     0,      0 },
+    {"Today",          1,  TRANS_TYPE,   "today",              0,      0 },
+    {"Tomorrow",       1,  TRANS_TYPE,   "tomorrow",           0,      0 },
     {"Tt",             0,  SPECIAL_TYPE, trig_time_func,       0,      0 },
-    {"Tuesday",        1,  STR_TYPE,     &DynamicDayName[1],   0,      0 },
+    {"Tuesday",        1,  TRANS_TYPE,   "Tuesday",            0,      0 },
     {"Tw",             0,  SPECIAL_TYPE, trig_wday_func,       0,      0 },
     {"Ty",             0,  SPECIAL_TYPE, trig_year_func,       0,      0 },
     {"U",              0,  SPECIAL_TYPE, today_date_func,      0,      0 },
@@ -948,72 +950,51 @@ static SysVar SysVarArr[] = {
     {"Um",             0,  SPECIAL_TYPE, today_mon_func,       0,      0 },
     {"UntimedFirst",   0,  INT_TYPE,     &UntimedBeforeTimed,  0,      0 },
     {"Use256Colors",   0,  INT_TYPE,     &Use256Colors,        0,      0 },
-    {"UseBGVTColors",  0,  INT_TYPE,     &UseBGVTColors,        0,      0 },
+    {"UseBGVTColors",  0,  INT_TYPE,     &UseBGVTColors,       0,      0 },
     {"UseTrueColors",  0,  INT_TYPE,     &UseTrueColors,       0,      0 },
     {"UseVTColors",    0,  INT_TYPE,     &UseVTColors,         0,      0 },
     {"Uw",             0,  SPECIAL_TYPE, today_wday_func,      0,      0 },
     {"Uy",             0,  SPECIAL_TYPE, today_year_func,      0,      0 },
-    {"Was",            1,  STR_TYPE,     &DynamicWas,          0,      0 },
-    {"Wednesday",      1,  STR_TYPE,     &DynamicDayName[2],   0,      0 }
+    {"Was",            1,  TRANS_TYPE,   "was",                0,      0 },
+    {"Wednesday",      1,  TRANS_TYPE,   "Wednesday",          0,      0 }
 };
 
 #define NUMSYSVARS ( sizeof(SysVarArr) / sizeof(SysVar) )
 static void DumpSysVar (char const *name, const SysVar *v);
 
-static void HandleTranslatableVariable(char **var)
+static int SetTranslatableVariable(SysVar *v, Value *value)
 {
-    if (var == (char **) &DynamicAgo) InsertTranslation("ago", *var);
-    else if (var == (char **) &DynamicAm) InsertTranslation("am", *var);
-    else if (var == (char **) &DynamicAnd) InsertTranslation("and", *var);
-    else if (var == (char **) &DynamicAt) InsertTranslation("at", *var);
-    else if (var == (char **) &DynamicFromnow) InsertTranslation("from now", *var);
-    else if (var == (char **) &DynamicHour) InsertTranslation("hour", *var);
-    else if (var == (char **) &DynamicIs) InsertTranslation("is", *var);
-    else if (var == (char **) &DynamicMinute) InsertTranslation("minute", *var);
-    else if (var == (char **) &DynamicNow) InsertTranslation("now", *var);
-    else if (var == (char **) &DynamicOn) InsertTranslation("on", *var);
-    else if (var == (char **) &DynamicPm) InsertTranslation("pm", *var);
-    else if (var == (char **) &DynamicToday) InsertTranslation("today", *var);
-    else if (var == (char **) &DynamicTomorrow) InsertTranslation("tomorrow", *var);
-    else if (var == (char **) &DynamicWas) InsertTranslation("was", *var);
-    else if (var == (char **) &DynamicMonthName[0]) InsertTranslation("January", *var);
-    else if (var == (char **) &DynamicMonthName[1]) InsertTranslation("February", *var);
-    else if (var == (char **) &DynamicMonthName[2]) InsertTranslation("March", *var);
-    else if (var == (char **) &DynamicMonthName[3]) InsertTranslation("April", *var);
-    else if (var == (char **) &DynamicMonthName[4]) InsertTranslation("May", *var);
-    else if (var == (char **) &DynamicMonthName[5]) InsertTranslation("June", *var);
-    else if (var == (char **) &DynamicMonthName[6]) InsertTranslation("July", *var);
-    else if (var == (char **) &DynamicMonthName[7]) InsertTranslation("August", *var);
-    else if (var == (char **) &DynamicMonthName[8]) InsertTranslation("September", *var);
-    else if (var == (char **) &DynamicMonthName[9]) InsertTranslation("October", *var);
-    else if (var == (char **) &DynamicMonthName[10]) InsertTranslation("November", *var);
-    else if (var == (char **) &DynamicMonthName[11]) InsertTranslation("December", *var);
-    else if (var == (char **) &DynamicDayName[0]) InsertTranslation("Monday", *var);
-    else if (var == (char **) &DynamicDayName[1]) InsertTranslation("Tuesday", *var);
-    else if (var == (char **) &DynamicDayName[2]) InsertTranslation("Wednesday", *var);
-    else if (var == (char **) &DynamicDayName[3]) InsertTranslation("Thursday", *var);
-    else if (var == (char **) &DynamicDayName[4]) InsertTranslation("Friday", *var);
-    else if (var == (char **) &DynamicDayName[5]) InsertTranslation("Saturday", *var);
-    else if (var == (char **) &DynamicDayName[6]) InsertTranslation("Sunday", *var);
-
+    return InsertTranslation((char const *) v->value, value->v.str);
 }
-/***************************************************************/
-/*                                                             */
-/*  SetSysVar                                                  */
-/*                                                             */
-/*  Set a system variable to the indicated value.              */
-/*                                                             */
-/***************************************************************/
-int SetSysVar(char const *name, Value *value)
+
+static int GetTranslatableVariable(SysVar *v, Value *value)
+{
+    char const *translated = tr((char const *) v->value);
+    if (translated) {
+        value->v.str = StrDup(translated);
+    } else {
+        value->v.str = StrDup("");
+    }
+    if (!value->v.str) return E_NO_MEM;
+    value->type = STR_TYPE;
+    return OK;
+}
+
+static int SetSysVarHelper(SysVar *v, Value *value)
 {
     int r;
-    SysVar *v = FindSysVar(name);
-    if (!v) return E_NOSUCH_VAR;
     if (!v->modifiable) {
-        Eprint("%s: `$%s'", GetErr(E_CANT_MODIFY), name);
+        Eprint("%s: `$%s'", GetErr(E_CANT_MODIFY), v->name);
         return E_CANT_MODIFY;
     }
 
+    if (v->type == TRANS_TYPE) {
+        if (value->type != STR_TYPE) return E_BAD_TYPE;
+        r =  SetTranslatableVariable(v, value);
+        DestroyValue(*value);
+        return r;
+    }
+
     if (v->type != SPECIAL_TYPE &&
         v->type != value->type) return E_BAD_TYPE;
     if (v->type == SPECIAL_TYPE) {
@@ -1025,7 +1006,7 @@ int SetSysVar(char const *name, Value *value)
 
     if (v->type == STR_TYPE) {
         /* If it's already the same, don't bother doing anything */
-        if (!strcmp(value->v.str, (char const *) v->value)) {
+        if (!strcmp(value->v.str, * (char const **) v->value)) {
             DestroyValue(*value);
             return OK;
         }
@@ -1035,7 +1016,6 @@ int SetSysVar(char const *name, Value *value)
         v->been_malloced = 1;
         *((char **) v->value) = value->v.str;
         value->type = ERR_TYPE;  /* So that it's not accidentally freed */
-        HandleTranslatableVariable((char **) v->value);
     } else {
         if (v->max != ANY && value->v.val > v->max) return E_2HIGH;
         if (v->min != ANY && value->v.val < v->min) return E_2LOW;
@@ -1044,6 +1024,20 @@ int SetSysVar(char const *name, Value *value)
     return OK;
 }
 
+/***************************************************************/
+/*                                                             */
+/*  SetSysVar                                                  */
+/*                                                             */
+/*  Set a system variable to the indicated value.              */
+/*                                                             */
+/***************************************************************/
+int SetSysVar(char const *name, Value *value)
+{
+    SysVar *v = FindSysVar(name);
+    if (!v) return E_NOSUCH_VAR;
+    return SetSysVarHelper(v, value);
+}
+
 /***************************************************************/
 /*                                                             */
 /*  GetSysVar                                                  */
@@ -1057,6 +1051,10 @@ int GetSysVar(char const *name, Value *val)
 
     val->type = ERR_TYPE;
     if (!v) return E_NOSUCH_VAR;
+    if (v->type == TRANS_TYPE) {
+        return GetTranslatableVariable(v, val);
+    }
+
     if (v->type == CONST_INT_TYPE) {
         val->v.val = v->constval;
         val->type = INT_TYPE;
@@ -1080,7 +1078,7 @@ int GetSysVar(char const *name, Value *val)
     /* In "verbose" mode, print attempts to test $RunOff */
     if (DebugFlag & DB_PRTLINE) {
         if (v->value == (void *) &RunDisabled) {
-            Wprint("(Security note: $RunOff variable tested.)");
+            Wprint(tr("(Security note: $RunOff variable tested.)"));
         }
     }
     return OK;
@@ -1163,6 +1161,15 @@ static void DumpSysVar(char const *name, const SysVar *v)
             PrintValue(&vtmp, ErrFp);
             putc('\n', ErrFp);
             DestroyValue(vtmp);
+        } else if (v->type == TRANS_TYPE) {
+            int r = GetSysVar(v->name, &vtmp);
+            if (r == OK) {
+                PrintValue(&vtmp, ErrFp);
+                putc('\n', ErrFp);
+                DestroyValue(vtmp);
+            } else {
+                fprintf(ErrFp, "Error: %s\n", GetErr(r));
+            }
         } else if (v->type == STR_TYPE) {
             vtmp.type = STR_TYPE;
             vtmp.v.str = * ((char **)v->value);
@@ -1232,6 +1239,46 @@ set_components_from_lat_and_long(void)
     }
 }
 
+void GenerateSysvarTranslationTemplates(void)
+{
+    int i;
+    int j;
+    char const *msg;
+    for (i=0; i< (int) NUMSYSVARS; i++) {
+        if (SysVarArr[i].type == TRANS_TYPE) {
+            int done=0;
+            msg = (char const *) SysVarArr[i].value;
+            /* We've already done month and day names */
+            for (j=0; j<7; j++) {
+                if (!strcmp(msg, DayName[j])) {
+                    done=1;
+                    break;
+                }
+            }
+            if (done) {
+                continue;
+            }
+            for (j=0; j<12; j++) {
+                if (!strcmp(msg, MonthName[j])) {
+                    done=1;
+                    break;
+                }
+            }
+            if (done) {
+                continue;
+            }
+            printf("SET $%s ", SysVarArr[i].name);
+            print_escaped_string_helper(stdout, tr(msg), 1, 0);
+            printf("\n");
+        } else if (!strcmp(SysVarArr[i].name, "Hplu") ||
+                   !strcmp(SysVarArr[i].name, "Mplu")) {
+            msg = * (char const **) SysVarArr[i].value;
+            printf("SET $%s ", SysVarArr[i].name);
+            print_escaped_string_helper(stdout, tr(msg), 1, 0);
+            printf("\n");
+        }
+    }
+}
 void
 print_sysvar_tokens(void)
 {
@@ -1243,11 +1290,7 @@ print_sysvar_tokens(void)
 }
 
 void
-get_var_hash_stats(int *total, int *maxlen, double *avglen)
+dump_var_hash_stats(void)
 {
-    struct hash_table_stats s;
-    hash_table_get_stats(&VHashTbl, &s);
-    *total = s.num_entries;
-    *maxlen = s.max_len;
-    *avglen = s.avg_len;
+    hash_table_dump_stats(&VHashTbl, ErrFp);
 }

tests/expr.rem

@@ -1,4 +1,4 @@
-debug +sx
+debug +hsx
 
 set a 1
 

tests/queue1.rem

@@ -1,6 +1,6 @@
 FSET msgprefix(x) "Priority: " + x + "; Filename: " + filename() + ":  "
 
 REM at 23:56 MSG foo
-REM PRIORITY 42 at 23:57 MSG bar
-REM PRIORITY 999 at 23:58 MSG quux
+REM PRIORITY 42 at 23:57 INFO "Info: yuppers" MSG bar
+REM PRIORITY 999 at 23:58 INFO "Info2: Nope" INFO "Info3: heh" MSG quux
 DO queue2.rem

tests/test-all-langs.sh

@@ -0,0 +1,6 @@
+#!/bin/sh
+
+for i in ../include/lang/??.rem ; do
+    echo "Testing lang file: $i"
+    ../src/remind -r -q "-ii=\"$i\"" ../tests/tstlang.rem
+done

tests/test-rem

@@ -7,7 +7,7 @@
 # in the build directory.
 #
 # This file is part of REMIND.
-# Copyright (C) 1992-2024 Dianne Skoll
+# Copyright (C) 1992-2025 Dianne Skoll
 # SPDX-License-Identifier: GPL-2.0-only
 # ---------------------------------------------------------------------------
 
@@ -32,20 +32,10 @@ fi
 # ../src/remind.  This trick was suggested by Jochen Sprickerhof
 alias remind="echo You should be using ../src/remind explicitly in test-rem >&2; exit 1"
 
-
 # Set a known timezone so moon phases show up in predictable places
 TZ=UTC
 export TZ
 
-RESULT=`(echo 'BANNER %'; echo 'IF now() > 23:55'; echo 'MSG late%'; echo 'ENDIF') | ../src/remind -h -`
-
-if test "$RESULT" = "late" ; then
-    echo ""
-    echo "*** Please do not run the test suite between 23:55 and 00:00 UTC; it will fail."
-    echo ""
-    exit 1
-fi
-
 # If we're already in a utf-8 locale, do
 # nothing; otherwise, set LC_ALL
 OK=0
@@ -198,6 +188,17 @@ REM 4 MSG Normal
 SET $DefaultColor "256 0 0"
 EOF
 
+# Test default color with weekly calendar
+../src/remind -pq+ - 1 Jan 2012 9:00 <<'EOF' >> ../tests/test.out 2>&1
+REM 2 MSG Normal
+SET $DefaultColor "255 0 0"
+REM 3 MSG %"Red%" on the calendar!
+SET $DefaultColor "-1 -1 -1"
+REM 4 MSG Normal
+# Should give an error
+SET $DefaultColor "256 0 0"
+EOF
+
 # Test stdout
 ../src/remind - 1 jan 2012 <<'EOF' >> ../tests/test.out 2>&1
 BANNER %
@@ -465,10 +466,9 @@ rm -rf include_dir/ww
 ../src/remind --version >> ../tests/test.out 2>&1
 
 # Test queueing.  Because eventstart depends on the actual system
-# date, we have to convert it to some constant (in this case,
-# VOLATILE) so that tests are not dependent on the system date.
-echo JSONQUEUE | ../src/remind -z0 ../tests/queue1.rem 2>&1 | sed -e 's/"eventstart":"................"/"eventstart":"VOLATILE"/g' | sed -e 's/"qid":"[0-9a-f]*",//g' >> ../tests/test.out 2>&1
-echo QUEUE | ../src/remind -zj ../tests/queue1.rem 2>&1 | sed -e 's/"eventstart":"................"/"eventstart":"VOLATILE"/g' | sed -e 's/"qid":"[0-9a-f]*",//g' >> ../tests/test.out 2>&1
+# date, we use the --test flag to fake the date and time.
+echo JSONQUEUE | ../src/remind --test -z0 ../tests/queue1.rem >> ../tests/test.out 2>&1
+echo QUEUE     | ../src/remind --test -zj ../tests/queue1.rem >> ../tests/test.out 2>&1
 
 # Test for leap year bug that was fixed
 ../src/remind -dte - 28 Feb 2024 <<'EOF' >> ../tests/test.out 2>&1
@@ -622,6 +622,88 @@ fi
 # Torture test #2
 ../src/remind ../tests/torture2.rem >> ../tests/test.out 2>&1
 
+# Expression error-reporting
+../src/remind -de - 1 Feb 2024 <<'EOF' >> ../tests/test.out 2>&1
+set a 8 * "]]]" & 6
+msg [8 * "]]]" & 6] is weird
+set a 9 *
+set a 9 * ]
+EOF
+
+# Translation template generateion
+../src/remind -h - 1 Feb 2024 <<'EOF' >> ../tests/test.out 2>&1
+TRANSLATE GENERATE
+EOF
+
+# Make sure stupidly-long translations of "am" and "pm" can't cause a
+# segmentation fault
+../src/remind -c - 1 Feb 2024 <<'EOF'  >> ../tests/test.out 2>&1
+TRANS "am" "alsdkjalksdj alksjd alksdj alksjd laksjd laksjd laksjd laksjd laksjd laksjd laksjd laksjd lkasjd laksjd laksjd lkajs dlkajs dlkasj dlkasjd lkajsd lkajs dlkasjd lkasj dlkajsd lkasjd lkasjd laksjd laksjd laksjd alskdj alskdj alksdj alksdj alskdj alksdj aslkdj"
+TRANS "pm" "oiwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwjwwwwwwwwwwwwwwwjwpqoejkpqwojepqowjepqojwepqowjepqowjepqowjepqowjepqowjepqowjepqojwepqowjepqowjepqowjepqowjepqowjeqpweoj"
+
+REM WED AT 11:00 MSG wookie
+REM WED AT 13:00 MSG blah
+EOF
+
+# The INFO keyword
+../src/remind -pp - 1 Feb 2024 <<'EOF' >> ../tests/test.out 2>&1
+REM Wed INFO "Location: here" INFO "Summary: Nope" MSG Meeting
+EOF
+
+# Invalid info strings
+../src/remind - 1 Feb 2024 <<'EOF' >> ../tests/test.out 2>&1
+REM Thu INFO "Invalid" MSG wookie
+REM Fri INFO ": foo" MSG blat
+REM Sun INFO "foo bar baz : blork" MSG uua
+
+# Duplicate info string
+REM Sat INFO "Location: here" INFO "location: there" MSG blort
+EOF
+
+# Test parsing of quoted strings and the "escape" function
+../src/remind - 1 Feb 2024 <<'EOF' >> ../tests/test.out 2>&1
+BANNER %
+SET $AddBlankLines 0
+TRANSLATE "foo" "test: \\\" \a\b\f\\n\r\t\v\x3\x1b haha"
+REM msg foo translation = %(foo)
+FLUSH
+set a "vartest: \\\" \a\b\f\\n\r\t\v\x3\x1b haha"
+REM msg a = [a]
+FLUSH
+dump a
+set b escape(a)
+REM msg b = [b]
+set b escape(a,1)
+REM msg b = [b]
+FLUSH
+dump b
+FLUSH
+set a "\x"
+dump a
+FLUSH
+set a "\xPOO"
+dump a
+FLUSH
+set a "\x0"
+set a "\x00"
+set a "\x0P"
+set a "\x00P"
+EOF
+
+# Test translate table dumping
+../src/remind - 1 Feb 2024 <<EOF >> ../tests/test.out 2>&1
+TRANSLATE "\x03" "BREAK"
+TRANSLATE DUMP
+EOF
+
+../src/remind -ppp - 1 Feb 2024 <<EOF >> ../tests/test.out 2>&1
+TRANSLATE "\x03" "BREAK"
+EOF
+# Languages
+for i in ../include/lang/??.rem ; do
+    ../src/remind -r -q "-ii=\"$i\"" ../tests/tstlang.rem 1 Feb 2024 13:34 >> ../tests/test.out 2>&1
+done
+
 # Make sure all the include files are ok
 find ../include -type f -name '*.rem' | while read x; do ../src/remind -n $x 1 Jan 2024 2>>../tests/test.out 1>/dev/null; done
 cmp -s ../tests/test.out ../tests/test.cmp

tests/test.rem

@@ -1274,8 +1274,173 @@ set a _("meow")
 set a _("Meow")
 set a _("MEOW")
 
+# Check bidirectional connection between system variables and translation
+# tables
+DEBUG -x
+TRANSLATE CLEAR
+
+SET $Ago "translated-Ago"
+SET $Am "translated-Am"
+SET $And "translated-And"
+SET $At "translated-At"
+SET $Fromnow "translated-Fromnow"
+SET $Hour "translated-Hour"
+SET $Is "translated-Is"
+SET $Minute "translated-Minute"
+SET $Now "translated-Now"
+SET $On "translated-On"
+SET $Pm "translated-Pm"
+SET $Today "translated-Today"
+SET $Tomorrow "translated-Tomorrow"
+SET $Was "translated-Was"
+SET $January "translated-January"
+SET $February "translated-February"
+SET $March "translated-March"
+SET $April "translated-April"
+SET $May "translated-May"
+SET $June "translated-June"
+SET $July "translated-July"
+SET $August "translated-August"
+SET $September "translated-September"
+SET $October "translated-October"
+SET $November "translated-November"
+SET $December "translated-December"
+SET $Monday "translated-Monday"
+SET $Tuesday "translated-Tuesday"
+SET $Wednesday "translated-Wednesday"
+SET $Thursday "translated-Thursday"
+SET $Friday "translated-Friday"
+SET $Saturday "translated-Saturday"
+SET $Sunday "translated-Sunday"
+
+TRANSLATE DUMP
+
+TRANSLATE CLEAR
+TRANSLATE "ago" "otherway-Ago"
+TRANSLATE "am" "otherway-Am"
+TRANSLATE "and" "otherway-And"
+TRANSLATE "at" "otherway-At"
+TRANSLATE "from now" "otherway-Fromnow"
+TRANSLATE "hour" "otherway-Hour"
+TRANSLATE "is" "otherway-Is"
+TRANSLATE "minute" "otherway-Minute"
+TRANSLATE "now" "otherway-Now"
+TRANSLATE "on" "otherway-On"
+TRANSLATE "pm" "otherway-Pm"
+TRANSLATE "today" "otherway-Today"
+TRANSLATE "tomorrow" "otherway-Tomorrow"
+TRANSLATE "was" "otherway-Was"
+TRANSLATE "January" "otherway-January"
+TRANSLATE "February" "otherway-February"
+TRANSLATE "March" "otherway-March"
+TRANSLATE "April" "otherway-April"
+TRANSLATE "May" "otherway-May"
+TRANSLATE "June" "otherway-June"
+TRANSLATE "July" "otherway-July"
+TRANSLATE "August" "otherway-August"
+TRANSLATE "September" "otherway-September"
+TRANSLATE "October" "otherway-October"
+TRANSLATE "November" "otherway-November"
+TRANSLATE "December" "otherway-December"
+TRANSLATE "Monday" "otherway-Monday"
+TRANSLATE "Tuesday" "otherway-Tuesday"
+TRANSLATE "Wednesday" "otherway-Wednesday"
+TRANSLATE "Thursday" "otherway-Thursday"
+TRANSLATE "Friday" "otherway-Friday"
+TRANSLATE "Saturday" "otherway-Saturday"
+TRANSLATE "Sunday" "otherway-Sunday"
+
+MSG $Ago is [$Ago]%
+MSG $Am is [$Am]%
+MSG $And is [$And]%
+MSG $At is [$At]%
+MSG $Fromnow is [$Fromnow]%
+MSG $Hour is [$Hour]%
+MSG $Is is [$Is]%
+MSG $Minute is [$Minute]%
+MSG $Now is [$Now]%
+MSG $On is [$On]%
+MSG $Pm is [$Pm]%
+MSG $Today is [$Today]%
+MSG $Tomorrow is [$Tomorrow]%
+MSG $Was is [$Was]%
+MSG $January is [$January]%
+MSG $February is [$February]%
+MSG $March is [$March]%
+MSG $April is [$April]%
+MSG $May is [$May]%
+MSG $June is [$June]%
+MSG $July is [$July]%
+MSG $August is [$August]%
+MSG $September is [$September]%
+MSG $October is [$October]%
+MSG $November is [$November]%
+MSG $December is [$December]%
+MSG $Monday is [$Monday]%
+MSG $Tuesday is [$Tuesday]%
+MSG $Wednesday is [$Wednesday]%
+MSG $Thursday is [$Thursday]%
+MSG $Friday is [$Friday]%
+MSG $Saturday is [$Saturday]%
+MSG $Sunday is [$Sunday]%
+
+TRANSLATE CLEAR
+TRANSLATE DUMP
+MSG $Ago is [$Ago]%
+MSG $Am is [$Am]%
+MSG $And is [$And]%
+MSG $At is [$At]%
+MSG $Fromnow is [$Fromnow]%
+MSG $Hour is [$Hour]%
+MSG $Is is [$Is]%
+MSG $Minute is [$Minute]%
+MSG $Now is [$Now]%
+MSG $On is [$On]%
+MSG $Pm is [$Pm]%
+MSG $Today is [$Today]%
+MSG $Tomorrow is [$Tomorrow]%
+MSG $Was is [$Was]%
+MSG $January is [$January]%
+MSG $February is [$February]%
+MSG $March is [$March]%
+MSG $April is [$April]%
+MSG $May is [$May]%
+MSG $June is [$June]%
+MSG $July is [$July]%
+MSG $August is [$August]%
+MSG $September is [$September]%
+MSG $October is [$October]%
+MSG $November is [$November]%
+MSG $December is [$December]%
+MSG $Monday is [$Monday]%
+MSG $Tuesday is [$Tuesday]%
+MSG $Wednesday is [$Wednesday]%
+MSG $Thursday is [$Thursday]%
+MSG $Friday is [$Friday]%
+MSG $Saturday is [$Saturday]%
+MSG $Sunday is [$Sunday]%
+
+DEBUG +e
+set $Is "foo"
+set $Was "bar"
+TRANSLATE DUMP
+TRANSLATE "is" "is"
+TRANSLATE "was"
+TRANSLATE DUMP
+MSG $Is is [$Is]%
+MSG $Was is [$Was]%
+
+# Catch an error fixed in commit 356b562d75852dafb2ffc6b1122500a98fa7d9d0
+IF 1
+    INCLUDE /non/existent/file/should/not/work/wookie
+ENDIF
+
+do "with space.rem"
+
+DEBUG -e
+
 # Output expression-node stats
-DEBUG +s
+DEBUG +h
 
 # Don't want Remind to queue reminders
 EXIT

tests/torture-test.rem

@@ -310009,3 +310009,4 @@ REM MSG Dedup-9996
 REM MSG Dedup-9997
 REM MSG Dedup-9998
 REM MSG Dedup-9999
+set $DedupeReminders 0

tests/torture2.rem

@@ -600001,4 +600001,4 @@ TRANSLATE "99999"
 SET BOOGIE 1
 FSET QUUX(x) x*2
 TRANSLATE "A" "B"
-DEBUG +s
+DEBUG +h

tests/tstlang.rem

@@ -11,7 +11,7 @@
 # Use the output to verify your translations.
 #
 # This file is part of REMIND.
-# Copyright (C) 1992-2024 Dianne Skoll
+# Copyright (C) 1992-2025 Dianne Skoll
 # SPDX-License-Identifier: GPL-2.0-only
 #
 # ---------------------------------------------------------------------------
@@ -33,9 +33,9 @@ endif
 
 if defined("i")
     do [i]
-#    msg INCLUDING [i]
 endif
 
+REM MSG Language: %(LANGID)
 # Set up a few useful definitions
 fset show(x) "%%" + x + " yields: " + char(34) + "%" + x + char(34) + "% and %%*" + x + " yields: " + char(34) + "%*" + x + char(34) + "%"
 set a trigger(today()+2) + " ++2"
@@ -856,3 +856,37 @@ msg [showmon(9)]
 msg [showmon(10)]
 msg [showmon(11)]
 msg [showmon(12)]
+
+MSG $Ago is [$Ago]%
+MSG $Am is [$Am]%
+MSG $And is [$And]%
+MSG $At is [$At]%
+MSG $Fromnow is [$Fromnow]%
+MSG $Hour is [$Hour]%
+MSG $Is is [$Is]%
+MSG $Minute is [$Minute]%
+MSG $Now is [$Now]%
+MSG $On is [$On]%
+MSG $Pm is [$Pm]%
+MSG $Today is [$Today]%
+MSG $Tomorrow is [$Tomorrow]%
+MSG $Was is [$Was]%
+MSG $January is [$January]%
+MSG $February is [$February]%
+MSG $March is [$March]%
+MSG $April is [$April]%
+MSG $May is [$May]%
+MSG $June is [$June]%
+MSG $July is [$July]%
+MSG $August is [$August]%
+MSG $September is [$September]%
+MSG $October is [$October]%
+MSG $November is [$November]%
+MSG $December is [$December]%
+MSG $Monday is [$Monday]%
+MSG $Tuesday is [$Tuesday]%
+MSG $Wednesday is [$Wednesday]%
+MSG $Thursday is [$Thursday]%
+MSG $Friday is [$Friday]%
+MSG $Saturday is [$Saturday]%
+MSG $Sunday is [$Sunday]%

tests/with space.rem

@@ -0,0 +1 @@
+REM MSG D'oh, a file whose name has spaces! [filename()]

www/Makefile.in

@@ -1,6 +1,6 @@
 # Makefile.in for installing WWW server calendar scripts
 # This file is part of REMIND.
-# Copyright (C) 1992-2018 by Dianne Skoll
+# Copyright (C) 1992-2025 by Dianne Skoll
 
 # The complete path to where the scripts actually live, as seen by
 # the UNIX operating system.

www/README

@@ -1,15 +1,15 @@
 README
 
-HTML Hebrew Calendar Server
+HTML Calendar Server
 
-This is a rudimentary Hebrew calendar server for the WWW.  It
-supplies local sunrise and sunset times, moon phases, upcoming Jewish
-holidays, and PostScript calendars.  It only works under UNIX.  I've
-only tested it with Linux running NCSA's httpd and Apache's httpd, but
-it should work on any UNIX web server.
+This is a rudimentary calendar server for the WWW.  It supplies local
+sunrise and sunset times, moon phases, upcoming Jewish holidays, and
+PostScript calendars.  It only works under UNIX/Linux.  I've only tested it
+with Linux running Apache's httpd, but it should work on any UNIX/Linx web
+server that supports CGI scripts.
 
-To install it, you need the Remind package, available via ftp from
-https://dianne.skoll.ca/projects/remind/  You should install Remind,
+To install it, you need the Remind package, available from
+https://dianne.skoll.ca/projects/remind/ You should install Remind,
 setting the latitude, longitude, location and time zone as appropriate
 for your machine.
 
@@ -40,4 +40,4 @@ where "what" is one of:
    called "calendar.html" and installed in the HTMLDIR you specified
    in the Makefile.
 
-4) Enjoy!
+5) Enjoy!