Embed ngn/k or ktye/k in c

kembed.c

/* 
This is https://codeberg.org/ngn/k/src/branch/master/x/embed/a.c
with some added commentary.

See: https://github.com/ktye/i/blob/master/kc 
*/

#include<stdio.h>
#include"../../k.h"

K add(K x,K y){
    /* 
    The wrapper function would have to test the types of the arguments, maybe signal an error if 
    they are not right, extract the actual ints from them with iK(x) and iK(y), do whatever f() 
    is supposed to do, then create a k object for the result with Ki(value) and return it
    */
 printf("add()\n");
 int a=iK(x);
 int b=iK(y);
 int c=a+b;
 return Ki(c);
}

int main(){
 setbuf(stdout,0);
 printf("kinit()\n"); kinit();
 printf("KR()\n");    K f=KR(add,2,"<add>");      // KR(func,valence,displayName) makes a k function from a c function
 printf("KA()\n");    KA("add",f);                // KA(name,value) is assignment, like `:`
 printf("KC()\n");    K s=KC("`0:$add[2;3]",13);  // KC creates a k-value vector (data, length)
 printf("K1()\n");    K1('.',s);                  // K1 calls a k function
 printf("return\n");  return 0;
}