aplat

commit b7de7ba96e2a576544c259240e690ac7822d4454
parent 216a561b75dbf8302ec4abfa4389333e07375454
Auteur: Selve <selve@asteride.xyz>
Date:   Tue, 21 Nov 2023 16:55:27 -0500

correction d'une problème avec les blocs

Le point d'interrogation d'échappement était affiché.

Diffstat:
M
aplat.c
 | 
4
+++-

1 file changed, 3 insertions(+), 1 deletion(-)
diff --git a/aplat.c b/aplat.c
@@ -333,11 +333,13 @@ bloc(FILE *f, struct tampon *tp)
 		case '"':
 			for (npar = 1; (c = getc(f)) == '"'; npar++)
 				;
-			ungetc(c, f);
 			if (npar > NGUI || (npar == NGUI && c != '!')) {
+				ungetc(c, f);
 				tp_bloc_rec(tp);
 				return c;
 			}
+			if (npar != NGUI)
+				ungetc(c, f);
 			while (npar-- > 0)
 				tp_ecr('"', tp);
 			continue;