(rsa_keypair_to_sexp): Use literals with sexp_format.

Rev: src/nettle/rsa2sexp.c:1.5

diff --git a/rsa2sexp.c b/rsa2sexp.c
index ad03408c8f6c6232acd91e9d242964bc6c56b6c5..8957570d325ff3057ea4b6126e82760f4ecd233b 100644 (file)
--- a/rsa2sexp.c
+++ b/rsa2sexp.c
@@ -39,14 +39,14 @@ rsa_keypair_to_sexp(struct nettle_buffer *buffer,
 {
   if (priv)
     return sexp_format(buffer,
-                      "(%0s(%0s(%0s%b)(%0s%b)(%0s%b)"
-                      "(%0s%b)(%0s%b)(%0s%b)(%0s%b)(%0s%b)))",
-                      "private-key", "rsa", "n", pub->n, "e", pub->e,
-                      "d", priv->d, "p", priv->p, "q", priv->q,
-                      "a", priv->a, "b", priv->b, "c", priv->c);
+                      "(private-key(%0s(n%b)(e%b)"
+                      "(d%b)(p%b)(q%b)(a%b)(b%b)(c%b)))",
+                      "rsa", pub->n, pub->e,
+                      priv->d, priv->p, priv->q,
+                      priv->a, priv->b, priv->c);
   else
-    return sexp_format(buffer, "(%0s(%0s(%0s%b)(%0s%b)))",
-                      "public-key", "rsa", "n", pub->n, "e", pub->e);
+    return sexp_format(buffer, "(public-key(%0s(n%b)(e%b)))",
+                      "rsa", pub->n, pub->e);
 }
 
 #endif /* WITH_PUBLIC_KEY */