src/liflines/advedit.c
/*=================================================================
 * advedit_expand_traverse -- Traverse routine called when expanding record
 *===============================================================*/
- Traverse routine called when expanding record
- Traverse routine called when expanding record
static BOOLEAN
advedit_expand_traverse (NODE node, VPTR param)
{
	LIST subs = (LIST)param;
	STRING key = value_to_xref(nval(node));
	if (!key) return TRUE;
	key = strsave(key);
#ifdef DEBUG
	llwprintf("expand_traverse: %s %s\n", ntag(node), nval(node));
#endif 
	FORLIST(subs, el)
#ifdef DEBUG
	llwprintf("expand_traverse: %s %s\n", key, rmvat(nval((NODE) el)));
#endif 
		if (eqstr(key, rmvat(nval((NODE) el)))) {
			STOPLIST
			stdfree(key);
			return TRUE;
		}
	ENDLIST
	enqueue_list(subs, node);
	stdfree(key);
	return TRUE;
}
static BOOLEAN advedit_expand_traverse ( NODE node , VPTR param ) { LIST subs = ( LIST ) param ; STRING key = value_to_xref ( nval ( node ) ) ; if ( ! key ) return TRUE ; key = strsave ( key ) ; #ifdef DEBUG llwprintf ( " \n " , ntag ( node ) , nval ( node ) ) ; #endif FORLIST ( subs , el ) #ifdef DEBUG llwprintf ( " \n " , key , rmvat ( nval ( ( NODE ) el ) ) ) ; #endif if ( eqstr ( key , rmvat ( nval ( ( NODE ) el ) ) ) ) { STOPLIST stdfree ( key ) ; return TRUE ; } ENDLIST enqueue_list ( subs , node ) ; stdfree ( key ) ; return TRUE ; }
advedit_expand_traverse -- Traverse routine called when expanding record
advedit_expand_traverse -- Traverse routine called when expanding record
/* DEBUG */ /* DEBUG */