mirror of
https://github.com/Mercury-Language/mercury.git
synced 2026-04-20 20:03:44 +00:00
15ef019bbf
Estimated hours taken: 0.1 Branches: main tests/debugger/interpreter.exp2: Remove a stray newline which was added in my last change.
43 lines
1.7 KiB
Plaintext
43 lines
1.7 KiB
Plaintext
1: 1 1 CALL pred interpreter:main/2-0 (det) interpreter.m:34
|
|
mdb> echo on
|
|
Command echo enabled.
|
|
mdb> context none
|
|
Contexts will not be printed.
|
|
mdb> register --quiet
|
|
mdb> 10 step
|
|
Pure Prolog Interpreter.
|
|
|
|
11: 6 3 CALL pred interpreter:consult/5-0 (det)
|
|
mdb> vars
|
|
1 HeadVar__1
|
|
2 HeadVar__2
|
|
3 HeadVar__4
|
|
mdb> print *
|
|
HeadVar__1 "interpreter.m"
|
|
HeadVar__2 []
|
|
HeadVar__4 state('<<c_pointer>>')
|
|
mdb> goto 30
|
|
Consulting file `interpreter.m'...
|
|
30: 14 6 EXIT pred interpreter:database_assert_clause/4-0 (det)
|
|
mdb> print *
|
|
HeadVar__1 []
|
|
HeadVar__2 varset(var_supply(0), empty, empty)
|
|
HeadVar__3 functor(atom(":-"), [|](functor(atom/1, [|]/2, context/2), []), context("interpreter.m", 22))
|
|
HeadVar__4 [|](clause(varset(var_supply/1, empty, empty), functor(atom/1, [|]/2, context/2), functor(atom/1, [], context/2)), [])
|
|
mdb> finish -a
|
|
This command is a no-op from this port.
|
|
mdb> print *
|
|
HeadVar__1 []
|
|
HeadVar__2 varset(var_supply(0), empty, empty)
|
|
HeadVar__3 functor(atom(":-"), [|](functor(atom/1, [|]/2, context/2), []), context("interpreter.m", 22))
|
|
HeadVar__4 [|](clause(varset(var_supply/1, empty, empty), functor(atom/1, [|]/2, context/2), functor(atom/1, [], context/2)), [])
|
|
mdb>
|
|
31: 16 6 CALL pred interpreter:consult_until_eof/4-0 (det)
|
|
mdb> finish -n
|
|
1009: 16 6 EXIT pred interpreter:consult_until_eof/4-0 (det)
|
|
mdb>
|
|
1010: 13 5 EXIT pred interpreter:consult_until_eof_2/5-0 (det)
|
|
mdb>
|
|
1011: 11 4 EXIT pred interpreter:consult_until_eof/4-0 (det)
|
|
mdb> continue
|
|
?- |