diff options
author | ngn <ngn@noreply.codeberg.org> | 2024-06-03 15:37:08 +0000 |
---|---|---|
committer | ngn <ngn@noreply.codeberg.org> | 2024-06-03 15:37:08 +0000 |
commit | ff3397dcc900659e323127612beb716a86fd6513 (patch) | |
tree | 54488b91385c94e5ea2de3e720b0a2c07f096a12 | |
parent | cde2bfe72efa4b8cdbe3e7d8a6c475d02a3329d4 (diff) | |
parent | 47c47d29a33bcd816f8b3435faf281ef098c92b7 (diff) |
Merge pull request 'Create vectors when passing null to ffi API' (#85) from growler/k:nullffi into master
Reviewed-on: https://codeberg.org/ngn/k/pulls/85
-rw-r--r-- | k.c | 12 |
1 files changed, 6 insertions, 6 deletions
@@ -5,13 +5,13 @@ N NK(K x)_(xn) V*dK(K x)_(xV) Z V VK(C t,V*a,K x){I(xtZ,x=ct(t,x))MC(a,xV,(W)xn<<Tw[t]>>3);I(xtR,I(MINE(x),AZ(x))E(mRn(xn,xV)))x(0);} -// constructors accessors -// atom list atom list -K Kc(C v)_(ac(v)) K KC(C*a ,N n)_(aV(tC,n,a)) C cK(K x)_(xv) V CK(C*a,K x){VK(tC,a,x);} +// constructors accessors +// atom list atom list +K Kc(C v)_(ac(v)) K KC(C*a ,N n)_(a?aV(tC,n,a):an(n,tC)) C cK(K x)_(xv) V CK(C*a,K x){VK(tC,a,x);} K Ks(C*s)_(sym(s)) K KS(C**a,N n)_(A x=aS(n);F(n,xi=sym(a[i]))x) -K Ki(I v)_(az(v)) K KI(I*a ,N n)_(aV(tI,n,a)) I iK(K x)_(xv) V IK(I*a,K x){VK(tI,a,x);} -K Kf(F v)_(af(v)) K KF(F*a ,N n)_(aV(tF,n,a)) F fK(K x)_(*xF) V FK(F*a,K x){VK(tF,a,x);} - K KL(K*a ,N n)_(a?aV(tA,n,a):aA(n)) V LK(K*a,K x){VK(tA,a,x);} +K Ki(I v)_(az(v)) K KI(I*a ,N n)_(a?aV(tI,n,a):an(tI,n)) I iK(K x)_(xv) V IK(I*a,K x){VK(tI,a,x);} +K Kf(F v)_(af(v)) K KF(F*a ,N n)_(a?aV(tF,n,a):an(n,tF)) F fK(K x)_(*xF) V FK(F*a,K x){VK(tF,a,x);} + K KL(K*a ,N n)_(a?aV(tA,n,a):aA(n)) V LK(K*a,K x){VK(tA,a,x);} K Kp(V*p)_(al((L)p)) V KA(S s,K x){x=x(d8(A8(as(sym(s)),emp(tA),av,x),4));I(x,mr(x))} |