k+

Author: ktye

k+/l.c

@@ -0,0 +1,16 @@
+void reg(int64_t id, int64_t name, int32_t arity){
+ int64_t l=ti(14,(uint32_t)l2(id, Ku(name)));
+ SetI32((int32_t)l-12,arity);
+ dx(Asn(sc(Ku(name)),l));
+}
+void libs(void){ //encode strings with: https://play.golang.org/p/4ethx6OEVCR
+ reg(0,846033518ull,1); //nrm2
+ //reg(1,...);
+ //reg(2,...);
+}
+int64_t cnative(int64_t x, int64_t y){
+ switch(x){ //switch registered function id
+ case 0:  printf("todo call blas nrm2\n"); return y; break;
+ default: return y;
+}}
+

k+/l.h

@@ -0,0 +1,3 @@
+#define NATIVE 1
+void libs(void);
+int64_t cnative(int64_t,int64_t);

k+/readme

@@ -0,0 +1,14 @@
+# extend k.c with some c-libraries using the native function type
+# blas lapack fftw lp_solve ..
+
+set -e
+set -x
+CC=cc
+if [ "$1" = "get" ];then
+ wget -Okc.orig https://github.com/ktye/i/releases/download/latest/k.c 
+fi
+
+sed -e 's/math.h>$/math.h>\n#include"l.h"/' -e 's/kinit()/kinit();libs()/' kc.orig>k.c
+cat l.c                                                                          >>k.c
+
+$CC -O3 -march=native -ok+ k.c -lm