test/primitives006/array.c · Idris-dev

git.iko.soy/Idris-dev

on 4162113 help sign in

Idris-dev/test/primitives006/array.c

62 lines 1.3 kB history raw

1#include "array.h"

2#include <string.h>

4int array_find(uint8_t byte, CData array, int ofs, int end)

6 void * data = array->data + ofs;

7 void * result = memchr(data, (int) byte, (size_t) (end - ofs));

8 if (result == NULL)

9 {

10 return -1;

11 }

12 else

13 {

14 return (result - data);

15 }

16}

18void array_realloc(int size, CData array)

19{

20 array->data = realloc(array->data, (size_t) size);

21}

23CData array_alloc(int size)

24{

25 return cdata_allocate((size_t) size, free);

26}

28uint8_t array_peek(int ofs, CData array)

29{

30 return ((uint8_t *) array->data)[ofs];

31}

33void array_poke(int ofs, uint8_t byte, CData array)

34{

35 ((uint8_t *) array->data)[ofs] = byte;

36}

38int array_peek_int(int ofs, CData array)

39{

40 return *((int *) (array->data + ofs));

41}

43void array_poke_int(int ofs, int val, CData array)

44{

45 *((int *) (array->data + ofs)) = val;

46}

48void array_copy(CData src, int src_ofs, CData dst, int dst_ofs, int count)

49{

50 // memmove rather than memcpy in case the areas overlap

51 memmove(dst->data + dst_ofs, src->data + src_ofs, count);

52}

54void array_fill(int ofs, int count, uint8_t byte, CData array)

55{

56 memset(array->data + ofs, byte, count);

57}

59int array_compare(CData l, int lofs, CData r, int rofs, int count)

60{

61 return memcmp(l->data + lofs, r->data + rofs, count);

62}