1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
|
/*##############################################################################
FUNNNELWEB COPYRIGHT
====================
FunnelWeb is a literate-programming macro preprocessor.
The FunnelWeb web is at http://www.ross.net/funnelweb/
Copyright (c) Ross N. Williams 1992. All rights reserved.
This program is free software; you can redistribute it and/or modify
it under the terms of Version 2 of the GNU General Public License as
published by the Free Software Foundation (http://www.gnu.org/).
This program is distributed WITHOUT ANY WARRANTY; without even the implied
warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
See Version 2 of the GNU General Public License for more details.
You should have received a copy of Version 2 of the GNU General Public
License along with this program. If not, you can obtain a copy as follows:
ftp://prep.ai.mit.edu/pub/gnu/COPYING-2.0
or write to:
Free Software Foundation, Inc.,
59 Temple Place - Suite 330, Boston, MA 02111-1307, USA
Section 2a of the license requires that all changes to this file be
recorded prominently in this file. Please record all changes here.
Programmers:
RNW Ross N. Williams (ross@ross.net)
Changes:
07-May-1992 RNW Program prepared for release under GNU GPL V2.
08-May-1999 RNW Added code to set creator/type of output files on Mac.
##############################################################################*/
/******************************************************************************/
/* MAIN.C */
/******************************************************************************/
#include "style.h"
#include "as.h"
#include "command.h"
#include "data.h"
#include "machin.h"
#include "memory.h"
/* Allows us to set the creator and type of output files on Macintosh. */
#if OS_MAC
extern long _ftype;
extern long _fcreator;
#endif
/******************************************************************************/
/* The following variables should really be local to main. However, some */
/* compilers have a problem with this and so it has been declared here. */
LOCVAR char *p_comline;
LOCVAR ulong sum_all;
/******************************************************************************/
LOCAL void minimain P_((int,char **));
LOCAL void minimain(argc,argv)
/* Some compilers generate buggy code for main() and so this minimain */
/* function has been created to take the heat off main(). */
int argc;
char **argv;
{
/* 08-May-1999 RNW: On the Macintosh, it's convenient if FunnelWeb output */
/* files can be clicked on to invoke a text editor. This can be done by */
/* setting the creator and type of output files. CodeWarrior makes this */
/* very easy. All we have to do is set some global variables and from */
/* that point on, all output files will have the specified creator/type. */
/* I originally set the creator to TeachText (ttxt), but soon discovered */
/* that TeachText can't open files greater than 32K. I looked around for */
/* another text application that Apple provides as standard, but couldn't */
/* find one. So I chose BBEdit, whose creator is "R*ch". */
#if OS_MAC
_fcreator = 'R*ch';
_ftype = 'TEXT';
#endif
/* The principal concern of this main() function is to execute FunnelWeb and */
/* to ensure that the correct return status is returned to the OS. So it */
/* seems appropriate to zero all the global diagnostic counters here. */
sum_fat=sum_sev=sum_err=sum_war=0;
/* Some compilers place a low limit on the total amount of statics. So we */
/* have to allocate space for a command line. */
p_comline=(char *) mm_perm((size_t) COMLINE_MAX+1);
/* Obtaining the command line is highly machine specific and so it has been */
/* delegated to a function in the non-portable "machin". Just in case argc */
/* and argv are to be used, we hand them in too. The result of all this is a */
/* standard FunnelWeb command line string in the variable 'comline'. */
getcline(argc,argv,p_comline);
/* Execute the command line. */
command(p_comline);
/* Exit to the operating system with an appropriate status code. */
sum_all=sum_war+sum_err+sum_sev+sum_fat;
if (sum_all>0)
exit(EXIT_FAILURE);
else
exit(EXIT_SUCCESS);
}
/******************************************************************************/
int main(argc,argv)
int argc;
char *argv[];
{
/* We don't put anything into the function main() because some compilers */
/* generate incorrect code for main, especially with local variables. */
minimain(argc,argv);
/* Keep GCC warnings happy. */
as_bomb("Main program dropped through.");
return 0;
}
/******************************************************************************/
/* End of MAIN.C */
/******************************************************************************/
|
