1238384Sjkim/* crypto/dsa/dsa_prn.c */
2296341Sdelphij/*
3296341Sdelphij * Written by Dr Stephen N Henson (steve@openssl.org) for the OpenSSL project
4296341Sdelphij * 2006.
5238384Sjkim */
6238384Sjkim/* ====================================================================
7238384Sjkim * Copyright (c) 2006 The OpenSSL Project.  All rights reserved.
8238384Sjkim *
9238384Sjkim * Redistribution and use in source and binary forms, with or without
10238384Sjkim * modification, are permitted provided that the following conditions
11238384Sjkim * are met:
12238384Sjkim *
13238384Sjkim * 1. Redistributions of source code must retain the above copyright
14296341Sdelphij *    notice, this list of conditions and the following disclaimer.
15238384Sjkim *
16238384Sjkim * 2. Redistributions in binary form must reproduce the above copyright
17238384Sjkim *    notice, this list of conditions and the following disclaimer in
18238384Sjkim *    the documentation and/or other materials provided with the
19238384Sjkim *    distribution.
20238384Sjkim *
21238384Sjkim * 3. All advertising materials mentioning features or use of this
22238384Sjkim *    software must display the following acknowledgment:
23238384Sjkim *    "This product includes software developed by the OpenSSL Project
24238384Sjkim *    for use in the OpenSSL Toolkit. (http://www.OpenSSL.org/)"
25238384Sjkim *
26238384Sjkim * 4. The names "OpenSSL Toolkit" and "OpenSSL Project" must not be used to
27238384Sjkim *    endorse or promote products derived from this software without
28238384Sjkim *    prior written permission. For written permission, please contact
29238384Sjkim *    licensing@OpenSSL.org.
30238384Sjkim *
31238384Sjkim * 5. Products derived from this software may not be called "OpenSSL"
32238384Sjkim *    nor may "OpenSSL" appear in their names without prior written
33238384Sjkim *    permission of the OpenSSL Project.
34238384Sjkim *
35238384Sjkim * 6. Redistributions of any form whatsoever must retain the following
36238384Sjkim *    acknowledgment:
37238384Sjkim *    "This product includes software developed by the OpenSSL Project
38238384Sjkim *    for use in the OpenSSL Toolkit (http://www.OpenSSL.org/)"
39238384Sjkim *
40238384Sjkim * THIS SOFTWARE IS PROVIDED BY THE OpenSSL PROJECT ``AS IS'' AND ANY
41238384Sjkim * EXPRESSED OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
42238384Sjkim * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR
43238384Sjkim * PURPOSE ARE DISCLAIMED.  IN NO EVENT SHALL THE OpenSSL PROJECT OR
44238384Sjkim * ITS CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL,
45238384Sjkim * SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT
46238384Sjkim * NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES;
47238384Sjkim * LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
48238384Sjkim * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT,
49238384Sjkim * STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
50238384Sjkim * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED
51238384Sjkim * OF THE POSSIBILITY OF SUCH DAMAGE.
52238384Sjkim * ====================================================================
53238384Sjkim *
54238384Sjkim * This product includes cryptographic software written by Eric Young
55238384Sjkim * (eay@cryptsoft.com).  This product includes software written by Tim
56238384Sjkim * Hudson (tjh@cryptsoft.com).
57238384Sjkim *
58238384Sjkim */
59238384Sjkim
60238384Sjkim#include <stdio.h>
61238384Sjkim#include "cryptlib.h"
62238384Sjkim#include <openssl/evp.h>
63238384Sjkim#include <openssl/dsa.h>
64238384Sjkim
65238384Sjkim#ifndef OPENSSL_NO_FP_API
66238384Sjkimint DSA_print_fp(FILE *fp, const DSA *x, int off)
67296341Sdelphij{
68296341Sdelphij    BIO *b;
69296341Sdelphij    int ret;
70238384Sjkim
71296341Sdelphij    if ((b = BIO_new(BIO_s_file())) == NULL) {
72296341Sdelphij        DSAerr(DSA_F_DSA_PRINT_FP, ERR_R_BUF_LIB);
73296341Sdelphij        return (0);
74296341Sdelphij    }
75296341Sdelphij    BIO_set_fp(b, fp, BIO_NOCLOSE);
76296341Sdelphij    ret = DSA_print(b, x, off);
77296341Sdelphij    BIO_free(b);
78296341Sdelphij    return (ret);
79296341Sdelphij}
80238384Sjkim
81238384Sjkimint DSAparams_print_fp(FILE *fp, const DSA *x)
82296341Sdelphij{
83296341Sdelphij    BIO *b;
84296341Sdelphij    int ret;
85238384Sjkim
86296341Sdelphij    if ((b = BIO_new(BIO_s_file())) == NULL) {
87296341Sdelphij        DSAerr(DSA_F_DSAPARAMS_PRINT_FP, ERR_R_BUF_LIB);
88296341Sdelphij        return (0);
89296341Sdelphij    }
90296341Sdelphij    BIO_set_fp(b, fp, BIO_NOCLOSE);
91296341Sdelphij    ret = DSAparams_print(b, x);
92296341Sdelphij    BIO_free(b);
93296341Sdelphij    return (ret);
94296341Sdelphij}
95238384Sjkim#endif
96238384Sjkim
97238384Sjkimint DSA_print(BIO *bp, const DSA *x, int off)
98296341Sdelphij{
99296341Sdelphij    EVP_PKEY *pk;
100296341Sdelphij    int ret;
101296341Sdelphij    pk = EVP_PKEY_new();
102296341Sdelphij    if (!pk || !EVP_PKEY_set1_DSA(pk, (DSA *)x))
103296341Sdelphij        return 0;
104296341Sdelphij    ret = EVP_PKEY_print_private(bp, pk, off, NULL);
105296341Sdelphij    EVP_PKEY_free(pk);
106296341Sdelphij    return ret;
107296341Sdelphij}
108238384Sjkim
109238384Sjkimint DSAparams_print(BIO *bp, const DSA *x)
110296341Sdelphij{
111296341Sdelphij    EVP_PKEY *pk;
112296341Sdelphij    int ret;
113296341Sdelphij    pk = EVP_PKEY_new();
114296341Sdelphij    if (!pk || !EVP_PKEY_set1_DSA(pk, (DSA *)x))
115296341Sdelphij        return 0;
116296341Sdelphij    ret = EVP_PKEY_print_params(bp, pk, 4, NULL);
117296341Sdelphij    EVP_PKEY_free(pk);
118296341Sdelphij    return ret;
119296341Sdelphij}
120