/****************************************************************
*								*
*          File	: PDXTAGS.E					*
*								*
*     Procedure	: TAG_SUFFIX_SC					*
*								*
*        Author	: Gary LaRocco / CompuServe 70521,1773		*
*								*
*       Purpose	: Allows tagging of Paradox PAL procedures	*
*								*
*  Installation	: Load bytecode file and save state (C-F-3)	*
*								*
****************************************************************/
		

#include "eel.h"

tag_suffix_sc()		/* tag all procs in the paradox script */
{
	char func[70];
	int start, opoint = point, ofold = case_fold;

	case_fold = 1;
	point = 0;

	while (re_search(1, "^[ \t]*(proc |proc closed )"))
	{
		re_search(1, "([a-z0-9_]+)");
		grab(start = find_group(1, 1), find_group(1, 0), func);
		add_tag(func, start);
	}

	case_fold = ofold;
	point = opoint;
}