From 5d5936bbb7df4c86b136799ebe86e0fbe1989cb1 Mon Sep 17 00:00:00 2001 From: Philip Monk Date: Thu, 24 Oct 2019 16:03:46 -0700 Subject: [PATCH] custody: move to separate repo --- pkg/arvo/lib/custody.hoon | 215 -------------------------------------- 1 file changed, 215 deletions(-) delete mode 100644 pkg/arvo/lib/custody.hoon diff --git a/pkg/arvo/lib/custody.hoon b/pkg/arvo/lib/custody.hoon deleted file mode 100644 index 37f5f4705c..0000000000 --- a/pkg/arvo/lib/custody.hoon +++ /dev/null @@ -1,215 +0,0 @@ -/+ csv -|% -++ fed ;~(pfix sig fed:ag) -++ parse-enum - |* form=mold - %- sear :_ text:csv - |= =cord - ((soft form) cord) -:: -++ keys - =< form - |% - +$ form - $: =location:locations - ship=(unit ship) - =role - shard=(unit shard) - copy=(unit copy) - =physical-form - note=cord - formal-ship=(unit ship) - == - :: - +$ role - $? %empty - %other - %master - %own - %spawn - %manage - %vote - %transfer - == - :: - +$ shard @udshard - +$ copy ?(%a %b %c) - +$ physical-form ?(%usb %dvd %paper %ledger) - ++ parsers - :~ text:csv - (punt fed) - (parse-enum role) - (punt dim:ag) - (punt (parse-enum copy)) - (parse-enum physical-form) - text:csv - (punt fed) - == - :: - ++ parse - %+ cook - |* arg=* - ^- (list form) - arg - (parse:csv parsers) - :: - ++ load-forms - |= =path - ^- (list form) - (rash (of-wain:format .^(wain %cx path)) parse) - :: - ++ load - |= now=@da - ^- (list vase) - =/ =path /=home/(scot %da now)/keys/txt - (turn (load-forms path) |=(=form !>(form))) - -- -:: -++ locations - =< form - |% - +$ form - $: =location - description=@t - =physical-location - == - :: - +$ location @tlocation - +$ physical-location @tphysicallocation - ++ parsers - :~ text:csv - text:csv - text:csv - == - :: - ++ parse - %+ cook - |* arg=* - ^- (list form) - arg - (parse:csv parsers) - :: - ++ load-forms - |= =path - ^- (list form) - (rash (of-wain:format .^(wain %cx path)) parse) - :: - ++ load - |= now=@da - ^- (list vase) - =/ =path /=home/(scot %da now)/locations/txt - (turn (load-forms path) |=(=form !>(form))) - -- -:: -++ galaxies - =< form - |% - +$ form - $: =ship - =policy:policies - == - :: - ++ parsers - :~ fed - text:csv - == - :: - ++ parse - %+ cook - |* arg=* - ^- (list form) - arg - (parse:csv parsers) - :: - ++ load-forms - |= =path - ^- (list form) - (rash (of-wain:format .^(wain %cx path)) parse) - :: - ++ load - |= now=@da - ^- (list vase) - =/ =path /=home/(scot %da now)/galaxies/txt - (turn (load-forms path) |=(=form !>(form))) - -- -:: -++ ships - =< form - |% - +$ form - $: =ship - note=@t - == - :: - ++ parsers - :~ fed - text:csv - == - :: - ++ parse - %+ cook - |* arg=* - ^- (list form) - arg - (parse:csv parsers) - :: - ++ load-forms - |= =path - ^- (list form) - (rash (of-wain:format .^(wain %cx path)) parse) - :: - ++ load - |= now=@da - ^- (list vase) - =/ =path /=home/(scot %da now)/ships/txt - (turn (load-forms path) |=(=form !>(form))) - -- -:: -++ policies - =< form - |% - +$ form - $: =policy - =lockup - provenance=@t - description=@t - usage=@t - == - :: - +$ policy @tpolicy - +$ lockup - $? %'1+4' - %'0+2' - %'0+1' - %'0+3' - %'0+1/3' - %'0' - == - :: - ++ parsers - :~ text:csv - (parse-enum lockup) - text:csv - text:csv - text:csv - == - :: - ++ parse - %+ cook - |* arg=* - ^- (list form) - arg - (parse:csv parsers) - :: - ++ load-forms - |= =path - ^- (list form) - (rash (of-wain:format .^(wain %cx path)) parse) - :: - ++ load - |= now=@da - ^- (list vase) - =/ =path /=home/(scot %da now)/policies/txt - (turn (load-forms path) |=(=form !>(form))) - -- ---