improvements to match urb

This commit is contained in:
Philip C Monk 2016-03-16 15:26:02 -04:00
parent 4144a1a8c8
commit 841a32a3c1
2 changed files with 12 additions and 3 deletions

View File

@ -165,7 +165,7 @@
++ dp-sink
;~ pose
;~(plug (cold %file tar) dp-beam)
;~(plug (cold %flat pat) (most fas qut))
;~(plug (cold %flat pat) (most fas sym))
;~(plug (cold %pill dot) (most fas sym))
;~(plug (cold %http lus) (easy %post) dp-iden-url)
;~(plug (cold %http hep) (easy %put) dp-iden-url)
@ -1019,10 +1019,10 @@
:- ^$(source.com i.next.source.com)
$(next.source.com t.next.source.com)
==
=+ ^- sink/dojo-sink
=+ |- ^- sink/dojo-sink
?- -.sink.com
$stdout [%show %0]
$output-file [%show %0]
$output-file $(sink.com [%command (cat 3 '@' pax.sink.com)])
$output-clay [%file (need (tome pax.sink.com))]
$url [%http %post '' url.sink.com]
$to-api !!

View File

@ -1626,6 +1626,15 @@
`whir`[%of ire (gsig [our %dojo] lens+/)]
`note`[%g %deal [him our] %dojo %pull ~]
abet:(give-json 200 ~ jon)
::
$sav
=+ ^= jon
(jobe file+s+(crip <`path`p.fec>) data+s+(crip (sifo q.fec)) ~)
=. +>.$
%+ pass-note
`whir`[%of ire (gsig [our %dojo] lens+/)]
`note`[%g %deal [him our] %dojo %pull ~]
abet:(give-json 200 ~ jon)
::
$mor
|- ^+ ..ix