Dave Cross: Still Munging Data With Perl: Online event - Mar 27 Learn more

KIMOTO / SPVM-Sys-0.532 / lib / SPVM / Sys / Socket / AddrinfoLinkedList.c 

            

              
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
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92

              
// Copyright (c) 2023 Yuki Kimoto
// MIT License
// Windows 8.1+
#define _WIN32_WINNT 0x0603
#include "spvm_native.h"
#include <assert.h>
#if defined(_WIN32)
  #include <ws2tcpip.h>
  #include <winsock2.h>
  #include <io.h>
#else
#include <sys/types.h>
#include <sys/socket.h>
#include <netdb.h>
#endif
static const char* FILE_NAME = "Sys/Socket/AddrinfoLinkedList.c";
int32_t SPVM__Sys__Socket__AddrinfoLinkedList__DESTROY(SPVM_ENV* env, SPVM_VALUE* stack) {
   
  void* obj_addrinfo = stack[0].oval;
   
  struct addrinfo* st_addrinfo = env->get_pointer(env, stack, obj_addrinfo);
   
  if (st_addrinfo) {
    freeaddrinfo(st_addrinfo);
  }
   
  env->set_pointer(env, stack, obj_addrinfo, NULL);
   
  return 0;
}
int32_t SPVM__Sys__Socket__AddrinfoLinkedList__to_array(SPVM_ENV* env, SPVM_VALUE* stack) {
   
  int32_t error_id = 0;
   
  void* obj_addrinfo = stack[0].oval;
   
  struct addrinfo* st_addrinfo = env->get_pointer(env, stack, obj_addrinfo);
   
  int32_t length = 0;
  {
    struct addrinfo* cur_st_addrinfo = st_addrinfo;
    while (1) {
      if (cur_st_addrinfo) {
        length++;
        cur_st_addrinfo = cur_st_addrinfo->ai_next;
      }
      else {
        break;
      }
    }
  }
   
  void* obj_addrinfos = env->new_object_array_by_name(env, stack, "Sys::Socket::Addrinfo", length, &error_id, __func__, FILE_NAME, __LINE__);
  if (error_id) { return error_id; }
   
  int32_t index = 0;
  {
    struct addrinfo* cur_st_addrinfo = st_addrinfo;
    while (1) {
      if (cur_st_addrinfo) {
         
        int32_t fields_length = 1;
         
        struct addrinfo* tmp_st_addrinfo = NULL;
        tmp_st_addrinfo = env->new_memory_block(env, stack, sizeof(struct addrinfo));
        memcpy(tmp_st_addrinfo, cur_st_addrinfo, sizeof(struct addrinfo));
         
        void* obj_addrinfo = env->new_pointer_object_by_name(env, stack, "Sys::Socket::Addrinfo", tmp_st_addrinfo, &error_id, __func__, FILE_NAME, __LINE__);
        if (error_id) { return error_id; }
         
        env->set_elem_object(env, stack, obj_addrinfos, index, obj_addrinfo);
         
        index++;
        cur_st_addrinfo = cur_st_addrinfo->ai_next;
      }
      else {
        break;
      }
    }
  }
   
  stack[0].oval = obj_addrinfos;
   
  return 0;
}