From 74ababbe8faeb55abc50580663542af87b2aa0e5 Mon Sep 17 00:00:00 2001 From: ~hatteb-mitlyd Date: Mon, 26 May 2014 11:55:02 -0700 Subject: [PATCH 1/8] further telnet hacks make C-d on an empty telnet terminal do nothing, don't suck in CRs --- arvo/batz.hoon | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) diff --git a/arvo/batz.hoon b/arvo/batz.hoon index 193282e85..4e344630d 100644 --- a/arvo/batz.hoon +++ b/arvo/batz.hoon @@ -276,8 +276,11 @@ lash:(gill:(fist hen) p.kyz) lash:(como:(fest gyp hen) p.kyz) %kill =+ gyp=?>(?=(^ fog) i.fog) - ?: =(0 gyp) [[[hen [%give %logo ~]] ~] +<.^^$] - abet:kill:(fest gyp hen) + ?. =(0 gyp) + abet:kill:(fest gyp hen) + ?: =(~[/gold/term/1] ?>(?=(^ hen) t.hen)) :: XX gross + [[[hen [%give %logo ~]] ~] +<.^^$] + [~ +<.^^$] %ling ?> ?=(^ fog) => .(fog (weld t.fog `(list ,@ud)`[i.fog ~])) [[[hen [%give %helo prot]] ~] +<.^^$] From 5cc6bc8db9155a7c291ec400d1a524ae146bff3c Mon Sep 17 00:00:00 2001 From: ~hatteb-mitlyd Date: Mon, 2 Jun 2014 10:51:39 -0700 Subject: [PATCH 2/8] terminal hole card --- arvo/batz.hoon | 2 ++ arvo/dill.hoon | 12 ++++++++++-- 2 files changed, 12 insertions(+), 2 deletions(-) diff --git a/arvo/batz.hoon b/arvo/batz.hoon index 4e344630d..2b17f6ee2 100644 --- a/arvo/batz.hoon +++ b/arvo/batz.hoon @@ -27,6 +27,7 @@ ++ kiss :: in request ->$ $% [%crud p=@tas q=(list tank)] :: error with trace [%hail ~] :: refresh + [%hole ~] :: all terms hung up [%init p=@p] :: report install [%kill p=~] :: kill a task [%line p=@t] :: source line @@ -269,6 +270,7 @@ ?- -.kyz %crud [[[hen [%slip %d %flog kyz]] ~] +<.^^$] %hail [[[hen [%give %helo prot]] ~] +<.^^$] + %hole ~&(%batz-hole [~ +<.^^$]) %line =+ gyp=?>(?=(^ fog) i.fog) ?: &(=(0 gyp) =(%$ p.kyz)) $(kyz [%hail ~]) =< abet diff --git a/arvo/dill.hoon b/arvo/dill.hoon index d0bd79c6a..6a262bcaf 100644 --- a/arvo/dill.hoon +++ b/arvo/dill.hoon @@ -20,6 +20,7 @@ [%crud p=@tas q=(list tank)] :: error with trace [%flog p=flog] :: wrapped error [%hail ~] :: terminal refresh + [%hole ~] :: all terms hung up [%noop ~] :: no operation [%talk p=tank] :: [%text p=tape] :: @@ -33,6 +34,7 @@ ++ note :: out request $-> $% [%crud p=@tas q=(list tank)] :: to %dill [%hail ~] :: to %batz + [%hole ~] :: to %batz [%kill p=~] :: to %batz [%line p=@t] :: to %batz [%ling ~] :: to %batz @@ -487,10 +489,16 @@ :: %hail :: refresh +>.$(mos :_(mos [hen %toss %b ~ kyz])) + :: + %hole :: all terms hung up + =+ nug=((map duct yard) [[hen (~(get by dug) hen)] ~ ~]) + %= +>.$ + dug nug + mos :_(mos [hen %toss %b ~ kyz]) + == :: %talk (furl (~(win re p.kyz) 0 p.q.yar)) :: program output %text $(kyz [%talk %leaf p.kyz]) :: simple message - :: %wipe +>.$(wip &) :: delete old == :: @@ -540,7 +548,7 @@ ++ scry |= [fur=(unit (set monk)) ren=@tas his=ship syd=desk lot=coin tyl=path] ^- (unit (unit (pair lode ,*))) - ~ + [~ ~ [%tank >dug<]] :: ++ stay [%0 dug] ++ take :: process move From 02ad80ec879222ab2881d8734df974d983441c7a Mon Sep 17 00:00:00 2001 From: ~hatteb-mitlyd Date: Wed, 4 Jun 2014 13:24:26 -0700 Subject: [PATCH 3/8] Don't overload the hole card --- arvo/ames.hoon | 1 - arvo/batz.hoon | 4 +- arvo/dill.hoon | 6 +-- arvo/gall.hoon | 138 +++++++++++++++++-------------------------------- 4 files changed, 51 insertions(+), 98 deletions(-) diff --git a/arvo/ames.hoon b/arvo/ames.hoon index 108808845..6bbf0cdad 100644 --- a/arvo/ames.hoon +++ b/arvo/ames.hoon @@ -1123,7 +1123,6 @@ ++ done :: done:ho:um:am |= [cha=path num=@ud] :: complete outgoing ^- [(unit duct) _+>] - ~? =(~wicwyc-sitlyr her) [%done cha num] =+ rol=(need (~(get by ryl.bah) cha)) =+ rix=(~(get by san.rol) num) ?~ rix [~ +>.$] diff --git a/arvo/batz.hoon b/arvo/batz.hoon index 2b17f6ee2..8be637f9d 100644 --- a/arvo/batz.hoon +++ b/arvo/batz.hoon @@ -27,7 +27,7 @@ ++ kiss :: in request ->$ $% [%crud p=@tas q=(list tank)] :: error with trace [%hail ~] :: refresh - [%hole ~] :: all terms hung up + [%harm ~] :: all terms hung up [%init p=@p] :: report install [%kill p=~] :: kill a task [%line p=@t] :: source line @@ -270,7 +270,7 @@ ?- -.kyz %crud [[[hen [%slip %d %flog kyz]] ~] +<.^^$] %hail [[[hen [%give %helo prot]] ~] +<.^^$] - %hole ~&(%batz-hole [~ +<.^^$]) + %harm ~&(%batz-hole [~ +<.^^$]) %line =+ gyp=?>(?=(^ fog) i.fog) ?: &(=(0 gyp) =(%$ p.kyz)) $(kyz [%hail ~]) =< abet diff --git a/arvo/dill.hoon b/arvo/dill.hoon index 6a262bcaf..3c8b2249d 100644 --- a/arvo/dill.hoon +++ b/arvo/dill.hoon @@ -20,7 +20,7 @@ [%crud p=@tas q=(list tank)] :: error with trace [%flog p=flog] :: wrapped error [%hail ~] :: terminal refresh - [%hole ~] :: all terms hung up + [%harm ~] :: all terms hung up [%noop ~] :: no operation [%talk p=tank] :: [%text p=tape] :: @@ -34,7 +34,7 @@ ++ note :: out request $-> $% [%crud p=@tas q=(list tank)] :: to %dill [%hail ~] :: to %batz - [%hole ~] :: to %batz + [%harm ~] :: to %batz [%kill p=~] :: to %batz [%line p=@t] :: to %batz [%ling ~] :: to %batz @@ -490,7 +490,7 @@ %hail :: refresh +>.$(mos :_(mos [hen %toss %b ~ kyz])) :: - %hole :: all terms hung up + %harm :: all terms hung up =+ nug=((map duct yard) [[hen (~(get by dug) hen)] ~ ~]) %= +>.$ dug nug diff --git a/arvo/gall.hoon b/arvo/gall.hoon index 747d84cbb..3ede1873b 100644 --- a/arvo/gall.hoon +++ b/arvo/gall.hoon @@ -1,4 +1,4 @@ -!: :: %gall, user-level applications +:: :: %gall, user-level applications !? 164 :::: |= pit=vase @@ -11,42 +11,38 @@ ++ bone ,@ud :: opaque duct ++ gift :: out result <-$ $% [%back p=?] :: %mess ack good/bad - [%boot ~] :: app boot/reboot + [%bust ~] :: reset duct [%crud p=@tas q=(list tank)] :: error - [%rasp p=cage] :: reaction message - [%rush p=@da q=json] :: difference (web) - [%rusk p=@da q=cage] :: difference (urbit) - [%rust p=@da q=cage] :: full update + [%rash p=json] :: web reaction + [%rasp p=cage] :: urbit reaction + [%rush p=@da q=json] :: web result + [%rust p=@da q=cage] :: urbit result [%meta p=vase] :: meta-gift == :: ++ kiss :: in request ->$ - $% [%show p=hasp q=(unit hope)] :: urb subscribe/cancel - [%cuff p=(unit cuff) q=kiss] :: controlled kiss + $% [%cuff p=(unit cuff) q=kiss] :: controlled kiss [%mesh p=hasp q=path r=json] :: web message (json) [%mess p=hasp q=cage] :: urbit message [%mush p=hasp q=path r=cage] :: web message (mime) [%nuke p=hasp] :: reset this duct :: [%puke p=(list tank) q=kiss] :: kiss will fail - [%shah p=hasp q=(unit hope)] :: web subscribe/cancel + [%shah p=hasp q=(unit hope)] :: web subscribe + [%show p=hasp q=(unit hope)] :: urbit subscribe + [%soft p=*] :: soft kiss == :: ++ knob :: pending action $% [%boot ~] :: boot/reboot [%crud p=@tas q=(list tank)] :: error [%mess p=cage] :: message [%nuke ~] :: reboot - [%shah p=(unit hope)] :: web subscribe/cancel - [%show p=(unit hope)] :: urb subscribe/cancel + [%show p=(unit hope)] :: subscription [%take p=path q=vase] :: user result == :: ++ mast :: apps by ship $: bum=(map ,@ta seat) :: apps by name == :: ++ move ,[p=duct q=(mold note gift)] :: typed move -++ note :: out request $-> - $% [%exec p=@p q=(unit silk)] :: to %ford - [%meta p=vase] :: meta-note - [%warp p=sock q=riff] :: to %clay - == :: +++ note curd :: out request $-> ++ rapt |*(a=$+(* *) (qual path path ,@da a)) :: versioned result ++ scar :: opaque duct system $: p=@ud :: bone sequence @@ -62,9 +58,9 @@ zam=scar :: opaque ducts == :: ++ sign :: in result $-< - $% [%made p=(each beet (list tank))] :: by %ford + $% [%made p=(each beet (list tank))] :: computed result [%ruse p=curd] :: user wrapper - [%writ p=riot] :: by %clay + [%writ p=riot] :: version result == :: ++ toil (pair duct knob) :: work in progress -- :::::::::::::::::::::::::::::::::::::::::::::::::::::: @@ -130,16 +126,10 @@ =< ^? |% :: vane interface ++ call :: handle request - |= [hen=duct hic=(hypo (hobo kiss))] - => %= . :: XX temporary - q.hic - ^- kiss - ?: ?=(%soft -.q.hic) - ((hard kiss) p.q.hic) - ?: (~(nest ut -:!>(*kiss)) | p.hic) q.hic - ~& [%gall-call-flub (,@tas `*`-.q.hic)] - ((hard kiss) q.hic) - == + |= [hen=duct hic=(hypo kiss)] + ?. (~(nest ut -:!>(q.hic)) | p.hic) :: XX temporary + ~& [%gall-call-flub -.q.hic] + $(q.hic ((hard kiss) q.hic)) |- ^- [p=(list move) q=_..^^$] =+ =| law=(unit cuff) |- ^- $: law=(unit cuff) @@ -151,21 +141,18 @@ %mesh !! %mess [law p.q.hic %mess q.q.hic] %mush !! - %shah [law p.q.hic %shah q.q.hic] + %shah !! %show [law p.q.hic %show q.q.hic] + %soft $(q.hic ((hard kiss) p.q.hic)) %nuke [law p.q.hic %nuke ~] == abet:work:(quem:(boar:(goat hap) hen law) kon) :: ++ take :: accept response |= [pax=path hen=duct hin=(hypo sign)] :: - => %= . :: XX temporary - q.hin - ^- sign - ?: (~(nest ut -:!>(*sign)) | p.hin) q.hin - ~& [%gall-take-flub (,@tas `*`-.q.hin)] - ((hard sign) q.hin) - == + ?. (~(nest ut -:!>(q.hin)) | p.hin) :: XX temporary + ~& [%gall-take-flub -.q.hin] + $(q.hin ((hard sign) q.hin)) ^- [p=(list move) q=_..^$] =+ lum=(lump pax) =< abet =< work @@ -344,9 +331,8 @@ ++ conf :: configured core |= vax=vase ^- silk - :: (core vax) :+ %mute (core vax) - :~ [[%$ 12]~ (cave !>([[our app] 0 0 eny now]))] + :~ [[%$ 6]~ (cave !>([[our app] now eny]))] == ++ core |=(vax=vase (cove %core vax)) :: core as silk ++ cove :: cage as silk @@ -356,25 +342,22 @@ :: ++ drug :: set dependencies |= pen=(set (pair ship desk)) - ~& [%drug-want ped.sat] ^+ +> =+ ^= new ^- (list move) %+ turn %+ skip (~(tap in pen) ~) |=(a=(pair ship desk) (~(has in ped.sat) a)) |= a=(pair ship desk) - ~& [%drug-gain a] :- hen - :^ %toss %c (away %s %drug ~) + :^ %toss %c (away %s %drug (scot %p p.a) q.a ~) [%warp [our p.a] q.a ~ %| [%da now] [%da (add now ~d1000)]] =+ ^= old ^- (list move) %+ turn %+ skip (~(tap in ped.sat) ~) |=(a=(pair ship desk) (~(has in pen) a)) |= a=(pair ship desk) - ~& [%drug-stop a] :- hen - :^ %toss %c (away %s %drug ~) + :^ %toss %c (away %s %drug (scot %p p.a) q.a ~) [%warp [our p.a] q.a ~] %_(+>.$ ped.sat pen, mow :(weld new old mow)) :: @@ -398,6 +381,11 @@ :_(mow [hen [%toss %f (away [%s pan ~]) [%exec our `kas]]]) == :: + ++ gate :: gate as silk + |= [arm=term kas=silk] + ^- silk + [%pass kas [%1 [%cnzy arm]]] + :: ++ give :: return card |= gip=gift %_(+> mow [[hen %give gip] mow]) @@ -406,17 +394,12 @@ ++ game :: invoke core |= [[pan=term arm=term] vax=vase sam=vase] %+ ford pan - [%call (harm arm (conf vax)) (cove %$ sam)] - :: - ++ harm :: arm as silk - |= [arm=term kas=silk] - ^- silk - [%pass kas [%1 [%cnzy arm]]] + [%call (gate arm (conf vax)) (cove %$ sam)] :: ++ home :: load application ^- silk :+ %boil %core - [[our %main [%da now]] app %app ~] + [[our %main [%da now]] %app ~] :: ++ more :: accept result |= $: pax=path :: internal position @@ -432,19 +415,16 @@ %- ~(put to vey.sat) [hen [%take t.pax (spec (slot 3 hin))]] == - ?. ?=([%s @ ~] pax) - ~& [%more-pax pax] - !! ?> ?=([%s @ ~] pax) + ?> !=(~ qic.sat) ?+ i.t.pax !! %boot + ~& %more-boot ?> ?=([~ * %boot ~] qic.sat) ?> ?=(%made -.q.hin) ?- -.p.q.hin - & ~& %boot-good - (drum:(morn:gone q.q.p.p.q.hin) p.p.p.q.hin) - | ~& %boot-lost - (mort p.p.q.hin) + & (drum:(morn:gone q.q.p.p.q.hin) p.p.p.q.hin) + | (mort p.p.q.hin) == :: %drug @@ -454,13 +434,12 @@ +>.$(vey.sat (~(put to vey.sat) hen %boot ~)) :: %step + ~& %more-step ?> ?=(%made -.q.hin) ?- -.p.q.hin - & ~& %step-good - %- obey:(morn:gone (slot 3 q.q.p.p.q.hin)) + & %- obey:(morn:gone (slot 3 q.q.p.p.q.hin)) (slot 2 q.q.p.p.q.hin) - | ~& %step-fail - (give %crud %made p.p.q.hin) + | (give %crud %made p.p.q.hin) == == :: @@ -492,26 +471,10 @@ ^+ +> %_(+> vey.sat (~(put to vey.sat) hen %show hup)) :: - ++ sumo :: standard gift - |= vig=vase - ^- gift - ?+ q.vig [%meta vig] - [%rasp *] - :+ %rasp - ((hard lode) +<.q.vig) - (slot 7 vig) - :: - [%rust *] - :^ %rust - ((hard ,@da) +<.q.vig) - ((hard lode) +>-.q.vig) - (slot 15 vig) - == - :: ++ sump |= wec=vase ^- move - :- (need (~(get by r.zam.sat) ((hard bone) -.q.wec))) + :- ((hard duct) -.q.wec) =+ caq=(spec (slot 3 wec)) ?+ q.caq ~&(%sump-bad !!) :: @@ -521,7 +484,7 @@ [%meta (spec (slot 15 caq))] :: [%give p=[p=@tas q=*]] - [%give (sumo (spec (slot 3 caq)))] + [%give [%meta (spec (slot 3 caq))]] :: [%slip p=@tas q=[p=@tas q=*]] :+ %slip @@ -539,7 +502,6 @@ ++ yawn :: start event |= kon=knob ^+ +> - ~& [%gall-yawn -.kon] =. qic.sat `[hen kon] ?- -.kon %boot @@ -548,9 +510,9 @@ %+ ford %boot ^- silk :+ %call - (harm %prep home) + (gate %prep home) ?~ huv.sat nile - [nile (harm %save (conf u.huv.sat))] + [nile (gate %save (conf u.huv.sat))] :: %crud ~& %yawn-crud @@ -579,17 +541,9 @@ ~& %yawn-show ?~ huv.sat ~& [%show-none our app] - gone:(give %boot ~) + gone:(give %bust ~) %^ game [%step %peer] u.huv.sat - !>([ost use | p.kon]) - :: - %shah - ~& %yawn-shah - ?~ huv.sat - ~& [%show-none our app] - gone:(give %boot ~) - %^ game [%step %peer] u.huv.sat - !>([ost use & p.kon]) + !>([ost use p.kon]) :: %take ~& %yawn-take From 719c3a2e7ced524913213cd0f22b0c86f8800259 Mon Sep 17 00:00:00 2001 From: ~hatteb-mitlyd Date: Fri, 6 Jun 2014 09:54:27 -0700 Subject: [PATCH 4/8] remove wipe, change boil --- arvo/dill.hoon | 8 +++----- 1 file changed, 3 insertions(+), 5 deletions(-) diff --git a/arvo/dill.hoon b/arvo/dill.hoon index 3c8b2249d..9b48606ec 100644 --- a/arvo/dill.hoon +++ b/arvo/dill.hoon @@ -1,4 +1,4 @@ -:: +!: :: dill (4d), terminal handling :: |= pit=vase @@ -24,7 +24,6 @@ [%noop ~] :: no operation [%talk p=tank] :: [%text p=tape] :: - [%wipe ~] :: clear terminal == :: ++ flog :: sent to %dill $% [%crud p=@tas q=(list tank)] :: @@ -63,7 +62,6 @@ |% ++ dy |= [hen=duct dug=(map duct yard)] - =+ wip=| =+ ^= yar ^- yard =+ yur=(~(get by dug) hen) ?^ yur u.yur @@ -492,6 +490,7 @@ :: %harm :: all terms hung up =+ nug=((map duct yard) [[hen (~(get by dug) hen)] ~ ~]) + ^+ +>.$ %= +>.$ dug nug mos :_(mos [hen %toss %b ~ kyz]) @@ -499,13 +498,12 @@ :: %talk (furl (~(win re p.kyz) 0 p.q.yar)) :: program output %text $(kyz [%talk %leaf p.kyz]) :: simple message - %wipe +>.$(wip &) :: delete old == :: ++ yerk :: complete core ^- [p=(list move) q=(map duct yard)] :- (flop mos) - ?.(wip (~(put by dug) hen yar) (~(del by dug) hen)) + (~(put by dug) hen yar) -- -- =| $: %0 :: From ccab422c6f31e7b99b3952b87943a428845a04be Mon Sep 17 00:00:00 2001 From: ~hatteb-mitlyd Date: Fri, 6 Jun 2014 21:58:44 -0700 Subject: [PATCH 5/8] minor cleanups --- main/bin/tach.hoon | 8 -------- 1 file changed, 8 deletions(-) delete mode 100644 main/bin/tach.hoon diff --git a/main/bin/tach.hoon b/main/bin/tach.hoon deleted file mode 100644 index 14397e529..000000000 --- a/main/bin/tach.hoon +++ /dev/null @@ -1,8 +0,0 @@ -:: -:: /=main=/bin/tach/hoon -:: -|= * -|= ~ -^- bowl -:_ ~ :_ ~ -[%la %leaf "you probably meant to run :chat."] From 27ffbbeb3a287e2a80ab710754810b5b343b5dc6 Mon Sep 17 00:00:00 2001 From: ~hatteb-mitlyd Date: Sat, 7 Jun 2014 13:59:16 -0700 Subject: [PATCH 6/8] Squashed 'outside/anachronism/' content from commit 02fa3b0 git-subtree-dir: outside/anachronism git-subtree-split: 02fa3b064112fa1d75209f123c07b5c7d58329b7 From 5caf5d621c867afa95bfa4b0ddff532e7d12c90e Mon Sep 17 00:00:00 2001 From: ~hatteb-mitlyd Date: Sat, 7 Jun 2014 16:05:53 -0700 Subject: [PATCH 7/8] partially negotiate char-at-a-time telnet mode --- arvo/batz.hoon | 4 +++- arvo/dill.hoon | 5 +++++ 2 files changed, 8 insertions(+), 1 deletion(-) diff --git a/arvo/batz.hoon b/arvo/batz.hoon index 8be637f9d..de7646806 100644 --- a/arvo/batz.hoon +++ b/arvo/batz.hoon @@ -27,6 +27,7 @@ ++ kiss :: in request ->$ $% [%crud p=@tas q=(list tank)] :: error with trace [%hail ~] :: refresh + [%hook ~] :: this term hung up [%harm ~] :: all terms hung up [%init p=@p] :: report install [%kill p=~] :: kill a task @@ -270,7 +271,8 @@ ?- -.kyz %crud [[[hen [%slip %d %flog kyz]] ~] +<.^^$] %hail [[[hen [%give %helo prot]] ~] +<.^^$] - %harm ~&(%batz-hole [~ +<.^^$]) + %harm ~&(%batz-harm [~ +<.^^$]) + %hook ~&(%batz-hook [~ +<.^^$]) %line =+ gyp=?>(?=(^ fog) i.fog) ?: &(=(0 gyp) =(%$ p.kyz)) $(kyz [%hail ~]) =< abet diff --git a/arvo/dill.hoon b/arvo/dill.hoon index 9b48606ec..cd110bc69 100644 --- a/arvo/dill.hoon +++ b/arvo/dill.hoon @@ -20,6 +20,7 @@ [%crud p=@tas q=(list tank)] :: error with trace [%flog p=flog] :: wrapped error [%hail ~] :: terminal refresh + [%hook ~] :: this term hung up [%harm ~] :: all terms hung up [%noop ~] :: no operation [%talk p=tank] :: @@ -34,6 +35,7 @@ $% [%crud p=@tas q=(list tank)] :: to %dill [%hail ~] :: to %batz [%harm ~] :: to %batz + [%hook ~] :: to %batz [%kill p=~] :: to %batz [%line p=@t] :: to %batz [%ling ~] :: to %batz @@ -495,6 +497,9 @@ dug nug mos :_(mos [hen %toss %b ~ kyz]) == + :: + %hook :: this term hung up + +>.$(dug (~(del by dug) hen), mos :_(mos [hen %toss %b ~ kyz])) :: %talk (furl (~(win re p.kyz) 0 p.q.yar)) :: program output %text $(kyz [%talk %leaf p.kyz]) :: simple message From 4fc08655c8ce0239d845cba6991012e3e887ed58 Mon Sep 17 00:00:00 2001 From: ~hatteb-mitlyd Date: Sun, 8 Jun 2014 14:27:04 -0700 Subject: [PATCH 8/8] move dill tiles to dill.hoon --- arvo/dill.hoon | 48 +++++++++++++++++++++++++++++++++++++++++++++++- arvo/zuse.hoon | 45 --------------------------------------------- 2 files changed, 47 insertions(+), 46 deletions(-) diff --git a/arvo/dill.hoon b/arvo/dill.hoon index cd110bc69..8449f1e25 100644 --- a/arvo/dill.hoon +++ b/arvo/dill.hoon @@ -2,7 +2,7 @@ :: dill (4d), terminal handling :: |= pit=vase -=> |% +=> |% :: interface tiles ++ gift :: out result <-$ $% [%bbye ~] :: reset prompt [%blit p=(list blit)] :: terminal output @@ -60,6 +60,52 @@ [%vega p=path] :: by %batz [%warn p=tape] :: by %batz == +:::::::: :: dill tiles +++ bein :: terminal control + $: $: bul=@ud :: buffer length + bus=@ud :: cursor in buffer + but=(list ,@c) :: buffer text + buy=prom :: input style + == :: + $: hiz=@ud :: history depth + hux=path :: history path + hym=(map ,@ud (list ,@c)) :: history overlay + hyt=hist :: history object + hyr=(unit (list ,@c)) :: history search + == :: + $: pol=@ud :: length of prompt + pot=tape :: prompt text + == :: + == :: +++ blew ,[p=@ud q=@ud] :: columns rows +++ belt :: raw console input + $% [%aro p=?(%d %l %r %u)] :: arrow key + [%bac ~] :: true backspace + [%ctl p=@ud] :: control-key + [%del ~] :: true delete + [%met p=@ud] :: meta-key + [%ret ~] :: return + [%txt p=(list ,@c)] :: utf32 text + == :: +++ blit :: raw console output + $% [%bel ~] :: make a noise + [%clr ~] :: clear the screen + [%hop p=@ud] :: set cursor position + [%lin p=(list ,@c)] :: set current line + [%mor ~] :: newline + [%sav p=path q=@] :: save to file + == :: +++ blot :: kill ring + $: p=@ud :: length + q=@ud :: depth + r=(list (list ,@c)) :: kills + == :: +++ blur ,[p=@ud q=(unit bein) r=blot] :: columns, prompt +++ yard :: terminal state + $: p=? :: verbose + q=blur :: display state + r=(map path hist) :: history + == :: -- => |% ++ dy diff --git a/arvo/zuse.hoon b/arvo/zuse.hoon index 61eb437de..7cff0aa43 100644 --- a/arvo/zuse.hoon +++ b/arvo/zuse.hoon @@ -2023,22 +2023,6 @@ raz=(map path race) :: statements inbound ryl=(map path rill) :: statements outbound == :: -++ bein :: terminal control - $: $: bul=@ud :: buffer length - bus=@ud :: cursor in buffer - but=(list ,@c) :: buffer text - buy=prom :: input style - == :: - $: hiz=@ud :: history depth - hux=path :: history path - hym=(map ,@ud (list ,@c)) :: history overlay - hyt=hist :: history object - hyr=(unit (list ,@c)) :: history search - == :: - $: pol=@ud :: length of prompt - pot=tape :: prompt text - == :: - == :: ++ bead ,[p=(set beam) q=cage] :: computed result ++ beam ,[[p=ship q=desk r=case] s=path] :: global name ++ beak ,[p=ship q=desk r=case] :: garnish with beak @@ -2049,30 +2033,6 @@ lys=@da :: last sent pac=rock :: packet data == :: -++ belt :: raw console input - $% [%aro p=?(%d %l %r %u)] :: arrow key - [%bac ~] :: true backspace - [%ctl p=@ud] :: control-key - [%del ~] :: true delete - [%met p=@ud] :: meta-key - [%ret ~] :: return - [%txt p=(list ,@c)] :: utf32 text - == :: -++ blew ,[p=@ud q=@ud] :: columns rows -++ blit :: raw console output - $% [%bel ~] :: make a noise - [%clr ~] :: clear the screen - [%hop p=@ud] :: set cursor position - [%lin p=(list ,@c)] :: set current line - [%mor ~] :: newline - [%sav p=path q=@] :: save to file - == :: -++ blot :: kill ring - $: p=@ud :: length - q=@ud :: depth - r=(list (list ,@c)) :: kills - == :: -++ blur ,[p=@ud q=(unit bein) r=blot] :: columns, prompt ++ boat ,[(list slip) tart] :: user stage ++ boon :: fort output $% [%beer p=ship q=@uvG] :: gained ownership @@ -2533,9 +2493,4 @@ ++ wund (list ,[p=life q=ring r=acru]) :: mace in action ++ will (list deed) :: certificate ++ worm ,* :: vase of tart -++ yard :: terminal state - $: p=? :: verbose - q=blur :: display state - r=(map path hist) :: history - == :: --