/*$Id: findbr.cc,v 25.95 2006/08/26 01:23:57 al Exp $ -*- C++ -*-
 * Copyright (C) 2001 Albert Davis
 * Author: Albert Davis <aldavis@ieee.org>
 *
 * This file is part of "Gnucap", the Gnu Circuit Analysis Package
 *
 * This program is free software; you can redistribute it and/or modify
 * it under the terms of the GNU General Public License as published by
 * the Free Software Foundation; either version 2, or (at your option)
 * any later version.
 *
 * This program is distributed in the hope that it will be useful,
 * but WITHOUT ANY WARRANTY; without even the implied warranty of
 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
 * GNU General Public License for more details.
 *
 * You should have received a copy of the GNU General Public License
 * along with this program; if not, write to the Free Software
 * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA
 * 02110-1301, USA.
 *------------------------------------------------------------------
 * find a branch with matching label
 * returns the branch pointer
 */
//testing=script,sparse 2006.07.17
#include "e_card.h"
/*--------------------------------------------------------------------------*/
/* findbranch: find a matching label, by (ugh) linear search
 *	label to look for is in command line (cmd).
 *	start "here".  Look only after "here".
 * return pointer to next match if exists (and eat input)
 *	  pointer to a non-existent branch if no match (don't eat input)
 * caution: caller must check return value before using
 */
CARD_LIST::fat_iterator findbranch(CS& cmd, CARD_LIST::fat_iterator here)
{
  int save = cmd.cursor();

  char labelwanted[BUFLEN+1];
  cmd.ctostr(labelwanted, BUFLEN, TOKENTERM);
  
  if (!labelwanted[0]) {		// nothing to look for
    cmd.reset(save);
    return here.end();
  }else{
  }
  
  char* local_part;	    // part before last dot, the thing inside
  char* last_part;	    // part after last dot, top level
  {
    char* dot = strrchr(labelwanted,'.');
    if (dot) {itested();		    // split the string into 2 parts at the last dot
      *dot = '\0';	    // before is the new "local_part", shortened
      last_part = dot + 1;  // after is the "last_part".
      local_part = labelwanted;
    }else{
      last_part = labelwanted;
      local_part = NULL;
    }
  }

  for (;;) {
    if (here.is_end()) {
      // at the end of the list - done, fails.
      cmd.reset(save);
      return here;
    }else if (wmatch((**here).short_label(), last_part)) { 
      // last_part matches
      if (!local_part) {
	// requested a simple name, found it .. done.
	return here;
      }else{untested();
	// there are dots, so look inside subckt
	untested();
	if ((**here).subckt()) {untested();
	  untested();
	  // has a subckt, and its name matches, doing fine
	  CS want(local_part);
	  CARD_LIST::fat_iterator subbrh=findbranch(want,(**here).subckt());
	  if (!subbrh.is_end()) {untested();
	    // found it in a subckt
	    return subbrh;
	  }else{untested();
	    // didn't find anything in this subckt
	    // keep looking for another with the same name
	    // why?
	    ++here;
	  }
	}else{untested(); 
	  // no subckt
	  // keep looking for something with this name that has a subckt
	  // why?
	  untested();
	  ++here;
	}
      }
    }else{
      // label doesn't match
      // keep looking for one that does.  (linear search)
      ++here;
    }
  }
}
/*--------------------------------------------------------------------------*/
/*--------------------------------------------------------------------------*/