• 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
      • Warnings
      • Getting-started
      • Utilities
      • Printer
      • Kit
        • Vl-lint
        • Vl-server
        • Vl-gather
        • Vl-zip
        • Vl-main
        • Split-plusargs
        • Vl-shell
        • Vl-json
          • Vl-json-opts-p
            • Parse-vl-json-opts
              • Parse-vl-json-opts-long
              • Parse-vl-json-opts-aux
              • Parse-vl-json-opts-bundle
              • Parse-vl-json-opts-short->long-list
              • Parse-vl-json-opts-short->long
            • Vl-json-opts
            • Make-vl-json-opts
            • Change-vl-json-opts
            • Honsed-vl-json-opts
            • Make-honsed-vl-json-opts
            • *vl-json-opts-usage*
            • Vl-json-opts->strict
            • Vl-json-opts->start-files
            • Vl-json-opts->search-path
            • Vl-json-opts->search-exts
            • Vl-json-opts->readme
            • Vl-json-opts->plusargs
            • Vl-json-opts->output
            • Vl-json-opts->mem
            • Vl-json-opts->include-dirs
            • Vl-json-opts->help
            • Vl-json-opts->edition
            • Vl-json-opts->defines
          • *vl-json-readme*
          • Vl-json-main
          • Vl-json-top
      • Mlib
      • Transforms
    • X86isa
    • Svl
    • Rtl
  • Software-verification
  • Math
  • Testing-utilities

• Parse-vl-json-opts

Parse-vl-json-opts-short->long

Signature

(parse-vl-json-opts-short->long getopt::alias) 
  → 
(mv getopt::errmsg? getopt::longname)

Arguments

getopt::alias — Guard (characterp getopt::alias).

Returns

getopt::longname — Type (stringp getopt::longname).

Definitions and Theorems

Function: parse-vl-json-opts-short->long

(defun parse-vl-json-opts-short->long (getopt::alias)
  (declare (xargs :guard (characterp getopt::alias)))
  (let ((__function__ 'parse-vl-json-opts-short->long))
    (declare (ignorable __function__))
    (b* ((getopt::look (assoc getopt::alias
                              '((#\h . "help")
                                (nil . "readme")
                                (#\o . "output")
                                (#\s . "search")
                                (#\I . "incdir")
                                (nil . "searchext")
                                (#\D . "define")
                                (nil . "edition")
                                (nil . "strict")
                                (#\m . "mem"))))
         ((when getopt::look)
          (mv nil (cdr getopt::look))))
      (mv (msg "Unrecognized option -~s0."
               (implode (list getopt::alias)))
          ""))))

Theorem: stringp-of-parse-vl-json-opts-short->long.longname

(defthm stringp-of-parse-vl-json-opts-short->long.longname
  (b* (((mv getopt::?errmsg? getopt::?longname)
        (parse-vl-json-opts-short->long getopt::alias)))
    (stringp getopt::longname))
  :rule-classes :type-prescription)