ames,lull: remove .siz from $meow

This commit is contained in:
~wicrum-wicrun 2023-04-24 16:23:09 +02:00
parent bf0a4a3327
commit 641326ad36
3 changed files with 2 additions and 11 deletions

View File

@ -844,7 +844,7 @@
:- 'meow'
%- pairs
:~ 'num'^(numb num)
'size'^(numb siz)
'size'^(numb (met 3 dat))
== ==
::
'num-fragments'^(numb num-fragments)

View File

@ -1335,7 +1335,6 @@
+$ meow :: response fragment
$: sig=@ux :: signature
num=@ud :: number of fragments
siz=@ud :: official size of this fragment
dat=@ux :: contents
==
::
@ -1657,14 +1656,9 @@
::
++ sift-meow
|= =yowl
=; =meow
~| %fine-meow-len^meow
?> (gte siz.meow (met 3 dat.meow))
meow
:* sig=(cut 3 [0 64] yowl)
num=(cut 3 [64 4] yowl)
siz=(cut 3 [68 2] yowl)
dat=(rsh 3^70 yowl)
dat=(rsh 3^68 yowl)
==
:: +etch-shot: serialize a packet into a bytestream
::

View File

@ -337,7 +337,6 @@
|= =meow
:* sig=`@q`(mug sig.meow)
num=num.meow
siz=siz.meow
dat=`@q`(mug dat.meow)
==
::
@ -349,7 +348,6 @@
=/ wid (met 3 dat)
:* sig=(sign-fra path num dat) :: fragment signature
num=tot :: number of fragments
siz=?:(=(num tot) (met 3 dat) 1.024) :: fragment byte width
dat=dat :: response data fragment
==
::
@ -359,7 +357,6 @@
%+ can 3
:~ 64^sig.meow
4^num.meow
2^siz.meow
(met 3 dat.meow)^dat.meow
==
::