From fcb85b1744d8095e1631e5827835c2182dc93eae Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Anton=20Luka=20=C5=A0ijanec?= <anton@sijanec.eu>
Date: Thu, 16 Mar 2023 22:48:34 +0100
Subject: nempredst, fiz, hpcalc, etc...

---
 hp48g20230307/prog.c | 25 +++++++++++++++++++++++++
 1 file changed, 25 insertions(+)
 create mode 100644 hp48g20230307/prog.c

(limited to 'hp48g20230307')

diff --git a/hp48g20230307/prog.c b/hp48g20230307/prog.c
new file mode 100644
index 0000000..b29f736
--- /dev/null
+++ b/hp48g20230307/prog.c
@@ -0,0 +1,25 @@
+#include <stdio.h>
+int main (void) {
+	puts("%%HP: T(1)A(D)F(.);");
+	putchar(0xab);
+	char c = '\0';
+	unsigned paren = 0;
+	while (!feof(stdin) && !ferror(stdin)) {
+		char prevchar = c;
+		c = getchar();
+		if (prevchar == '-' && c == '>') {
+			putchar(0x8d);
+			c = '\0';
+			continue;
+		}
+		if (prevchar == '"')
+			paren++;
+		if (prevchar == '\0')
+			continue;
+		if (!(paren % 2) && (prevchar == ' ' || prevchar == '\t'))
+			putchar('\n');
+		else
+			putchar(prevchar);
+	}
+	puts("\n\xbb");
+}
-- 
cgit v1.2.3