Lines Matching full:read

65 cc: read-blob-inner ( addr len -- addr len ) {
131 \ Read an INTEGER into the key_data buffer, but then ignore it.
132 : read-integer-ignore ( lim -- lim )
133 addr-len-key_data read-integer drop ;
135 \ Read an INTEGER into the key_data buffer, at the provided offset.
137 : read-integer-off ( lim off -- lim dlen )
138 dup addr-len-key_data rot - swap rot + swap read-integer ;
142 read-sequence-open
145 read-tag 0x02 check-tag-primitive read-small-int-value if
149 \ Read tag for the modulus; should be INTEGER. Then use the
151 read-tag 0x02 check-tag-primitive
158 \ read.
160 \ Modulus: we read it but we do not keep it; we merely gather
162 addr-len-key_data read-integer-next
166 \ Public exponent: read but skip.
167 read-integer-ignore
169 \ Private exponent: read but skip.
170 read-integer-ignore
173 addr-len-key_data read-integer dup dup { off plen }
176 read-integer-off dup { qlen } off + dup >off
179 read-integer-off dup { dplen } off + dup >off
182 read-integer-off dup { dqlen } off + dup >off
185 read-integer-off { iqlen }
197 read-sequence-open
200 read-tag 0x02 check-tag-primitive read-small-int-value 1- if
204 \ Read tag for the private key; should be OCTET STRING. Then use the
206 read-tag 0x04 check-tag-primitive
213 \ already been read. The curve ID is provided (0 if unknown).
217 \ Read the private key proper.
218 read-length-open-elt
220 addr-key_data read-blob
223 read-tag-or-end
231 check-constructed read-length-open-elt
232 read-curve-ID
258 \ structure have already been read. This function returns the key type.
261 read-length-open-elt
262 read-OID ifnot ERR_X509_UNSUPPORTED fail then
273 dup if read-curve-ID else 0 then >curve
281 read-tag 0x04 check-tag-primitive
282 read-length-open-elt
344 read-sequence-open
348 read-tag 0x02 check-tag-primitive read-small-int-value 1 > if
355 read-tag
370 \ Read one byte, then fail: if the read succeeds, then there is