mercurylang/mercury
1
0
Fork 0
mirror of https://github.com/Mercury-Language/mercury.git synced 2026-04-16 18:03:36 +00:00
Code Issues Projects Releases Wiki Activity
Files
b357a3dadcdf29c8d8ca184d65f7634a1a94de36
mercury/tests/debugger/queens.exp
Zoltan Somogyi eeb69f14ba Use explicit streams in browser/*.m. 
browser/browse.m:
browser/browser_info.m:
browser/collect_lib.m:
browser/declarative_debugger.m:
browser/declarative_oracle.m:
browser/declarative_user.m:
browser/diff.m:
browser/help.m:
browser/interactive_query.m:
browser/parse.m:
browser/util.m:
    Replace implicit streams with explicit streams.

    Shorten lines longer than 79 chars.

    In some places, simplify some code, often using constructs such as
    string.format that either did not exist or were too expensive to use
    when the original code was written.

    In some places, change predicate names that were not meaningful
    without module qualification by *including* the module qualification
    in the name (e.g. init -> browser_info_init).

    In some places, add XXXs.

    In browser_info.m, make the output stream *part* of the debugger type,
    because without this, having the debugger type belong to the stream
    typeclass does NOT make sense. (The typeclass instance for debugger
    used to always write to the current output stream, which this diff
    is replacing with the use of explicitly specified streams.)

    In browse.m, consistently put stream arguments before other arguments.

    In browse.m, when exporting Mercury predicates to C, export them
    under names with the standard ML_BROWSE_ prefix, NOT under the name
    of a *different* predicate with that prefix.

    In diff.m, eliminate an unnecessary difference between what we print
    when the difference between two terms is at the root, vs what we print
    when the difference between two terms is lower down.

    In interactive_query.m, when trying to write a program out to a file,
    do NOT write the program to the current output stream if we cannot open
    the file, since that would accomplish nothing useful.

    Also in interactive_query.m, cleanup .dylib instead of .so on MacOS.

    In util.m, delete some unused predicates.

    In collect_lib.m, document why some code is not worth updating.

    In declarative_oracle.m, rename predicates with previously-ambiguous
    names.

browser/MDBFLAGS.in:
    Specify --warn-implicit-stream-calls for all Mercury modules
    in the browser directory from now.

trace/mercury_trace_browse.c:
trace/mercury_trace_cmd_browsing.c:
ssdb/ssdb.m:
    Conform to the changes in browser/*.m.

tests/debugger/queens.{exp,exp2}:
    Expect the extra output from browser/diff.m.
2021-03-05 22:54:28 +11:00

425 lines
16 KiB
Plaintext
Raw Blame History

E1: C1 CALL pred queens.main/2-0 (cc_multi) queens.m:23
mdb> echo on
Command echo enabled.
mdb> register --quiet
mdb> retry 1
not that many ancestors
mdb> print *
mdb: there are no live variables.
mdb> b data
0: + stop interface pred queens.data/1-0 (det)
mdb> continue
E2: C2 CALL pred queens.data/1-0 (det) queens.m:32 (queens.m:24)
mdb> delete 0
0: E stop interface pred queens.data/1-0 (det)
mdb> print *
mdb: there are no live variables.
mdb>
E3: C2 EXIT pred queens.data/1-0 (det) queens.m:32 (queens.m:24)
mdb> print *
HeadVar__1 [1, 2, 3, 4, 5]
mdb>
E4: C3 CALL pred queens.queen/2-0 (nondet) queens.m:36 (queens.m:24)
mdb> print *
Data (arg 1) [1, 2, 3, 4, 5]
mdb>
E5: C4 CALL pred queens.qperm/2-0 (nondet) queens.m:42 (queens.m:37)
mdb> print *
HeadVar__1 [1, 2, 3, 4, 5]
mdb> print_optionals on
mdb> print *
HeadVar__1 [1, 2, 3, 4, 5]
TypeInfo_for_T int
mdb> print_optionals off
mdb> print *
HeadVar__1 [1, 2, 3, 4, 5]
mdb>
E6: C4 SWTC pred queens.qperm/2-0 (nondet) s2-2; queens.m:43
mdb> print *
HeadVar__1 [1, 2, 3, 4, 5]
mdb>
E7: C5 CALL pred queens.qdelete/3-0 (nondet) queens.m:50 (queens.m:44)
mdb> print *
HeadVar__2 [1, 2, 3, 4, 5]
mdb>
E8: C5 DISJ pred queens.qdelete/3-0 (nondet) c2;d1; queens.m:50
mdb> print *
HeadVar__2 [1, 2, 3, 4, 5]
mdb> level 1
Ancestor level set to 1:
1 pred queens.qperm/2-0 (nondet) queens.m:44
mdb> level -d 1
Ancestor level set to 1:
1 E5 C4 3 pred queens.qperm/2-0 (nondet) queens.m:44
mdb> context nextline
Contexts will be printed on the next line.
mdb> level 1
Ancestor level set to 1:
1 pred queens.qperm/2-0 (nondet)
queens.m:44
mdb> level -d 1
Ancestor level set to 1:
1 E5 C4 3 pred queens.qperm/2-0 (nondet)
queens.m:44
mdb> context prevline
Contexts will be printed on the previous line.
mdb> level 1
Ancestor level set to 1:
1 queens.m:44
pred queens.qperm/2-0 (nondet)
mdb> level -d 1
Ancestor level set to 1:
1 E5 C4 3 queens.m:44
pred queens.qperm/2-0 (nondet)
mdb> print *
HeadVar__1 [1, 2, 3, 4, 5]
L [1, 2, 3, 4, 5]
mdb> up 1
Ancestor level set to 2:
2 queens.m:37
pred queens.queen/2-0 (nondet)
mdb> vars
1 Data (arg 1)
mdb> print *
Data (arg 1) [1, 2, 3, 4, 5]
mdb>
E9: C5 EXIT queens.m:50 (from queens.m:44)
pred queens.qdelete/3-0 (nondet)
mdb> print HeadVar__1
HeadVar__1 1
mdb> print HeadVar__2
HeadVar__2 [1, 2, 3, 4, 5]
mdb> print HeadVar__3
HeadVar__3 [2, 3, 4, 5]
mdb> hold HeadVar__2^1 x
mdb> hold HeadVar__2^2 y
mdb> hold HeadVar__2 y
mdb: there is already a held variable $y
mdb> hold HeadVar__2 z
mdb> held_vars
$x
$y
$z
mdb> print $x
x 1
mdb> print $y
y [2, 3, 4, 5]
mdb> print $z
z [1, 2, 3, 4, 5]
mdb> diff $x $y
The two values are of different types.
mdb> diff $y $z
There are 5 diffs, showing diffs 1-5:
1: mismatch at 1: 2/0 vs 1/0
2: mismatch at 2/1: 3/0 vs 2/0
3: mismatch at 2/2/1: 4/0 vs 3/0
4: mismatch at 2/2/2/1: 5/0 vs 4/0
5: mismatch at 2/2/2/2: []/0 vs [|]/2
mdb> diff -m 2 $y $z
There are 5 diffs, showing diffs 1-2:
1: mismatch at 1: 2/0 vs 1/0
2: mismatch at 2/1: 3/0 vs 2/0
mdb> diff -s 2 -m 2 $y $z
There are 5 diffs, showing diffs 3-4:
3: mismatch at 2/2/1: 4/0 vs 3/0
4: mismatch at 2/2/2/1: 5/0 vs 4/0
mdb> diff -s 4 -m 2 $y $z
There are 5 diffs, showing diff 5:
5: mismatch at 2/2/2/2: []/0 vs [|]/2
mdb> diff $y $z^2
There are no diffs.
mdb>
E10: C6 CALL queens.m:42 (from queens.m:46)
pred queens.qperm/2-0 (nondet)
mdb> print *
HeadVar__1 [2, 3, 4, 5]
mdb>
E11: C6 SWTC queens.m:43
pred queens.qperm/2-0 (nondet) s2-2;
mdb> print *
HeadVar__1 [2, 3, 4, 5]
mdb>
E12: C7 CALL queens.m:50 (from queens.m:44)
pred queens.qdelete/3-0 (nondet)
mdb> print *
HeadVar__2 [2, 3, 4, 5]
mdb>
E13: C7 DISJ queens.m:50
pred queens.qdelete/3-0 (nondet) c2;d1;
mdb> print *
HeadVar__2 [2, 3, 4, 5]
mdb>
E14: C7 EXIT queens.m:50 (from queens.m:44)
pred queens.qdelete/3-0 (nondet)
mdb> print *
HeadVar__1 2
HeadVar__2 [2, 3, 4, 5]
HeadVar__3 [3, 4, 5]
mdb>
E15: C8 CALL queens.m:42 (from queens.m:46)
pred queens.qperm/2-0 (nondet)
mdb> goto -a 21
E16: C8 SWTC queens.m:43
pred queens.qperm/2-0 (nondet) s2-2;
E17: C9 CALL queens.m:50 (from queens.m:44)
pred queens.qdelete/3-0 (nondet)
E18: C9 DISJ queens.m:50
pred queens.qdelete/3-0 (nondet) c2;d1;
E19: C9 EXIT queens.m:50 (from queens.m:44)
pred queens.qdelete/3-0 (nondet)
E20: C10 CALL queens.m:42 (from queens.m:46)
pred queens.qperm/2-0 (nondet)
mdb> stack
0 4* pred queens.qperm/2-0 (nondet) (queens.m:42 and others)
4 pred queens.queen/2-0 (nondet) (queens.m:37)
5 pred queens.main/2-0 (cc_multi) (queens.m:24)
mdb> stack -d
0 E20 C10 6 pred queens.qperm/2-0 (nondet) (queens.m:42) (empty)
1 E15 C8 5 pred queens.qperm/2-0 (nondet) (queens.m:46) s2-2;c3;
2 E10 C6 4 pred queens.qperm/2-0 (nondet) (queens.m:46) s2-2;c3;
3 E5 C4 3 pred queens.qperm/2-0 (nondet) (queens.m:46) s2-2;c3;
4 E4 C3 2 pred queens.queen/2-0 (nondet) (queens.m:37) c2;
5 E1 C1 1 pred queens.main/2-0 (cc_multi) (queens.m:24) ?;c2;q!;
mdb> stack 3
0 4* pred queens.qperm/2-0 (nondet) (queens.m:42 and others)
4 pred queens.queen/2-0 (nondet) (queens.m:37)
5 pred queens.main/2-0 (cc_multi) (queens.m:24)
mdb> stack -d 3
0 E20 C10 6 pred queens.qperm/2-0 (nondet) (queens.m:42) (empty)
1 E15 C8 5 pred queens.qperm/2-0 (nondet) (queens.m:46) s2-2;c3;
2 E10 C6 4 pred queens.qperm/2-0 (nondet) (queens.m:46) s2-2;c3;
<more stack frames snipped>
mdb> print *
HeadVar__1 [4, 5]
mdb>
E21: C10 SWTC queens.m:43
pred queens.qperm/2-0 (nondet) s2-2;
mdb> retry
E20: C10 CALL queens.m:42 (from queens.m:46)
pred queens.qperm/2-0 (nondet)
mdb> print *
HeadVar__1 [4, 5]
mdb> finish -a
E21: C10 SWTC queens.m:43
pred queens.qperm/2-0 (nondet) s2-2;
E22: C11 CALL queens.m:50 (from queens.m:44)
pred queens.qdelete/3-0 (nondet)
E23: C11 DISJ queens.m:50
pred queens.qdelete/3-0 (nondet) c2;d1;
E24: C11 EXIT queens.m:50 (from queens.m:44)
pred queens.qdelete/3-0 (nondet)
E25: C12 CALL queens.m:42 (from queens.m:46)
pred queens.qperm/2-0 (nondet)
E26: C12 SWTC queens.m:43
pred queens.qperm/2-0 (nondet) s2-2;
E27: C13 CALL queens.m:50 (from queens.m:44)
pred queens.qdelete/3-0 (nondet)
E28: C13 DISJ queens.m:50
pred queens.qdelete/3-0 (nondet) c2;d1;
E29: C13 EXIT queens.m:50 (from queens.m:44)
pred queens.qdelete/3-0 (nondet)
E30: C14 CALL queens.m:42 (from queens.m:46)
pred queens.qperm/2-0 (nondet)
E31: C14 SWTC queens.m:42
pred queens.qperm/2-0 (nondet) s1-2;
E32: C14 EXIT queens.m:42 (from queens.m:46)
pred queens.qperm/2-0 (nondet)
E33: C12 EXIT queens.m:42 (from queens.m:46)
pred queens.qperm/2-0 (nondet)
E34: C10 EXIT queens.m:42 (from queens.m:46)
pred queens.qperm/2-0 (nondet)
mdb> register --quiet
mdb> break print_list
0: + stop interface pred queens.print_list/3-0 (det)
mdb> break qdelete
1: + stop interface pred queens.qdelete/3-0 (nondet)
mdb> break_print HeadVar__2^2
1: + stop interface pred queens.qdelete/3-0 (nondet)
HeadVar__2^2 (flat)
mdb> continue -a
E35: C8 EXIT queens.m:42 (from queens.m:46)
pred queens.qperm/2-0 (nondet)
E36: C6 EXIT queens.m:42 (from queens.m:46)
pred queens.qperm/2-0 (nondet)
E37: C4 EXIT queens.m:42 (from queens.m:37)
pred queens.qperm/2-0 (nondet)
E38: C15 CALL queens.m:56 (from queens.m:38)
pred queens.safe/1-0 (semidet)
E39: C15 SWTC queens.m:57
pred queens.safe/1-0 (semidet) s2-2;
E40: C16 CALL queens.m:63 (from queens.m:58)
pred queens.nodiag/3-0 (semidet)
E41: C16 SWTC queens.m:64
pred queens.nodiag/3-0 (semidet) s2-2;
E42: C16 COND queens.m:67
pred queens.nodiag/3-0 (semidet) s2-2;c4;?;
E43: C16 THEN queens.m:68
pred queens.nodiag/3-0 (semidet) s2-2;c4;t;
E44: C16 FAIL queens.m:63 (from queens.m:58)
pred queens.nodiag/3-0 (semidet)
E45: C15 FAIL queens.m:56 (from queens.m:38)
pred queens.safe/1-0 (semidet)
E46: C4 REDO queens.m:42 (from queens.m:37)
pred queens.qperm/2-0 (nondet)
E47: C6 REDO queens.m:42 (from queens.m:46)
pred queens.qperm/2-0 (nondet)
E48: C8 REDO queens.m:42 (from queens.m:46)
pred queens.qperm/2-0 (nondet)
E49: C10 REDO queens.m:42 (from queens.m:46)
pred queens.qperm/2-0 (nondet)
E50: C12 REDO queens.m:42 (from queens.m:46)
pred queens.qperm/2-0 (nondet)
E51: C14 REDO queens.m:42 (from queens.m:46)
pred queens.qperm/2-0 (nondet)
E52: C14 FAIL queens.m:42 (from queens.m:46)
pred queens.qperm/2-0 (nondet)
E53: C13 REDO queens.m:50 (from queens.m:44)
pred queens.qdelete/3-0 (nondet)
HeadVar__2^2 []
mdb> break info
0: + stop interface pred queens.print_list/3-0 (det)
1: + stop interface pred queens.qdelete/3-0 (nondet)
HeadVar__2^2 (flat)
mdb> enable *
0: + stop interface pred queens.print_list/3-0 (det)
1: + stop interface pred queens.qdelete/3-0 (nondet)
mdb> step -aS 5
E54: C13 DISJ queens.m:51
pred queens.qdelete/3-0 (nondet) c2;d2;
E55: C17 CALL queens.m:50 (from queens.m:52)
pred queens.qdelete/3-0 (nondet)
mdb: the path 2 does not exist in variable HeadVar__2.
E56: C17 FAIL queens.m:50 (from queens.m:52)
pred queens.qdelete/3-0 (nondet)
mdb: the path 2 does not exist in variable HeadVar__2.
E57: C13 FAIL queens.m:50 (from queens.m:44)
pred queens.qdelete/3-0 (nondet)
HeadVar__2^2 []
E58: C12 FAIL queens.m:42 (from queens.m:46)
pred queens.qperm/2-0 (nondet)
mdb> disable 1
1: - stop interface pred queens.qdelete/3-0 (nondet)
mdb> retry 4
E5: C4 CALL queens.m:42 (from queens.m:37)
pred queens.qperm/2-0 (nondet)
mdb> break 46
2: + stop linenumber queens.m:46
mdb> continue -n
E10: C6 CALL queens.m:42 (from queens.m:46)
pred queens.qperm/2-0 (nondet)
mdb> continue -n
E15: C8 CALL queens.m:42 (from queens.m:46)
pred queens.qperm/2-0 (nondet)
mdb> continue -n
E20: C10 CALL queens.m:42 (from queens.m:46)
pred queens.qperm/2-0 (nondet)
mdb> continue -n
E25: C12 CALL queens.m:42 (from queens.m:46)
pred queens.qperm/2-0 (nondet)
mdb> continue -n
E30: C14 CALL queens.m:42 (from queens.m:46)
pred queens.qperm/2-0 (nondet)
mdb> continue -n
E32: C14 EXIT queens.m:42 (from queens.m:46)
pred queens.qperm/2-0 (nondet)
mdb> return
E33: C12 EXIT queens.m:42 (from queens.m:46)
pred queens.qperm/2-0 (nondet)
E34: C10 EXIT queens.m:42 (from queens.m:46)
pred queens.qperm/2-0 (nondet)
E35: C8 EXIT queens.m:42 (from queens.m:46)
pred queens.qperm/2-0 (nondet)
E36: C6 EXIT queens.m:42 (from queens.m:46)
pred queens.qperm/2-0 (nondet)
E38: C15 CALL queens.m:56 (from queens.m:38)
pred queens.safe/1-0 (semidet)
mdb> continue -n
E47: C6 REDO queens.m:42 (from queens.m:46)
pred queens.qperm/2-0 (nondet)
mdb> continue -n
E48: C8 REDO queens.m:42 (from queens.m:46)
pred queens.qperm/2-0 (nondet)
mdb> forward
E49: C10 REDO queens.m:42 (from queens.m:46)
pred queens.qperm/2-0 (nondet)
E50: C12 REDO queens.m:42 (from queens.m:46)
pred queens.qperm/2-0 (nondet)
E51: C14 REDO queens.m:42 (from queens.m:46)
pred queens.qperm/2-0 (nondet)
E52: C14 FAIL queens.m:42 (from queens.m:46)
pred queens.qperm/2-0 (nondet)
E54: C13 DISJ queens.m:51
pred queens.qdelete/3-0 (nondet) c2;d2;
mdb> continue -n
E58: C12 FAIL queens.m:42 (from queens.m:46)
pred queens.qperm/2-0 (nondet)
mdb> continue -n
E59: C18 CALL queens.m:42 (from queens.m:46)
pred queens.qperm/2-0 (nondet)
mdb> delete *
0: E stop interface pred queens.print_list/3-0 (det)
1: D stop interface pred queens.qdelete/3-0 (nondet)
2: E stop linenumber queens.m:46
mdb> break main SWTC
There is no SWTC port in pred queens.main/2-0 (cc_multi).
mdb> break main EXIT
0: + stop specific pred queens.main/2-0 (cc_multi) EXIT
mdb> continue -n
[1, 3, 5, 2, 4]
E60: C1 EXIT queens.m:23
pred queens.main/2-0 (cc_multi)
mdb> retry
Retry across I/O operations is not always safe.
Are you sure you want to do it? yes
E1: C1 CALL queens.m:23
pred queens.main/2-0 (cc_multi)
mdb> delete 0
0: E stop specific pred queens.main/2-0 (cc_multi) EXIT
mdb> break safe
0: + stop interface pred queens.safe/1-0 (semidet)
mdb> condition HeadVar__1 = [
syntax error in term: [
^ unmatched character
mdb> condition HeadVar__1 = [a, c
syntax error in term: [a, c
^ unmatched character
mdb> condition HeadVar__1 = [f(a, b]
syntax error in term: [f(a, b]
^ here
mdb> condition HeadVar__1 = [1,2, 5, 4, 3 ]
0: + stop interface pred queens.safe/1-0 (semidet)
HeadVar__1 = [1, 2, 5, 4, 3]
mdb> continue
E61: C19 CALL queens.m:56 (from queens.m:38)
pred queens.safe/1-0 (semidet)
mdb> print
safe([1, 2, 5, 4, 3])
mdb> retry 2
Retry across I/O operations is not always safe.
Are you sure you want to do it? yes
E1: C1 CALL queens.m:23
pred queens.main/2-0 (cc_multi)
mdb> disable 0
0: - stop interface pred queens.safe/1-0 (semidet)
HeadVar__1 = [1, 2, 5, 4, 3]
mdb> break nodiag SWTC
Ambiguous port specification. The matches are:
0: SWTC s1-2;
1: SWTC s2-2;
Which do you want to put a breakpoint on (0-1 or *)? 1
1: + stop specific pred queens.nodiag/3-0 (semidet) SWTC s2-2;
mdb> continue
E41: C16 SWTC queens.m:64
pred queens.nodiag/3-0 (semidet) s2-2;
mdb> print *
B (arg 1) 1
D (arg 2) 1
HeadVar__3 [2, 3, 4, 5]
mdb> delete *
0: D stop interface pred queens.safe/1-0 (semidet)
HeadVar__1 = [1, 2, 5, 4, 3]
1: E stop specific pred queens.nodiag/3-0 (semidet) SWTC s2-2;
mdb> continue -n -S
[1, 3, 5, 2, 4]
Reference in New Issue View Git Blame Copy Permalink