From bc0c740cc1f6d470b4a182bea3d65a65d9011e75 Mon Sep 17 00:00:00 2001
From: Elijah Cohen <eli@eli173.com>
Date: Wed, 13 Nov 2024 21:05:15 -0600
Subject: [PATCH] added easier way to compile webasm version

also rediscovered there's a major bug in strings where I'm not
terminating them properly, appears on webasm version
---
 .gitignore        |   3 +++
 Makefile          |   3 +++
 src/Makefile      |  19 ++++++++++++++++
 src/emscr.c       |  34 ++++++++++++++++++++++++++++
 src/repl.c        |   3 +++
 src/test.c        |   3 +++
 web/kl.png        | Bin 0 -> 2683 bytes
 web/manifest.json |  15 +++++++++++++
 web/shell.html    |  56 ++++++++++++++++++++++++++++++++++++++++++++++
 9 files changed, 136 insertions(+)
 create mode 100644 src/emscr.c
 create mode 100644 web/kl.png
 create mode 100644 web/manifest.json
 create mode 100644 web/shell.html

diff --git a/.gitignore b/.gitignore
index b8678e1..28518dd 100644
--- a/.gitignore
+++ b/.gitignore
@@ -1,3 +1,6 @@
 *~
 /src/linenoise.c
 /src/linenoise.h
+/build/
+/web/static/
+/web/build/
\ No newline at end of file
diff --git a/Makefile b/Makefile
index db9b141..aec8428 100644
--- a/Makefile
+++ b/Makefile
@@ -9,3 +9,6 @@ test:
 .PHONY: clean
 clean:
 	cd src; $(MAKE) clean
+.PHONY: web
+web:
+	cd src; $(MAKE) web
diff --git a/src/Makefile b/src/Makefile
index ff4cd89..4246aba 100644
--- a/src/Makefile
+++ b/src/Makefile
@@ -13,6 +13,9 @@ DEPS:= $(OBJS:%.o=%.d)
 BIN_OBJS:= $(filter-out $(BUILD)/test.o,$(OBJS))
 TEST_OBJS:= $(filter-out $(BUILD)/repl.o,$(OBJS))
 
+WEB_BUILD:= ../web/build
+WEB_OBJS:= $(patsubst %.c,$(WEB_BUILD)/%.o,$(SRCS))
+WEB_SHELL:= ../web/shell.html
 
 #LIBRARIES = poppler-glib MagickWand libexif taglib_c libmagic libavcodec libavformat sqlite3 uuid fuse3 libbsd-overlay
 
@@ -33,6 +36,22 @@ $(OBJS): $(BUILD)/%.o:%.c Makefile
 	$(CC) -c $< -MMD -o $@ $(CFLAGS)
 
 
+
+$(WEB_OBJS): $(WEB_BUILD)/%.o:%.c Makefile
+	mkdir -p $(WEB_BUILD)/builtins
+	emcc -c $< -MMD -o $@ $(CFLAGS)
+
+.PHONY: web
+web: $(WEB_OBJS)
+	emcc $(WEB_OBJS) --shell-file $(WEB_SHELL) -o $(WEB_BUILD)/klrepl.html -s NO_EXIT_RUNTIME=1 -s "EXPORTED_RUNTIME_METHODS=['ccall']" --preload-file ../demos.kl@demos.kl
+	mkdir -p $(WEB_BUILD)/../static
+	cp $(WEB_BUILD)/../kl.png $(WEB_BUILD)/../static
+	cp $(WEB_BUILD)/../manifest.json $(WEB_BUILD)/../static
+	cp $(WEB_BUILD)/klrepl.data $(WEB_BUILD)/../static
+	cp $(WEB_BUILD)/klrepl.js $(WEB_BUILD)/../static
+	cp $(WEB_BUILD)/klrepl.wasm $(WEB_BUILD)/../static
+	cp $(WEB_BUILD)/klrepl.html $(WEB_BUILD)/../static/index.html
+
 .PHONY: test
 test: $(TEST_OBJS)
 	$(CC) $(TEST_OBJS) $(LDFLAGS) -o $(BUILD)/$(TEST_BIN)
diff --git a/src/emscr.c b/src/emscr.c
new file mode 100644
index 0000000..f312ade
--- /dev/null
+++ b/src/emscr.c
@@ -0,0 +1,34 @@
+#ifdef __EMSCRIPTEN__
+
+#include <stdio.h>
+#include <emscripten/emscripten.h>
+#include "types.h"
+#include "sexpr.h"
+#include "dict.h"
+#include "parser.h"
+#include "builtins.h"
+#include "eval.h"
+#include "util.h"
+
+Sexpr* my_env = NULL;
+
+int main() {
+	my_env = init_dict();
+	load_env(my_env);
+	load_file(my_env, "/demos.kl");
+	printf(" ready\n");
+	return 0;
+}
+
+EMSCRIPTEN_KEEPALIVE char* ems_eval(char* s) {
+	//printf("called wasm with %s\n", s);
+	Sexpr* in = parse(s);
+	if(in == NULL) return "bad input\n";
+	Sexpr* out = eval(clone(in), my_env);
+	char* outstr = sprint_sexpr(out);
+	sexpr_free(in);
+	sexpr_free(out);
+	return outstr;
+}
+
+#endif
diff --git a/src/repl.c b/src/repl.c
index 9bc64d8..d1c7940 100644
--- a/src/repl.c
+++ b/src/repl.c
@@ -1,4 +1,5 @@
 
+#ifndef __EMSCRIPTEN__
 
 #include <stdio.h>
 #include <stdlib.h>
@@ -77,3 +78,5 @@ int main(int argc, char** argv) {
 	free(histfile);
 	return 0;
 }
+
+#endif
diff --git a/src/test.c b/src/test.c
index 672bc8e..db89c82 100644
--- a/src/test.c
+++ b/src/test.c
@@ -1,3 +1,4 @@
+#ifndef __EMSCRIPTEN__
 
 #include <stdio.h>
 #include <stdlib.h>
@@ -414,3 +415,5 @@ int main() {
 	run_tests();
 	return 0;
 }
+
+#endif
diff --git a/web/kl.png b/web/kl.png
new file mode 100644
index 0000000000000000000000000000000000000000..0ffbc0579a4f78960b8d5ddefaa58dd22a54080b
GIT binary patch
literal 2683
zcmc&!Yfuwc6uz6y%V5fa2q9RAW3dQ|k1AB5un-jx&}ii;RdfgjMS>6nCJ9+6C>ASH
ztyHZTN};V<QG65>Ln5fO^?^k}5is)hL5fHPBSP;+ol)v^to~?bZuaiE=X~ee^PPJ(
z3l@5@SzHzXfbHWwcL@L#xTOFl`H*t?KLdcINAdXrA3mQK8z+v8iWUN3mm|;l#Jdvb
zY`j&ppm3>KgGbePenJT^uxjxEK{_ixP;^bxrZ@8Eer0Cir8%zEUS4%gb2cQ15#)gl
zBI`HAE|KJzR`{}}tSWCU-PEt@Z`ZltqQG5i9{GX&k(PHNJTG(vo>e=fapry#85UXO
z_My+Dq^-r$fq@i@){y1|#nvI2CW2V>L7wpBN)s`*NE|w+Q{KXK_&vELzGeOAj^2aS
z31{1#FWGLQ<ylUjaVNQjc_jGms=}<08-mS0WELa`6v)Qki_3dxzWR9R>TYST#YR@c
zZ!_wnzT|D5H`ybNNlREN$jIPyb0<ywLz36iW9*W$IgC|iAKn&>v+X0!8xJumq-)Jv
zx5q58L;6(LADy?uuG2!<H;3F#bk~j2D(HufZLO%IM!NZkCC9o<rX6O7g(c1u8kaUA
z8}lSLw!Q!BB40c6)c%k3MdL6PEp2Vgt%lBz<zU9u16SFxvCJ)B+ew>Ro8(RMC%+Um
zRoHA#k2_X#su_c_jEeORi3h-O0=bZ+LiY{O$dLH>&tr74urXsDenL}5LzAUsUa*8O
zUbjvdBLVz4;Yx`xf|nR25%Iiy`~^X&?^yuA6#C5dSen$(-K1IHy8z2r>|tVj+k|?1
zQvQQ8R`*NNfn}sV@2Ebp*!58TzEIDBn$SI<I$lDBEkXdmg8*c={P*qK#JrU19mAP#
z!5C)Wvv-_krhn(}kDu5)OxVCB*t{71u-=&f-}@=pfC{e)zyW{~z1Vi`bxysL(SJlk
z$NT#Bm1i+1ct>CT%N{Q|W5lv%Ckh#w*}110Ak20ZMiv-ftb6oIjRl#DWE8RjRS$0n
zaNt=sl}eUIu;bJxuLxn*GG?E_@IdBdh7kgt5kf|pwZ|Bfxc?AtOQmncGyihy(Ibwh
zv8Eyh5>*dPN6N15Dj#Qn6YR(yME@UY$gG2RWV4_A^@2cZ$G!X5KNNYn-cTnkTV^qn
zU>js3{8UEV5$8~huHE$n68)@L5xv}LuPxn+lHjf@F0r0hAfmVZ;J-K<Dh+ld#!=A_
z{ax9Lz4YtAK6~hE_itOo`vC=W*3SY-yO-flFUdE-Ca4RarALt1Ys27jDuQ@7`uZtw
zK(|s}z9?_C#)wkilmZ)!I9RqKsZZL%riAyMYGY8<UCuCQn*O8N2nGslaNss4cle3>
zN*zkUf-DRHSH$q8CL`$Fkt@bb;sA*P3T|~Vs63h8>L~#@PXPo&nZy;?G;;s=>}1H|
zS8*Ro3D;RY#iw{pXzpV~LpK6IH;O==rJ$=}xZ2kJS#V8RcfaC-90y^4qE{0~4?p&Y
z!~sTl>fAumgE8O1#+_|yXsuw1;o@)xPBxpuFLs1iN?G!Fj`XpSG7i*D?abwdj{;O)
zE**x%X5LypP~6D;14{QrE&Pi+e;V4ujcee3CXNDxb0vPlGIahhn*yyc-@3}rQ2p>}
z(g$8Z_Q=KAdX$FLK)q{-@}o2=j+)L6c<xs15&$ttT)0lIBSzmpGd&G#sRxxt&?9`)
zb}DoSuPiN}-SdT7HIB=~a{|;K*OJ+^seF{GT!=>CC`or0J-YKC4p>fV5lZD9Lmb7<
z*14ZjVE!=kiO@aM&4EFqC=o7Tss-^EMI=VSMUnI`rR!LL{CI-JSz~3TEyaQEUi^F!
zL02>04_!O{sOo01Ww7OP758?T$)Alp3ChtaQlx5KMPMgAAF*?4x=?cS(}p~xlMb<+
zT;WG4>+F?O9^h(AC$kI>KgIQf+VglWy*-$(S<OeR)GqVy#!86*SjFFDLO7IMvKO+!
zVMGMmK3D`0yXeMy!hLKSRc#F|=L&5hRbO(_R0J<yL%=s8jQondS?y=s4eAXpxKT-J
zmdpW6!a)dyR+}mj0;GpcSPKyzK^dy|WLq;)N)NH^_K)zS&2bJFw9$EOj%5a!A!dMW
zan>xDNlMrQ$~I?2tXN)aGf<m<+`PBIv8iXe4Pr%3#T*AYAU9guNrt{Faiv4*gIdSu
z!*yr_%P;^YBRe4_h+Aa~pPpq#&xfj)h5(S$PRPl-<3*4)%`j%jj^&*|_QP&nh59LY
zn*8G(W&jS05z`aa0z$l@^^F~05BiSb5cFNhzb0H=ssgrl&S%ek{vZLspU=F7a}Rlj
Gr~M756~<iv

literal 0
HcmV?d00001

diff --git a/web/manifest.json b/web/manifest.json
new file mode 100644
index 0000000..3feab3a
--- /dev/null
+++ b/web/manifest.json
@@ -0,0 +1,15 @@
+{
+  "background_color": "#8E5DCE",
+  "description": "klklkl",
+  "display": "fullscreen",
+  "icons": [
+    {
+      "src": "kl.png",
+      "sizes": "512x512",
+      "type": "image/png"
+    }
+  ],
+  "name": "kl",
+  "short_name": "kl",
+  "start_url": "."
+}
diff --git a/web/shell.html b/web/shell.html
new file mode 100644
index 0000000..3226da4
--- /dev/null
+++ b/web/shell.html
@@ -0,0 +1,56 @@
+<!doctype html>
+<html lang="en-us">
+  <head>
+    <meta charset="utf-8">
+    <meta http-equiv="Content-Type" content="text/html; charset=utf-8">
+    <meta name="viewport" content="width=device-width, initial-scale=1">
+		<link rel="manifest" href="manifest.json" />
+		<link rel="icon" href="kl.png" />
+    <title>klrepl</title>
+		<style>
+			.console {
+					white-space: pre-wrap;
+			}
+		</style>
+  </head>
+  <body>
+		<div id="repl" style="font-family: monospace;">
+			<div id="replout"></div>
+			<form id="replform">
+				<input id="replin" type="text" autocorrect="off" autocapitalize="off"></input>
+			</form>
+		</div>
+    <div class="console" id="output" rows="8"></div>
+		<script type='text/javascript'>
+			var Module = {
+					print: (function() {
+							var element = document.getElementById('output');
+							if (element) element.textContent = 'loading...';
+							return (...args) => {
+									var text = args.join(' ');
+									console.log(text);
+									if (element) {
+											element.textContent += text + "\n";
+									}
+							};
+					})(),
+			};
+			document.getElementById("replform").addEventListener("submit", e => {
+					e.preventDefault();
+					let outzone = document.getElementById("replout");
+					let newelt = document.createElement('div');
+					let inelt = document.createElement('div');
+					let input = e.target[0].value
+					inelt.textContent += "<- " + input + "\n"
+					let outelt = document.createElement('div');
+					let output = Module.ccall("ems_eval", 'string', ['string'], [input])
+					outelt.textContent += " -> " + output + "\n"
+					newelt.appendChild(inelt);
+					newelt.appendChild(outelt);
+					outzone.appendChild(newelt);
+					document.getElementById('replin').value = ""
+			});
+			</script>
+		{{{ SCRIPT }}}
+	</body>
+</html>
-- 
2.39.2