File: 0013-Speak-leading-zeros-in-numbers.patch

package info (click to toggle)
freespeech 1.0m-3
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid
  • size: 13,640 kB
  • sloc: ansic: 5,315; perl: 202; makefile: 114
file content (21 lines) | stat: -rw-r--r-- 532 bytes parent folder | download | duplicates (2) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
 
From: "Igor B. Poretsky" <poretsky@mlbox.ru>
Date: Tue, 14 Feb 2023 17:40:32 +0300
Subject: Speak leading zeros in numbers

---
 src/interface.c | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/src/interface.c b/src/interface.c
index 31e9095..ca91b9f 100644
--- a/src/interface.c
+++ b/src/interface.c
@@ -121,6 +121,8 @@ export void have_number()
 
   for (new_char() ; isdigit(Char) ; new_char())
     {
+      if (!value)
+        say_cardinal(value);
       value = 10 * value + (Char-'0');
       lastdigit = Char;
     }