vmpp/strings.hpp

   1 INLINE CELL string_capacity(F_STRING *str)
   2 {
   3         return untag_fixnum_fast(str->length);
   4 }
   5
   6 INLINE CELL string_size(CELL size)
   7 {
   8         return sizeof(F_STRING) + size;
   9 }
  10
  11 #define BREF(byte_array,index) ((CELL)byte_array + sizeof(F_BYTE_ARRAY) + (index))
  12 #define SREF(string,index) ((CELL)string + sizeof(F_STRING) + (index))
  13
  14 DEFINE_UNTAG(F_STRING,STRING_TYPE,string)
  15
  16 F_STRING* allot_string_internal(CELL capacity);
  17 F_STRING* allot_string(CELL capacity, CELL fill);
  18 void primitive_string(void);
  19 F_STRING *reallot_string(F_STRING *string, CELL capacity);
  20 void primitive_resize_string(void);
  21
  22 F_STRING *memory_to_char_string(const char *string, CELL length);
  23 F_STRING *from_char_string(const char *c_string);
  24 DLLEXPORT void box_char_string(const char *c_string);
  25
  26 F_STRING *memory_to_u16_string(const u16 *string, CELL length);
  27 F_STRING *from_u16_string(const u16 *c_string);
  28 DLLEXPORT void box_u16_string(const u16 *c_string);
  29
  30 void char_string_to_memory(F_STRING *s, char *string);
  31 F_BYTE_ARRAY *string_to_char_alien(F_STRING *s, bool check);
  32 char* to_char_string(F_STRING *s, bool check);
  33 DLLEXPORT char *unbox_char_string(void);
  34
  35 void u16_string_to_memory(F_STRING *s, u16 *string);
  36 F_BYTE_ARRAY *string_to_u16_alien(F_STRING *s, bool check);
  37 u16* to_u16_string(F_STRING *s, bool check);
  38 DLLEXPORT u16 *unbox_u16_string(void);
  39
  40 /* String getters and setters */
  41 CELL string_nth(F_STRING* string, CELL index);
  42 void set_string_nth(F_STRING* string, CELL index, CELL value);
  43
  44 void primitive_string_nth(void);
  45 void primitive_set_string_nth_slow(void);
  46 void primitive_set_string_nth_fast(void);