rq_fpml_swaption.c

风险财务控制库 Risk Quantify is an open source financial library, with a focus on managing the risk of fi

/*
** rq_fpml_swaption.c
**
** Written by Brett Hutley - [e-mail]
**
** Copyright (C) 2002 Brett Hutley
**
** This file is part of the Risk Quantify Library
**
** Risk Quantify is free software; you can redistribute it and/or
** modify it under the terms of the GNU Library General Public
** License as published by the Free Software Foundation; either
** version 2 of the License, or (at your option) any later version.
**
** Risk Quantify is distributed in the hope that it will be useful,
** but WITHOUT ANY WARRANTY; without even the implied warranty of
** MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
** Library General Public License for more details.
**
** You should have received a copy of the GNU Library General Public
** License along with Risk Quantify; if not, write to the Free
** Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
*/
#include "fpml/rq_fpml_swaption.h"
#include <stdlib.h>

void
rq_fpml_swaption_init(struct rq_fpml_swaption *p)
{
    p->product_type = NULL;
    p->product_id = NULL;
    p->buyer_party_reference = NULL;
    p->seller_party_reference = NULL;
    rq_fpml_payment_init(&p->premium);
    p->european_exercise = NULL;
    p->bermudan_exercise = NULL;
    p->american_exercise = NULL;
    rq_fpml_exercise_procedure_init(&p->exercise_procedure);
    p->calculation_agent_party_reference = NULL;
    rq_fpml_cash_settlement_init(&p->cash_settlement);
    p->swaption_straddle = 0;
    rq_fpml_swaption_adjusted_dates_init(&p->swaption_adjusted_dates);
    rq_fpml_swap_init(&p->swap);
}

void
rq_fpml_swaption_clear(struct rq_fpml_swaption *p)
{
    if (p->product_type)
    {
        free((char *)p->product_type);
        p->product_type = NULL;
    }
    if (p->product_id)
    {
        free((char *)p->product_id);
        p->product_id = NULL;
    }
    if (p->buyer_party_reference)
    {
        free((char *)p->buyer_party_reference);
        p->buyer_party_reference = NULL;
    }
    if (p->seller_party_reference)
    {
        free((char *)p->seller_party_reference);
        p->seller_party_reference = NULL;
    }
    rq_fpml_payment_clear(&p->premium);
    if (p->european_exercise)
    {
        rq_fpml_european_exercise_clear(p->european_exercise);
        free(p->european_exercise);
        p->european_exercise = NULL;
    }
    
    if (p->bermudan_exercise)
    {
        rq_fpml_bermudan_exercise_clear(p->bermudan_exercise);
        free(p->bermudan_exercise);
        p->bermudan_exercise = NULL;
    }
    
    if (p->american_exercise)
    {
        rq_fpml_american_exercise_clear(p->american_exercise);
        free(p->american_exercise);
        p->american_exercise = NULL;
    }
    
    rq_fpml_exercise_procedure_clear(&p->exercise_procedure);
    if (p->calculation_agent_party_reference)
    {
        free((char *)p->calculation_agent_party_reference);
        p->calculation_agent_party_reference = NULL;
    }
    rq_fpml_cash_settlement_clear(&p->cash_settlement);
    p->swaption_straddle = 0;
    rq_fpml_swaption_adjusted_dates_clear(&p->swaption_adjusted_dates);
    rq_fpml_swap_clear(&p->swap);
}

int
rq_fpml_swaption_write_xml(struct rq_fpml_swaption *p, rq_stream_t output_stream)
{
    rq_stream_write_string(output_stream, "<swaption>");

    rq_stream_write_string(output_stream, "<productType>");
    rq_stream_write_string(output_stream, p->product_type);
    rq_stream_write_string(output_stream, "</productType>");
    rq_stream_write_string(output_stream, "<productId>");
    rq_stream_write_string(output_stream, p->product_id);
    rq_stream_write_string(output_stream, "</productId>");
    rq_stream_write_string(output_stream, "<buyerPartyReference>");
    rq_stream_write_string(output_stream, p->buyer_party_reference);
    rq_stream_write_string(output_stream, "</buyerPartyReference>");
    rq_stream_write_string(output_stream, "<sellerPartyReference>");
    rq_stream_write_string(output_stream, p->seller_party_reference);
    rq_stream_write_string(output_stream, "</sellerPartyReference>");
    rq_fpml_payment_write_xml(&p->premium, output_stream);
    rq_fpml_european_exercise_write_xml(p->european_exercise, output_stream);
    rq_fpml_bermudan_exercise_write_xml(p->bermudan_exercise, output_stream);
    rq_fpml_american_exercise_write_xml(p->american_exercise, output_stream);
    rq_fpml_exercise_procedure_write_xml(&p->exercise_procedure, output_stream);
    rq_stream_write_string(output_stream, "<calculationAgentPartyReference>");
    rq_stream_write_string(output_stream, p->calculation_agent_party_reference);
    rq_stream_write_string(output_stream, "</calculationAgentPartyReference>");
    rq_fpml_cash_settlement_write_xml(&p->cash_settlement, output_stream);
    rq_stream_write_string(output_stream, "<swaptionStraddle>");
    rq_stream_write_integer_as_string(output_stream, p->swaption_straddle);
    rq_stream_write_string(output_stream, "</swaptionStraddle>");
    rq_fpml_swaption_adjusted_dates_write_xml(&p->swaption_adjusted_dates, output_stream);
    rq_fpml_swap_write_xml(&p->swap, output_stream);

    rq_stream_write_string(output_stream, "</swaption>");

    return 0;
}