+
−/*
+
−** support.c
+
−**
+
−** Author: Pr Emanuelsson <pell@lysator.liu.se>
+
−** Hacked by: Peter Eriksson <pen@lysator.liu.se>
+
−*/
+
−#include <stdio.h>
+
−#include <ctype.h>
+
−
+
−#ifdef HAVE_ANSIHEADERS
+
−#  include <stdlib.h>
+
−#  include <string.h>
+
−#else
+
−#  define strchr(str, c) index(str, c)
+
−#endif
+
−
+
−#define IN_LIBIDENT_SRC
+
−#include "ident.h"
+
−
+
−
+
−char*
+
−id_strdup __P1(char *, str)
+
−{
+
−	char *cp;
+
−
+
−	cp = (char *) malloc(strlen(str) + 1);
+
−	if (cp == NULL) {
+
−#ifdef DEBUG
+
−		perror("libident: malloc");
+
−#endif
+
−		return NULL;
+
−	}
+
−
+
−	strcpy(cp, str);
+
−
+
−	return cp;
+
−}
+
−
+
−
+
−char*
+
−id_strtok __P3(char *, cp, char *, cs, char *, dc)
+
−{
+
−	static char *bp = 0;
+
−
+
−	if (cp)
+
−		bp = cp;
+
−
+
−	/*
+
−	 ** No delimitor cs - return whole buffer and point at end
+
−	 */
+
−	if (!cs) {
+
−		while (*bp)
+
−			bp++;
+
−		return cs;
+
−	}
+
−
+
−	/*
+
−	 ** Skip leading spaces
+
−	 */
+
−	while (isspace(*bp))
+
−		bp++;
+
−
+
−	/*
+
−	 ** No token found?
+
−	 */
+
−	if (!*bp)
+
−		return 0;
+
−
+
−	cp = bp;
+
−	while (*bp && !strchr(cs, *bp))
+
−		bp++;
+
−
+
−	/*
+
−	 ** Remove trailing spaces
+
−	 */
+
−	*dc = *bp;
+
−	for (dc = bp - 1; dc > cp && isspace(*dc); dc--);
+
−	*++dc = '\0';
+
−
+
−	bp++;
+
−
+
−	return cp;
+
−}