mirror of
https://github.com/Mercury-Language/mercury.git
synced 2026-05-01 17:24:34 +00:00
75de15c6ab
Estimated hours taken: 0.25 tests/debugger/exception_vars.inp: tests/debugger/exception_vars.exp: tests/debugger/exception_vars.exp2: Add "echo on" at the start of the test case, so that it gets the right results when the compiler is configured without readline support.
41 lines
1.0 KiB
Mathematica
41 lines
1.0 KiB
Mathematica
% This is a regression test.
|
|
%
|
|
% It tests for a bug that showed up when tracing
|
|
% calls to procedures like `std_util__det_arg'
|
|
% or `io__read' that have an output argument
|
|
% whose type is a universally quantified type
|
|
% variable that does not occur in the type of
|
|
% any of the input arguments.
|
|
% Version rotd-2000-04-10 failed this test case.
|
|
|
|
:- module polymorphic_output.
|
|
:- interface.
|
|
:- import_module io.
|
|
|
|
:- pred main(io__state::di, io__state::uo) is det.
|
|
|
|
:- implementation.
|
|
:- import_module std_util, list, string, map, int.
|
|
|
|
main -->
|
|
{ map__from_assoc_list(["two"-2, "one"-1, "three"-3, "four"-4], M) },
|
|
io__write_list(functor_names(M), "\n", io__write_string),
|
|
io__nl.
|
|
|
|
:- func functor_names(T) = list(string).
|
|
|
|
functor_names(X) =
|
|
[Name | ( if Arity = 0 then ArgNames else [] ) ]
|
|
:-
|
|
functor(X, Name, Arity),
|
|
ArgNames = arg_names(X, Arity - 1).
|
|
|
|
:- func arg_names(T, int) = list(string).
|
|
|
|
arg_names(X, I) =
|
|
( if I < 0 then
|
|
[]
|
|
else
|
|
list__append(functor_names(det_arg(X, I)), arg_names(X, I - 1))
|
|
).
|