dmd2/lstring.c

   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 }