diff options
| -rw-r--r-- | docs/left-right-protocol | 57 |
1 files changed, 32 insertions, 25 deletions
diff --git a/docs/left-right-protocol b/docs/left-right-protocol index 5d100707..dac8308f 100644 --- a/docs/left-right-protocol +++ b/docs/left-right-protocol @@ -146,23 +146,32 @@ :parent foo) => (ta) +(get-parent-uri :cust-id 42 + :parent foo) +=> (uri) + (set-parent-uri :cust-id 42 :parent foo :uri uri) => () -(get-parent-uri :cust-id 42 - :parent foo) -=> (uri) +(get-parent-biz-signing-context :cust-id 42 + :parent foo) +=> (biz-signing-context) (set-parent-biz-signing-context :cust-id 42 :parent foo - :biz-signing-context foo) + :biz-signing-context bar) => () -(get-parent-biz-signing-context :cust-id 42 - :parent foo) -=> (biz-signing-context) +(get-parent-repository :cust-id 42 + :parent foo) +=> (repository) + +(set-parent-repository :cust-id 42 + :parent foo + :repository bar) +=> () (create-child :cust-id 42) => (child) @@ -203,33 +212,31 @@ ;;; The following repo stuff is now wrong, need to come back to it -(set-ca-repo-ta :cust-id 42 - :ca foo - :ta ta) +(create-repository :cust-id 42) +=> (repo) + +(destroy-repository :cust-id 42 + :repository repo) => () -(get-ca-repo-ta :cust-id 42 - :ca foo) -=> (ta) +(get-repository-biz-signing-context :cust-id 42 + :repository foo) +=> (signing-context) -(set-ca-repo-uri :cust-id 42 - :ca foo - :uri uri) +(set-repository-biz-signing-context :cust-id 42 + :repository foo + :biz-signing-context bar) => () -(get-ca-repo-uri :cust-id 42 - :ca foo) +(get-repository-uri :cust-id 42 + :repository foo) => (uri) -(set-ca-repo-biz-signing-context :cust-id 42 - :ca foo - :biz-signing-context foo) +(set-repository-uri :cust-id 42 + :repository foo + :uri uri) => () -(get-ca-repo-biz-signing-context :cust-id 42 - :ca foo) -=> (biz-signing-context) - (please-run-this-cust-id-now :cust-id 42) => () |