/home/doxygen/libascend/compiler/arrayinst.h

Go to the documentation of this file.

/*  ASCEND modelling environment
    Copyright (C) 2006 Carnegie Mellon University
    Copyright (C) 1996, 1997 Ben Allan
    Copyright (C) 1990, 1993, 1994 Thomas Guthrie Epperly

    This program is free software; you can redistribute it and/or modify
    it under the terms of the GNU General Public License as published by
    the Free Software Foundation; either version 2, or (at your option)
    any later version.

    This program is distributed in the hope that it will be useful,
    but WITHOUT ANY WARRANTY; without even the implied warranty of
    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
    GNU General Public License for more details.

    You should have received a copy of the GNU General Public License
    along with this program; if not, write to the Free Software
    Foundation, Inc., 59 Temple Place - Suite 330,
    Boston, MA 02111-1307, USA.
*//*
    by Tom Epperly 8/16/89, Ben Allan
    Last in CVS $Revision: 1.15 $ $Date: 1998/04/07 19:52:46 $ $Author: ballan $
*/

#ifndef ASC_ARRAYINST_H
#define ASC_ARRAYINST_H

#include "setinstval.h"
#include "expr_types.h"
#include "instance_enum.h"
#include "compiler.h"
#include <general/pool.h>

/* Array child memory management */
#define CAC(acp) ((struct ArrayChild *)(acp))

extern pool_store_t g_array_child_pool;
#ifdef ASC_NO_POOL

/* slow version for debugging */
#define MALLOCPOOLAC CAC( ascmalloc(sizeof(struct ArrayChild)) )

#define FREEPOOLAC(ac) ascfree(ac);

#else

#define MALLOCPOOLAC CAC(pool_get_element(g_array_child_pool))

#define FREEPOOLAC(ac) pool_free_element(g_array_child_pool,(ac))

#endif /* ASC_NO_POOL */

extern void InitInstanceNanny(void);
extern void DestroyInstanceNanny(void);
extern void ReportInstanceNanny(FILE *f);
/* Array management */

extern struct gl_list_t
*CollectArrayInstances(CONST struct Instance *i,
                       struct gl_list_t *list);
typedef void (*AVProc)(struct Instance *);
extern void ArrayVisitLocalLeaves(struct Instance *mch, AVProc func);
ASC_DLLSPEC struct Instance*ChildByChar(CONST struct Instance *i,
                                    symchar *str);
/* Dense array procedures. (non-relations) */

extern int RectangleArrayExpanded(CONST struct Instance *i);
extern int RectangleSubscriptsMatch(CONST struct Instance *context,
                                    CONST struct Instance *ary,
                                    CONST struct Name *subscripts);
extern unsigned long NextToExpand(CONST struct Instance *i);
extern unsigned long NumberofDereferences(CONST struct Instance *i);
extern CONST struct Set *IndexSet(CONST struct Instance *i, unsigned long num);
extern void ExpandArray(struct Instance *i,
                        unsigned long num,
                        struct set_t *set,
                        struct Instance *rhsinst,
                        struct Instance *arginst,
                        struct gl_list_t *rhslist);
/* Sparse arrays stuff. */

extern struct Instance *FindOrAddIntChild(struct Instance *i,
                                          long v,
                                          struct Instance *rhsinst,
                                          struct Instance *arginst);
extern struct Instance *FindOrAddStrChild(struct Instance *i,
                                          symchar *sym,
                                          struct Instance *rhsinst,
                                          struct Instance *arginst);
extern int CmpArrayInsts(struct Instance *i1, struct Instance *i2);
/* @} */

#endif /* ASC_ARRAYINST_H */

---