updated fift

updated fift
updated tonlib

crypto/fift/lib/TonUtil.fif

@@ -123,3 +123,16 @@ forget val,  forget val@  forget .val
 { 0 lib+ } : private_lib
 // ( D c -- D' )  Add public library c to collection D
 { 1 lib+ } : public_lib
+
+// serialize simple transfers with long comments
+// b B n -- b'
+recursive append-long-bytes {
+  over Blen over <= { drop B, } {
+    B| <b swap 127 append-long-bytes b> -rot B, swap ref,
+  } cond
+} swap !
+// b S n -- b'
+{ swap $>B swap append-long-bytes } : append-long-string
+// S -- c
+{ <b over $len { 0 32 u, swap 36 append-long-string } { nip } cond b>
+} : simple-transfer-body