DataMuseum.dk

top - metrics - download

    Length: 1218 (0x4c2)
    Types: TextFile
    Names: »has.c«

└─⟦060c9c824⟧ Bits:30007080 DKUUG TeX 2/12/89
    └─⟦this⟧ »./DVIware/laser-setters/quicspool/libprofile/has.c« 
└─⟦52210d11f⟧ Bits:30007239 EUUGD2: TeX 3 1992-12
    └─⟦af5ba6c8e⟧ »unix3.0/DVIWARE.tar.Z« 
        └─⟦ca79c7339⟧ 
            └─⟦this⟧ »DVIware/laser-setters/quicspool/libprofile/has.c« 

TextFile

static char *rcs = "$Header: has.c,v 1.1 88/01/15 12:17:00 simpson Rel $";
/*
$Log:	has.c,v $
 * Revision 1.1  88/01/15  12:17:00  simpson
 * initial release
 * 
 * Revision 0.1  87/12/11  17:02:12  simpson
 * beta test
 * 
*/
#include <stdio.h>
#include "profile.h"

PROFILE_MARKER *profile_has_marker (s, m)
PROFILE_STANZA *s;
char *m;
{
	PROFILE_MARKER *x;
	int result;

	for (x = s->marker; x; x = x->next)
		if(glob_match(x->text, m) > 0)
			return(x);
	return((PROFILE_MARKER *)0);
}

/*
 * read down a linked list of stanzas looking
 * for a stanza that has the requested markers
 */
PROFILE_STANZA *profile_has_stanza(s, marker)
PROFILE_STANZA *s;
char *marker[];		/* terminated by a null pointer */
{
	int i;
	PROFILE_STANZA *x;

	if (s == NULL)
		return(s);
	x = s;
	do {
		for (i = 0; marker[i] != NULL; i++)
			if (profile_has_marker(x, marker[i]) == NULL)
				break;
		if (marker[i] == NULL)
			return(x);
		x = x->next;
	} while (x != s && x != NULL);

	return((PROFILE_STANZA *)NULL);
}

PROFILE_BINDING *profile_has_binding (s, b)
PROFILE_STANZA *s;
char *b;
{
	PROFILE_BINDING *x;

	for (x = s->binding; x; x = x->next)
		if (glob_match(x->name, b) > 0)
			return(x);
	return((PROFILE_BINDING *)0);
}