generic/compiler/procio.h

/*
 *  Procedure Output
 *  by Benjamin Allan
 *  Created: 3/12/98
 *  Version: $Revision: 1.6 $
 *  Version control file: $RCSfile: procio.h,v $
 *  Date last modified: $Date: 1998/03/17 22:09:21 $
 *  Last modified by: $Author: ballan $
 *
 *  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.
 */

/** @file
 *  Procedure Output.
 *  <pre>
 *  When #including procio.h, make sure these files are #included first:
 *         #include <stdio.h>
 *         #include "utilities/ascConfig.h"
 *         #include "compiler.h"
 *         #include "proc.h"
 *  </pre>
 */

#ifndef __PROCIO_H_SEEN__
#define __PROCIO_H_SEEN__

/** Codes for old-style external call messaging. */
enum ProcExtError {
  PE_unloaded,
  PE_nulleval,
  PE_argswrong,
  PE_badarg,
  PE_evalerr
};

/** METHODs equivalent of WSEM. Should go away soon. */
extern void WriteInitWarn(struct procFrame *fm, char *str);
/** METHODs equivalent of WSEM. Should go away soon. */
extern void WriteInitErr(struct procFrame *fm, char *str);

/* error message services */

/**
 * <!--  ProcWriteCaseError(fm,arm,pos);                               -->
 * Write error encountered while evaluating SWITCH.
 * arm gives the number of the case in question. pos
 * gives the position of the error in the var list.
 */
extern void ProcWriteCaseError(struct procFrame *fm, int arm, int pos);

/**
 * <!--  ProcWriteForError(fm);                                        -->
 * Write error encountered while evaluating FOR/DO.
 */
extern void ProcWriteForError(struct procFrame *fm);

/**
 * <!--  ProcWriteAssignmentError(fm);                                 -->
 * Write error encountered while evaluating := assignment.
 */
extern void ProcWriteAssignmentError(struct procFrame *fm);

/**
 * <!--  ProcWriteIfError(fm,cname);                                   -->
 * Write error encountered while evaluating boolean flow control.
 * cname is normally "IF" or "WHILE".
 */
extern void ProcWriteIfError(struct procFrame *fm, CONST char *cname);

/**
 * <!--  ProcWriteRunError(fm);                                        -->
 * Write error encountered while evaluating RUN arguments.
 */
extern void ProcWriteRunError(struct procFrame *fm);

/**
 * <!--  ProcWriteExtError(fm,funcname,err,pos);                       -->
 * Write error encountered while evaluating Ext arguments.
 */
extern void ProcWriteExtError(struct procFrame *fm,
                              CONST char *funcmane,
                              enum ProcExtError err,
                              int pos);

/* backtrace output functions. */

/**
 * Issue a message if we blew the stack limit or are
 * unwinding the stack.
 */
extern void ProcWriteStackCheck(struct procFrame *fm,
                                struct Name *class,
                                struct Name *name);

/**
 * <!--  WriteProcedureBlock(fp,initstack,str);                        -->
 * Writes a line to file fp.  Write format resembles:
 * ("%s %s in %s\n",str,stack->last->proc,stack->last->context)
 * For example: 
 * <pre>
 * WriteProcedureBlock(ASCERR,stack,"Entering ");
 *    --> "Entering METHOD myproc in mysim.myinstance[3]"
 * </pre>
 * str may be empty or NULL.
 * The format is subject to change as this feature is in development.
 */
extern void WriteProcedureBlock(FILE *fp,
                                struct gl_list_t *initstack,
                                CONST char *str);

/**
 * <!--  WriteProcedureLine(fp,initstack,str);                         -->
 * Writes a line to file fp.  Write format resembles:
 * ("%s %d: %s in %s\n",str,line,proc,context)
 * For example:
 * <pre>
 * WriteProcedureLine(ASCERR,initstack,"Executing line ");
 *    --> "Executing line 137 of myprocname in mysim.myinstance[3]"
 * </pre>
 * The format is subject to change as this feature is in development.
 */
extern void WriteProcedureLine(FILE *fp,
                               struct gl_list_t *initstack,
                               CONST char *str);

#endif  /* __PROCIO_H_SEEN__ */

1	jds	54	/*
2	aw0a	1	* Procedure Output
3			* by Benjamin Allan
4			* Created: 3/12/98
5			* Version: $Revision: 1.6 $
6			* Version control file: $RCSfile: procio.h,v $
7			* Date last modified: $Date: 1998/03/17 22:09:21 $
8			* Last modified by: $Author: ballan $
9			*
10			* This file is part of the Ascend Language Interpreter.
11			*
12			* Copyright (C) 1998 Carnegie Mellon University
13			*
14			* The Ascend Language Interpreter is free software; you can redistribute
15			* it and/or modify it under the terms of the GNU General Public License as
16			* published by the Free Software Foundation; either version 2 of the
17			* License, or (at your option) any later version.
18			*
19			* The Ascend Language Interpreter is distributed in hope that it will be
20			* useful, but WITHOUT ANY WARRANTY; without even the implied warranty of
21			* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
22			* General Public License for more details.
23			*
24			* You should have received a copy of the GNU General Public License along
25			* with the program; if not, write to the Free Software Foundation, Inc., 675
26			* Mass Ave, Cambridge, MA 02139 USA. Check the file named COPYING.
27			*/
28
29	jds	54	/** @file
30			* Procedure Output.
31			* <pre>
32	aw0a	1	* When #including procio.h, make sure these files are #included first:
33	jds	54	* #include <stdio.h>
34			* #include "utilities/ascConfig.h"
35	aw0a	1	* #include "compiler.h"
36			* #include "proc.h"
37	jds	54	* </pre>
38	aw0a	1	*/
39
40			#ifndef __PROCIO_H_SEEN__
41			#define __PROCIO_H_SEEN__
42
43	jds	54	/** Codes for old-style external call messaging. */
44	aw0a	1	enum ProcExtError {
45			PE_unloaded,
46			PE_nulleval,
47			PE_argswrong,
48			PE_badarg,
49			PE_evalerr
50			};
51
52	jds	54	/** METHODs equivalent of WSEM. Should go away soon. */
53			extern void WriteInitWarn(struct procFrame fm, char str);
54			/** METHODs equivalent of WSEM. Should go away soon. */
55			extern void WriteInitErr(struct procFrame fm, char str);
56	aw0a	1
57	jds	54	/* error message services */
58
59			/**
60			* <!-- ProcWriteCaseError(fm,arm,pos); -->
61			* Write error encountered while evaluating SWITCH.
62	aw0a	1	* arm gives the number of the case in question. pos
63			* gives the position of the error in the var list.
64			*/
65	jds	54	extern void ProcWriteCaseError(struct procFrame *fm, int arm, int pos);
66	aw0a	1
67	jds	54	/**
68			* <!-- ProcWriteForError(fm); -->
69			* Write error encountered while evaluating FOR/DO.
70	aw0a	1	*/
71	jds	54	extern void ProcWriteForError(struct procFrame *fm);
72	aw0a	1
73	jds	54	/**
74			* <!-- ProcWriteAssignmentError(fm); -->
75			* Write error encountered while evaluating := assignment.
76	aw0a	1	*/
77	jds	54	extern void ProcWriteAssignmentError(struct procFrame *fm);
78	aw0a	1
79	jds	54	/**
80			* <!-- ProcWriteIfError(fm,cname); -->
81			* Write error encountered while evaluating boolean flow control.
82	aw0a	1	* cname is normally "IF" or "WHILE".
83			*/
84	jds	54	extern void ProcWriteIfError(struct procFrame fm, CONST char cname);
85	aw0a	1
86	jds	54	/**
87			* <!-- ProcWriteRunError(fm); -->
88			* Write error encountered while evaluating RUN arguments.
89	aw0a	1	*/
90	jds	54	extern void ProcWriteRunError(struct procFrame *fm);
91	aw0a	1
92	jds	54	/**
93			* <!-- ProcWriteExtError(fm,funcname,err,pos); -->
94			* Write error encountered while evaluating Ext arguments.
95	aw0a	1	*/
96	jds	54	extern void ProcWriteExtError(struct procFrame *fm,
97			CONST char *funcmane,
98			enum ProcExtError err,
99			int pos);
100	aw0a	1
101	jds	54	/* backtrace output functions. */
102	aw0a	1
103	jds	54	/**
104	aw0a	1	* Issue a message if we blew the stack limit or are
105			* unwinding the stack.
106			*/
107	jds	54	extern void ProcWriteStackCheck(struct procFrame *fm,
108			struct Name *class,
109			struct Name *name);
110	aw0a	1
111	jds	54	/**
112			* <!-- WriteProcedureBlock(fp,initstack,str); -->
113			* Writes a line to file fp. Write format resembles:
114	aw0a	1	* ("%s %s in %s\n",str,stack->last->proc,stack->last->context)
115	jds	54	* For example:
116			* <pre>
117			* WriteProcedureBlock(ASCERR,stack,"Entering ");
118			* --> "Entering METHOD myproc in mysim.myinstance[3]"
119			* </pre>
120	aw0a	1	* str may be empty or NULL.
121			* The format is subject to change as this feature is in development.
122			*/
123	jds	54	extern void WriteProcedureBlock(FILE *fp,
124			struct gl_list_t *initstack,
125			CONST char *str);
126	aw0a	1
127	jds	54	/**
128			* <!-- WriteProcedureLine(fp,initstack,str); -->
129			* Writes a line to file fp. Write format resembles:
130	aw0a	1	* ("%s %d: %s in %s\n",str,line,proc,context)
131	jds	54	* For example:
132			* <pre>
133			* WriteProcedureLine(ASCERR,initstack,"Executing line ");
134			* --> "Executing line 137 of myprocname in mysim.myinstance[3]"
135			* </pre>
136	aw0a	1	* The format is subject to change as this feature is in development.
137			*/
138	jds	54	extern void WriteProcedureLine(FILE *fp,
139			struct gl_list_t *initstack,
140			CONST char *str);
141	aw0a	1
142	jds	54	#endif /* __PROCIO_H_SEEN__ */
143