/*-----------------------------------------------------------------------------
	File:		UgFundStringConv.c
	Description:	demo string conversion

            PTC             File
   Date   Version   Author  Vers  Comment
--------- -------  -------- ----- ---------------------------------------------
04-dec-97 H-02-02  AWY/CHI    $$1 setup
-----------------------------------------------------------------------------*/

/*---------------------- Pro/Toolkit Includes ------------------------*/
#include <ProToolkit.h>
#include <ProMdl.h>
#include <ProObjects.h>
#include <ProSizeConst.h>
#include <ProUtil.h>

/*---------------------- Application Includes ------------------------*/
#include <TestError.h>

/*---------------------- Function Prototypes -------------------------*/
ProError UsrModelFilenameGet();


ProError UsrModelFilenameGet(
    ProMdl      model,
    ProCharName filename)
{
    ProError    status;
    ProMdldata  data;
    ProCharName obj_name, obj_type;

    status = ProMdlDataGet (model, &data);
    if (status != PRO_TK_NO_ERROR)
        return (status);

    ProWstringToString(obj_name, data.name);
    ProUtilStringLower(obj_name, obj_name);

    ProWstringToString(obj_type, data.type);
    ProUtilStringLower(obj_type, obj_type);

    sprintf(filename, "%s.%s;%d", obj_name,
             obj_type, data.version);

    return(PRO_TK_NO_ERROR);
}