FilesExpand file tree

 no_role

/

impl_string.c

Copy path

Blame

More file actions

Blame

More file actions

Latest commit

 

History

History

History

57 lines (47 loc) · 1.63 KB

 no_role

/

impl_string.c

Copy path

Top

File metadata and controls

• Code
• Blame

57 lines (47 loc) · 1.63 KB

Raw

Copy raw file

Download raw file

Open symbols panel

Edit and raw actions

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

#include "devs_internal.h"

value_t prop_String_length(devs_ctx_t *ctx, value_t self) {

int len = devs_string_length(ctx, self);

if (len < 0)

return devs_undefined;

return devs_value_from_int(len);

}

void meth1_String_charCodeAt(devs_ctx_t *ctx) {

int off = devs_string_index(ctx, devs_arg_self(ctx), devs_arg_int(ctx, 0));

if (off < 0)

devs_ret(ctx, devs_nan);

const char *data = devs_string_get_utf8(ctx, devs_arg_self(ctx), NULL);

devs_ret_int(ctx, devs_utf8_code_point(data + off));

}

void meth1_String_charAt(devs_ctx_t *ctx) {

devs_ret(ctx, devs_seq_get(ctx, devs_arg_self(ctx), devs_arg_int(ctx, 0)));

}

void meth2_String_slice(devs_ctx_t *ctx) {

int start = devs_arg_int(ctx, 0);

value_t endval = devs_arg(ctx, 1);

int endp = devs_is_undefined(endval) ? 0x7fffffff : devs_value_to_int(ctx, endval);

devs_ret(ctx, devs_string_slice(ctx, devs_arg_self(ctx), start, endp));

}

void funX_String_fromCharCode(devs_ctx_t *ctx) {

unsigned size = 0;

char buf[4];

int len = ctx->stack_top_for_gc - 1;

if (len == 0) {

devs_ret(ctx, devs_builtin_string(DEVS_BUILTIN_STRING__EMPTY));

return;

}

for (int i = 0; i < len; ++i) {

int ch = devs_arg_int(ctx, i);

size += devs_utf8_from_code_point(ch, buf);

}

value_t r;

char *d = devs_string_prep(ctx, &r, size, len);

if (d) {

unsigned off = 0;

for (int i = 0; i < len; ++i) {

int ch = devs_arg_int(ctx, i);

off += devs_utf8_from_code_point(ch, d + off);

}

devs_string_finish(ctx, &r, size, len);

}

devs_ret(ctx, r);

}