comparison dmd/lstring.c @ 1:c53b6e3fe49a trunk

[svn r5] Initial commit. Most things are very rough.
author lindquist
date Sat, 01 Sep 2007 21:43:27 +0200
parents
children b30fe7e1dbb9
comparison
equal deleted inserted replaced
0:a9e71648e74d 1:c53b6e3fe49a
1 // lstring.c
2
3 // Copyright (c) 1999-2002 by Digital Mars
4 // All Rights Reserved
5 // written by Walter Bright
6 // www.digitalmars.com
7 // License for redistribution is by either the Artistic License
8 // in artistic.txt, or the GNU General Public License in gnu.txt.
9 // See the included readme.txt for details.
10
11 #include <stdlib.h>
12
13 #include "dchar.h"
14 #include "mem.h"
15 #include "lstring.h"
16
17 Lstring Lstring::zero = LSTRING_EMPTY();
18
19 Lstring *Lstring::ctor(const dchar *p, unsigned length)
20 {
21 Lstring *s;
22
23 s = alloc(length);
24 memcpy(s->string, p, length * sizeof(dchar));
25 return s;
26 }
27
28 Lstring *Lstring::alloc(unsigned length)
29 {
30 Lstring *s;
31
32 s = (Lstring *)mem.malloc(size(length));
33 s->length = length;
34 s->string[length] = 0;
35 return s;
36 }
37
38 Lstring *Lstring::append(const Lstring *s)
39 {
40 Lstring *t;
41
42 if (!s->length)
43 return this;
44 t = alloc(length + s->length);
45 memcpy(t->string, string, length * sizeof(dchar));
46 memcpy(t->string + length, s->string, s->length * sizeof(dchar));
47 return t;
48 }
49
50 Lstring *Lstring::substring(int start, int end)
51 {
52 Lstring *t;
53
54 if (start == end)
55 return &zero;
56 t = alloc(end - start);
57 memcpy(t->string, string + start, (end - start) * sizeof(dchar));
58 return t;
59 }