git.iko.soy/airlock
on master help sign in
Simplified %sink (#8)

* Simplified %sink * Formatting

commit5391624c2a7cce15212301e29fce27c1f899e728 authoriko <mail@iko.soy> dateSun 9 Jul 2023, 12:17 (3 years ago) parent8168841
2 files changed+30−32
compare with master
unifiedsplit
example/urbit/app/journal.hoon+7−8 example/urbit/lib/sink.hoon+23−24
example/urbit/app/journal.hoon+7−8
@@ -21,12 +21,11 @@
2121
2222%- agent:dbug
2323=/ state *state-0
24−=/ snik
25− %+ sink ~[/sync]
26− |=(stat=versioned-state (tap:j-orm journal.stat))
27−=/ sink (snik state)
24+=* entries (tap:j-orm journal.stat)
25+=/ snik (sink ~[/sync])
26+=/ sink (snik entries)
2827^- agent:gall
29−
28+::
3029|_ =bowl:gall
3130+* this .
3231 def ~(. (default-agent this %|) bowl)
@@ -40,7 +39,7 @@
4039 |= old-vase=vase
4140 ^- (quip card _this)
4241 =/ state !<(versioned-state old-vase)
43− `this(state state, sink (snik state))
42+ `this(state state, sink (snik entries))
4443::
4544++ on-poke
4645 |= [=mark =vase]
@@ -51,7 +50,7 @@
5150 =/ now=@ (unique-time now.bowl log.state)
5251 =/ act !<(action vase)
5352 =. state (poke-action act)
54− =^ card sink (sync:sink state)
53+ =^ card sink (sync:sink entries)
5554 :_ this(log.state (put:log-orm log.state now act))
5655 ~[(fact:io journal-update+!>(`update`[now act]) ~[/updates]) card]
5756 ::
@@ -93,7 +92,7 @@
9392 [%all ~]
9493 :^ ~ ~ %journal-update
9594 !> ^- update
96− [now %jrnl (tap:j-orm journal.state)]
95+ [now %jrnl entries]
9796 ::
9897 [%before @ @ ~]
9998 =/ before=@ (rash i.t.t.t.path dem)
example/urbit/lib/sink.hoon+23−24
@@ -1,27 +1,26 @@
11/+ noun-diff
22|%
3− ++ clog
4− |$ [stut]
5− $%
6− [%flush stut]
7− [%drain patch:noun-diff]
8− ==
9− ++ sink
10− |* [pats=(list path) extract=$-(* *)]
11− |* stat=*
12− |@
13− ++ sync
14− |= [stat=_stat]
15− ^- [card:agent:gall _..sync]
16− =/ dif
17− %+ diff:noun-diff (extract ^stat) (extract stat)
18− :-
19− ~& [%give %fact pats %noun !>(^-((clog) [%drain dif]))]
20− [%give %fact pats %noun !>(^-((clog) [%drain dif]))]
21− ..sync(stat stat)
22− ++ paths pats
23− ++ flush
24− ^- card:agent:gall
25− [%give %fact pats %noun !>(^-((clog) [%flush (extract stat)]))]
26− --
3+++ clog
4+ |$ [stut]
5+ $%
6+ [%flush stut]
7+ [%drain patch:noun-diff]
8+ ==
9+++ sink
10+ |* pats=(list path)
11+ |* stat=*
12+ |@
13+ ++ sync
14+ |= [stat=_stat]
15+ ^- [card:agent:gall _..sync]
16+ =/ dif
17+ %+ diff:noun-diff ^stat stat
18+ :-
19+ [%give %fact pats %noun !>(^-((clog) [%drain dif]))]
20+ ..sync(stat stat)
21+ ++ paths pats
22+ ++ flush
23+ ^- card:agent:gall
24+ [%give %fact pats %noun !>(^-((clog) [%flush (extract stat)]))]
25+ --
2726--