kapi.c

#include <stdarg.h>
#include <string.h>
#include <unistd.h>
#include "kona.h"

extern K wd(S s, I n);
extern K dot(K,K);
extern K newK(I t, I n);
extern K newE(S s, K k);
extern I jdn_from_date(I);
extern I date_from_jdn(I);
extern I kinit();
extern K X(S);
extern K dv_ex(K, V*, K);
extern K KTREE;
extern K kap(K*, V);
extern K* denameD(K*,S,I);
extern K* denameS(S,S,I);
extern S __d;
#define NYI kerr("nyi")

K gi(I x) {K z=newK(1,1); Ki(z)=x; R z;}
K gf(F x) {K z=newK(2,1); Kf(z)=x; R z;}
K gc(C x) {K z=newK(3,1); Kc(z)=x; R z;}
K gs(S x) {K z=newK(4,1); Ks(z)=x; R z;}
K gn()    {K z=newK(6,1); R z;}

K gtn(I t, I n) { R newK(t,n); }

Z K gpn_(S s, I i) {K z=gtn(-3,i); memcpy(KC(z),s,i); R z; }
K gpn(S s, I i) {I n=strlen(s); if(i<n) R gpn_(s, i); else R 0;}
K gp(S s) {R gpn_(s,strlen(s));}

I sfn(S s, K(*f)(), I i)
{
	R 0;
}

I sdf(I i, I(*f)()) { R NYI; } // XXX
I scd(I i) { R close(i);} // XXX

K gsk(S s, K k) { return gnk(3, gs(sp(s)), k, 0); }

I jd(I d) { I j; K a = gi(d), r = _jd(a); cd(a); j = Ki(r); cd(r); R j; }
I dj(I j) { I d; K a = gi(j), r = _jd(a); cd(a); d = Ki(r); cd(r); R d; }

K gnk(I n, ...)
{
	K z = gtn(0, n);
	va_list v;
	va_start(v, n);
	DO(n, z->k[i] = va_arg(v, K));
	va_end(v);
	R z;
}

K ksk(S s, K x)
{
	K z;
	K y;
	if (!*s) { kinit(); R 0; }
	y = X(s);
	if (!x) R y;
	//z = dv_ex(0, KV(z)[2], x) : z;
	R y;
}