ascend/compiler/watchptio.c

/*
 *  watchptio.c: An API to ascend methods
 *  by Benjamin Allan
 *  March 17, 1998
 *  Part of ASCEND
 *  Version: $Revision: 1.2 $
 *  Version control file: $RCSfile: watchptio.c,v $
 *  Date last modified: $Date: 1998/06/16 16:38:52 $
 *  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.
 */

#include <ascend/utilities/ascConfig.h>
#include <ascend/general/list.h>

#include "stattypes.h"
#include "statio.h"
#include "proc.h"
#include "watchptio.h"

/* move this function to watchpt.h, add WriteProcedureString */
void WriteProcedure(FILE *f, struct InitProcedure *p)
{
  FPRINTF(f,"METHOD %s;\n",SCP(ProcName(p)));
  WriteStatementList(f,ProcStatementList(p),4);
  FPRINTF(f,"END %s;\n",SCP(ProcName(p)));
}

1	/*
2	* watchptio.c: An API to ascend methods
3	* by Benjamin Allan
4	* March 17, 1998
5	* Part of ASCEND
6	* Version: $Revision: 1.2 $
7	* Version control file: $RCSfile: watchptio.c,v $
8	* Date last modified: $Date: 1998/06/16 16:38:52 $
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	#include <ascend/utilities/ascConfig.h>
33	#include <ascend/general/list.h>
34
35	#include "stattypes.h"
36	#include "statio.h"
37	#include "proc.h"
38	#include "watchptio.h"
39
40	/* move this function to watchpt.h, add WriteProcedureString */
41	void WriteProcedure(FILE f, struct InitProcedure p)
42	{
43	FPRINTF(f,"METHOD %s;\n",SCP(ProcName(p)));
44	WriteStatementList(f,ProcStatementList(p),4);
45	FPRINTF(f,"END %s;\n",SCP(ProcName(p)));
46	}
47