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.
//
/////////////////////////////////////

  ////////////////////////////////
  //  list class.  enables a list of items to be
  //      created and accessed by an index or text.
typedef class lst_item;
class lst_item;
  string  name;
  string  txt;
  integer val;
  integer index;
  lst_item next;
  lst_item prev;

  extern function new(string ID);
  extern function void print();
  extern function void add_itm(lst_item item);
  extern function lst_item get(integer idx);
  extern function lst_item find(string txt);
  extern function void set(integer idx, integer val);
  
endclass // lst_item
  
  /////////////////////////////////////////////////
  //  lst_item methods
  //   function lst_item::new
  function lst_item::new(string ID);
    name = ID;
    txt  =   "";
    val  =   0;
    index =  0;
    next  =  null;
    prev  =  null;
  endfunction // new

//////////////////////////////////////////////////
  // function lst_item::print
  function void lst_item::print();
    lst_item lst;
    lst = this;
    while(lst != null) begin
      $display("%s  %s  %d  %d", lst.name, lst.txt, lst.val, lst.index);
      lst = lst.next;
    end
    //$display("%s  %s  %d  %d", lst.name, lst.txt, lst.val, lst.index);
  endfunction // print

////////////////////////////////////////////////////////
  //  function lst_item::set
  function void lst_item::set(integer idx, integer val);
    lst_item  tmp_itm;
    
    tmp_itm  =  this;
    while (tmp_itm != null) begin
      if (tmp_itm.index == idx) begin
        tmp_itm.val = val;
        break;
      end
      tmp_itm = tmp_itm.next;
    end
    
  endfunction  //  lst_item::set

/////////////////////////////////////////////////
  //  function  lst_item::add_itm
  function void lst_item::add_itm(lst_item item);
    lst_item tmp_itm;
    lst_item new_itm;
    tmp_itm  =  this;
    //  first item
    if((tmp_itm.next == null) && (tmp_itm.txt == ""))begin
      tmp_itm.txt = item.txt;
      tmp_itm.val = item.val;
      tmp_itm.prev = null;
    // second item
    end else if((tmp_itm.next == null) && (tmp_itm.txt != ""))begin
      new_itm = new("");
      new_itm.index = tmp_itm.index + 1;
      new_itm.txt   = item.txt;
      new_itm.val   = item.val;
      tmp_itm.next  = new_itm;
      new_itm.prev  = tmp_itm;
    //  other items
    end else begin
      while (tmp_itm.next != null) begin
        tmp_itm = tmp_itm.next;
      end
      new_itm = new("");
      new_itm.index = tmp_itm.index + 1;
      new_itm.txt   = item.txt;
      new_itm.val   = item.val;
      tmp_itm.next  = new_itm;
      new_itm.prev  = tmp_itm;
    end
    //this = tmp_itm;
  endfunction // lst_item::add_itm

////////////////////////////////////////////////////////////
  //  function  lst_item::get  index
  function lst_item lst_item::get(integer idx);
    lst_item tmp_itm;
    tmp_itm  = new("");
    tmp_itm  =  this;
    while (tmp_itm != null) begin
      if (tmp_itm.index == idx) begin
        return tmp_itm;
      end
      tmp_itm = tmp_itm.next;
    end
    
    check_lst_item_get : assert (tmp_itm) else begin
      $warning("Item index  >>> %4d <<< was not found on the %s list.", idx, this.name);
    end
    //if (tmp_itm.index != idx) begin
    //  $display("ERROR: lst_item.get  Index not found !!  Returning NULL object");
    //  tmp_itm  = new("");
    //  return tmp_itm;
    //end
    
    return tmp_itm;
  endfunction // get

///////////////////////////////////////////////////////////
  //  function  lst_item::find  txt
  function lst_item lst_item::find(string txt);
    lst_item tmp_itm;
    tmp_itm  = new("");
    tmp_itm  =  this;
    //  go through the list
    while (tmp_itm != null) begin
      if (tmp_itm.txt == txt) begin
        break;
      end
      tmp_itm = tmp_itm.next;
    end
    //  check for  found
    check_lst_item_find : assert (tmp_itm) else begin
      $warning("Item >>> %s <<< was not found on the %s list.", txt, this.name);
    end
    return tmp_itm;
  endfunction //  find