source/kit/string_ref.h


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74

#ifndef KIT_STRING_REF_H
#define KIT_STRING_REF_H

#include "array_ref.h"

#include <string.h>

#ifdef __cplusplus
extern "C" {
#endif

typedef KIT_AR(char) kit_string_ref_t;

typedef kit_string_ref_t kit_str_t;

#ifdef __GNUC__
#  pragma GCC diagnostic push
#  pragma GCC diagnostic ignored "-Wunused-function"
#  pragma GCC diagnostic ignored "-Wunknown-pragmas"
#  pragma GCC            push_options
#  pragma GCC            optimize("O3")
#endif

static kit_str_t kit_str(ptrdiff_t size, char *static_string) {
  kit_str_t s = { .size = size, .values = static_string };
  return s;
}

/*  Make a barbarian string for C standard library functions.
 *  Not thread safe.
 *  Use with caution.
 */
static char *kit_make_bs(kit_str_t s) {
  static char buf[8][4096];
  static int  index = 0;
  ptrdiff_t   n     = s.size;
  if (n > 4095)
    n = 4095;
  memcpy(buf[index], s.values, n);
  buf[index][n] = '\0';
  char *result  = buf[index];
  index         = (index + 1) % 8;
  return result;
}

#ifdef __GNUC__
#  pragma GCC            pop_options
#  pragma GCC diagnostic pop
#endif

#define KIT_SZ(static_str_) \
  kit_str(sizeof(static_str_) - 1, (static_str_))

#define KIT_WRAP_BS(string_) kit_str(strlen(string_), (string_))

#define KIT_WRAP_STR(string_) \
  kit_str((string_).size, (string_).values)

#ifndef KIT_DISABLE_SHORT_NAMES
#  define BS(string_) kit_make_bs(KIT_WRAP_STR(string_))

#  define string_ref_t kit_string_ref_t
#  define str_t kit_str_t

#  define SZ KIT_SZ
#  define WRAP_BS KIT_WRAP_BS
#  define WRAP_STR KIT_WRAP_STR
#endif

#ifdef __cplusplus
}
#endif

#endif