mirror of
https://github.com/Mercury-Language/mercury.git
synced 2025-12-12 04:14:06 +00:00
6de3b102ba
Estimated hours taken: 20 Branches: main Add support for deconstructing by functor number rather than name, for use by write_binary. library/deconstruct.m: runtime/mercury_deconstruct.h: runtime/mercury_deconstruct.c: runtime/mercury_ml_expand_body.h: runtime/mercury_ml_deconstruct_body.h: Add predicates deconstruct.functor_number and deconstruct.deconstruct.du, which returns a functor number suitable for use by construct.construct rather than a functor name. library/construct.m: library/term.m: browser/term_rep.m: extras/quickcheck/qcheck.m: tests/valid/agc_unbound_typevars.m: tests/valid/agc_unbound_typevars2.m: Add a function get_functor_lex, which returns the lexicographic functor number given an ordinal functor number. Add equivalence types to make it clearer which ordering is being used by which functor numbers. Remove a C-ism: num_functors now fails rather than returning -1 for types without functors. NEWS: Document the new predicates and functions. runtime/mercury_type_info.h: runtime/mercury_builtin_types.c: runtime/mercury_mcpp.h: compiler/rtti.m: compiler/rtti_out.m: compiler/type_ctor_info.m: compiler/rtti_to_mlds.m: compiler/opt_debug.m: Add a field to MR_TypeCtorInfo which contains a mapping from an ordinal functor number to a lexicographic functor number which can be passed to construct.construct. Bump MR_RTTI_VERSION. tests/hard_coded/expand.m: tests/hard_coded/expand.exp: tests/hard_coded/expand.exp2: tests/hard_coded/construct_test.m: tests/hard_coded/construct_test.exp: tests/hard_coded/construct_test_exist.m: tests/hard_coded/construct_test_exist.exp: Test cases.
111 lines
3.9 KiB
C
111 lines
3.9 KiB
C
/*
|
|
** vim:ts=4 sw=4 expandtab
|
|
*/
|
|
/*
|
|
** Copyright (C) 2002, 2004, 2007 The University of Melbourne.
|
|
** This file may only be copied under the terms of the GNU Library General
|
|
** Public License - see the file COPYING.LIB in the Mercury distribution.
|
|
*/
|
|
|
|
/*
|
|
** mercury_ml_deconstruct_body.h
|
|
**
|
|
** This file is included several times in library/deconstruct.m. Each inclusion
|
|
** defines the body of one of several variants of the `deconstruct' function.
|
|
**
|
|
** The code including this file must define these macros:
|
|
**
|
|
** PREDNAME Gives the name of the function or predicate being
|
|
** defined.
|
|
**
|
|
** EXPAND_INFO_CALL Gives the name of the MR_expand_functor_* variant that
|
|
** we want to use.
|
|
**
|
|
** EXPAND_INFO_TYPE Gives the type of the expand_info argument of
|
|
** EXPAND_INFO_CALL.
|
|
**
|
|
** TYPEINFO_ARG Gives the name of the argument that contains the
|
|
** typeinfo of the term being deconstructed.
|
|
**
|
|
** TERM_ARG Gives the name of the argument that contains the
|
|
** value of the term being deconstructed.
|
|
**
|
|
** FUNCTOR_ARG Gives the name of the argument to which we assign
|
|
** the function symbol of the term.
|
|
**
|
|
** FUNCTOR_NUMBER_ARG (optional) Gives the name of the argument to which we
|
|
** assign the function symbol number of the term.
|
|
**
|
|
** ARITY_ARG Gives the name of the argument to which the value of
|
|
** the arity field should be assigned.
|
|
**
|
|
** ARGUMENTS_ARG Gives the name of the argument to which the list of
|
|
** univs representing the arguments of the term should
|
|
** be assigned.
|
|
**
|
|
** NONCANON Gives a value of type MR_noncanon_handling; its value
|
|
** will govern the handling of values of noncanonical
|
|
** types.
|
|
**
|
|
** The code including this file may define these macros:
|
|
**
|
|
** MAX_ARITY_ARG If defined, gives the name of the argument whose value
|
|
** gives the maximum number of arguments we want to
|
|
** succeed for.
|
|
**
|
|
** SAVE_SUCCESS If defined, success is saved into SUCCESS_INDICATOR.
|
|
*/
|
|
|
|
#if defined(SAVE_SUCCESS) && !defined(MAX_ARITY_ARG)
|
|
#error "SAVE_SUCCESS requires MAX_ARITY_ARG is defined"
|
|
#endif
|
|
|
|
#ifdef MAX_ARITY_ARG
|
|
#define maybe_max_arity_arg MAX_ARITY_ARG,
|
|
#define max_arity_check_start \
|
|
if (expand_info.limit_reached) { \
|
|
success = MR_FALSE; \
|
|
} else { \
|
|
success = MR_TRUE;
|
|
#define max_arity_check_end }
|
|
#else
|
|
#define maybe_max_arity_arg
|
|
#define max_arity_check_start
|
|
#define max_arity_check_end
|
|
#endif
|
|
|
|
#ifdef MAX_ARITY_ARG
|
|
MR_bool success;
|
|
#endif
|
|
|
|
EXPAND_INFO_TYPE expand_info;
|
|
MR_TypeInfo type_info;
|
|
MR_ConstString conststring_functor;
|
|
|
|
type_info = (MR_TypeInfo) TYPEINFO_ARG;
|
|
|
|
MR_save_transient_registers();
|
|
EXPAND_INFO_CALL(type_info, &TERM_ARG, NONCANON,
|
|
maybe_max_arity_arg &expand_info);
|
|
MR_restore_transient_registers();
|
|
|
|
max_arity_check_start
|
|
MR_deconstruct_get_functor(expand_info, functor, conststring_functor);
|
|
FUNCTOR_ARG = (MR_String) (MR_Integer) conststring_functor;
|
|
|
|
MR_deconstruct_get_arity(expand_info, ARITY_ARG);
|
|
MR_deconstruct_get_arg_list(expand_info, args, ARGUMENTS_ARG);
|
|
MR_deconstruct_free_allocated_arg_type_infos(expand_info, args);
|
|
#ifdef FUNCTOR_NUMBER_ARG
|
|
MR_deconstruct_get_functor_number(expand_info, FUNCTOR_NUMBER_ARG);
|
|
#endif
|
|
max_arity_check_end
|
|
|
|
#ifdef SAVE_SUCCESS
|
|
SUCCESS_INDICATOR = success;
|
|
#endif
|
|
|
|
#undef maybe_max_arity_arg
|
|
#undef max_arity_check_start
|
|
#undef max_arity_check_end
|