Subversion Repositories sv_dir_tb

////////////////////////////////////////////////////////////////////////////

//

// Copyright 2014  Ken Campbell

//

//   Licensed under the Apache License, Version 2.0 (the "License");

//   you may not use this file except in compliance with the License.

//   You may obtain a copy of the License at

//

//     http://www.apache.org/licenses/LICENSE-2.0

//

//   Unless required by applicable law or agreed to in writing, software

//   distributed under the License is distributed on an "AS IS" BASIS,

//   WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.

//   See the License for the specific language governing permissions and

//   limitations under the License.

//

//////////////////////////////////////////////////////////////////////////

//  general functions

//

//  stm2_int:   convert a simulus entry to integer.

//  is_var:   check for and return varable type.

//  is_ws:        check if character is white space.

//  is_digi:  Check if is decimal character

//  is_alpha: Check if is alphabetic character,  Limited.

//

/////////////////////////////////////////////////////////////////////////

//  stimulus value convert functions

//  to_int  function to convert string to integer

function integer stm2_int(string str);

  integer t, i, len, rtn;

  string  tmp_str;

  i = 0;

  t = str.getc(i);

  if ((t == "x") || (t == "h")) begin

    tmp_str = str.substr(1, str.len()-1);

    rtn     = tmp_str.atohex();

  end else if (t == "b") begin

    tmp_str = str.substr(1, str.len()-1);

    rtn     = tmp_str.atobin();

  end else begin

    rtn     = str.atoi();

  end

  return rtn;

endfunction // stm2_int

//////////////////////////////////////////////////////////////////////

//  is_var  function

//   check if the string passed is a variable definition "syntax" wise

//   return  0  if not a variable def

//   return  1  if defined as value

//   return  2  if defined as index

//   retrun  3  if condition operator

function int is_var(string v);

  byte c;

  c = v[0];

  if(is_digi(c)) begin

    return 0;

  end else if(c == "$") begin

    return 1;

  end else if (c == "<" || c == ">" || c == "=" || c == "!") begin

      return 3;

  end else if (c != "x" && c != "h" && c != "b") begin

      return 2;

  end else

    return 0;

endfunction

//////////////////////////////////////////////////////////////////////

//  string functions

//   check character for white space

//   return  1 if is white,   0 other wise.

function int is_ws(byte c);

  if (c == " " || c == "\t" || c == "\n")

    return 1;

  else

    return 0;

endfunction  //  is_ws

//////////////////////////////////////////////////////////////////////

//  check for decimal digit   return 1 if is,  else  0

function int is_digi(byte c);

  if (c >= "0" && c <= "9")

    return 1;

  else

    return 0;

endfunction

//////////////////////////////////////////////////////////////////////

// check for alpha character.

//   includes [ \ ] ^ _ ` { \ } ~

//   return 1 if is,  else  0

function int is_alpha(byte c);

  if(c >= "A" && c <= "~")

    return 1;

  else

    return 0;

endfunction