1/*	$NetBSD: string.c,v 1.10 2009/04/14 08:50:06 lukem Exp $	*/
2
3/*
4 * Copyright (c) 1983, 1993
5 *	The Regents of the University of California.  All rights reserved.
6 *
7 * This code is derived from software contributed to Berkeley by
8 * Edward Wang at The University of California, Berkeley.
9 *
10 * Redistribution and use in source and binary forms, with or without
11 * modification, are permitted provided that the following conditions
12 * are met:
13 * 1. Redistributions of source code must retain the above copyright
14 *    notice, this list of conditions and the following disclaimer.
15 * 2. Redistributions in binary form must reproduce the above copyright
16 *    notice, this list of conditions and the following disclaimer in the
17 *    documentation and/or other materials provided with the distribution.
18 * 3. Neither the name of the University nor the names of its contributors
19 *    may be used to endorse or promote products derived from this software
20 *    without specific prior written permission.
21 *
22 * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
23 * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
24 * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
25 * ARE DISCLAIMED.  IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
26 * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
27 * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
28 * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
29 * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
30 * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
31 * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
32 * SUCH DAMAGE.
33 */
34
35#include <sys/cdefs.h>
36#ifndef lint
37#if 0
38static char sccsid[] = "@(#)string.c	8.1 (Berkeley) 6/6/93";
39#else
40__RCSID("$NetBSD: string.c,v 1.10 2009/04/14 08:50:06 lukem Exp $");
41#endif
42#endif /* not lint */
43
44#include <stdio.h>
45#include <stdlib.h>
46#include <string.h>
47#define EXTERN
48#include "window_string.h"
49#undef  EXTERN
50
51char *
52str_cpy(const char *s)
53{
54	char *str;
55	char *p;
56
57	str = p = str_alloc(strlen(s) + 1);
58	if (p == 0)
59		return 0;
60	while ((*p++ = *s++))
61		;
62	return str;
63}
64
65char *
66str_ncpy(const char *s, int n)
67{
68	int l = strlen(s);
69	char *str;
70	char *p;
71
72	if (n > l)
73		n = l;
74	str = p = str_alloc(n + 1);
75	if (p == 0)
76		return 0;
77	while (--n >= 0)
78		*p++ = *s++;
79	*p = 0;
80	return str;
81}
82
83char *
84str_itoa(int i)
85{
86	char buf[30];
87
88	(void) snprintf(buf, sizeof(buf), "%d", i);
89	return str_cpy(buf);
90}
91
92char *
93str_cat(const char *s1, const char *s2)
94{
95	char *str;
96	char *p;
97	const char *q;
98
99	str = p = str_alloc(strlen(s1) + strlen(s2) + 1);
100	if (p == 0)
101		return 0;
102	for (q = s1; (*p++ = *q++);)
103		;
104	for (q = s2, p--; (*p++ = *q++);)
105		;
106	return str;
107}
108
109/*
110 * match s against p.
111 * s can be a prefix of p with at least min characters.
112 */
113int
114str_match(const char *s, const char *p, int min)
115{
116	for (; *s && *p && *s == *p; s++, p++, min--)
117		;
118	return *s == *p || (*s == 0 && min <= 0);
119}
120
121#ifdef STR_DEBUG
122char *
123str_alloc(size_t l)
124{
125	struct string *s;
126
127	s = malloc(l + str_offset);
128	if (s == 0)
129		return 0;
130	if (str_head.s_forw == 0)
131		str_head.s_forw = str_head.s_back = &str_head;
132	s->s_forw = str_head.s_forw;
133	s->s_back = &str_head;
134	str_head.s_forw = s;
135	s->s_forw->s_back = s;
136	return s->s_data;
137}
138
139void
140str_free(char *str)
141{
142	struct string *s;
143
144	for (s = str_head.s_forw; s != &str_head && s->s_data != str;
145	     s = s->s_forw)
146		;
147	if (s == &str_head)
148		abort();
149	s->s_back->s_forw = s->s_forw;
150	s->s_forw->s_back = s->s_back;
151	free((char *)s);
152}
153#endif
154