// file: pfil_set_1.cc
//
 
// isip include files
//
#include "param_file.h"
#include "param_file_constants.h"
 
// method: set_parse_string_cc
//
// arguments: none
//
// return: a logical_1 indicating status
//
// this method sets the parse string from class data
//
logical_1 Param_file::set_parse_string_cc() {

  // build the format from the other class data
  //
  if (parse_statement_format_d == (char_1*)NULL) {
    parse_statement_format_d = new char_1[ISIP_MAX_STRING_LENGTH];
  }
  sprintf((char*)parse_statement_format_d, PFIL_BUILD_PSF_FORMAT_MASK,
	  PFIL_BUILD_PSF_FORMAT_0,
	  (char)assignment_char_d,
	  PFIL_BUILD_PSF_FORMAT_1,
	  (char)assignment_char_d,
	  PFIL_BUILD_PSF_FORMAT_0,
	  (char)terminator_char_d,
	  PFIL_BUILD_PSF_FORMAT_1);
  
  // exit gracefully
  //
  return ISIP_TRUE;
}

