• Top
  • Documentation
  • Books
  • Boolean-reasoning
  • Projects
  • Debugging
  • Std
  • Proof-automation
  • Macro-libraries
  • ACL2
  • Interfacing-tools
    • Io
    • Defttag
    • Sys-call
    • Save-exec
    • Quicklisp
    • Std/io
    • Oslib
    • Bridge
    • Clex
      • Example-lexer
      • Sin
        • Strin-p
          • Strin
          • Make-strin
          • Strin-left
          • Change-strin
          • Strin-get-file
          • Strin-get-col
          • Strin-nthcdr
          • Strin-get-line
          • Strin-cdr
          • Strin-find
          • Honsed-strin
          • Make-honsed-strin
          • Strin-matches-p
          • Strin-imatches-p
          • Strin-firstn
          • Strin-count-charset
          • Empty-strin
          • Strin-nth
          • Strin-len
          • Strin-endp
          • Strin-car
          • Strin->chars
          • Strin->line
          • Strin->col
          • Strin->file
        • Sin$c
      • Matching-functions
      • Def-sin-progress
    • Tshell
    • Unsound-eval
    • Hacker
    • ACL2s-interface
    • Startup-banner
    • Command-line
  • Hardware-verification
  • Software-verification
  • Math
  • Testing-utilities

• Strin-p

Strin-find

Find the first occurrence of the string literal in the input stream, and return its position.

Signature

(strin-find lit x) → pos

Arguments

lit — Guard (stringp lit).

x — Guard (strin-p x).

Returns

pos — Starting index of the first match, or nil if there are no matches.

We just leave this enabled.

Definitions and Theorems

Function: strin-find

(defun strin-find (lit x)
  (declare (xargs :guard (and (stringp lit) (strin-p x))))
  (let ((__function__ 'strin-find))
    (declare (ignorable __function__))
    (listpos (coerce lit 'list)
             (strin-left x))))