/* -*-c-*-
*
- * $Id: anagram.c,v 1.1 2001/02/04 17:14:42 mdw Exp $
+ * $Id$
*
* Matches anagrams and subgrams
*
* Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
*/
-/*----- Revision history --------------------------------------------------*
- *
- * $Log: anagram.c,v $
- * Revision 1.1 2001/02/04 17:14:42 mdw
- * Initial checkin
- *
- */
-
/*----- Header files ------------------------------------------------------*/
#include "anag.h"
q = p + sz;
while (p < q) {
i = (unsigned char)*p++;
- if (!f[i])
+ if (f[i])
+ f[i]--;
+ else if (f['.'])
+ f['.']--;
+ else
return (0);
- f[i]--;
}
return (1);
}