Clean up repository object

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

1 files changed, 27 insertions, 16 deletions

diff --git a/docs/left-right-protocol b/docs/left-right-protocol
index 8770eb3f..81ec8fa1 100644
--- a/docs/left-right-protocol
+++ b/docs/left-right-protocol
@@ -127,7 +127,8 @@
 (create-biz-signing-context :self-id 42
 			    &optional
 			    :key-type :rsa
-			    :key-length  2048)
+			    :key-length 2048
+			    :hash-alg :sha1)
 => (biz-signing-context-id pkcs10-cert-request)
 
 (destroy-biz-signing-context :self-id 42
@@ -156,15 +157,15 @@
 (list-parents :self-id 42)
 => (parent ...)
 
+(get-parent-ta :self-id 42
+	       :parent foo)
+=> (ta)
+
 (set-parent-ta :self-id 42
 	       :parent foo
 	       :ta ta)
 => ()
 
-(get-parent-ta :self-id 42
-	       :parent foo)
-=> (ta)
-
 (get-parent-uri :self-id 42
 		:parent foo)
 => (uri)
@@ -211,33 +212,34 @@
 	      :id bar)
 => ()
 
-(set-child-ta :self-id 42
-	      :child foo
-	      :ta bar)
-=> ()
-
 (get-child-ta :self-id 42
 	      :child foo)
 => (ta)
 
-(set-child-biz-signing-context :self-id 42
-			       :child foo
-			       :biz-signing-context bar)
+(set-child-ta :self-id 42
+	      :child foo
+	      :ta bar)
 => ()
 
 (get-child-biz-signing-context :self-id 42
 			       :child foo)
 => (signing-context)
 
-;;; The following repo stuff is now wrong, need to come back to it
+(set-child-biz-signing-context :self-id 42
+			       :child foo
+			       :biz-signing-context bar)
+=> ()
 
 (create-repository :self-id 42)
-=> (repo)
+=> (repository)
 
 (destroy-repository :self-id 42
-		    :repository repo)
+		    :repository foo)
 => ()
 
+(list-repositories :self-id 42)
+=> (repository ...)
+
 (get-repository-biz-signing-context :self-id 42
 				    :repository foo)
 => (signing-context)
@@ -256,6 +258,15 @@
 		    :uri uri)
 => ()
 
+(get-repository-ta :self-id 42
+		    :repository foo)
+=> (ta)
+
+(set-repository-ta :self-id 42
+		    :repository foo
+		    :ta ta)
+=> ()
+
 (please-run-this-self-id-now :self-id 42)
 => ()