• Top
  • Documentation
  • Books
  • Boolean-reasoning
  • Projects
  • Debugging
  • Community
  • Std
  • Proof-automation
  • Macro-libraries
  • ACL2
  • Interfacing-tools
  • Hardware-verification
    • Gl
    • Esim
    • Vl2014
    • Sv
    • Fgl
    • Vwsim
    • Vl
      • Syntax
      • Loader
        • Preprocessor
        • Vl-loadconfig
        • Vl-loadstate
        • Lexer
          • Lex-strings
          • Lex-identifiers
          • Vl-typo-uppercase-p
          • Vl-typo-number-p
          • Vl-typo-lowercase-p
          • Lex-numbers
            • Vl-decimal-digit-p
            • Vl-z-digit-p
            • Vl-x-digit-p
            • Vl-underscore-or-octal-digit-p
            • Vl-underscore-or-hex-digit-p
            • Vl-underscore-or-decimal-digit-p
            • Vl-underscore-or-binary-digit-p
            • Vl-octal-digit-p
            • Vl-non-zero-decimal-digit-p
            • Vl-hex-digit-p
            • Vl-binary-digit-p
            • Vl-lex-integer
            • Vl-correct-bitlist
            • Vl-lex-time-or-real-number
            • Vl-read-decimal-value
            • Vl-lex-unbased-unsized-literal
            • Vl-lex-number
            • Vl-read-non-zero-unsigned-number
            • Vl-read-any-base
            • Vl-read-unsigned-number
            • Vl-read-time-unit
            • Vl-read-binary-value
            • Vl-read-real-tail
            • Vl-read-octal-value
            • Vl-read-hex-value
            • Vl-read-decimal-base
            • Vl-read-octal-base
            • Vl-read-hex-base
            • Vl-read-binary-base
            • Vl-hex-digits-to-bitlist
            • Vl-octal-digits-to-bitlist
            • Vl-decimal-digits-to-bitlist
            • Vl-binary-digits-to-bitlist
            • Vl-underscore-or-octal-digit-list-p
            • Vl-underscore-or-hex-digit-list-p
            • Vl-underscore-or-decimal-digit-list-p
            • Vl-underscore-or-binary-digit-list-p
            • Vl-non-zero-decimal-digit-list-p
            • Vl-decimal-digit-list-p
            • Vl-binary-digit-list-p
            • Vl-z-digit-list-p
            • Vl-x-digit-list-p
            • Vl-octal-digit-list-p
            • Vl-hex-digit-list-p
            • Vl-timeunit-lookup
          • Chartypes
          • Vl-lex
          • Defchar
          • Tokens
          • Lex-keywords
          • Lexstate
          • Make-test-tokens
          • Lexer-utils
          • Lex-comments
          • Vl-typo-uppercase-list-p
          • Vl-typo-lowercase-list-p
          • Vl-typo-number-list-p
        • Parser
        • Vl-load-merge-descriptions
        • Vl-find-basename/extension
        • Vl-load-file
        • Vl-loadresult
        • Scope-of-defines
        • Vl-find-file
        • Vl-flush-out-descriptions
        • Vl-description
        • Vl-read-file
        • Vl-includeskips-report-gather
        • Vl-load-main
        • Extended-characters
        • Vl-load
        • Vl-load-description
        • Vl-descriptions-left-to-load
        • Inject-warnings
        • Vl-preprocess-debug
        • Vl-write-preprocessor-debug-file
        • Vl-read-file-report-gather
        • Vl-load-descriptions
        • Vl-load-files
        • Translate-off
        • Vl-load-read-file-hook
        • Vl-read-file-report
        • Vl-loadstate-pad
        • Vl-load-summary
        • Vl-collect-modules-from-descriptions
        • Vl-loadstate->warnings
        • Vl-iskips-report
        • Vl-descriptionlist
      • Warnings
      • Getting-started
      • Utilities
      • Printer
      • Kit
      • Mlib
      • Transforms
    • X86isa
    • Svl
    • Rtl
  • Software-verification
  • Math
  • Testing-utilities

• Lex-numbers

Vl-hex-digits-to-bitlist

Converts MSB-first digits into an initial (not truncated, not extended) MSB-first vl-bitlist-p.

Signature

(vl-hex-digits-to-bitlist digits) → bits

Arguments

digits — Guard (character-listp digits).

Returns

bits — Type (vl-bitlist-p bits).

Definitions and Theorems

Function: vl-hex-digits-to-bitlist

(defun vl-hex-digits-to-bitlist (digits)
 (declare (xargs :guard (character-listp digits)))
 (let ((__function__ 'vl-hex-digits-to-bitlist))
  (declare (ignorable __function__))
  (if (atom digits)
      nil
   (append
    (case
         (car digits)
         (#\0 (list :vl-0val :vl-0val
                    :vl-0val :vl-0val))
         (#\1 (list :vl-0val :vl-0val
                    :vl-0val :vl-1val))
         (#\2 (list :vl-0val :vl-0val
                    :vl-1val :vl-0val))
         (#\3 (list :vl-0val :vl-0val
                    :vl-1val :vl-1val))
         (#\4 (list :vl-0val :vl-1val
                    :vl-0val :vl-0val))
         (#\5 (list :vl-0val :vl-1val
                    :vl-0val :vl-1val))
         (#\6 (list :vl-0val :vl-1val
                    :vl-1val :vl-0val))
         (#\7 (list :vl-0val :vl-1val
                    :vl-1val :vl-1val))
         (#\8 (list :vl-1val :vl-0val
                    :vl-0val :vl-0val))
         (#\9 (list :vl-1val :vl-0val
                    :vl-0val :vl-1val))
         ((#\A #\a)
          (list :vl-1val :vl-0val
                :vl-1val :vl-0val))
         ((#\B #\b)
          (list :vl-1val :vl-0val
                :vl-1val :vl-1val))
         ((#\C #\c)
          (list :vl-1val :vl-1val
                :vl-0val :vl-0val))
         ((#\D #\d)
          (list :vl-1val :vl-1val
                :vl-0val :vl-1val))
         ((#\E #\e)
          (list :vl-1val :vl-1val
                :vl-1val :vl-0val))
         ((#\F #\f)
          (list :vl-1val :vl-1val
                :vl-1val :vl-1val))
         ((#\x #\X)
          (list :vl-xval :vl-xval
                :vl-xval :vl-xval))
         ((#\z #\Z #\?)
          (list :vl-zval :vl-zval
                :vl-zval :vl-zval))
         (otherwise
              (progn$ (raise "Not a hex digit: ~x0.~%" (car digits))
                      (list :vl-0val :vl-0val
                            :vl-0val :vl-0val))))
    (vl-hex-digits-to-bitlist (cdr digits))))))

Theorem: vl-bitlist-p-of-vl-hex-digits-to-bitlist

(defthm vl-bitlist-p-of-vl-hex-digits-to-bitlist
  (b* ((bits (vl-hex-digits-to-bitlist digits)))
    (vl-bitlist-p bits))
  :rule-classes :rewrite)

Theorem: len-of-vl-hex-digits-to-bitlist

(defthm len-of-vl-hex-digits-to-bitlist
  (equal (len (vl-hex-digits-to-bitlist x))
         (* 4 (len x))))