/*****************************************************************************\
FILE    : UgUtilFile.c
PURPOSE : Utility : prompt the user for model  name and type
HISTORY..
DATE      BUILD   AUTHOR    MODIFICATIONS
04-dec-97 H-02-02 Philippe  $$1    Created
\*****************************************************************************/

/*-------------------------- Pro/Toolkit includes ---------------------------*/
#include <ProToolkit.h>
#include <ProMdl.h>
#include <ProUtil.h>
/*-------------------------- Application includes ---------------------------*/
#include <TestError.h>

/*--------------------------- Global Definitions ----------------------------*/
#define MSGFIL "msg.txt"

/*================================================================*\
FUNCTION  : UserUtilNameTypeGet()
PURPOSE   : Get the handle to a model by prompting the user for
	    a name and a type
\*================================================================*/
ProError UserUtilNameTypeGet( 
	ProFileName 	wmsgfil, 
	ProName 	name, 
	ProMdlType 	*type )
{
  int 		status;
  ProCharLine	astr;
  ProName	type_wname;
  ProCharName	type_name;

  status = ProMessageDisplay(wmsgfil,"USER %0s", "Enter a model name : ");
  ERROR_CHECK("UserUtilNameTypeGet","ProMessageDisplay",status);
  if (status != PRO_TK_NO_ERROR) return(status);
  
  status = ProMessageStringRead(PRO_NAME_SIZE, name);
  ERROR_CHECK("UserUtilNameTypeGet","ProMessageStringRead",status);
  if (status != PRO_TK_NO_ERROR) return(status);

  status = ProMessageDisplay(wmsgfil,"USER %0s", "Enter a model type : ");
  ERROR_CHECK("UserUtilNameTypeGet","ProMessageDisplay",status);
  if (status != PRO_TK_NO_ERROR) return(status);

  status = ProMessageStringRead(PRO_TYPE_SIZE, type_wname);
  ERROR_CHECK("UserUtilNameTypeGet","ProMessageStringRead",status);
  if (status != PRO_TK_NO_ERROR) return(status);

  ProWstringToString(type_name,type_wname);

  (*type) = ProUtilGetProType(type_name);

  return (PRO_TK_NO_ERROR);
}