From 1ef3119fe613823a2145126c58948361ca7d3cd8 Mon Sep 17 00:00:00 2001 From: Peter Mikkelsen Date: Sat, 8 Jan 2022 22:45:00 +0000 Subject: Add initial code, just to get started --- print.c | 25 +++++++++++++++++++++++++ 1 file changed, 25 insertions(+) create mode 100644 print.c (limited to 'print.c') diff --git a/print.c b/print.c new file mode 100644 index 0000000..c457647 --- /dev/null +++ b/print.c @@ -0,0 +1,25 @@ +#include +#include +#include + +#include "apl9.h" + +Rune * +ppdatum(Datum d) +{ + return runestrdup(d.strrep); +} + +Rune * +ppdatums(Datum *ds, int n) +{ + int i; + Rune *res = runesmprint(""); + Rune *tmp; + for(i = 0; i < n; i++){ + tmp = res; + res = runesmprint("%S %S", res, ppdatum(ds[i])); + free(tmp); + } + return res; +} \ No newline at end of file -- cgit v1.2.3