mirror of
https://github.com/Mercury-Language/mercury.git
synced 2026-04-18 19:03:45 +00:00
a8ffd3680c
Estimated hours taken: 14 Branches: main Change the compiler and tools so that `.' and not `:' is now used as the module separator in all output. Infix `.' now has associativity yfx and priority 10. NEWS: Report the change. configure.in: Amend the test for an up-to-date Mercury compiler to check whether it recognises `.' as a module qualifier. compiler/code_gen.m: compiler/error_util.m: compiler/hlds_out.m: compiler/prog_out.m: compiler/prog_util.m: compiler/rl_exprn.m: compiler/rl_gen.m: compiler/source_file_map.m: compiler/unused_args.m: library/io.m: library/rtti_implementation.m: library/type_desc.m: runtime/mercury_debug.c: runtime/mercury_deconstruct.c: runtime/mercury_stack_trace.c: Change `:' to `.' as module separator for output. compiler/mercury_to_mercury.m: compiler/prog_io_typeclass.m: As above. Fixed a bug where `.' was not being recognised as a module separator. doc/reference_manual.texi: Report the change. library/term_io.m: Ensure that infix `.' is written without surrounding spaces. tests/hard_coded/dot_separator.m: tests/hard_coded/dot_separator.exp: tests/hard_coded/Mmakefile: Test case added.
45 lines
2.3 KiB
Plaintext
45 lines
2.3 KiB
Plaintext
E1: C1 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> 12 step
|
|
Pure Prolog Interpreter.
|
|
|
|
Consulting file `interpreter.m'...
|
|
E2: C2 5 SWTC pred interpreter.consult_until_eof_2/5-0 (det) s3;
|
|
mdb> vars
|
|
1 HeadVar__1
|
|
2 HeadVar__2
|
|
3 DCG_0 (arg 4)
|
|
mdb> print *
|
|
HeadVar__1 term(varset(var_supply(0), empty, empty), functor(atom(".-"), [|](functor/3, []), context("interpreter.m", 22)))
|
|
HeadVar__2 []
|
|
DCG_0 (arg 4) state('<<c_pointer>>')
|
|
mdb> goto 35
|
|
E3: C3 12 CALL pred interpreter.database_assert_clause/4-0 (det)
|
|
mdb> print *
|
|
Database (arg 1) [|](clause(varset(var_supply/1, empty, empty), functor(atom/1, [|]/2, context/2), functor(atom/1, [], context/2)), [|](clause(varset/3, functor/3, functor/3), [|](clause/3, [])))
|
|
VarSet (arg 2) varset(var_supply(0), empty, empty)
|
|
Term (arg 3) functor(atom(".-"), [|](functor(atom/1, [|]/2, context/2), []), context("interpreter.m", 26))
|
|
mdb> finish -a
|
|
E4: C3 12 COND pred interpreter.database_assert_clause/4-0 (det) ?;
|
|
E5: C3 12 ELSE pred interpreter.database_assert_clause/4-0 (det) e;
|
|
E6: C3 12 EXIT pred interpreter.database_assert_clause/4-0 (det)
|
|
mdb> print *
|
|
Database (arg 1) [|](clause(varset(var_supply/1, empty, empty), functor(atom/1, [|]/2, context/2), functor(atom/1, [], context/2)), [|](clause(varset/3, functor/3, functor/3), [|](clause/3, [])))
|
|
VarSet (arg 2) varset(var_supply(0), empty, empty)
|
|
Term (arg 3) functor(atom(".-"), [|](functor(atom/1, [|]/2, context/2), []), context("interpreter.m", 26))
|
|
HeadVar__4 [|](clause(varset(var_supply/1, empty, empty), functor(atom/1, [|]/2, context/2), functor(atom/1, [], context/2)), [|](clause(varset/3, functor/3, functor/3), [|](clause/3, [|]/2)))
|
|
mdb>
|
|
E7: C4 12 CALL pred interpreter.consult_until_eof/4-0 (det)
|
|
mdb> finish -n
|
|
E8: C4 12 EXIT pred interpreter.consult_until_eof/4-0 (det)
|
|
mdb>
|
|
E9: C5 11 EXIT pred interpreter.consult_until_eof_2/5-0 (det)
|
|
mdb>
|
|
E10: C6 10 EXIT pred interpreter.consult_until_eof/4-0 (det)
|
|
mdb> continue
|
|
?-
|