From: Bruno Haible <bruno@clisp.org>
Date: Sun, 22 Jun 2025 00:11:33 +0000 (+0200)
Subject: pascal-format: Accept null precision.
X-Git-Tag: v0.26~82
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=fd6617fb54efd206dd4089660179dfcb81424eb3;p=thirdparty%2Fgettext.git

pascal-format: Accept null precision.

Proof that it's valid:
------------------------- foo.pp -------------------------
program foo;
uses sysutils;
begin
  writeln(format('%.f', [3.1415926535]));
end.
----------------------------------------------------------

* gettext-tools/src/format-pascal.c: Fix comment regarding the precision.
(format_parse): Accept a null precision after '.'.
* gettext-tools/tests/format-pascal-1: Add a test case with null precision.
---

diff --git a/gettext-tools/src/format-pascal.c b/gettext-tools/src/format-pascal.c
index 855acc614..648597501 100644
--- a/gettext-tools/src/format-pascal.c
+++ b/gettext-tools/src/format-pascal.c
@@ -49,8 +49,8 @@
        - is optionally followed by a width specification: '*' (reads an
          argument, must be of type integer) or a nonempty digit sequence,
        - is optionally followed by '.' and a precision specification: '*'
-         (reads an argument, must be of type integer) or a nonempty digit
-         sequence,
+         (reads an argument, must be of type integer) or an optional nonempty
+         digit sequence,
        - is finished by a case-insensitive specifier. If no index was
          specified, it reads an argument; otherwise is uses the index-th
          argument, 0-based.
@@ -216,8 +216,6 @@ format_parse (const char *format, bool translated, char *fdi,
 
                     format++;
                   }
-                else
-                  --format;     /* will jump to bad_format */
               }
 
             switch (c_tolower (*format))
diff --git a/gettext-tools/tests/format-pascal-1 b/gettext-tools/tests/format-pascal-1
index c0694c087..98d2e5580 100755
--- a/gettext-tools/tests/format-pascal-1
+++ b/gettext-tools/tests/format-pascal-1
@@ -48,6 +48,8 @@ cat <<\EOF > f-op-1.data
 "abc%y"
 # Invalid: flags after width
 "abc%*-g"
+# Valid: null precision
+"abc%.f"
 # Invalid: twice precision
 "abc%.4.2g"
 # Valid: three arguments