/[ascend]/trunk/base/generic/compiler/redirectFile.c
ViewVC logotype

Contents of /trunk/base/generic/compiler/redirectFile.c

Parent Directory Parent Directory | Revision Log Revision Log


Revision 534 - (show annotations) (download) (as text)
Tue Apr 25 13:25:04 2006 UTC (14 years, 1 month ago) by johnpye
File MIME type: text/x-csrc
File size: 1373 byte(s)
Working on platform-independent pathnames for the IMPORT command.
Added 'ospath.c' to base/generic/general for this purpose.
Patched kvalues and sensitivity to use the 'IMPORT "libname";' syntax
instead of 'IMPORT registerfn FROM libname;'.
Fixed pathnames in create.nsi.
Added GPL header to coupla files.
Added quoting to 'IMPORT' syntax in ascParse.y.
Removed 'PackageOption' from Tcl/Tk related Scons options so that missing Tcl/Tk
doesn't cause breakage.
1 /* ASCEND modelling environment
2 Copyright (C) 2006 Carnegie Mellon University
3
4 This program is free software; you can redistribute it and/or modify
5 it under the terms of the GNU General Public License as published by
6 the Free Software Foundation; either version 2, or (at your option)
7 any later version.
8
9 This program is distributed in the hope that it will be useful,
10 but WITHOUT ANY WARRANTY; without even the implied warranty of
11 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
12 GNU General Public License for more details.
13
14 You should have received a copy of the GNU General Public License
15 along with this program; if not, write to the Free Software
16 Foundation, Inc., 59 Temple Place - Suite 330,
17 Boston, MA 02111-1307, USA.
18 */
19
20 #include <stdio.h>
21
22 #include <utilities/ascConfig.h>
23 #include "redirectFile.h"
24 FILE *g_ascend_errors=NULL;
25 FILE *g_ascend_warnings=NULL;
26 FILE *g_ascend_information=NULL;
27
28 void Asc_RedirectCompilerDefault() {
29 g_ascend_errors = stderr; /* error file */
30 g_ascend_warnings = stderr; /* whine file */
31 g_ascend_information = stderr; /* note file */
32 }
33
34 void Asc_RedirectCompilerStreams(FILE *errfile, FILE *warnfile, FILE *infofile)
35 {
36 g_ascend_errors = errfile; /* error file */
37 g_ascend_warnings = warnfile; /* whine file */
38 g_ascend_information = infofile; /* note file */
39 }
40

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