///////////////////////////////////////////////////////////////////////////////
//                                                                           //
// Copyright (c) 2000-2019 Ericsson Telecom AB                               //
//                                                                           //
// All rights reserved. This program and the accompanying materials          //
// are made available under the terms of the Eclipse Public License v2.0     //
// which accompanies this distribution, and is available at                  //
// https://www.eclipse.org/org/documents/epl-2.0/EPL-2.0.html                                 //
///////////////////////////////////////////////////////////////////////////////

///////////////////////////////////////////////////////////
//  Module: EPTF_CLL_UIHandler_ConvertFunctions
// 
//  Purpose:
//    This module contains data conversion functions
//
//  Module Parameters:
// 
//  Module depends on:
//    *EPTF_CLL_Common_Definitions*
//
//  Current Owner:
//    LÃ¯Â¿Â½szlÃ¯Â¿Â½ SkumÃ¯Â¿Â½t (ELSZSKU)
// 
//  Last Review Date:
//    2007-
//
//  Detailed Comments:
//    These functions are used in data display.
//
///////////////////////////////////////////////////////////////
module EPTF_CLL_UIHandler_ConvertFunctions
// [.objid{ itu_t(0) identified_organization(4) etsi(0) 
// identified_organization(127) ericsson(5) testing(0)
// <put further nodes here if needed>}]
{

import from EPTF_CLL_Common_Definitions all;
import from TCCConversion_Functions all;

///////////////////////////////////////////////////////////
//  Function: f_EPTF_UIHandler_str2IntegerList
//
//  Purpose:
//    Converts a string containing non-digit char separated
//    numbers into a record of integer
//
//  Parameters:
//    pl_str - *in* *charstring* - element to be converted
//
//  Return Value:
//    EPTF_IntegerList - the parameter value as an <EPTF_IntegerList>
//
//  Errors:
//    none
//
//  Detailed Comments:
//    This function supports storage of a string as a paramValue.
//    Non-digit chars treated as seperators
///////////////////////////////////////////////////////////
public function f_EPTF_UIHandler_str2Integer(in charstring pl_str) return charstring
{
  // example: " -1234a 5"
  var charstring vl_parsedIntStr := "";
  var integer vl_ret;
  
  for(var integer vl_xx := 0; vl_xx < lengthof(pl_str) and isbound(vl_ret) == false; vl_xx := vl_xx + 1) {
    // if leading space, dont sore it
    if(char2int(pl_str[vl_xx]) == char2int(" ") and 
       (vl_parsedIntStr == "")) {     
    } // leading +|- store it
    else if((char2int(pl_str[vl_xx]) == char2int("+") or 
        char2int(pl_str[vl_xx]) == char2int("-") ) and 
       (vl_parsedIntStr == "")){     
      vl_parsedIntStr := vl_parsedIntStr & pl_str[vl_xx];
    } // if digit, store it
    else if((char2int(pl_str[vl_xx]) >= char2int("0")) and
      (char2int(pl_str[vl_xx]) <= char2int("9"))) {
      vl_parsedIntStr := vl_parsedIntStr & pl_str[vl_xx];
    } //else end of number
    else 
    {
      //if found any digit
      if(lengthof(vl_parsedIntStr) > 0) {   
        if(vl_parsedIntStr != "+" and vl_parsedIntStr != "-") {
          vl_ret := str2int(vl_parsedIntStr);
        } else {
        	vl_parsedIntStr := "";
      		vl_ret := 0;
        }
      } else {
      	vl_ret := 0;
      }
    }
  }/* EndFor */
  if((vl_parsedIntStr == "+" or vl_parsedIntStr == "-")) {
    vl_parsedIntStr := "";
    vl_ret := 0;
  }
  return vl_parsedIntStr;
}

///////////////////////////////////////////////////////////
//  Function: f_EPTF_UIHandler_str2IntegerList
//
//  Purpose:
//    Converts a string containing non-digit char separated
//    numbers into a record of integer
//
//  Parameters:
//    pl_str - *in* *charstring* - element to be converted
//
//  Return Value:
//    EPTF_IntegerList - the parameter value as an <EPTF_IntegerList>
//
//  Errors:
//    none
//
//  Detailed Comments:
//    This function supports storage of a string as a paramValue.
//    Non-digit chars treated as seperators
///////////////////////////////////////////////////////////
public function f_EPTF_UIHandler_str2IntegerList(in charstring pl_str) return EPTF_IntegerList
{
  // example: "1,x2x,3x,42 ,5y\n6"
  var EPTF_IntegerList vl_buffer  := {};
  var charstring vl_parsedIntStr := "";
  
  for(var integer vl_xx := 0;  vl_xx < lengthof(pl_str);  vl_xx :=  vl_xx + 1) {
    // if leading space, dont sore it
    if(char2int(pl_str[ vl_xx]) == char2int(" ") and 
       ( vl_parsedIntStr == "")) {     
    } // leading +|- store it
    else if((char2int(pl_str[ vl_xx]) == char2int("+") or 
        char2int(pl_str[ vl_xx]) == char2int("-") ) and 
       ( vl_parsedIntStr == "")){     
       vl_parsedIntStr := vl_parsedIntStr & pl_str[vl_xx];
    } // if digit, store it
    else if((char2int(pl_str[ vl_xx]) >= char2int("0")) and
      (char2int(pl_str[ vl_xx]) <= char2int("9"))) {
       vl_parsedIntStr :=  vl_parsedIntStr & pl_str[ vl_xx];
    } //else end of number
    else {
      //if found any digit
      if(lengthof( vl_parsedIntStr) > 0) {
         if((vl_parsedIntStr != "+" and vl_parsedIntStr != "-")){
         	vl_buffer[sizeof( vl_buffer)] := str2int( vl_parsedIntStr);
         }
         vl_parsedIntStr := "";
      }
    }
  }
  // append the last number remaining in parsedIntStr
  if(lengthof( vl_parsedIntStr) > 0) {
     vl_buffer[sizeof( vl_buffer)] := str2int( vl_parsedIntStr);
  }
  return  vl_buffer;
}

///////////////////////////////////////////////////////////
//  Function: f_EPTF_UIHandler_str2FloatList
//
//  Purpose:
//    Converts a string containing non-digit char separated
//    numbers into a record of floats
//
//  Parameters:
//    pl_str - *in* *charstring* - element to be converted
//
//  Return Value:
//    EPTF_FloatList - the parameter value as an <EPTF_FloatList>
//
//  Detailed Comments:
//    This function supports storage of a string as a paramValue.
//    Non-digit chars treated as seperators
///////////////////////////////////////////////////////////
public function f_EPTF_UIHandler_str2FloatList(in charstring pl_str) return EPTF_FloatList
{
  var EPTF_FloatList vl_buffer  := {};
  var charstring vl_parsedFloatStr := "";
  
  for(var integer vl_xx := 0; vl_xx < lengthof(pl_str); vl_xx := vl_xx + 1) {
    // if leading space, dont sore it
    if(char2int(pl_str[ vl_xx]) == char2int(" ") and 
       ( vl_parsedFloatStr == "")) {     
    } // leading +|- store it
    else if((char2int(pl_str[ vl_xx]) == char2int("+") or 
        char2int(pl_str[ vl_xx]) == char2int("-") ) and 
       ( vl_parsedFloatStr == "")){     
       vl_parsedFloatStr := vl_parsedFloatStr & pl_str[vl_xx];
    } // if digit, store it
    if ( ((char2int(pl_str[vl_xx]) >= char2int("0")) and (char2int(pl_str[vl_xx]) <= char2int("9"))) or
      (pl_str[vl_xx] == ".") ){
      vl_parsedFloatStr := vl_parsedFloatStr & pl_str[vl_xx];
    } //else end of number
    else {
      //if found any digit
      if(lengthof(vl_parsedFloatStr) > 0) {
        if((vl_parsedFloatStr != "+" and vl_parsedFloatStr != "-")){
         	vl_buffer[sizeof(vl_buffer)] := str2float(vl_parsedFloatStr);
         }       
        vl_parsedFloatStr := "";
      }
    }
  }
  // append the last number remaining in parsedFloatStr
  if(lengthof(vl_parsedFloatStr) > 0) {
    vl_buffer[sizeof(vl_buffer)] := str2float(vl_parsedFloatStr);
  }
  return vl_buffer;
}

///////////////////////////////////////////////////////////
//  Function: f_EPTF_UIHandler_str2bool
//
//  Purpose:
//    function to convert a string value to a boolean value
//
//  Parameters:
//    pl_str - *in* *charstring* - string variable to convert, either "true" or "false"
//
//  Return Value:
//    boolean
//
//  Errors:
//   none
//
//  Detailed Comments:
//    none
///////////////////////////////////////////////////////////
public function f_EPTF_UIHandler_str2bool(in charstring pl_str) return boolean
{
  if (f_putInLowercase(pl_str) == "true") { return true }
  else { return false }
}

group obsolete_ASN1_Compat_Functions {
  import from ttcn_ericsson_se_protocolModules_xtdp_xtdl all;

  friend module EPTF_CLL_UIHandler_WidgetFunctions;
  friend module EPTF_CLL_UIHandlerClient_Functions;

  friend function f_EPTF_UIHandler_convertAxisType(
    in universal charstring pl_axistype,
    out ttcn_ericsson_se_protocolModules_xtdp_xtdl.AxisType pl_axistype_out)
  {
    if (pl_axistype == "linear" or pl_axistype == "LINEAR"){
      pl_axistype_out := linear;
    }
    if (pl_axistype == "log10" or pl_axistype == "LOG10"){
      pl_axistype_out := log10;
    }
    if (pl_axistype == "logE" or pl_axistype == "LOGE"){
      pl_axistype_out := logE;
    }
  }


}//ASN1_Compat_Functions

}