From: Eric S. Raymond <esr@thyrsus.com>
Date: Sat, 21 Sep 2024 02:04:16 +0000 (-0400)
Subject: Define TRUNCLEN and explain its issues.
X-Git-Tag: 1.20~14
X-Git-Url: https://jxself.org/git/?a=commitdiff_plain;h=f1cb740c41a992c6b25a83d098b0b580cf85486c;p=open-adventure.git

Define TRUNCLEN and explain its issues.
---

diff --git a/misc.c b/misc.c
index 533735b..af88737 100644
--- a/misc.c
+++ b/misc.c
@@ -512,9 +512,14 @@ static void tokenize(char *raw, command_t *cmd) {
 	 * in their tools. On the other, not simulating this misbehavior
 	 * goes against the goal of making oldstyle as accurate as
 	 * possible an emulation of the original UI.
+	 *
+	 * The definition of TRUNCLEN is dubious. It accurately reflects the
+	 * FORTRAN, but it's possible that was a bug and the proper definition
+	 * is (TOKLEN).
 	 */
+#define TRUNCLEN (TOKLEN + TOKLEN)
 	if (settings.oldstyle) {
-		cmd->word[0].raw[TOKLEN] = cmd->word[1].raw[TOKLEN] = '\0';
+		cmd->word[0].raw[TRUNCLEN] = cmd->word[1].raw[TRUNCLEN] = '\0';
 		for (size_t i = 0; i < strlen(cmd->word[0].raw); i++) {
 			cmd->word[0].raw[i] = toupper(cmd->word[0].raw[i]);
 		}