mirror of
https://github.com/Mercury-Language/mercury.git
synced 2026-04-15 01:13:30 +00:00
ce9c9230c9
library/edit_seq.m:
Change to uint the types of all the integers that cannot be negative.
This happens to be all of them.
NEWS.md:
Announce the change.
compiler/add_type.m:
compiler/det_check_switch.m:
compiler/error_spec.m:
compiler/style_checks.m:
compiler/typecheck_msgs.m:
Conform to the changes above.
tests/hard_coded/change_hunk_test.{m,exp}:
tests/hard_coded/edit_seq_test.{m,exp}:
Change the code that sets up the parameters for testing edit_seq.m
to use uints, and expect uints in the output.
132 lines
4.1 KiB
Mathematica
132 lines
4.1 KiB
Mathematica
%---------------------------------------------------------------------------%
|
|
% vim: ft=mercury ts=4 sw=4 et
|
|
%---------------------------------------------------------------------------%
|
|
% Copyright (C) 2019, 2026 The Mercury team.
|
|
% This file is distributed under the terms specified in COPYING.LIB.
|
|
%---------------------------------------------------------------------------%
|
|
%
|
|
% This tests the basic functionality of the edit_seq library module.
|
|
%
|
|
%---------------------------------------------------------------------------%
|
|
%---------------------------------------------------------------------------%
|
|
|
|
:- module edit_seq_test.
|
|
:- interface.
|
|
|
|
:- import_module io.
|
|
|
|
:- pred main(io::di, io::uo) is det.
|
|
|
|
%---------------------------------------------------------------------------%
|
|
%---------------------------------------------------------------------------%
|
|
|
|
:- implementation.
|
|
|
|
:- import_module edit_seq.
|
|
|
|
:- import_module assoc_list.
|
|
:- import_module list.
|
|
:- import_module int.
|
|
:- import_module pair.
|
|
:- import_module require.
|
|
:- import_module string.
|
|
|
|
main(!IO) :-
|
|
% replace cost same as insert OR delete
|
|
Params1 = edit_params(1u, 1u, 1u),
|
|
% replace cost same as insert PLUS delete
|
|
Params2 = edit_params(1u, 1u, 2u),
|
|
ParamsList = ["replace" - Params1, "delete/insert" - Params2],
|
|
Lists = [
|
|
[],
|
|
[3],
|
|
[42],
|
|
[3, 4, 5, 12, 13],
|
|
[1, 2, 3, 4, 11, 12, 13, 14],
|
|
[1, 19, 2, 29, 3, 38, 39, 4, 12, 11, 13, 14]
|
|
],
|
|
test_list_list(Lists, Lists, ParamsList, !IO).
|
|
|
|
% test_list_list(SeqsA, SeqsB, ParamsList, !IO):
|
|
%
|
|
% Test every sequence in SeqsA against every sequence in SeqsB,
|
|
% using every parameter set in ParamsList.
|
|
%
|
|
:- pred test_list_list(list(list(int))::in, list(list(int))::in,
|
|
assoc_list(string, edit_params)::in, io::di, io::uo) is det.
|
|
|
|
test_list_list([], _SeqsB, _ParamsList, !IO).
|
|
test_list_list([SeqA | SeqsA], SeqsB, ParamsList, !IO) :-
|
|
test_list(SeqA, SeqsB, ParamsList, !IO),
|
|
test_list_list(SeqsA, SeqsB, ParamsList, !IO).
|
|
|
|
% test_list(SeqA, SeqsB, ParamsList, !IO):
|
|
%
|
|
% Test SeqA against every sequence in SeqsB
|
|
% using every parameter set in ParamsList.
|
|
%
|
|
:- pred test_list(list(int)::in, list(list(int))::in,
|
|
assoc_list(string, edit_params)::in, io::di, io::uo) is det.
|
|
|
|
test_list(_SeqA, [], _ParamsList, !IO).
|
|
test_list(SeqA, [SeqB | SeqsB], ParamsList, !IO) :-
|
|
test_params(SeqA, SeqB, ParamsList, !IO),
|
|
test_list(SeqA, SeqsB, ParamsList, !IO).
|
|
|
|
% test(SeqA, SeqB, ParamsList, !IO):
|
|
%
|
|
% Test SeqA against SeqB
|
|
% using every parameter set in ParamsList.
|
|
%
|
|
:- pred test_params(list(int)::in, list(int)::in,
|
|
assoc_list(string, edit_params)::in, io::di, io::uo) is det.
|
|
|
|
test_params(_SeqA, _SeqB, [], !IO).
|
|
test_params(SeqA, SeqB, [Params | ParamsList], !IO) :-
|
|
test(SeqA, SeqB, Params, !IO),
|
|
test_params(SeqA, SeqB, ParamsList, !IO).
|
|
|
|
% test(SeqA, SeqB, Params, !IO):
|
|
%
|
|
% Test SeqA against SeqB.
|
|
%
|
|
:- pred test(list(int)::in, list(int)::in, pair(string, edit_params)::in,
|
|
io::di, io::uo) is det.
|
|
|
|
test(SeqA, SeqB, ParamsName - Params, !IO) :-
|
|
io.write_string("\n------------------\n\n", !IO),
|
|
io.write_string("SeqA: ", !IO),
|
|
io.write_line(SeqA, !IO),
|
|
io.write_string("SeqB: ", !IO),
|
|
io.write_line(SeqB, !IO),
|
|
io.write_string("Params: ", !IO),
|
|
io.write_string(ParamsName, !IO),
|
|
io.nl(!IO),
|
|
find_shortest_edit_seq(Params, SeqA, SeqB, Edits),
|
|
io.write_string("Edits: ", !IO),
|
|
io.write_line(Edits, !IO),
|
|
find_diff_seq(SeqA, Edits, DiffSeq),
|
|
io.write_string("Diff:\n", !IO),
|
|
write_diff_seq(DiffSeq, !IO).
|
|
|
|
:- pred write_diff_seq(diff_seq(int)::in, io::di, io::uo) is det.
|
|
|
|
write_diff_seq([], !IO).
|
|
write_diff_seq([Diff | Diffs], !IO) :-
|
|
(
|
|
Diff = unchanged(N),
|
|
UDI = " "
|
|
;
|
|
Diff = deleted(N),
|
|
UDI = "-"
|
|
;
|
|
Diff = inserted(N),
|
|
UDI = "+"
|
|
),
|
|
io.format("%s %d\n", [s(UDI), i(N)], !IO),
|
|
write_diff_seq(Diffs, !IO).
|
|
|
|
%---------------------------------------------------------------------------%
|
|
:- end_module edit_seq_test.
|
|
%---------------------------------------------------------------------------%
|