Commit 1db3840c authored by Sven-Bodo Scholz's avatar Sven-Bodo Scholz
Browse files

proper separation now. new_types is the overarching one building on both sub-modules: fun and array

parent 86a1dfe8
/*
* This file keeps all type constructors and related info.
* Similar to all other .mac-files it is included several times!
* The idea is to include this file with one of the "selector macros"
* e.g. "TCITypeConstr" being defined as:
*
* #define TCITypeConstr( typeconstr) typeconstr
*
* this will extract the desired column of the table down below!
* For the given example, including this file yields:
*
* TC_simple, TC_symbol, TC_user, TC_aks, TC_akd, ...
*/
#ifndef TCITypeConstr
#define TCITypeConstr(typeconstr)
#endif
#ifndef TCIArity
#define TCIArity(arity)
#endif
#ifndef TCIDbugString
#define TCIDbugString(dbug_str)
#endif
#ifndef TCIVariableArity
#define TCIVariableArity(variable_arity)
#endif
#define TCI(typeconstr, default_arity, dbug_str, variable_arity) \
TCITypeConstr (typeconstr) TCIArity (default_arity) TCIDbugString (dbug_str) \
TCIVariableArity (variable_arity)
TCI (TC_simple, 0, "Simple", 0), TCI (TC_symbol, 0, "Symbol", 0),
TCI (TC_user, 0, "User", 0), TCI (TC_akv, 1, "AKV", 0), /* Known value */
TCI (TC_aks, 1, "AKS", 0), /* Known shape */
TCI (TC_akd, 1, "AKD", 0), /* Known dimension */
TCI (TC_aud, 1, "AUD", 0), /* Unknown dimension */
TCI (TC_audgz, 1, "AUDGZ", 0), /* Unknown dimension, greater zero */
TCI (TC_prod, 0, "PROD", 1), TCI (TC_union, 2, "UNION", 1), TCI (TC_fun, 1, "FUN", 1),
TCI (TC_ibase, 3, "IBASE", 0), TCI (TC_iarr, 1, "IARR", 1), TCI (TC_idim, 1, "IDIM", 1),
TCI (TC_ishape, 1, "ISHAPE", 0), TCI (TC_ires, 1, "IRES", 0),
TCI (TC_alpha, 0, "ALPHA", 0), TCI (TC_bottom, 0, "BOTTOM", 0),
TCI (TC_poly, 0, "POLY", 0), TCI (TC_polyuser, 0, "POLYUSER", 0),
TCI (TC_dummy, 0, "LastTCI", 0)
#undef TCITypeConstr
#undef TCIArity
#undef TCIDbugString
#undef TCIVariableArity
This diff is collapsed.
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment