/[ascend]/trunk/ascend/compiler/watchptio.c
ViewVC logotype

Contents of /trunk/ascend/compiler/watchptio.c

Parent Directory Parent Directory | Revision Log Revision Log


Revision 2318 - (show annotations) (download) (as text)
Tue Dec 14 06:27:47 2010 UTC (11 years, 6 months ago) by jpye
File MIME type: text/x-csrc
File size: 1600 byte(s)
removing some unneeded #includes of 'slist.h'.
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

john.pye@anu.edu.au
ViewVC Help
Powered by ViewVC 1.1.22