Start fixing up places where left-right protocol and repository object

model got out of synch during all our fun topic hopping in Prague.
More to do here, but some of it may be in the model, not the protocol.

svn path=/docs/left-right-protocol; revision=561

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)
 => ()