Lines Matching defs:parse
1 ;;; pgg-parse.el --- OpenPGP packet parsing
41 (defgroup pgg-parse ()
45 (defcustom pgg-parse-public-key-algorithm-alist
48 :group 'pgg-parse
52 (defcustom pgg-parse-symmetric-key-algorithm-alist
55 :group 'pgg-parse
59 (defcustom pgg-parse-hash-algorithm-alist
63 :group 'pgg-parse
67 (defcustom pgg-parse-compression-algorithm-alist
72 :group 'pgg-parse
76 (defcustom pgg-parse-signature-type-alist
91 :group 'pgg-parse
97 :group 'pgg-parse
119 (defmacro pgg-parse-time-field (bytes)
165 (define-ccl-program pgg-parse-crc24
181 (defun pgg-parse-crc24-string (string)
183 (ccl-execute-on-string pgg-parse-crc24 h string)
189 (defmacro pgg-parse-length-type (c)
206 (defun pgg-parse-packet-header ()
221 length-type (pgg-parse-length-type
227 (defun pgg-parse-packet (ptag)
230 (pgg-parse-public-key-encrypted-session-key-packet ptag))
232 (pgg-parse-signature-packet ptag))
234 (pgg-parse-symmetric-key-encrypted-session-key-packet ptag))
238 (pgg-parse-public-key-packet ptag))
254 (defun pgg-parse-packets (&optional header-parser body-parser)
257 (function pgg-parse-packet-header)))
260 (function pgg-parse-packet)))
274 (defun pgg-parse-signature-subpacket-header ()
275 (let ((length-type (pgg-parse-length-type (pgg-byte-after))))
280 (defun pgg-parse-signature-subpacket (ptag)
285 (pgg-parse-time-field bytes))))
289 (pgg-parse-time-field bytes))))
302 (pgg-parse-time-field bytes))))
307 pgg-parse-symmetric-key-algorithm-alist))))
327 pgg-parse-hash-algorithm-alist))))
331 pgg-parse-compression-algorithm-alist))))
347 (defun pgg-parse-signature-packet (ptag)
358 pgg-parse-signature-type-alist)))
361 (pgg-parse-time-field hashed-material))
375 pgg-parse-signature-type-alist)))
388 (pgg-parse-packets
389 #'pgg-parse-signature-subpacket-header
390 #'pgg-parse-signature-subpacket)))
399 (pgg-parse-packets
400 #'pgg-parse-signature-subpacket-header
401 #'pgg-parse-signature-subpacket)))))))
406 pgg-parse-public-key-algorithm-alist)))
410 pgg-parse-hash-algorithm-alist)))
413 (defun pgg-parse-public-key-encrypted-session-key-packet (ptag)
424 pgg-parse-public-key-algorithm-alist)))
427 (defun pgg-parse-symmetric-key-encrypted-session-key-packet (ptag)
435 pgg-parse-symmetric-key-algorithm-alist)))
438 (defun pgg-parse-public-key-packet (ptag)
447 (pgg-parse-time-field bytes)))
456 (pgg-parse-time-field bytes)))
463 pgg-parse-public-key-algorithm-alist)))
472 (or (not (fboundp 'pgg-parse-crc24-string))
474 (string-equal (base64-encode-string (pgg-parse-crc24-string
495 (pgg-parse-packets))))
497 (defun pgg-parse-armor (string)
510 (defun pgg-parse-armor-region (start end)
511 (pgg-parse-armor (pgg-string-as-unibyte (buffer-substring start end))))
513 (provide 'pgg-parse)
516 ;;; pgg-parse.el ends here