checkpoint

svn path=/scripts/regeng-api; revision=504

1 files changed, 22 insertions, 0 deletions

diff --git a/scripts/regeng-api b/scripts/regeng-api
index 2474a571..7401c1fa 100644
--- a/scripts/regeng-api
+++ b/scripts/regeng-api
@@ -118,6 +118,28 @@
 		       (cert ...))
 => ()
 
+(set-ca-parent-ta :cust-id 42
+		  :ta ta)
+=> ()
+
+(get-ca-parent-ta :cust-id 42)
+=> (ta)
+
+(set-ca-parent-uri :cust-id 42
+		:uri uri)
+=> ()
+
+(get-ca-parent-uri :cust-id 42)
+=> (uri)
+
+(set-ca-parent-biz-signing-context :cust-id 42
+				   :biz-signing-context foo)
+=> ()
+
+(get-ca-parent-biz-signing-context :cust-id 42)
+=> (biz-signing-context)
+
+
 ;; (set-parent-ta)
 ;; (set-parent-uri)
 ;; (set-parent-biz-signing-context)