compiler/arossupport/createbstr.c

   1 #include <dos/bptr.h>
   2 #include <proto/arossupport.h>
   3 #include <proto/exec.h>
   4
   5 #include <string.h>
   6
   7 BSTR CreateBSTR(CONST_STRPTR src)
   8 {
   9     STRPTR dst;
  10     ULONG len = strlen(src);
  11     ULONG size = AROS_BSTR_MEMSIZE4LEN(len);
  12
  13     dst = AllocVec(size, MEMF_ANY);
  14     if (!dst)
  15         return BNULL;
  16
  17 #ifdef AROS_FAST_BSTR
  18     CopyMem(src, dst, size);
  19 #else
  20     /* Our BSTR's are also NUL-terminated: len + 1 */
  21     CopyMem(src, dst + 1, len + 1);
  22     dst[0] = len;
  23 #endif
  24
  25     return MKBADDR(dst);
  26 }