Lexes the bytes of
(tokenize-yul yul-string) → yul-lexemes
The returned trees are for rulenames
Function:
(defun tokenize-yul (yul-string) (declare (xargs :guard (stringp yul-string))) (let ((__function__ 'tokenize-yul)) (declare (ignorable __function__)) (b* (((mv erp lexeme-trees) (lexemeize-yul yul-string)) ((when erp) (reserrf "problem lexing yul-string")) (subtoken-trees (filter-and-reduce-lexeme-tree-to-subtoken-trees lexeme-trees)) ((when (reserrp subtoken-trees)) (reserrf "problem with structure of lexeme tree"))) subtoken-trees)))
Theorem:
(defthm tree-list-resultp-of-tokenize-yul (b* ((yul-lexemes (tokenize-yul yul-string))) (abnf::tree-list-resultp yul-lexemes)) :rule-classes :rewrite)