KIMOTO / SPVM-0.9618_02 / lib / SPVM / ExchangeAPI.pm 

            

              
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
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
—
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209

              
package SPVM::ExchangeAPI;
use strict;
use warnings;
use Carp 'confess';
sub new_byte_array_from_string {
  my ($builder, $string) = @_;
   
  utf8::encode($string);
   
  return SPVM::ExchangeAPI::new_byte_array_from_bin($builder, $string);
}
sub new_object_array {
  my ($builder, $type_name, $elems) = @_;
   
  my $basic_type_name;
  my $type_dimension = 0;
  if ($type_name =~ /^([a-zA-Z_0-9:]+)((\[\])+)$/) {
    $basic_type_name = $1;
    my $type_dimension_part = $2;
     
    while ($type_dimension_part =~ /\[/g) {
      $type_dimension++;
    }
  }
   
  unless ($type_dimension >= 1 && $type_dimension <= 255) {
    confess "Invalid type dimension(first argument of SPVM::ExchangeAPI::new_object_array)";
  }
  unless (defined $basic_type_name) {
    confess "Invalid basic_type name(first argument of SPVM::ExchangeAPI::new_object_array)";
  }
   
  unless (defined $elems) {
    return undef;
  }
   
  # Check second argument
  unless (ref $elems eq 'ARRAY') {
    confess "Second argument of SPVM::new_object_array must be array reference";
  }
   
  if ($type_dimension == 1) {
    SPVM::ExchangeAPI::_new_object_array($builder, $basic_type_name, $elems);
  }
  else {
    SPVM::ExchangeAPI::_new_muldim_array($builder, $basic_type_name, $type_dimension - 1, $elems);
  }
}
sub new_mulnum_array {
  my ($builder, $type_name, $elems) = @_;
   
  my $basic_type_name;
  my $type_dimension = 0;
  if ($type_name =~ /^([a-zA-Z_0-9:]+)((\[\])+)$/) {
    $basic_type_name = $1;
    my $type_dimension_part = $2;
     
    while ($type_dimension_part =~ /\[/g) {
      $type_dimension++;
    }
  }
   
  unless ($type_dimension == 1) {
    confess "Invalid type dimension(first argument of SPVM::ExchangeAPI::new_mulnum_array)";
  }
  unless (defined $basic_type_name) {
    confess "Invalid basic_type name(first argument of SPVM::ExchangeAPI::new_mulnum_array)";
  }
  unless (defined $elems) {
    return undef;
  }
   
  # Check second argument
  unless (ref $elems eq 'ARRAY') {
    confess "Second argument of SPVM::new_mulnum_array must be array reference";
  }
   
  SPVM::ExchangeAPI::_new_mulnum_array($builder, $basic_type_name, $elems);
}
sub new_mulnum_array_from_bin {
  my ($builder, $type_name, $elems) = @_;
   
  my $basic_type_name;
  my $type_dimension = 0;
  if ($type_name =~ /^([a-zA-Z_0-9:]+)((\[\])+)$/) {
    $basic_type_name = $1;
    my $type_dimension_part = $2;
     
    while ($type_dimension_part =~ /\[/g) {
      $type_dimension++;
    }
  }
   
  unless ($type_dimension == 1) {
    confess "Invalid type dimension(first argument of SPVM::ExchangeAPI::new_mulnum_array_from_bin)";
  }
  unless (defined $basic_type_name) {
    confess "Invalid basic_type name(first argument of SPVM::ExchangeAPI::new_mulnum_array_from_bin)";
  }
  unless (defined $elems) {
    return undef;
  }
   
  SPVM::ExchangeAPI::_new_mulnum_array_from_bin($builder, $basic_type_name, $elems);
}
sub set_exception {
  my ($builder, $exception) = @_;
   
  if (defined $exception && !ref $exception) {
    $exception = SPVM::ExchangeAPI::new_string($builder, $exception);
  }
   
  _set_exception($builder, $exception);
}
# other functions is implemented in SPVM.xs
1;
=head1 Name
SPVM::ExchangeAPI - SPVM Exchange API
=head1 Functions
Function names is only listed.
See SPVM Exchange API about the details.
L<SPVM Exchange API|https://yuki-kimoto.github.io/spvmdoc-public/exchange-api.html>
=head2 new_byte_array
=head2 new_byte_array_unsigned
=head2 new_byte_array_len
=head2 new_byte_array_from_bin
=head2 new_byte_array_from_string
=head2 new_short_array
=head2 new_short_array_unsigned
=head2 new_short_array_len
=head2 new_short_array_from_bin
=head2 new_int_array
=head2 new_int_array_unsigned
=head2 new_int_array_len
=head2 new_int_array_from_bin
=head2 new_long_array
=head2 new_long_array_len
=head2 new_long_array_from_bin
=head2 new_double_array
=head2 new_double_array_len
=head2 new_double_array_from_bin
=head2 new_float_array
=head2 new_float_array_len
=head2 new_float_array_from_bin
=head2 new_object_array
=head2 new_string_array
=head2 new_mulnum_array
=head2 new_mulnum_array_from_bin
=head2 get_exception
=head2 set_exception
=head2 array_to_bin
=head2 array_to_elems
=head2 string_object_to_string
=head2 get_memory_blocks_count
=head2 call_spvm_method
=head2 new_string
=head2 new_string_from_bin