1 7cf289ca 2004-04-06 devnull #include <u.h>
2 650deb79 2004-04-08 devnull #include <limits.h>
3 7cf289ca 2004-04-06 devnull #include <libc.h>
4 7cf289ca 2004-04-06 devnull #include <draw.h>
5 7cf289ca 2004-04-06 devnull #include <html.h>
6 7cf289ca 2004-04-06 devnull #include "impl.h"
8 7cf289ca 2004-04-06 devnull Rune whitespace[] = { ' ', '\t', '\n', '\r', '\0' };
9 7cf289ca 2004-04-06 devnull Rune notwhitespace[] = { '^', ' ', '\t', '\n', '\r' , '\0'};
11 cbeb0b26 2006-04-01 devnull /* All lists start out like List structure. */
12 cbeb0b26 2006-04-01 devnull /* List itself can be used as list of int. */
14 7cf289ca 2004-04-06 devnull _listlen(List* l)
16 7cf289ca 2004-04-06 devnull int n = 0;
18 7cf289ca 2004-04-06 devnull while(l != nil) {
19 7cf289ca 2004-04-06 devnull l = l->next;
22 7cf289ca 2004-04-06 devnull return n;
25 cbeb0b26 2006-04-01 devnull /* Cons */
27 7cf289ca 2004-04-06 devnull _newlist(int val, List* rest)
29 7cf289ca 2004-04-06 devnull List* ans;
31 7cf289ca 2004-04-06 devnull ans = (List*)emalloc(sizeof(List));
32 7cf289ca 2004-04-06 devnull ans->val = val;
33 7cf289ca 2004-04-06 devnull ans->next = rest;
34 7cf289ca 2004-04-06 devnull return ans;
37 cbeb0b26 2006-04-01 devnull /* Reverse a list in place */
39 7cf289ca 2004-04-06 devnull _revlist(List* l)
41 7cf289ca 2004-04-06 devnull List* newl;
42 7cf289ca 2004-04-06 devnull List* nextl;
44 7cf289ca 2004-04-06 devnull newl = nil;
45 7cf289ca 2004-04-06 devnull while(l != nil) {
46 7cf289ca 2004-04-06 devnull nextl = l->next;
47 7cf289ca 2004-04-06 devnull l->next = newl;
48 7cf289ca 2004-04-06 devnull newl = l;
49 7cf289ca 2004-04-06 devnull l = nextl;
51 7cf289ca 2004-04-06 devnull return newl;
54 cbeb0b26 2006-04-01 devnull /* The next few routines take a "character class" as argument. */
55 cbeb0b26 2006-04-01 devnull /* e.g., "a-zA-Z", or "^ \t\n" */
56 cbeb0b26 2006-04-01 devnull /* (ranges indicated by - except in first position; */
57 cbeb0b26 2006-04-01 devnull /* ^ is first position means "not in" the following class) */
59 cbeb0b26 2006-04-01 devnull /* Splitl splits s[0:n] just before first character of class cl. */
60 cbeb0b26 2006-04-01 devnull /* Answers go in (p1, n1) and (p2, n2). */
61 cbeb0b26 2006-04-01 devnull /* If no split, the whole thing goes in the first component. */
62 cbeb0b26 2006-04-01 devnull /* Note: answers contain pointers into original string. */
64 7cf289ca 2004-04-06 devnull _splitl(Rune* s, int n, Rune* cl, Rune** p1, int* n1, Rune** p2, int* n2)
68 7cf289ca 2004-04-06 devnull p = _Strnclass(s, cl, n);
70 7cf289ca 2004-04-06 devnull if(p == nil) {
72 7cf289ca 2004-04-06 devnull *p2 = nil;
77 7cf289ca 2004-04-06 devnull *n1 = p-s;
78 7cf289ca 2004-04-06 devnull *n2 = n-*n1;
82 cbeb0b26 2006-04-01 devnull /* Splitr splits s[0:n] just after last character of class cl. */
83 cbeb0b26 2006-04-01 devnull /* Answers go in (p1, n1) and (p2, n2). */
84 cbeb0b26 2006-04-01 devnull /* If no split, the whole thing goes in the last component. */
85 cbeb0b26 2006-04-01 devnull /* Note: answers contain pointers into original string. */
87 7cf289ca 2004-04-06 devnull _splitr(Rune* s, int n, Rune* cl, Rune** p1, int* n1, Rune** p2, int* n2)
91 7cf289ca 2004-04-06 devnull p = _Strnrclass(s, cl, n);
92 7cf289ca 2004-04-06 devnull if(p == nil) {
93 7cf289ca 2004-04-06 devnull *p1 = nil;
100 7cf289ca 2004-04-06 devnull *p2 = p+1;
101 7cf289ca 2004-04-06 devnull *n1 = *p2-s;
102 7cf289ca 2004-04-06 devnull *n2 = n-*n1;
106 cbeb0b26 2006-04-01 devnull /* Splitall splits s[0:n] into parts that are separated by characters from class cl. */
107 cbeb0b26 2006-04-01 devnull /* Each part will have nonzero length. */
108 cbeb0b26 2006-04-01 devnull /* At most alen parts are found, and pointers to their starts go into */
109 cbeb0b26 2006-04-01 devnull /* the strarr array, while their lengths go into the lenarr array. */
110 cbeb0b26 2006-04-01 devnull /* The return value is the number of parts found. */
112 7cf289ca 2004-04-06 devnull _splitall(Rune* s, int n, Rune* cl, Rune** strarr, int* lenarr, int alen)
115 7cf289ca 2004-04-06 devnull Rune* p;
116 7cf289ca 2004-04-06 devnull Rune* q;
117 7cf289ca 2004-04-06 devnull Rune* slast;
119 7cf289ca 2004-04-06 devnull if(s == nil || n == 0)
120 7cf289ca 2004-04-06 devnull return 0;
123 7cf289ca 2004-04-06 devnull slast = s+n;
124 7cf289ca 2004-04-06 devnull while(p < slast && i < alen) {
125 7cf289ca 2004-04-06 devnull while(p < slast && _inclass(*p, cl))
127 7cf289ca 2004-04-06 devnull if(p == slast)
129 7cf289ca 2004-04-06 devnull q = _Strnclass(p, cl, slast-p);
130 7cf289ca 2004-04-06 devnull if(q == nil)
131 7cf289ca 2004-04-06 devnull q = slast;
132 7cf289ca 2004-04-06 devnull assert(q > p && q <= slast);
133 7cf289ca 2004-04-06 devnull strarr[i] = p;
134 7cf289ca 2004-04-06 devnull lenarr[i] = q-p;
138 7cf289ca 2004-04-06 devnull return i;
141 cbeb0b26 2006-04-01 devnull /* Find part of s that excludes leading and trailing whitespace, */
142 cbeb0b26 2006-04-01 devnull /* and return that part in *pans (and its length in *panslen). */
144 7cf289ca 2004-04-06 devnull _trimwhite(Rune* s, int n, Rune** pans, int* panslen)
146 7cf289ca 2004-04-06 devnull Rune* p;
147 7cf289ca 2004-04-06 devnull Rune* q;
149 7cf289ca 2004-04-06 devnull p = nil;
150 7cf289ca 2004-04-06 devnull if(n > 0) {
151 7cf289ca 2004-04-06 devnull p = _Strnclass(s, notwhitespace, n);
152 7cf289ca 2004-04-06 devnull if(p != nil) {
153 7cf289ca 2004-04-06 devnull q = _Strnrclass(s, notwhitespace, n);
154 7cf289ca 2004-04-06 devnull assert(q != nil);
155 7cf289ca 2004-04-06 devnull n = q+1-p;
158 7cf289ca 2004-04-06 devnull *pans = p;
159 7cf289ca 2004-04-06 devnull *panslen = n;
162 cbeb0b26 2006-04-01 devnull /* _Strclass returns a pointer to the first element of s that is */
163 cbeb0b26 2006-04-01 devnull /* a member of class cl, nil if none. */
165 7cf289ca 2004-04-06 devnull _Strclass(Rune* s, Rune* cl)
167 7cf289ca 2004-04-06 devnull Rune* p;
169 7cf289ca 2004-04-06 devnull for(p = s; *p != 0; p++)
170 7cf289ca 2004-04-06 devnull if(_inclass(*p, cl))
171 7cf289ca 2004-04-06 devnull return p;
172 7cf289ca 2004-04-06 devnull return nil;
175 cbeb0b26 2006-04-01 devnull /* _Strnclass returns a pointer to the first element of s[0:n] that is */
176 cbeb0b26 2006-04-01 devnull /* a member of class cl, nil if none. */
178 7cf289ca 2004-04-06 devnull _Strnclass(Rune* s, Rune* cl, int n)
180 7cf289ca 2004-04-06 devnull Rune* p;
182 7cf289ca 2004-04-06 devnull for(p = s; n-- && *p != 0; p++)
183 7cf289ca 2004-04-06 devnull if(_inclass(*p, cl))
184 7cf289ca 2004-04-06 devnull return p;
185 7cf289ca 2004-04-06 devnull return nil;
188 cbeb0b26 2006-04-01 devnull /* _Strrclass returns a pointer to the last element of s that is */
189 cbeb0b26 2006-04-01 devnull /* a member of class cl, nil if none */
191 7cf289ca 2004-04-06 devnull _Strrclass(Rune* s, Rune* cl)
193 7cf289ca 2004-04-06 devnull Rune* p;
195 7cf289ca 2004-04-06 devnull if(s == nil || *s == 0)
196 7cf289ca 2004-04-06 devnull return nil;
197 7cf289ca 2004-04-06 devnull p = s + runestrlen(s) - 1;
198 7cf289ca 2004-04-06 devnull while(p >= s) {
199 7cf289ca 2004-04-06 devnull if(_inclass(*p, cl))
200 7cf289ca 2004-04-06 devnull return p;
203 7cf289ca 2004-04-06 devnull return nil;
206 cbeb0b26 2006-04-01 devnull /* _Strnrclass returns a pointer to the last element of s[0:n] that is */
207 cbeb0b26 2006-04-01 devnull /* a member of class cl, nil if none */
209 7cf289ca 2004-04-06 devnull _Strnrclass(Rune* s, Rune* cl, int n)
211 7cf289ca 2004-04-06 devnull Rune* p;
213 7cf289ca 2004-04-06 devnull if(s == nil || *s == 0 || n == 0)
214 7cf289ca 2004-04-06 devnull return nil;
215 7cf289ca 2004-04-06 devnull p = s + n - 1;
216 7cf289ca 2004-04-06 devnull while(p >= s) {
217 7cf289ca 2004-04-06 devnull if(_inclass(*p, cl))
218 7cf289ca 2004-04-06 devnull return p;
221 7cf289ca 2004-04-06 devnull return nil;
224 cbeb0b26 2006-04-01 devnull /* Is c in the class cl? */
226 7cf289ca 2004-04-06 devnull _inclass(Rune c, Rune* cl)
229 7cf289ca 2004-04-06 devnull int ans;
230 7cf289ca 2004-04-06 devnull int negate;
233 7cf289ca 2004-04-06 devnull n = _Strlen(cl);
234 7cf289ca 2004-04-06 devnull if(n == 0)
235 7cf289ca 2004-04-06 devnull return 0;
236 7cf289ca 2004-04-06 devnull ans = 0;
237 7cf289ca 2004-04-06 devnull negate = 0;
238 7cf289ca 2004-04-06 devnull if(cl[0] == '^') {
239 7cf289ca 2004-04-06 devnull negate = 1;
243 7cf289ca 2004-04-06 devnull for(i = 0; i < n; i++) {
244 7cf289ca 2004-04-06 devnull if(cl[i] == '-' && i > 0 && i < n - 1) {
245 7cf289ca 2004-04-06 devnull if(c >= cl[i - 1] && c <= cl[i + 1]) {
246 7cf289ca 2004-04-06 devnull ans = 1;
251 7cf289ca 2004-04-06 devnull else if(c == cl[i]) {
252 7cf289ca 2004-04-06 devnull ans = 1;
256 7cf289ca 2004-04-06 devnull if(negate)
257 7cf289ca 2004-04-06 devnull ans = !ans;
258 7cf289ca 2004-04-06 devnull return ans;
261 cbeb0b26 2006-04-01 devnull /* Is pre a prefix of s? */
263 7cf289ca 2004-04-06 devnull _prefix(Rune* pre, Rune* s)
269 7cf289ca 2004-04-06 devnull ns = _Strlen(s);
270 7cf289ca 2004-04-06 devnull n = _Strlen(pre);
271 7cf289ca 2004-04-06 devnull if(ns < n)
272 7cf289ca 2004-04-06 devnull return 0;
273 7cf289ca 2004-04-06 devnull for(k = 0; k < n; k++) {
274 7cf289ca 2004-04-06 devnull if(pre[k] != s[k])
275 7cf289ca 2004-04-06 devnull return 0;
277 7cf289ca 2004-04-06 devnull return 1;
280 cbeb0b26 2006-04-01 devnull /* Number of runes in (null-terminated) s */
282 7cf289ca 2004-04-06 devnull _Strlen(Rune* s)
284 7cf289ca 2004-04-06 devnull if(s == nil)
285 7cf289ca 2004-04-06 devnull return 0;
286 7cf289ca 2004-04-06 devnull return runestrlen(s);
289 cbeb0b26 2006-04-01 devnull /* -1, 0, 1 as s1 is lexicographically less, equal greater than s2 */
291 7cf289ca 2004-04-06 devnull _Strcmp(Rune *s1, Rune *s2)
293 7cf289ca 2004-04-06 devnull if(s1 == nil)
294 7cf289ca 2004-04-06 devnull return (s2 == nil || *s2 == 0) ? 0 : -1;
295 7cf289ca 2004-04-06 devnull if(s2 == nil)
296 7cf289ca 2004-04-06 devnull return (*s1 == 0) ? 0 : 1;
297 7cf289ca 2004-04-06 devnull return runestrcmp(s1, s2);
300 cbeb0b26 2006-04-01 devnull /* Like Strcmp, but use exactly n chars of s1 (assume s1 has at least n chars). */
301 cbeb0b26 2006-04-01 devnull /* Also, do a case-insensitive match, assuming s2 */
302 cbeb0b26 2006-04-01 devnull /* has no chars in [A-Z], only their lowercase versions. */
303 cbeb0b26 2006-04-01 devnull /* (This routine is used for in-place keyword lookup, where s2 is in a keyword */
304 cbeb0b26 2006-04-01 devnull /* list and s1 is some substring, possibly mixed-case, in a buffer.) */
306 7cf289ca 2004-04-06 devnull _Strncmpci(Rune *s1, int n1, Rune *s2)
308 7cf289ca 2004-04-06 devnull Rune c1, c2;
310 7cf289ca 2004-04-06 devnull for(;;) {
311 7cf289ca 2004-04-06 devnull if(n1-- == 0) {
312 7cf289ca 2004-04-06 devnull if(*s2 == 0)
313 7cf289ca 2004-04-06 devnull return 0;
314 7cf289ca 2004-04-06 devnull return -1;
316 7cf289ca 2004-04-06 devnull c1 = *s1++;
317 7cf289ca 2004-04-06 devnull c2 = *s2++;
318 7cf289ca 2004-04-06 devnull if(c1 >= 'A' && c1 <= 'Z')
319 7cf289ca 2004-04-06 devnull c1 = c1 - 'A' + 'a';
320 7cf289ca 2004-04-06 devnull if(c1 != c2) {
321 7cf289ca 2004-04-06 devnull if(c1 > c2)
322 7cf289ca 2004-04-06 devnull return 1;
323 7cf289ca 2004-04-06 devnull return -1;
328 cbeb0b26 2006-04-01 devnull /* emalloc and copy */
330 7cf289ca 2004-04-06 devnull _Strdup(Rune* s)
332 7cf289ca 2004-04-06 devnull if(s == nil)
333 7cf289ca 2004-04-06 devnull return nil;
334 7cf289ca 2004-04-06 devnull return _Strndup(s, runestrlen(s));
337 cbeb0b26 2006-04-01 devnull /* emalloc and copy n chars of s (assume s is at least that long), */
338 cbeb0b26 2006-04-01 devnull /* and add 0 terminator. */
339 cbeb0b26 2006-04-01 devnull /* Return nil if n==0. */
341 7cf289ca 2004-04-06 devnull _Strndup(Rune* s, int n)
343 7cf289ca 2004-04-06 devnull Rune* ans;
345 7cf289ca 2004-04-06 devnull if(n <= 0)
346 7cf289ca 2004-04-06 devnull return nil;
347 7cf289ca 2004-04-06 devnull ans = _newstr(n);
348 7cf289ca 2004-04-06 devnull memmove(ans, s, n*sizeof(Rune));
349 7cf289ca 2004-04-06 devnull ans[n] = 0;
350 7cf289ca 2004-04-06 devnull return ans;
352 cbeb0b26 2006-04-01 devnull /* emalloc enough room for n Runes, plus 1 null terminator. */
353 cbeb0b26 2006-04-01 devnull /* (Not initialized to anything.) */
355 7cf289ca 2004-04-06 devnull _newstr(int n)
357 7cf289ca 2004-04-06 devnull return (Rune*)emalloc((n+1)*sizeof(Rune));
360 cbeb0b26 2006-04-01 devnull /* emalloc and copy s+t */
362 7cf289ca 2004-04-06 devnull _Strdup2(Rune* s, Rune* t)
364 7cf289ca 2004-04-06 devnull int ns, nt;
365 7cf289ca 2004-04-06 devnull Rune* ans;
366 7cf289ca 2004-04-06 devnull Rune* p;
368 7cf289ca 2004-04-06 devnull ns = _Strlen(s);
369 7cf289ca 2004-04-06 devnull nt = _Strlen(t);
370 7cf289ca 2004-04-06 devnull if(ns+nt == 0)
371 7cf289ca 2004-04-06 devnull return nil;
372 7cf289ca 2004-04-06 devnull ans = _newstr(ns+nt);
373 7cf289ca 2004-04-06 devnull p = _Stradd(ans, s, ns);
374 7cf289ca 2004-04-06 devnull p = _Stradd(p, t, nt);
376 7cf289ca 2004-04-06 devnull return ans;
379 cbeb0b26 2006-04-01 devnull /* Return emalloc'd substring s[start:stop], */
381 7cf289ca 2004-04-06 devnull _Strsubstr(Rune* s, int start, int stop)
383 7cf289ca 2004-04-06 devnull Rune* t;
385 7cf289ca 2004-04-06 devnull if(start == stop)
386 7cf289ca 2004-04-06 devnull return nil;
387 7cf289ca 2004-04-06 devnull t = _Strndup(s+start, stop-start);
388 7cf289ca 2004-04-06 devnull return t;
391 cbeb0b26 2006-04-01 devnull /* Copy n chars to s1 from s2, and return s1+n */
393 7cf289ca 2004-04-06 devnull _Stradd(Rune* s1, Rune* s2, int n)
395 7cf289ca 2004-04-06 devnull if(n == 0)
396 7cf289ca 2004-04-06 devnull return s1;
397 7cf289ca 2004-04-06 devnull memmove(s1, s2, n*sizeof(Rune));
398 7cf289ca 2004-04-06 devnull return s1+n;
401 cbeb0b26 2006-04-01 devnull /* Like strtol, but converting from Rune* string */
403 cbeb0b26 2006-04-01 devnull /*#define LONG_MAX 2147483647L */
404 cbeb0b26 2006-04-01 devnull /*#define LONG_MIN -2147483648L */
407 7cf289ca 2004-04-06 devnull _Strtol(Rune* nptr, Rune** endptr, int base)
409 7cf289ca 2004-04-06 devnull Rune* p;
410 7cf289ca 2004-04-06 devnull long n, nn;
411 7cf289ca 2004-04-06 devnull int c, ovfl, v, neg, ndig;
413 7cf289ca 2004-04-06 devnull p = nptr;
414 7cf289ca 2004-04-06 devnull neg = 0;
416 7cf289ca 2004-04-06 devnull ndig = 0;
417 7cf289ca 2004-04-06 devnull ovfl = 0;
420 7cf289ca 2004-04-06 devnull * White space
422 7cf289ca 2004-04-06 devnull for(;;p++){
423 7cf289ca 2004-04-06 devnull switch(*p){
424 7cf289ca 2004-04-06 devnull case ' ':
425 7cf289ca 2004-04-06 devnull case '\t':
426 7cf289ca 2004-04-06 devnull case '\n':
427 7cf289ca 2004-04-06 devnull case '\f':
428 7cf289ca 2004-04-06 devnull case '\r':
429 7cf289ca 2004-04-06 devnull case '\v':
430 7cf289ca 2004-04-06 devnull continue;
438 7cf289ca 2004-04-06 devnull if(*p=='-' || *p=='+')
439 7cf289ca 2004-04-06 devnull if(*p++ == '-')
440 7cf289ca 2004-04-06 devnull neg = 1;
445 7cf289ca 2004-04-06 devnull if(base==0){
446 7cf289ca 2004-04-06 devnull if(*p != '0')
447 7cf289ca 2004-04-06 devnull base = 10;
449 7cf289ca 2004-04-06 devnull base = 8;
450 7cf289ca 2004-04-06 devnull if(p[1]=='x' || p[1]=='X'){
452 7cf289ca 2004-04-06 devnull base = 16;
455 7cf289ca 2004-04-06 devnull }else if(base==16 && *p=='0'){
456 7cf289ca 2004-04-06 devnull if(p[1]=='x' || p[1]=='X')
458 7cf289ca 2004-04-06 devnull }else if(base<0 || 36<base)
459 7cf289ca 2004-04-06 devnull goto Return;
462 7cf289ca 2004-04-06 devnull * Non-empty sequence of digits
464 7cf289ca 2004-04-06 devnull for(;; p++,ndig++){
466 7cf289ca 2004-04-06 devnull v = base;
467 7cf289ca 2004-04-06 devnull if('0'<=c && c<='9')
468 7cf289ca 2004-04-06 devnull v = c - '0';
469 7cf289ca 2004-04-06 devnull else if('a'<=c && c<='z')
470 7cf289ca 2004-04-06 devnull v = c - 'a' + 10;
471 7cf289ca 2004-04-06 devnull else if('A'<=c && c<='Z')
472 7cf289ca 2004-04-06 devnull v = c - 'A' + 10;
473 7cf289ca 2004-04-06 devnull if(v >= base)
475 7cf289ca 2004-04-06 devnull nn = n*base + v;
476 7cf289ca 2004-04-06 devnull if(nn < n)
477 7cf289ca 2004-04-06 devnull ovfl = 1;
482 7cf289ca 2004-04-06 devnull if(ndig == 0)
483 7cf289ca 2004-04-06 devnull p = nptr;
484 7cf289ca 2004-04-06 devnull if(endptr)
485 7cf289ca 2004-04-06 devnull *endptr = p;
486 7cf289ca 2004-04-06 devnull if(ovfl){
488 7cf289ca 2004-04-06 devnull return LONG_MIN;
489 7cf289ca 2004-04-06 devnull return LONG_MAX;
492 7cf289ca 2004-04-06 devnull return -n;
493 7cf289ca 2004-04-06 devnull return n;
496 cbeb0b26 2006-04-01 devnull /* Convert buf[0:n], bytes whose character set is chset, */
497 cbeb0b26 2006-04-01 devnull /* into a emalloc'd null-terminated Unicode string. */
499 7cf289ca 2004-04-06 devnull toStr(uchar* buf, int n, int chset)
503 7cf289ca 2004-04-06 devnull Rune ch;
504 7cf289ca 2004-04-06 devnull Rune* ans;
506 7cf289ca 2004-04-06 devnull switch(chset) {
507 7cf289ca 2004-04-06 devnull case US_Ascii:
508 7cf289ca 2004-04-06 devnull case ISO_8859_1:
509 7cf289ca 2004-04-06 devnull ans = (Rune*)emalloc((n+1)*sizeof(Rune));
510 7cf289ca 2004-04-06 devnull for(i = 0; i < n; i++)
511 7cf289ca 2004-04-06 devnull ans[i] = buf[i];
512 7cf289ca 2004-04-06 devnull ans[n] = 0;
515 7cf289ca 2004-04-06 devnull case UTF_8:
517 7cf289ca 2004-04-06 devnull for(i = 0; i < n; ) {
518 7cf289ca 2004-04-06 devnull i += chartorune(&ch, (char*)(buf+i));
521 7cf289ca 2004-04-06 devnull ans = (Rune*)emalloc((m+1)*sizeof(Rune));
523 7cf289ca 2004-04-06 devnull for(i = 0; i < n; ) {
524 7cf289ca 2004-04-06 devnull i += chartorune(&ch, (char*)(buf+i));
525 7cf289ca 2004-04-06 devnull ans[m++] = ch;
527 7cf289ca 2004-04-06 devnull ans[m] = 0;
530 7cf289ca 2004-04-06 devnull default:
531 7cf289ca 2004-04-06 devnull ans = nil;
532 7cf289ca 2004-04-06 devnull assert(0);
534 7cf289ca 2004-04-06 devnull return ans;
537 cbeb0b26 2006-04-01 devnull /* Convert buf[0:n], Unicode characters, */
538 cbeb0b26 2006-04-01 devnull /* into an emalloc'd null-terminated string in character set chset. */
539 cbeb0b26 2006-04-01 devnull /* Use 0x80 for unconvertable characters. */
541 7cf289ca 2004-04-06 devnull fromStr(Rune* buf, int n, int chset)
543 7cf289ca 2004-04-06 devnull uchar* ans;
544 7cf289ca 2004-04-06 devnull int i, lim, m;
545 7cf289ca 2004-04-06 devnull Rune ch;
546 7cf289ca 2004-04-06 devnull uchar* p;
547 7cf289ca 2004-04-06 devnull uchar s[UTFmax];
549 7cf289ca 2004-04-06 devnull ans = nil;
550 7cf289ca 2004-04-06 devnull switch(chset) {
551 7cf289ca 2004-04-06 devnull case US_Ascii:
552 7cf289ca 2004-04-06 devnull case ISO_8859_1:
553 7cf289ca 2004-04-06 devnull ans = (uchar*)emalloc(n+1);
554 7cf289ca 2004-04-06 devnull lim = (chset==US_Ascii)? 127 : 255;
555 7cf289ca 2004-04-06 devnull for(i = 0; i < n; i++) {
556 7cf289ca 2004-04-06 devnull ch = buf[i];
557 7cf289ca 2004-04-06 devnull if(ch > lim)
558 7cf289ca 2004-04-06 devnull ch = 0x80;
559 7cf289ca 2004-04-06 devnull ans[i] = ch;
561 7cf289ca 2004-04-06 devnull ans[n] = 0;
564 7cf289ca 2004-04-06 devnull case UTF_8:
566 7cf289ca 2004-04-06 devnull for(i = 0; i < n; i++) {
567 7cf289ca 2004-04-06 devnull m += runetochar((char*)s, &buf[i]);
569 7cf289ca 2004-04-06 devnull ans = (uchar*)emalloc(m+1);
570 7cf289ca 2004-04-06 devnull p = ans;
571 7cf289ca 2004-04-06 devnull for(i = 0; i < n; i++)
572 7cf289ca 2004-04-06 devnull p += runetochar((char*)p, &buf[i]);
576 7cf289ca 2004-04-06 devnull default:
577 7cf289ca 2004-04-06 devnull assert(0);
579 7cf289ca 2004-04-06 devnull return ans;
583 cbeb0b26 2006-04-01 devnull /* Convert n to emalloc'd String. */
585 7cf289ca 2004-04-06 devnull _ltoStr(int n)
588 7cf289ca 2004-04-06 devnull uchar buf[20];
590 7cf289ca 2004-04-06 devnull m = snprint((char*)buf, sizeof(buf), "%d", n);
591 7cf289ca 2004-04-06 devnull return toStr(buf, m, US_Ascii);
