• Top
  • Documentation
  • Books
  • Boolean-reasoning
  • Projects
  • Debugging
  • Community
  • Std
  • Proof-automation
  • Macro-libraries
  • ACL2
  • Interfacing-tools
  • Hardware-verification
  • Software-verification
    • Kestrel-books
      • Crypto-hdwallet
      • Apt
      • Error-checking
      • Fty-extensions
      • Isar
      • Kestrel-utilities
      • Set
      • C
        • Syntax-for-tools
          • Formalized-subset
          • Mapping-to-language-definition
          • Input-files
          • Compilation-database
          • Printer
          • Output-files
          • Abstract-syntax-operations
          • Implementation-environments
          • Abstract-syntax
          • Concrete-syntax
          • Disambiguation
          • Validation
          • Gcc-builtins
          • Preprocessing
          • Parsing
            • Parser
              • Parse-exprs/decls/stmts
              • Parser-states
              • Parse-external-declaration
              • Parse-cast-expression
              • Parse-expression-or-type-name
              • Parse-postfix-expression
              • Lexer
                • Check-full-ppnumber
                • Lex-lexeme
                • Lex-oct-iconst-/-dec-fconst
                • Lex-?-integer-suffix
                • Lex-hex-iconst/fconst
                • Lex-identifier/keyword
                • Lex-dec-iconst/fconst
                • Lex-block-comment
                • Lex-escape-sequence
                • Read-token
                • Lex-*-hexadecimal-digit
                • Lex-?-floating-suffix
                • Lex-*-c-char
                • Lex-*-s-char
                • Lex-prepr-directive
                • Lex-line-comment
                • Lex-*-digit
                • Lex-*-q-char
                • Lex-*-h-char
                • Lex-iconst/fconst
                • Lex-?-exponent-part
                • Lex-character-constant
                • Lexeme
                • Lex-string-literal
                • Lex-dec-fconst
                • Reread-to-token
                • Lex-non-octal-digit
                • Lex-hexadecimal-digit
                • Lex-header-name
                • Lex-binary-exponent-part
                • Lex-exponent-part
                • Lex-?-sign
                • Only-whitespace-backward-through-line
                • Lexeme-option
                • Lex-hex-quad
                • Unread-to-token
                • Read-stringlit
                • Unread-tokens
                • Read-identifier
                • Read-punctuator
                • Read-keyword
                • Unread-token
                • Irr-lexeme
              • Parse-primary-expression
              • Token-unary-expression-start-p
              • Parse-declaration-specifier
              • Parse-declaration-specifiers
              • Parse-unary-expression-or-parenthesized-type-name
              • Parse-asm-name-specifier
              • Parse-specifier/qualifier
              • Parse-expression-rest
              • Token-type-specifier-keyword-p
              • Parse-fileset
              • Parse-*-external-declaration
              • Parse-declarator-or-abstract-declarator
              • Parse-asm-goto-labels
              • Parse-asm-clobbers
              • Parse-translation-unit
              • Parse-*-label-declaration
              • Token-postfix-expression-rest-start-p
              • Parse-?-asm-name-specifier
              • Parse-*-comma-identifier
              • Parse-postfix-expression-rest
              • Parse-expression
              • Make-expr-unary-with-preinc/predec-ops
              • Parse-*-stringlit
              • Parse-statement
              • Token-struct-declaration-start-p
              • Parse-*-attribute-specifier
              • Parse-initializer-list
              • Parse-file
              • Parse-pointer
              • Parse-label-declaration
              • Parse-array/function-declarator
              • Token-type-qualifier-p
              • Parse-*-asm-qualifier
              • Parse-parameter-declaration
              • Parse-attribute-name
              • Parse-argument-expressions
              • Make-expr-cast/add-or-cast/sub-ambig
              • Parse-struct-or-union-specifier
              • Parse-declaration-or-statement
              • Parse-assignment-expression
              • Parse-asm-clobber
              • Token-specifier/qualifier-start-p
              • Token-primary-expression-start-p
              • Token-function-specifier-p
              • Token-expression-start-p
              • Parse-*-increment/decrement
              • Parse-direct-abstract-declarator
              • Parse-compound-statement
              • Token-to-type-specifier-keyword
              • Parse-unary-expression
              • Parse-argument-expressions-rest
              • Parse-generic-associations-rest
              • Parse-conditional-expression
              • Parse-fileset-loop
              • Parse-direct-abstract-declarator-rest
              • Token-designation?-initializer-start-p
              • Token-declaration-specifier-start-p
              • Parse-designator-list
              • Token-abstract-declarator-start-p
              • Parse-?-asm-output-operands
              • Parse-?-asm-input-operands
              • Parse-struct-declaration
              • Parse-specifier-qualifier-list
              • Parse-parameter-declaration-list
              • Parse-constant-expression
              • Token-type-specifier-start-p
              • Token-type-qualifier-or-attribute-specifier-start-p
              • Parse-static-assert-declaration
              • Parse-direct-declarator
              • Parse-declaration
              • Parse-attribute-parameters
              • Token-unary-operator-p
              • Token-to-unary-operator
              • Token-to-type-qualifier
              • Token-storage-class-specifier-p
              • Token-initializer-start-p
              • Token-direct-abstract-declarator-start-p
              • Token-declarator-start-p
              • Parse-initializer
              • Parse-direct-declarator-rest
              • Token-to-storage-class-specifier
              • Token-to-assignment-operator
              • Token-to-asm-qualifier
              • Token-struct-declarator-start-p
              • Token-direct-declarator-start-p
              • Token-assignment-operator-p
              • Parse-type-qualifier-and-attribute-specifier-list
              • Parse-enumerator-list
              • Parse-designation?-initializer
              • Parse-compound-literal
              • Parse-block-item
              • Token-type-name-start-p
              • Token-to-function-specifier
              • Token-preinc/predec-operator-p
              • Token-multiplicative-operator-p
              • Token-designator-start-p
              • Token-designation-start-p
              • Parse-generic-association
              • Parse-declaration-list
              • Parse-attribute-specifier
              • Parse-asm-output-operands
              • Token-to-relational-operator
              • Token-to-preinc/predec-operator
              • Token-to-multiplicative-operator
              • Token-relational-operator-p
              • Token-equality-operator-p
              • Token-asm-qualifier-p
              • Token-additive-operator-p
              • Parse-asm-statement
              • Parse-asm-input-operands
              • Token-to-equality-operator
              • Token-to-additive-operator
              • Token-shift-operator-p
              • Parser-messages
              • Parse-type-name
              • Parse-struct-declarator-list
              • Parse-struct-declaration-list
              • Parse-relational-expression-rest
              • Parse-multiplicative-expression-rest
              • Parse-logical-or-expression-rest
              • Parse-logical-and-expression-rest
              • Parse-inclusive-or-expression-rest
              • Parse-exclusive-or-expression-rest
              • Parse-equality-expression-rest
              • Parse-array/function-abstract-declarator
              • Parse-additive-expression-rest
              • Token-to-shift-operator
              • Parse-struct-declarator
              • Parse-shift-expression-rest
              • Parse-member-designor
              • Parse-init-declarator-list
              • Parse-init-declarator
              • Parse-designator
              • Parse-and-expression-rest
              • Parse-alignment-specifier
              • Reader
              • Parse-shift-expression
              • Parse-relational-expression
              • Parse-multiplicative-expression
              • Parse-logical-or-expression
              • Parse-logical-and-expression
              • Parse-inclusive-or-expression
              • Parse-exclusive-or-expression
              • Parse-equality-expression
              • Parse-enum-specifier
              • Parse-block-item-list
              • Parse-attribute-list
              • Parse-and-expression
              • Parse-additive-expression
              • Parse-abstract-declarator
              • Parse-member-designor-rest
              • Parse-declarator
              • Parse-attribute
              • Parse-type-qualifier-or-attribute-specifier
              • Parse-enumerator
              • Parse-asm-output-operand
              • Parse-asm-input-operand
        • Atc
        • Transformation-tools
        • Language
        • Representation
        • Insertion-sort
        • Pack
      • Soft
      • Bv
      • Imp-language
      • Ethereum
      • Event-macros
      • Java
      • Riscv
      • Bitcoin
      • Zcash
      • Yul
      • ACL2-programming-language
      • Prime-fields
      • Json
      • Syntheto
      • File-io-light
      • Cryptography
      • Number-theory
      • Axe
      • Lists-light
      • Builtins
      • Solidity
      • Helpers
      • Htclient
      • Typed-lists-light
      • Arithmetic-light
    • X86isa
    • Axe
    • Execloader
  • Math
  • Testing-utilities

• Lexer

Lex-?-floating-suffix

Lex a floating suffix, if present.

Signature

(lex-?-floating-suffix parstate) 
  → 
(mv erp fsuffix? last/next-pos new-parstate)

Arguments

parstate — Guard (parstatep parstate).

Returns

fsuffix? — Type (fsuffix-optionp fsuffix?).

last/next-pos — Type (positionp last/next-pos).

new-parstate — Type (parstatep new-parstate), given (parstatep parstate).

If a suffix is found, the last/next-pos output is the position of its last character. Otherwise, it is the position where the suffix would be.

If there is no next character, there is no suffix. Otherwise, there are four possibilities for suffixes. If the next character is not part of any suffix, we unread the character and return no suffix.

If GCC extensions are enabled, we allow the f or F suffix to be followed by <n> or <n>x, with <n> among 16, 32, 64, or 128.

Definitions and Theorems

Function: lex-?-floating-suffix

(defun lex-?-floating-suffix (parstate)
 (declare (xargs :stobjs (parstate)))
 (declare (xargs :guard (parstatep parstate)))
 (let ((__function__ 'lex-?-floating-suffix))
  (declare (ignorable __function__))
  (b* (((reterr) nil (irr-position) parstate)
       ((erp char pos parstate)
        (read-char parstate)))
   (cond
    ((not char) (retok nil pos parstate))
    ((utf8-= char (char-code #\f))
     (b* (((unless (parstate->gcc parstate))
           (retok (fsuffix-locase-f) pos parstate))
          ((erp digits digits-last-pos & parstate)
           (lex-*-digit pos parstate)))
      (cond
       (digits
        (b*
         ((n (str::dec-digit-chars-value digits))
          ((unless (member-equal n '(16 32 64 128)))
           (reterr-msg
            :where (position-to-msg pos)
            :expected
            "one of ~
                                       f16, f32, f64, f128, ~
                                       f16x, f32x, f64x, f128x"
            :found (msg "f~x0" n)))
          ((erp charx posx parstate)
           (read-char parstate)))
         (cond ((eql charx (char-code #\x))
                (b* ((fsuffix (case n
                                (16 (fsuffix-locase-f16 t))
                                (32 (fsuffix-locase-f32 t))
                                (64 (fsuffix-locase-f64 t))
                                (128 (fsuffix-locase-f128 t)))))
                  (retok fsuffix posx parstate)))
               (t (b* ((parstate (if charx (unread-char parstate)
                                   parstate))
                       (fsuffix (case n
                                  (16 (fsuffix-locase-f16 nil))
                                  (32 (fsuffix-locase-f32 nil))
                                  (64 (fsuffix-locase-f64 nil))
                                  (128 (fsuffix-locase-f128 nil)))))
                    (retok fsuffix digits-last-pos parstate))))))
       (t (retok (fsuffix-locase-f)
                 pos parstate)))))
    ((utf8-= char (char-code #\F))
     (b* (((unless (parstate->gcc parstate))
           (retok (fsuffix-upcase-f) pos parstate))
          ((erp digits digits-last-pos & parstate)
           (lex-*-digit pos parstate)))
      (cond
       (digits
        (b*
         ((n (str::dec-digit-chars-value digits))
          ((unless (member-equal n '(16 32 64 128)))
           (reterr-msg
            :where (position-to-msg pos)
            :expected
            "one of ~
                                       f16, f32, f64, f128, ~
                                       f16x, f32x, f64x, f128x"
            :found (msg "f~x0" n)))
          ((erp charx posx parstate)
           (read-char parstate)))
         (cond ((eql charx (char-code #\x))
                (b* ((fsuffix (case n
                                (16 (fsuffix-upcase-f16 t))
                                (32 (fsuffix-upcase-f32 t))
                                (64 (fsuffix-upcase-f64 t))
                                (128 (fsuffix-upcase-f128 t)))))
                  (retok fsuffix posx parstate)))
               (t (b* ((parstate (if charx (unread-char parstate)
                                   parstate))
                       (fsuffix (case n
                                  (16 (fsuffix-upcase-f16 nil))
                                  (32 (fsuffix-upcase-f32 nil))
                                  (64 (fsuffix-upcase-f64 nil))
                                  (128 (fsuffix-upcase-f128 nil)))))
                    (retok fsuffix digits-last-pos parstate))))))
       (t (retok (fsuffix-upcase-f)
                 pos parstate)))))
    ((utf8-= char (char-code #\l))
     (retok (fsuffix-locase-l) pos parstate))
    ((utf8-= char (char-code #\L))
     (retok (fsuffix-upcase-l) pos parstate))
    (t (b* ((parstate (unread-char parstate)))
         (retok nil pos parstate)))))))

Theorem: fsuffix-optionp-of-lex-?-floating-suffix.fsuffix?

(defthm fsuffix-optionp-of-lex-?-floating-suffix.fsuffix?
  (b* (((mv acl2::?erp
            ?fsuffix? ?last/next-pos ?new-parstate)
        (lex-?-floating-suffix parstate)))
    (fsuffix-optionp fsuffix?))
  :rule-classes :rewrite)

Theorem: positionp-of-lex-?-floating-suffix.last/next-pos

(defthm positionp-of-lex-?-floating-suffix.last/next-pos
  (b* (((mv acl2::?erp
            ?fsuffix? ?last/next-pos ?new-parstate)
        (lex-?-floating-suffix parstate)))
    (positionp last/next-pos))
  :rule-classes :rewrite)

Theorem: parstatep-of-lex-?-floating-suffix.new-parstate

(defthm parstatep-of-lex-?-floating-suffix.new-parstate
  (implies (parstatep parstate)
           (b* (((mv acl2::?erp
                     ?fsuffix? ?last/next-pos ?new-parstate)
                 (lex-?-floating-suffix parstate)))
             (parstatep new-parstate)))
  :rule-classes :rewrite)

Theorem: parsize-of-lex-?-floating-suffix-uncond

(defthm parsize-of-lex-?-floating-suffix-uncond
  (b* (((mv acl2::?erp
            ?fsuffix? ?last/next-pos ?new-parstate)
        (lex-?-floating-suffix parstate)))
    (<= (parsize new-parstate)
        (parsize parstate)))
  :rule-classes :linear)

Theorem: parsize-of-lex-?-floating-suffix-cond

(defthm parsize-of-lex-?-floating-suffix-cond
  (b* (((mv acl2::?erp
            ?fsuffix? ?last/next-pos ?new-parstate)
        (lex-?-floating-suffix parstate)))
    (implies (and (not erp) fsuffix?)
             (<= (parsize new-parstate)
                 (1- (parsize parstate)))))
  :rule-classes :linear)