1 /* $FreeBSD: head/lib/libc/iconv/citrus_memstream.c 263986 2014-04-01 10:36:11Z tijl $ */
2 /*	$NetBSD: citrus_memstream.c,v 1.5 2012/03/13 21:13:31 christos Exp $	*/
3 
4 /*-
5  * Copyright (c)2003 Citrus Project,
6  * All rights reserved.
7  *
8  * Redistribution and use in source and binary forms, with or without
9  * modification, are permitted provided that the following conditions
10  * are met:
11  * 1. Redistributions of source code must retain the above copyright
12  *    notice, this list of conditions and the following disclaimer.
13  * 2. Redistributions in binary form must reproduce the above copyright
14  *    notice, this list of conditions and the following disclaimer in the
15  *    documentation and/or other materials provided with the distribution.
16  *
17  * THIS SOFTWARE IS PROVIDED BY THE AUTHOR AND CONTRIBUTORS ``AS IS'' AND
18  * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
19  * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
20  * ARE DISCLAIMED.  IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS BE LIABLE
21  * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
22  * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
23  * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
24  * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
25  * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
26  * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
27  * SUCH DAMAGE.
28  */
29 
30 #include <sys/cdefs.h>
31 
32 #include <assert.h>
33 #include <stdio.h>
34 #include <stdlib.h>
35 #include <string.h>
36 
37 #include "citrus_namespace.h"
38 #include "citrus_region.h"
39 #include "citrus_memstream.h"
40 #include "citrus_bcs.h"
41 
42 const char *
43 _citrus_memory_stream_getln(struct _citrus_memory_stream * __restrict ms,
44     size_t * __restrict rlen)
45 {
46 	const uint8_t *h, *p;
47 	size_t i, ret;
48 
49 	if (ms->ms_pos>=_region_size(&ms->ms_region))
50 		return (NULL);
51 
52 	h = p = (uint8_t *)_region_offset(&ms->ms_region, ms->ms_pos);
53 	ret = 0;
54 	for (i = _region_size(&ms->ms_region) - ms->ms_pos; i > 0; i--) {
55 		ret++;
56 		if (_bcs_iseol(*p))
57 			break;
58 		p++;
59 	}
60 
61 	ms->ms_pos += ret;
62 	*rlen = ret;
63 	return ((const char *)h);
64 }
65 
66 #define T_COMM	'#'
67 
68 const char *
69 _citrus_memory_stream_matchline(struct _citrus_memory_stream * __restrict ms,
70     const char * __restrict key, size_t * __restrict rlen, int iscasesensitive)
71 {
72 	const char *p, *q;
73 	size_t keylen, len;
74 
75 	keylen = strlen(key);
76 	for(;;) {
77 		p = _citrus_memory_stream_getln(ms, &len);
78 		if (p == NULL)
79 			return (NULL);
80 
81 		/* ignore comment */
82 		q = memchr(p, T_COMM, len);
83 		if (q) {
84 			len = q - p;
85 		}
86 		/* ignore trailing white space and newline */
87 		_bcs_trunc_rws_len(p, &len);
88 		if (len == 0)
89 			continue; /* ignore null line */
90 
91 		/* skip white spaces at the head of the line */
92 		p = _bcs_skip_ws_len(p, &len);
93 		q = _bcs_skip_nonws_len(p, &len);
94 
95 		if ((size_t)(q - p) == keylen) {
96 			if (iscasesensitive) {
97 				if (memcmp(key, p, keylen) == 0)
98 					break; /* match */
99 			} else {
100 				if (_bcs_strncasecmp(key, p, keylen) == 0)
101 					break; /* match */
102 			}
103 		}
104 	}
105 
106 	p = _bcs_skip_ws_len(q, &len);
107 	*rlen = len;
108 
109 	return (p);
110 }
111 
112 void *
113 _citrus_memory_stream_chr(struct _citrus_memory_stream *ms,
114     struct _citrus_region *r, char ch)
115 {
116 	void *chr, *head;
117 	size_t sz;
118 
119 	if (ms->ms_pos >= _region_size(&ms->ms_region))
120 		return (NULL);
121 
122 	head = _region_offset(&ms->ms_region, ms->ms_pos);
123 	chr = memchr(head, ch, _memstream_remainder(ms));
124 	if (chr == NULL) {
125 		_region_init(r, head, _memstream_remainder(ms));
126 		ms->ms_pos = _region_size(&ms->ms_region);
127 		return (NULL);
128 	}
129 	sz = (char *)chr - (char *)head;
130 
131 	_region_init(r, head, sz);
132 	ms->ms_pos += sz + 1;
133 
134 	return (chr);
135 }
136 
137 void
138 _citrus_memory_stream_skip_ws(struct _citrus_memory_stream *ms)
139 {
140 	int ch;
141 
142 	while ((ch = _memstream_peek(ms)) != EOF) {
143 		if (!_bcs_isspace(ch))
144 			break;
145 		_memstream_getc(ms);
146 	}
147 }
148