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
|
/*
\funcref{main}{void main (\params)}
{
{int} {argc} {argument count}
{char} {**argv} {array of arguments}
{char} {**envp} {array of environment settings}
}
{}
{getvar(), process(), envp2list(), newvar()}
{}
{icm-exec.c}
{
The {\em main()} function opens the binary makefile, reads the offsets
of the variables and strings sections, calls {\em getvar()} to retrieve
the variables, pushes {\em argc}, {\em argv} and {\em envp}
onto the {\em icmake}
stack and then calls {\em process()} to execute the makefile.
The exit value of {\em main()} is held in the global variable {\em
retval} (see also {\em fun\_ret()}).
Function {\em cleanup()} is attached to the `at-exit' list for DOS
systems. This is necessary so that the startup working directory is
restored. For UNIX systems, no {\em atexit()} list is created.
}
*/
#include "icm-exec.h"
#include "var/var.h"
int main (int argc, char **argv)
{
int idx;
register char *progname;
atexit (cleanup);
signal (SIGINT, (void (*)(int))abnormal);
getcwd (orgdir, _MAX_PATH - 1);
if (argc == 1)
{
copyright("ICMAKE Binary Makefile Executor", version, release);
progname = program_name(argv[0]);
printf ("This program is run as a child process of icmake.\n"
"Usage: %s [-t] bimfile\n"
"where: -t - option indicating that 'bimfile' must be\n"
" removed on exit.\n"
" bimfile - binary makefile to execute.\n\n"
, progname);
return 1;
}
if (!strcmp(argv[1], "-t")) /* -t option found */
{
argv[1] = argv[0]; /* remove the -t argument */
argv++;
argc--;
bimname = argv[1]; /* define temporary name */
}
if (!(infile = fopen (argv [1], READBINARY)))
error("cannot open bimfile '%s' to read", argv[1]);
headerp = readheader(infile, (size_t)version[0]);
/* return array of global vars */
if ((INT16)(nvar = getvar(infile, headerp, &var)) == -1)
error("invalid macro file, cannot read variable section");
/* global strings haven't been initialized by the compiler yet, */
/* so that's icm-exec's job */
for (idx = 0; idx < nvar; ++idx)
{
if (typeValue(var + idx) == e_str)
var[idx] = *stringConstructor();
}
fseek(infile, headerp->offset[3], SEEK_SET);
{
LISTVAR_ env = *listConstructor();
environ2list(&env);
push(&env); /* envp: 3rd arg of main() */
listDestructor(&env);
}
{
LISTVAR_ args = *listConstructor_s_cPP((size_t)argc, argv);
push(&args); /* argv: 2nd arg of main() */
listDestructor(&args);
}
{
INTVAR_ nArgs = *intConstructor_i(argc - 1);
push(&nArgs); /* argc: 1st arg of main() */
}
process();
return retval;
}
|
