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
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
|
#include "abi.inc"
#include "defs.inc"
#define CBUF -72
#define CA_ROWS -72
#define CA_STATE -80
#define CA_NF -88
#define CA_FIELDS -344
#define CA_MAP -472
.text
FUNC cepis__csv_row
PROLOGUE 56
mov %rdi, %rbx
mov %rsi, %r14
mov %rdx, %r15
movl $0, (%r15)
mov (%rbx), %r12
cmpb $0, (%r12)
je .Lrow_eof
xor %r13d, %r13d
.Lfield:
cmpb $'"', (%r12)
je .Lquoted
mov %r12, %rax
.Lbare_scan:
movzbl (%rax), %ecx
test %cl, %cl
jz .Lbare_end
cmp $',', %cl
je .Lbare_end
cmp $10, %cl
je .Lbare_end
cmp $13, %cl
je .Lbare_end
inc %rax
jmp .Lbare_scan
.Lbare_end:
mov %rax, LOCAL0(%rbp)
mov %rax, %rsi
sub %r12, %rsi
mov %r12, %rdi
call cepis__strndup
test %rax, %rax
jz .Lrow_err
mov LOCAL0(%rbp), %r12
jmp .Lstore
.Lquoted:
movq $0, CBUF(%rbp)
movq $0, CBUF+8(%rbp)
movq $0, CBUF+16(%rbp)
inc %r12
.Lq_loop:
movzbl (%r12), %eax
test %al, %al
jz .Lq_done
cmp $'"', %al
je .Lq_quote
lea CBUF(%rbp), %rdi
movzbl (%r12), %esi
call cepis__buf_appendc
test %eax, %eax
jnz .Lq_err
inc %r12
jmp .Lq_loop
.Lq_quote:
cmpb $'"', 1(%r12)
jne .Lq_close
lea CBUF(%rbp), %rdi
mov $'"', %esi
call cepis__buf_appendc
test %eax, %eax
jnz .Lq_err
add $2, %r12
jmp .Lq_loop
.Lq_close:
inc %r12
.Lq_skip:
movzbl (%r12), %eax
test %al, %al
jz .Lq_done
cmp $',', %al
je .Lq_done
cmp $10, %al
je .Lq_done
cmp $13, %al
je .Lq_done
inc %r12
jmp .Lq_skip
.Lq_done:
cmpq $0, CBUF(%rbp)
jne .Lq_take
call cepis__empty
test %rax, %rax
jz .Lrow_err
jmp .Lstore
.Lq_take:
lea CBUF(%rbp), %rdi
call cepis__buf_take
.Lstore:
cmp $32, %r13
jae .Ldrop
mov %rax, (%r14, %r13, 8)
inc %r13
jmp .Lsep
.Ldrop:
mov %rax, %rdi
call free@PLT
.Lsep:
movzbl (%r12), %eax
cmp $',', %al
jne .Lrow_end
inc %r12
jmp .Lfield
.Lrow_end:
cmpb $13, (%r12)
jne .Lrow_nl
inc %r12
.Lrow_nl:
cmpb $10, (%r12)
jne .Lrow_fin
inc %r12
.Lrow_fin:
mov %r12, (%rbx)
mov %r13d, (%r15)
mov $1, %eax
EPILOGUE
ret
.Lrow_eof:
xor %eax, %eax
EPILOGUE
ret
.Lq_err:
lea CBUF(%rbp), %rdi
call cepis__buf_free
.Lrow_err:
xor %r12d, %r12d
.Lrow_err_loop:
cmp %r13, %r12
jae .Lrow_err_out
mov (%r14, %r12, 8), %rdi
call free@PLT
inc %r12
jmp .Lrow_err_loop
.Lrow_err_out:
movl $0, (%r15)
mov $-1, %eax
EPILOGUE
ret
ENDFUNC cepis__csv_row
FUNC cepis__csv_addresses
PROLOGUE 440
mov %rsi, %r14
mov %rdx, %r15
movq $0, (%r14)
movq $0, (%r15)
movq $0, CA_ROWS(%rbp)
movq $0, CA_ROWS+8(%rbp)
movq $0, CA_ROWS+16(%rbp)
cmpb $0xEF, (%rdi)
jne .Lca_nobom
cmpb $0xBB, 1(%rdi)
jne .Lca_nobom
cmpb $0xBF, 2(%rdi)
jne .Lca_nobom
add $3, %rdi
.Lca_nobom:
mov %rdi, CA_STATE(%rbp)
lea CA_STATE(%rbp), %rdi
lea CA_FIELDS(%rbp), %rsi
lea CA_NF(%rbp), %rdx
call cepis__csv_row
cmp $1, %eax
je .Lca_header
cmp $0, %eax
je .Lca_invalid
jmp .Lca_nomem
.Lca_header:
xor %r12d, %r12d
.Lca_hdr_loop:
movslq CA_NF(%rbp), %rax
cmp %rax, %r12
jae .Lca_rows
mov CA_FIELDS(%rbp, %r12, 8), %rdi
call cepis__addr_field_offset
lea CA_MAP(%rbp), %rcx
mov %eax, (%rcx, %r12, 4)
mov CA_FIELDS(%rbp, %r12, 8), %rdi
call free@PLT
inc %r12
jmp .Lca_hdr_loop
.Lca_rows:
lea CA_STATE(%rbp), %rdi
lea CA_FIELDS(%rbp), %rsi
lea CA_NF(%rbp), %rdx
call cepis__csv_row
cmp $1, %eax
je .Lca_row
cmp $0, %eax
je .Lca_done
jmp .Lca_nomem
.Lca_row:
cmpl $1, CA_NF(%rbp)
jne .Lca_build
mov CA_FIELDS(%rbp), %rdi
cmpb $0, (%rdi)
jne .Lca_build
call free@PLT
jmp .Lca_rows
.Lca_build:
call cepis__address_new
test %rax, %rax
jz .Lca_nomem_fields
mov %rax, %rbx
xor %r12d, %r12d
.Lca_assign:
movslq CA_NF(%rbp), %rax
cmp %rax, %r12
jae .Lca_check
lea CA_MAP(%rbp), %rcx
movslq (%rcx, %r12, 4), %r13
cmp $0, %r13
jl .Lca_assign_drop
mov %rbx, %rdi
mov %r13, %rsi
mov CA_FIELDS(%rbp, %r12, 8), %rdx
call cepis__addr_set
jmp .Lca_assign_next
.Lca_assign_drop:
mov CA_FIELDS(%rbp, %r12, 8), %rdi
call free@PLT
.Lca_assign_next:
inc %r12
jmp .Lca_assign
.Lca_check:
mov A_LOCALIDADE(%rbx), %rdi
cmpb $0, (%rdi)
jne .Lca_push
mov %rbx, %rdi
call cepis_address_free
xor %ebx, %ebx
.Lca_push:
mov %rbx, LOCAL0(%rbp)
lea CA_ROWS(%rbp), %rdi
lea LOCAL0(%rbp), %rsi
mov $8, %rdx
call cepis__buf_append
test %eax, %eax
jnz .Lca_nomem_row
jmp .Lca_rows
.Lca_done:
mov CA_ROWS+8(%rbp), %rax
shr $3, %rax
mov %rax, (%r15)
lea CA_ROWS(%rbp), %rdi
call cepis__buf_take
mov %rax, (%r14)
xor %eax, %eax
EPILOGUE
ret
.Lca_nomem_row:
mov %rbx, %rdi
call cepis_address_free
jmp .Lca_nomem
.Lca_nomem_fields:
xor %r12d, %r12d
.Lca_nmf_loop:
movslq CA_NF(%rbp), %rax
cmp %rax, %r12
jae .Lca_nomem
mov CA_FIELDS(%rbp, %r12, 8), %rdi
call free@PLT
inc %r12
jmp .Lca_nmf_loop
.Lca_nomem:
mov $CEPIS_ERR_NOMEM, %r13d
jmp .Lca_cleanup
.Lca_invalid:
mov $CEPIS_ERR_INVALID_RESPONSE, %r13d
.Lca_cleanup:
mov CA_ROWS(%rbp), %rdi
test %rdi, %rdi
jz .Lca_cleanup_done
mov CA_ROWS+8(%rbp), %rsi
shr $3, %rsi
call cepis_address_list_free
movq $0, CA_ROWS(%rbp)
.Lca_cleanup_done:
mov %r13d, %eax
EPILOGUE
ret
ENDFUNC cepis__csv_addresses
.section .note.GNU-stack,"",@progbits
|