2015-04-10 09:57:04 +03:00
|
|
|
::
|
2016-02-05 06:05:37 +03:00
|
|
|
:::: /hoon/effect/sole/mar
|
2015-04-10 09:57:04 +03:00
|
|
|
::
|
2016-02-18 02:00:12 +03:00
|
|
|
/? 310
|
2015-09-01 23:56:42 +03:00
|
|
|
/- sole
|
2019-02-28 03:12:59 +03:00
|
|
|
/+ base64
|
|
|
|
!:
|
2016-11-17 04:42:58 +03:00
|
|
|
::
|
2015-04-10 09:57:04 +03:00
|
|
|
::::
|
|
|
|
::
|
2016-11-17 04:37:39 +03:00
|
|
|
=, sole
|
2016-12-03 02:47:16 +03:00
|
|
|
=, format
|
2015-04-10 09:57:04 +03:00
|
|
|
|%
|
|
|
|
++ mar-sole-change :: XX dependency
|
2016-02-10 22:03:28 +03:00
|
|
|
|_ cha/sole-change
|
2015-04-10 09:57:04 +03:00
|
|
|
++ grow
|
|
|
|
|% ++ json
|
|
|
|
^- ^json
|
2016-12-03 02:47:16 +03:00
|
|
|
=, enjs
|
|
|
|
=; edi
|
|
|
|
=,(cha (pairs ted+(edi ted) ler+a+~[(numb own.ler) (numb his.ler)] ~))
|
2016-02-10 22:03:28 +03:00
|
|
|
|= det/sole-edit
|
2015-04-14 23:38:37 +03:00
|
|
|
?- -.det
|
2016-02-10 22:03:28 +03:00
|
|
|
$nop [%s 'nop']
|
|
|
|
$mor [%a (turn p.det ..$)]
|
2016-12-03 02:47:16 +03:00
|
|
|
$del (frond %del (numb p.det))
|
|
|
|
$set (frond %set (tape (tufa p.det)))
|
|
|
|
$ins (frond %ins (pairs at+(numb p.det) cha+s+(tuft q.det) ~))
|
2015-04-10 09:57:04 +03:00
|
|
|
==
|
2018-10-27 02:19:18 +03:00
|
|
|
--
|
2015-04-10 09:57:04 +03:00
|
|
|
--
|
|
|
|
++ wush
|
2016-02-10 22:03:28 +03:00
|
|
|
|= {wid/@u tan/tang}
|
2015-04-10 09:57:04 +03:00
|
|
|
^- tape
|
2016-12-02 21:43:16 +03:00
|
|
|
(of-wall (turn (flop tan) |=(a/tank (of-wall (wash 0^wid a)))))
|
2015-04-10 09:57:04 +03:00
|
|
|
::
|
2016-10-26 21:22:12 +03:00
|
|
|
++ purge :: discard ++styx style
|
|
|
|
|= a/styx ^- tape
|
|
|
|
%- zing %+ turn a
|
|
|
|
|= a/_?>(?=(^ a) i.a)
|
|
|
|
?@(a (trip a) ^$(a q.a))
|
2015-04-10 09:57:04 +03:00
|
|
|
--
|
2016-11-17 04:42:58 +03:00
|
|
|
::
|
2016-02-10 22:03:28 +03:00
|
|
|
|_ sef/sole-effect
|
2015-04-10 09:57:04 +03:00
|
|
|
::
|
|
|
|
++ grab :: convert from
|
|
|
|
|%
|
|
|
|
++ noun sole-effect :: clam from %noun
|
|
|
|
--
|
|
|
|
++ grow
|
2016-12-03 02:47:16 +03:00
|
|
|
=, enjs
|
2015-04-10 09:57:04 +03:00
|
|
|
|%
|
|
|
|
++ json
|
|
|
|
^- ^json
|
2018-10-27 02:19:18 +03:00
|
|
|
?+ -.sef
|
2016-02-10 22:03:28 +03:00
|
|
|
~|(unsupported-effect+-.sef !!)
|
|
|
|
$mor [%a (turn p.sef |=(a/sole-effect json(sef a)))]
|
2016-12-03 02:47:16 +03:00
|
|
|
$err (frond %hop (numb p.sef))
|
|
|
|
$txt (frond %txt (tape p.sef))
|
|
|
|
$tan (frond %tan (tape (wush 160 p.sef)))
|
|
|
|
$det (frond %det json:~(grow mar-sole-change +.sef))
|
2016-02-10 22:03:28 +03:00
|
|
|
::
|
2016-10-26 21:22:12 +03:00
|
|
|
$pro
|
2016-12-03 02:47:16 +03:00
|
|
|
%+ frond %pro
|
|
|
|
(pairs vis+b+vis.sef tag+s+tag.sef cad+(tape (purge cad.sef)) ~)
|
2019-11-22 03:51:52 +03:00
|
|
|
::
|
|
|
|
$tab
|
|
|
|
:- %a
|
|
|
|
%+ turn p.sef
|
|
|
|
|= [=cord =^tank]
|
|
|
|
%- pairs
|
|
|
|
:~ match+s+cord
|
|
|
|
info+(tape ~(ram re tank))
|
|
|
|
==
|
2016-10-26 21:22:12 +03:00
|
|
|
::
|
|
|
|
?($bel $clr $nex)
|
2016-12-03 02:47:16 +03:00
|
|
|
(frond %act %s -.sef)
|
2015-04-10 09:57:04 +03:00
|
|
|
==
|
|
|
|
--
|
|
|
|
--
|