/*
 * Simple tag marker for most all PL\M procedure definitions.
 * Does not find declarations that are not marked public.
 *
 * Some examples of lines found:
 *   CK_INTLK: PROCEDURE PUBLIC REENTRANT;
 *   ck_radon: PROCEDURE PUBLIC;
 *   set_gant: proc (command_type, ptr, speed) pub;
 *
 * W. Blume 8/17/94 Creation
 */
#define TAGLEN 132
tag_suffix_plm()
{
        char func[TAGLEN];
        int start;

        while (re_search(1, "([a-zA-Z0-9_]*):.*(proc.*pub.*;$)")) {
                grab(start = find_group(1, 1), find_group(1, 0), func);
                add_tag(func, start);
        }
}