/home/doxygen/libascend/compiler/find.h

Go to the documentation of this file.

/*  ASCEND modelling environment
    Copyright (C) 2006 Carnegie Mellon University
    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
    Created: 1/24/90
    Last in CVS: $Revision: 1.12 $ $Date: 1998/03/26 20:39:45 $ $Author: ballan $
*/

#ifndef ASC_FIND_H
#define ASC_FIND_H

#include "utilities/ascConfig.h"
#include "instance_enum.h"
#include "expr_types.h"

enum find_errors {
  unmade_instance,      
  undefined_instance,   
  impossible_instance,  
  correct_instance      
};

/* mmm, nasty global variables... */

extern int ListMode;
extern int EvaluatingSets;
extern int g_DeclarativeContext;
#define FINDEBUG 0
#if (FINDEBUG==0)
# define GetDeclarativeContext() g_DeclarativeContext

# define SetDeclarativeContext(n) g_DeclarativeContext = (n)

#else
# define GetDeclarativeContext() GetDeclarativeContextF()

extern int GetDeclarativeContextF(void);
# define SetDeclarativeContext(n) SetDeclarativeContextF((n),__FILE__,__LINE__)

extern void SetDeclarativeContextF(int value, char *file, int line);
#endif

extern CONST struct Instance *g_EvaluationContext;
extern struct for_table_t *g_EvaluationForTable;
#ifndef NDEBUG
# define EVALDEBUG 0 
# define GetEvaluationContext() GetEvaluationContextF()
# define GetEvaluationForTable() GetEvaluationForTableF()
# if EVALDEBUG
#  if (EVALDEBUG == 1 || EVALDEBUG == 3)
#   define SetEvaluationContext(i) SetEvaluationContextF((i),__FILE__,__LINE__)
#  else
#   define SetEvaluationContext(i) SetEvaluationContextF(i)
#  endif
#  if (EVALDEBUG == 2 || EVALDEBUG == 3)
#   define SetEvaluationForTable(ft) SetEvaluationForTableF((ft),__FILE__,__LINE__)
#  else
#   define SetEvaluationForTable(ft) SetEvaluationForTableF(ft)
#  endif
# else
#  define SetEvaluationContext(i) SetEvaluationContextF(i)
#  define SetEvaluationForTable(ft) SetEvaluationForTableF(ft)
# endif
#else
# define GetEvaluationContext() g_EvaluationContext
# define SetEvaluationContext(i) g_EvaluationContext = (i)
# define GetEvaluationForTable() g_EvaluationForTable
# define SetEvaluationForTable(ft) g_EvaluationForTable = (ft)
#endif

/*
    Wrappers mainly for break point purposes of g_EvaluationContext
    and g_EvaluationForTable.
*/
extern struct Instance *GetEvaluationContextF(void);
extern struct for_table_t *GetEvaluationForTableF(void);#include "expr_types.h"

#if EVALDEBUG /* version printing file/line when setting globals */
extern void SetEvaluationContextF(
        CONST struct Instance *i
# if (EVALDEBUG == 1 || EVALDEBUG == 3)
        ,char *file, int line
# endif
);
extern void SetEvaluationForTableF(
        struct for_table_t *ft
# if (EVALDEBUG == 2 || EVALDEBUG == 3)
        ,char *file, int line
# endif
);
#else /* EVALDEBUG */

extern void SetEvaluationContextF(CONST struct Instance *i);
extern void SetEvaluationForTableF(struct for_table_t *ft);
#endif /* EVALDEBUG*/

extern struct value_t InstanceEvaluateName(CONST struct Name *nptr);
extern struct value_t InstanceEvaluateSatisfiedName(
        CONST struct Name *nptr, double tol
);
extern struct gl_list_t *FindInstances(
        CONST struct Instance *i,
        CONST struct Name *n, enum find_errors *err
);
extern struct gl_list_t *FindInstancesFromNames(
        CONST struct Instance *i,
        CONST struct gl_list_t *names,
        enum find_errors *err, unsigned long *errpos
);
/* @} */

#endif /* ASC_FIND_H */

---