mirror of
https://github.com/Mercury-Language/mercury.git
synced 2026-04-20 03:43:51 +00:00
44a5c5b2f8
Estimated hours taken: 6 compiler/mercury_to_mercury.m: compiler/mode_errors.m: Make the code a little bit more readable: use specific types rather than `bool' in a few places. compiler/mercury_to_mercury.m: Fix bugs in the generation of interface files where it was outputting certain graphic tokens incorrectly. In particular, it was outputting things like `module:?' without any parentheses, space, or quotes to separate the `:' as module qualifier from the symbol name. tests/hard_coded/Mmakefile: tests/hard_coded/quoting_bug.m: tests/hard_coded/quoting_bug_test.m: tests/hard_coded/quoting_bug_test.exp: Add some tests for the above-mentioned bug fix. tests/term/*.trans_opt_exp: tests/misc_tests/pretty_print_test.exp: Update expected output for these tests to reflect the above changes.
25 lines
517 B
Mathematica
25 lines
517 B
Mathematica
:- module quoting_bug_test.
|
|
:- interface.
|
|
:- import_module io.
|
|
|
|
:- pred main(state::di, state::uo) is det.
|
|
|
|
:- implementation.
|
|
:- import_module quoting_bug, list.
|
|
|
|
main -->
|
|
write_token(*), nl,
|
|
write_token(&&), nl,
|
|
write_token(-=), nl,
|
|
write_token(+=), nl,
|
|
write_token(?), nl,
|
|
test([*, &&, -=, +=, ?]).
|
|
|
|
:- pred write_token(token::in, state::di, state::uo) is det.
|
|
write_token(T) --> write(T).
|
|
|
|
:- pred test(list(token)::in, state::di, state::uo) is det.
|
|
test(List) -->
|
|
write_list(List, " ", write_token), nl.
|
|
|