generic/compiler/parpend.h

/*
 *  parpend.h
 *  by Ben Allan
 *  Jan 5, 1998
 *  Part of ASCEND
 *  Version: $Revision: 1.2 $
 *  Version control file: $RCSfile: parpend.h,v $
 *  Date last modified: $Date: 1998/06/16 16:38:46 $
 *  Last modified by: $Author: mthomas $
 *
 *  This file is part of the Ascend Language Interpreter.
 *
 *  Copyright (C) 1998 Carnegie Mellon University
 *
 *  The Ascend Language Interpreter 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 of the License, or (at your option)
 *  any later version.
 *
 *  The Ascend Language Interpreter is distributed in 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 the program; if not, write to the Free Software
 *  Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139 USA.  Check
 *  the file named COPYING.
 */

/* this file should be resorbed into the parameter list processing
 * code that results when instantiate.c is split up.
 * In the meanwhile...
 */
#ifndef __PARPEND_H_SEEN__
#define __PARPEND_H_SEEN__

enum ppstatus {
  pp_ERR =0,
  pp_ISA,       /* IS_A of simple to be done, from absorbed. */
  pp_ISAARR,    /* IS_A of array to do, from absorbed and
                 * gets converted to asar during processing.
                 */
  pp_ARR,       /* array that's constructed but requires range checking */
  pp_ASGN,      /* assignment to do in absorbed objects */
  pp_ASSC,      /* scalar assignment to check in absorbed objects */
  pp_ASAR,      /* Array to be checked for being completely assigned,
                 * but its subscript range is presumed right.
                 */
  pp_WV,        /* WITH_VALUE to be checked */
  pp_DONE       /* finished statement */
};

struct parpendingentry {
  struct Set *arg;      /* parameter given in user's IS_A statement */
  struct Statement *s;
  struct Instance *inst;
  struct parpendingentry *next;
  enum ppstatus status;
  int argn; /* the psl position if >0,  or -(the absorbed position) if <0 */
  /* argn==0 is an error */
};

/*
 * allocate a parpending entry.
 */
extern struct parpendingentry *CreatePPE(void);

/*
 * destroy a parpending entry.
 */
extern void DestroyPPE(struct parpendingentry *);

/*
 * starts memory recycle. do not call twice before stopping recycle.
 */
extern void ppe_init_pool(void);

/*
 * stops memory recycle. do not call while ANY parpending are outstanding.
 */
extern void ppe_destroy_pool(void);

/*
 * write the pool report to ASCERR for the ppe pool.
 */
extern void ppe_report_pool(void);

#endif /* __PARPEND_H_SEEN__ */
1	aw0a	1	/*
2			* parpend.h
3			* by Ben Allan
4			* Jan 5, 1998
5			* Part of ASCEND
6			* Version: $Revision: 1.2 $
7			* Version control file: $RCSfile: parpend.h,v $
8			* Date last modified: $Date: 1998/06/16 16:38:46 $
9			* Last modified by: $Author: mthomas $
10			*
11			* This file is part of the Ascend Language Interpreter.
12			*
13			* Copyright (C) 1998 Carnegie Mellon University
14			*
15			* The Ascend Language Interpreter is free software; you can
16			* redistribute it and/or modify it under the terms of the GNU
17			* General Public License as published by the Free Software
18			* Foundation; either version 2 of the License, or (at your option)
19			* any later version.
20			*
21			* The Ascend Language Interpreter is distributed in hope that it
22			* will be useful, but WITHOUT ANY WARRANTY; without even the implied
23			* warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
24			* See the GNU General Public License for more details.
25			*
26			* You should have received a copy of the GNU General Public License
27			* along with the program; if not, write to the Free Software
28			* Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139 USA. Check
29			* the file named COPYING.
30			*/
31
32			/* this file should be resorbed into the parameter list processing
33			* code that results when instantiate.c is split up.
34			* In the meanwhile...
35			*/
36			#ifndef __PARPEND_H_SEEN__
37			#define __PARPEND_H_SEEN__
38
39			enum ppstatus {
40			pp_ERR =0,
41			pp_ISA, /* IS_A of simple to be done, from absorbed. */
42			pp_ISAARR, /* IS_A of array to do, from absorbed and
43			* gets converted to asar during processing.
44			*/
45			pp_ARR, /* array that's constructed but requires range checking */
46			pp_ASGN, /* assignment to do in absorbed objects */
47			pp_ASSC, /* scalar assignment to check in absorbed objects */
48			pp_ASAR, /* Array to be checked for being completely assigned,
49			* but its subscript range is presumed right.
50			*/
51			pp_WV, /* WITH_VALUE to be checked */
52			pp_DONE /* finished statement */
53			};
54
55			struct parpendingentry {
56			struct Set arg; / parameter given in user's IS_A statement */
57			struct Statement *s;
58			struct Instance *inst;
59			struct parpendingentry *next;
60			enum ppstatus status;
61			int argn; /* the psl position if >0, or -(the absorbed position) if <0 */
62			/* argn==0 is an error */
63			};
64
65			/*
66			* allocate a parpending entry.
67			*/
68			extern struct parpendingentry *CreatePPE(void);
69
70			/*
71			* destroy a parpending entry.
72			*/
73			extern void DestroyPPE(struct parpendingentry *);
74
75			/*
76			* starts memory recycle. do not call twice before stopping recycle.
77			*/
78			extern void ppe_init_pool(void);
79
80			/*
81			* stops memory recycle. do not call while ANY parpending are outstanding.
82			*/
83			extern void ppe_destroy_pool(void);
84
85			/*
86			* write the pool report to ASCERR for the ppe pool.
87			*/
88			extern void ppe_report_pool(void);
89
90			#endif /* __PARPEND_H_SEEN__ */