Skip to content
New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Vcanumalla/add stp #2

Open
wants to merge 13 commits into
base: master
Choose a base branch
from
Open

Vcanumalla/add stp #2

Changes from 1 commit
Commits
Show all changes
13 commits
Select commit Hold shift + click to select a range
3e69e04
delete some random whitespace
vcanumalla Dec 7, 2023
7aeac35
end files in newline
vcanumalla Dec 7, 2023
507a9a7
fix added whitespace
vcanumalla Dec 7, 2023
1c531f3
fix workflows test
vcanumalla Dec 7, 2023
47450f0
fix path
vcanumalla Dec 7, 2023
eab0001
bin should be in right folder now
vcanumalla Dec 7, 2023
53fd00a
debugging for stp failure
vcanumalla Dec 7, 2023
3f01d86
some debugging info and output
vcanumalla Dec 7, 2023
3a7fc3c
is yices2 working
vcanumalla Dec 8, 2023
becbfab
Skip `ASSERT` lines during `check-sat` for STP
gussmith23 Dec 12, 2023
5d5cfae
Revert "Skip `ASSERT` lines during `check-sat` for STP"
gussmith23 Dec 12, 2023
f1ad290
don't need the -p flag
gussmith23 Dec 12, 2023
d269af9
Merge pull request #3 from gussmith23/vcanumalla/add-stp
vcanumalla Dec 12, 2023
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
Prev Previous commit
Next Next commit
Revert "Skip ASSERT lines during check-sat for STP" 
This reverts commit becbfab.
  • Loading branch information
@gussmith23
gussmith23 committed Dec 12, 2023
commit 5d5cfae067e036a270b6b8608eb91d513c923ad7
21 changes: 2 additions & 19 deletions rosette/solver/smt/stp.rkt
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -58,25 +58,8 @@
(define (solver-pop self [k 1])
(base/solver-pop self k))


(define (solver-check self)
(define (read-solution server env #:unsat-core? [unsat-core? #f])
;;; Ignore the ASSERT lines, if present.
(server-read server
; Peek at the first five characters, which should always be present. They'll either be "unsat" or
; "ASSER", the latter of which is the first five characters of "ASSERT".
(let loop ()
(if (and (not (equal? (peek-string 3 0) "sat"))
(not (equal? (peek-string 5 0) "unsat")))
(begin
(when (not (string-prefix? (read-line) "ASSERT"))
(error "Expected extra line to start with ASSERT"))
(loop))
(void))))
(base/read-solution server env #:unsat-core? unsat-core?))

(base/solver-check self read-solution)
)
(define (solver-check self)
(base/solver-check self))

(define (solver-debug self)
(base/solver-debug self))])
Expand Down