mirror of
https://github.com/Mercury-Language/mercury.git
synced 2026-04-16 01:43:35 +00:00
427c7518ec
Estimated hours taken: 4 Branches: main Improve the readability of float output from the debugger and io.print etc. by pruning redundant trailing zeroes. NEWS: Mention the change. library/string.m: runtime/mercury_float.c: Make string.float_to_string trim redundant trailing zeroes. The behaviour of string.format etc. is unchanged. tests/debugger/ambiguity.exp: tests/debugger/field_names.exp: tests/debugger/higher_order.exp: tests/debugger/print_table.exp: tests/hard_coded/common_type_cast.exp: tests/hard_coded/constant_prop_1.exp: tests/hard_coded/construct_test.exp: tests/hard_coded/deconstruct_arg.exp: tests/hard_coded/deep_copy.exp: tests/hard_coded/deep_copy_exist.exp: tests/hard_coded/dense_lookup_switch2.exp: tests/hard_coded/dense_lookup_switch_non.exp: tests/hard_coded/existential_float.exp: tests/hard_coded/expand.exp: tests/hard_coded/final_excp.exp: tests/hard_coded/float_field.exp: tests/hard_coded/float_gv.exp: tests/hard_coded/float_reg.exp: tests/hard_coded/float_rounding_bug.exp: tests/hard_coded/init_excp.exp: tests/hard_coded/mutable_excp.exp: tests/hard_coded/pragma_import.exp: tests/hard_coded/prince_frameopt.exp: tests/hard_coded/string_string.exp: tests/hard_coded/unused_float_box_test.exp: tests/hard_coded/write.exp: tests/hard_coded/write_binary.exp: tests/hard_coded/write_reg1.exp: tests/hard_coded/write_xml.exp: tests/hard_coded/sub-modules/non_word_mutable.exp: tests/hard_coded/typeclasses/arbitrary_constraint_class.exp: tests/hard_coded/typeclasses/arbitrary_constraint_pred_1.exp: tests/hard_coded/typeclasses/arbitrary_constraint_pred_2.exp: tests/hard_coded/typeclasses/existential_rtti.exp: tests/hard_coded/typeclasses/func_default_mode_bug.exp: tests/hard_coded/typeclasses/mode_decl_order_bug.exp: tests/hard_coded/typeclasses/module_test.exp: tests/hard_coded/typeclasses/typeclass_exist_method.exp: tests/invalid/error_in_list.err_exp: tests/invalid/errors2.err_exp: tests/invalid/purity/purity_type_error.err_exp: tests/mmc_make/complex_test.exp: tests/recompilation/add_type_re.exp.1: tests/recompilation/type_spec_rename_var_r.exp.1: tests/recompilation/type_spec_rename_var_r.exp.2: tests/recompilation/type_spec_unname_var_r.exp.1: tests/recompilation/type_spec_unname_var_r.exp.2: Updated expected test case output.
49 lines
654 B
Plaintext
49 lines
654 B
Plaintext
var("X") + int(3) * var("X^2") ; (type)
|
|
{ type }
|
|
{ ':-' }
|
|
':-'
|
|
{ blah }
|
|
blah ; (type), (type) * blah ; (type)
|
|
((blah ; blah), blah) * blah ; blah
|
|
(type) * blah ; (type)
|
|
TESTING DISCRIMINATED UNIONS
|
|
one
|
|
two
|
|
three
|
|
apple([9, 5, 1])
|
|
banana([three, one, two])
|
|
zop(3.3, 2.03)
|
|
zip(3, 2)
|
|
zap(3, -2.111)
|
|
wombat
|
|
foo
|
|
|
|
TESTING POLYMORPHISM
|
|
poly_one([2399.3])
|
|
poly_two(3)
|
|
poly_three(3.33, 4, poly_one(9.11))
|
|
|
|
TESTING BUILTINS
|
|
""
|
|
"Hello, world\n"
|
|
"Foo%sFoo"
|
|
"\""
|
|
'a'
|
|
'&'
|
|
3.14159
|
|
1.12832498300000e-21
|
|
2.23954899000000e+23
|
|
-65
|
|
4
|
|
univ_cons(["hi! I\'m a univ!"])
|
|
'<<predicate>>'
|
|
|
|
TESTING OTHER TYPES
|
|
var(1)
|
|
var_supply(0)
|
|
var_supply(1)
|
|
empty
|
|
qwerty(4)
|
|
array([1, 2, 3, 4])
|
|
|