1 ed7c8e8d 2003-09-30 devnull #include "sam.h"
3 ed7c8e8d 2003-09-30 devnull #define MINSIZE 16 /* minimum number of chars allocated */
4 ed7c8e8d 2003-09-30 devnull #define MAXSIZE 256 /* maximum number of chars for an empty string */
8 ed7c8e8d 2003-09-30 devnull Strinit(String *p)
10 ed7c8e8d 2003-09-30 devnull p->s = emalloc(MINSIZE*RUNESIZE);
11 ed7c8e8d 2003-09-30 devnull p->n = 0;
12 ed7c8e8d 2003-09-30 devnull p->size = MINSIZE;
16 ed7c8e8d 2003-09-30 devnull Strinit0(String *p)
18 ed7c8e8d 2003-09-30 devnull p->s = emalloc(MINSIZE*RUNESIZE);
19 ed7c8e8d 2003-09-30 devnull p->s[0] = 0;
20 ed7c8e8d 2003-09-30 devnull p->n = 1;
21 ed7c8e8d 2003-09-30 devnull p->size = MINSIZE;
25 ed7c8e8d 2003-09-30 devnull Strclose(String *p)
27 ed7c8e8d 2003-09-30 devnull free(p->s);
31 ed7c8e8d 2003-09-30 devnull Strzero(String *p)
33 ed7c8e8d 2003-09-30 devnull if(p->size > MAXSIZE){
34 ed7c8e8d 2003-09-30 devnull p->s = erealloc(p->s, RUNESIZE*MAXSIZE); /* throw away the garbage */
35 ed7c8e8d 2003-09-30 devnull p->size = MAXSIZE;
37 ed7c8e8d 2003-09-30 devnull p->n = 0;
41 ed7c8e8d 2003-09-30 devnull Strlen(Rune *r)
45 ed7c8e8d 2003-09-30 devnull for(s=r; *s; s++)
47 ed7c8e8d 2003-09-30 devnull return s-r;
51 ed7c8e8d 2003-09-30 devnull Strdupl(String *p, Rune *s) /* copies the null */
53 ed7c8e8d 2003-09-30 devnull p->n = Strlen(s)+1;
54 ed7c8e8d 2003-09-30 devnull Strinsure(p, p->n);
55 ed7c8e8d 2003-09-30 devnull memmove(p->s, s, p->n*RUNESIZE);
59 ed7c8e8d 2003-09-30 devnull Strduplstr(String *p, String *q) /* will copy the null if there's one there */
61 ed7c8e8d 2003-09-30 devnull Strinsure(p, q->n);
62 ed7c8e8d 2003-09-30 devnull p->n = q->n;
63 ed7c8e8d 2003-09-30 devnull memmove(p->s, q->s, q->n*RUNESIZE);
67 ed7c8e8d 2003-09-30 devnull Straddc(String *p, int c)
69 ed7c8e8d 2003-09-30 devnull Strinsure(p, p->n+1);
70 ed7c8e8d 2003-09-30 devnull p->s[p->n++] = c;
74 ed7c8e8d 2003-09-30 devnull Strinsure(String *p, ulong n)
76 ed7c8e8d 2003-09-30 devnull if(n > STRSIZE)
77 ed7c8e8d 2003-09-30 devnull error(Etoolong);
78 ed7c8e8d 2003-09-30 devnull if(p->size < n){ /* p needs to grow */
79 ed7c8e8d 2003-09-30 devnull n += 100;
80 ed7c8e8d 2003-09-30 devnull p->s = erealloc(p->s, n*RUNESIZE);
81 ed7c8e8d 2003-09-30 devnull p->size = n;
86 ed7c8e8d 2003-09-30 devnull Strinsert(String *p, String *q, Posn p0)
88 ed7c8e8d 2003-09-30 devnull Strinsure(p, p->n+q->n);
89 ed7c8e8d 2003-09-30 devnull memmove(p->s+p0+q->n, p->s+p0, (p->n-p0)*RUNESIZE);
90 ed7c8e8d 2003-09-30 devnull memmove(p->s+p0, q->s, q->n*RUNESIZE);
91 ed7c8e8d 2003-09-30 devnull p->n += q->n;
95 ed7c8e8d 2003-09-30 devnull Strdelete(String *p, Posn p1, Posn p2)
97 ed7c8e8d 2003-09-30 devnull memmove(p->s+p1, p->s+p2, (p->n-p2)*RUNESIZE);
98 ed7c8e8d 2003-09-30 devnull p->n -= p2-p1;
102 ed7c8e8d 2003-09-30 devnull Strcmp(String *a, String *b)
104 ed7c8e8d 2003-09-30 devnull int i, c;
106 ed7c8e8d 2003-09-30 devnull for(i=0; i<a->n && i<b->n; i++)
107 ed7c8e8d 2003-09-30 devnull if(c = (a->s[i] - b->s[i])) /* assign = */
108 ed7c8e8d 2003-09-30 devnull return c;
109 ed7c8e8d 2003-09-30 devnull /* damn NULs confuse everything */
110 ed7c8e8d 2003-09-30 devnull i = a->n - b->n;
111 ed7c8e8d 2003-09-30 devnull if(i == 1){
112 ed7c8e8d 2003-09-30 devnull if(a->s[a->n-1] == 0)
113 ed7c8e8d 2003-09-30 devnull return 0;
114 ed7c8e8d 2003-09-30 devnull }else if(i == -1){
115 ed7c8e8d 2003-09-30 devnull if(b->s[b->n-1] == 0)
116 ed7c8e8d 2003-09-30 devnull return 0;
118 ed7c8e8d 2003-09-30 devnull return i;
122 ed7c8e8d 2003-09-30 devnull Strispre(String *a, String *b)
126 ed7c8e8d 2003-09-30 devnull for(i=0; i<a->n && i<b->n; i++){
127 ed7c8e8d 2003-09-30 devnull if(a->s[i] - b->s[i]){ /* assign = */
128 ed7c8e8d 2003-09-30 devnull if(a->s[i] == 0)
129 ed7c8e8d 2003-09-30 devnull return 1;
130 ed7c8e8d 2003-09-30 devnull return 0;
133 ed7c8e8d 2003-09-30 devnull return i == a->n;
137 ed7c8e8d 2003-09-30 devnull Strtoc(String *s)
140 ed7c8e8d 2003-09-30 devnull char *c, *d;
141 ed7c8e8d 2003-09-30 devnull Rune *r;
142 ed7c8e8d 2003-09-30 devnull c = emalloc(s->n*UTFmax + 1); /* worst case UTFmax bytes per rune, plus NUL */
144 ed7c8e8d 2003-09-30 devnull r = s->s;
145 ed7c8e8d 2003-09-30 devnull for(i=0; i<s->n; i++)
146 ed7c8e8d 2003-09-30 devnull d += runetochar(d, r++);
147 ed7c8e8d 2003-09-30 devnull if(d==c || d[-1]!=0)
149 ed7c8e8d 2003-09-30 devnull return c;
154 ed7c8e8d 2003-09-30 devnull * Build very temporary String from Rune*
157 ed7c8e8d 2003-09-30 devnull tmprstr(Rune *r, int n)
159 ed7c8e8d 2003-09-30 devnull static String p;
161 ed7c8e8d 2003-09-30 devnull p.s = r;
162 ed7c8e8d 2003-09-30 devnull p.n = n;
163 ed7c8e8d 2003-09-30 devnull p.size = n;
164 ed7c8e8d 2003-09-30 devnull return &p;
168 ed7c8e8d 2003-09-30 devnull * Convert null-terminated char* into String
171 ed7c8e8d 2003-09-30 devnull tmpcstr(char *s)
173 ed7c8e8d 2003-09-30 devnull String *p;
174 ed7c8e8d 2003-09-30 devnull Rune *r;
175 ed7c8e8d 2003-09-30 devnull int i, n;
177 ed7c8e8d 2003-09-30 devnull n = utflen(s); /* don't include NUL */
178 ed7c8e8d 2003-09-30 devnull p = emalloc(sizeof(String));
179 ed7c8e8d 2003-09-30 devnull r = emalloc(n*RUNESIZE);
180 ed7c8e8d 2003-09-30 devnull p->s = r;
181 ed7c8e8d 2003-09-30 devnull for(i=0; i<n; i++,r++)
182 ed7c8e8d 2003-09-30 devnull s += chartorune(r, s);
183 ed7c8e8d 2003-09-30 devnull p->n = n;
184 ed7c8e8d 2003-09-30 devnull p->size = n;
185 ed7c8e8d 2003-09-30 devnull return p;
189 ed7c8e8d 2003-09-30 devnull freetmpstr(String *s)
191 ed7c8e8d 2003-09-30 devnull free(s->s);
192 ed7c8e8d 2003-09-30 devnull free(s);