rename generators to %say, %ask, %get

This commit is contained in:
Anton Dyudin 2015-09-11 17:24:51 -07:00
parent 81eeb6714e
commit 1755179ce3
48 changed files with 54 additions and 54 deletions

View File

@ -470,15 +470,15 @@
|= [cay=cage cig=dojo-config]
^- [wire silk]
:- ?+ -.q.q.cay ~|(%bad-gen ~_((sell (slot 2 q.cay)) !!))
%cat /gent
%dog /dial
%pig /scar
%say /gent
%ask /dial
%get /scar
==
=+ gat=(slot 3 q.cay)
:+ %call (dy-silk-vase gat)
:+ (dy-silk-vase !>([now=now.hid eny=eny.hid bec=he-beak]))
(dy-silk-sources p.cig)
:+ %mute (dy-silk-vase (slot 27 gat))
:+ %mute (dy-silk-vase (fall (slew 27 gat) !>(~)))
%+ turn (~(tap by q.cig))
|= [a=term b=(unit dojo-source)]
^- (pair wing silk)
@ -536,7 +536,7 @@
::
%|
=+ hiz=;;(hiss +<.q.vax)
%- (slog leaf/"< {(earn p.hiz)}" ~)
=. ..dy (he-diff %tan leaf/"< {(earn p.hiz)}" ~)
(dy-eyre(pro `(slap (slot 7 vax) cnzy/%q)) /scar hiz)
==
::

View File

@ -6,7 +6,7 @@
::
:::::::
!:
:- %cat
:- %say
|= [^ arg=[address=@t contact=@t ~] ~]
:- %address-contact
[address.arg contact.arg]

View File

@ -5,7 +5,7 @@
::
:::::
!:
:- %cat
:- %say
|= [^ [arg1=cord arg2=cord ~] ~] ::[arg=[cord cord ~] ~]]
:- %auth
[arg1 arg2]

View File

@ -5,7 +5,7 @@
::
:::::::
!:
:- %cat
:- %say
|= [^ [amount=@t currency=@t ~] ~]
:- %buy
[amount currency]

View File

@ -6,7 +6,7 @@
::
:::::::
!:
:- %cat
:- %say
|= [^ arg=[contact=@t address=@t ~] ~]
:- %bit-contact
[contact.arg address.arg]

View File

@ -5,7 +5,7 @@
::
:::::::
!:
:- %cat
:- %say
|= [^ ~ ~]
:- %list
~

View File

@ -5,7 +5,7 @@
::
:::::::
!:
:- %cat
:- %say
|= [^ [amount=@t currency=@t ~] ~]
:- %sell
[amount currency]

View File

@ -5,7 +5,7 @@
::
:::::::
!:
:- %cat
:- %say
|= [^ [to=@uc amo=@t ~] ~]
[%bit-send to amo]

View File

@ -7,7 +7,7 @@
!:
::::
::
:- %cat
:- %say
|= [^ [arg=(list path)] ~]
=- tang/(flop `tang`(zing -))
%+ turn arg

View File

@ -5,7 +5,7 @@
::
::::
!:
:- %cat
:- %say
|= [^ [arg=(list cord) ~]]
:- %keys
arg

View File

@ -5,6 +5,6 @@
::
:::::
!:
:- %cat
:- %say
|= [^ [arg=tape ~] ~]
purl/(scan arg auri:epur)

View File

@ -5,7 +5,7 @@
::
::::
!:
:- %cat
:- %say
|= [^ [[txt=@tas ~] ~]]
:- %noun
(crip (weld "hello, " (flop (trip txt))))

View File

@ -11,7 +11,7 @@
++ scug |*([a=@ b=(pole)] ?~(b ~ ?~(a ~ [-.b $(b +.b, a (dec a))])))
--
[sole .]
:- %dog
:- %ask
|= $: [now=@da eny=@uvI bec=beak]
[arg=_(scug *@ ~[his=*@p tic=*@p]) ~]
==

View File

@ -5,7 +5,7 @@
::
::::
!:
:- %cat
:- %say
|= $: [now=@da eny=@uvI bec=beak]
[arg=(list term) ~]
==

View File

@ -1,2 +1,2 @@
:- %cat
:- %say
|=([^ [input=path output=path ~] ~] kiln-cp/[input output])

View File

@ -1,2 +1,2 @@
:- %cat
:- %say
|=([^ [who=ship mez=$|(~ [a=tape ~])] ~] helm-send-hi/[who ?~(mez ~ `a.mez)])

View File

@ -5,7 +5,7 @@
::
::::
!:
:- %cat
:- %say
|= $: [now=@da eny=@uvI bec=beak]
[~ ~]
==

View File

@ -5,7 +5,7 @@
::
::::
!:
:- %cat
:- %say
|= $: [now=@da eny=@uvI bec=beak]
[[who=@p myl=@t ~] ~]
==

View File

@ -5,7 +5,7 @@
::
::::
!:
:- %cat
:- %say
|= $: [now=@da eny=@uvI bec=beak]
[arg=[syd=desk lab=@tas ~] ~]
==

View File

@ -5,7 +5,7 @@
::
::::
!:
:- %cat
:- %say
|= $: [now=@da eny=@uvI byk=beak]
[arg=$?([dap=term ~] [who=ship dap=term ~]) ~]
==

View File

@ -5,7 +5,7 @@
::
::::
!:
:- %cat
:- %say
|= $: [now=@da eny=@uvI bec=beak]
[arg=~ ~]
==

View File

@ -10,7 +10,7 @@
::
::::
!:
:- %cat
:- %say
|= $: [now=@da eny=@uvI bek=beak]
[arg=[?(sorc [syd=$|(desk beaky) sorc])] gem=?(%auto germ)]
==

View File

@ -5,7 +5,7 @@
::
::::
!:
:- %cat
:- %say
|= $: [now=@da eny=@uvI bec=beak]
[[pax=path pot=$|(~ [v=@tas ~])] ~]
==

View File

@ -1,2 +1,2 @@
:- %cat
:- %say
|=([^ [input=path output=path ~] ~] kiln-mv/[input output])

View File

@ -5,7 +5,7 @@
::
::::
!:
:- %cat
:- %say
|= $: [now=@da eny=@uvI bec=beak]
[arg=~ ~]
==

View File

@ -5,7 +5,7 @@
::
::::
!:
:- %cat
:- %say
|= $: [now=@da eny=@uvI bec=beak]
[arg=~ ~]
==

View File

@ -5,7 +5,7 @@
::
::::
!:
:- %cat
:- %say
|= $: [now=@da eny=@uvI bec=beak]
[arg=[desk (list term)] ~]
==

View File

@ -5,7 +5,7 @@
::
::::
!:
:- %cat
:- %say
|= $: [now=@da eny=@uvI bec=beak]
[arg=(list term) ~]
==

View File

@ -5,7 +5,7 @@
::
::::
!:
:- %cat
:- %say
|= $: [now=@da eny=@uvI bec=beak]
[arg=~ ~]
==

View File

@ -5,7 +5,7 @@
::
::::
!:
:- %cat
:- %say
|= $: [now=@da eny=@uvI bec=beak]
[arg=~ ~]
==

View File

@ -1,2 +1,2 @@
:- %cat
:- %say
|=([^ [input=path ~] ~] kiln-rm/input)

View File

@ -1,2 +1,2 @@
:- %cat
:- %say
|=([^ [where=path tym=@da eve=@t ~] ~] kiln-schedule/[where tym eve])

View File

@ -5,7 +5,7 @@
::
::::
!:
:- %cat
:- %say
|= $: [now=@da eny=@uvI bec=beak]
[arg=[@ $|(~ [@ ~])] ~]
==

View File

@ -5,7 +5,7 @@
::
::::
!:
:- %cat
:- %say
|= $: [now=@da eny=@uvI bec=beak]
[arg=[syd=@tas her=@p sud=@tas ~] ~]
==

View File

@ -5,7 +5,7 @@
::
::::
!:
:- %cat
:- %say
|= $: [now=@da eny=@uvI bec=beak]
[[syd=@tas syn=?(~ [? ~])] ~]
==

View File

@ -5,7 +5,7 @@
::
::::
!:
:- %cat
:- %say
|= $: [now=@da eny=@uvI bec=beak]
[[mon=$|(term [span path]) ~] ~]
==

View File

@ -5,7 +5,7 @@
::
::::
!:
:- %cat
:- %say
|= $: [now=@da eny=@uvI bec=beak]
[arg=[syd=@tas her=@p sud=@tas ~] ~]
==

View File

@ -7,7 +7,7 @@
::::
!:
[sole .]
:- %cat
:- %say
|= $: [now=@da eny=@ bec=beak]
[~ ~]
==

View File

@ -6,7 +6,7 @@
!:
::::
::
:- %cat
:- %say
|= [^ [arg=path ~] ~]
=+ lon=((hard arch) .^(%cy arg))
tang/[?~(dir.lon leaf/"~" (subdir arg dir.lon))]~

View File

@ -1,2 +1,2 @@
:- %cat
:- %say
|=([^ arg=(list ,@) foo=_`@`1 bar=_`@`2] noun/[arg foo bar])

View File

@ -3,7 +3,7 @@
!:
=+ cryp=bruw :: XX change to ec2 ++brew eventually
=+ [sole]
:- %dog
:- %ask
|= $: [now=@da eny=@uvI bec=beak]
[[who=ship ~] ~]
==

View File

@ -5,7 +5,7 @@
::
::::
!:
:- %cat
:- %say
|= $: [now=@da eny=@uvI bec=beak]
[~ ~]
==

View File

@ -5,7 +5,7 @@
::
::::
!:
:- %cat
:- %say
|= $: [now=@da eny=@uvI bec=beak]
[[her=@p ~] ~]
==

View File

@ -5,7 +5,7 @@
!:
::::
::
:- %cat
:- %say
|= [^ [pax=path fla=$|(~ [%full ~])] ~]
=+ len=(lent pax)
=+ rend=?^(fla dank:ut |=(a=path (dank:ut (slag len a))))

View File

@ -3,7 +3,7 @@
::::
::
[twitter .]
:- %cat
:- %say
|= $: [now=@da eny=@uvI bec=beak]
[[who=span msg=cord ~] ~]
==

View File

@ -6,7 +6,7 @@
++ baz64 (cook crip (star alp))
--
!:
:- %dog
:- %ask
|= $: [now=@da eny=@uvI bec=beak]
[~ ~]
==

View File

@ -10,7 +10,7 @@
|_ [hide ~]
++ stat ,[id=@u who=@ta now=@da txt=@t]
++ rens
:- %cat
:- %say
|=(stat rose/[": " `~]^~[leaf/"{<now>} @{(trip who)}" leaf/(trip txt)])
++ peer ,_`.
++ poke--args

View File

@ -74,9 +74,9 @@
(pair hiss $+(httr (sole-request out))) :: fetch and continue
:: ::
++ sole-gen :: XX virtual type
$% [%cat $+((sole-args) (cask))] :: direct noun
[%dog $+((sole-args) (sole-product (cask)))] :: dialog
[%pig $+((sole-args) (sole-request (cask)))] :: scraper
$% [%say $+((sole-args) (cask))] :: direct noun
[%ask $+((sole-args) (sole-product (cask)))] :: dialog
[%get $+((sole-args) (sole-request (cask)))] :: scraper
== ::
++ sole-args :: generator arguments
|* _[lit=,* opt=,*] ::