1 #include <u.h>
2 #include <libc.h>
3 #include <draw.h>
4 #include <thread.h>
5 #include <cursor.h>
6 #include <mouse.h>
7 #include <keyboard.h>
8 #include <frame.h>
9 #include <fcall.h>
10 #include "dat.h"
11 #include "fns.h"
12
13 void
cvttorunes(char * p,int n,Rune * r,int * nb,int * nr,int * nulls)14 cvttorunes(char *p, int n, Rune *r, int *nb, int *nr, int *nulls)
15 {
16 uchar *q;
17 Rune *s;
18 int j, w;
19
20 /*
21 * Always guaranteed that n bytes may be interpreted
22 * without worrying about partial runes. This may mean
23 * reading up to UTFmax-1 more bytes than n; the caller
24 * knows this. If n is a firm limit, the caller should
25 * set p[n] = 0.
26 */
27 q = (uchar*)p;
28 s = r;
29 for(j=0; j<n; j+=w){
30 if(*q < Runeself){
31 w = 1;
32 *s = *q++;
33 }else{
34 w = chartorune(s, (char*)q);
35 q += w;
36 }
37 if(*s)
38 s++;
39 else if(nulls)
40 *nulls = TRUE;
41 }
42 *nb = (char*)q-p;
43 *nr = s-r;
44 }
45
46 void
error(char * s)47 error(char *s)
48 {
49 fprint(2, "rio: %s: %r\n", s);
50 if(errorshouldabort)
51 abort();
52 threadexitsall("error");
53 }
54
55 void*
erealloc(void * p,uint n)56 erealloc(void *p, uint n)
57 {
58 p = realloc(p, n);
59 if(p == nil)
60 error("realloc failed");
61 return p;
62 }
63
64 void*
emalloc(uint n)65 emalloc(uint n)
66 {
67 void *p;
68
69 p = malloc(n);
70 if(p == nil)
71 error("malloc failed");
72 memset(p, 0, n);
73 return p;
74 }
75
76 char*
estrdup(char * s)77 estrdup(char *s)
78 {
79 char *p;
80
81 p = malloc(strlen(s)+1);
82 if(p == nil)
83 error("strdup failed");
84 strcpy(p, s);
85 return p;
86 }
87
88 int
isalnum(Rune c)89 isalnum(Rune c)
90 {
91 /*
92 * Hard to get absolutely right. Use what we know about ASCII
93 * and assume anything above the Latin control characters is
94 * potentially an alphanumeric.
95 */
96 if(c <= ' ')
97 return FALSE;
98 if(0x7F<=c && c<=0xA0)
99 return FALSE;
100 if(utfrune("!\"#$%&'()*+,-./:;<=>?@[\\]^`{|}~", c))
101 return FALSE;
102 return TRUE;
103 }
104
105 Rune*
strrune(Rune * s,Rune c)106 strrune(Rune *s, Rune c)
107 {
108 Rune c1;
109
110 if(c == 0) {
111 while(*s++)
112 ;
113 return s-1;
114 }
115
116 while(c1 = *s++)
117 if(c1 == c)
118 return s-1;
119 return nil;
120 }
121
122 int
min(int a,int b)123 min(int a, int b)
124 {
125 if(a < b)
126 return a;
127 return b;
128 }
129
130 int
max(int a,int b)131 max(int a, int b)
132 {
133 if(a > b)
134 return a;
135 return b;
136 }
137
138 char*
runetobyte(Rune * r,int n,int * ip)139 runetobyte(Rune *r, int n, int *ip)
140 {
141 char *s;
142 int m;
143
144 s = emalloc(n*UTFmax+1);
145 m = snprint(s, n*UTFmax+1, "%.*S", n, r);
146 *ip = m;
147 return s;
148 }
149
150