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
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
|
/*
* SCCS: @(#)child.c 1.22 (98/09/01)
*
* UniSoft Ltd., London, England
*
* (C) Copyright 1992 X/Open Company Limited
*
* All rights reserved. No part of this source code may be reproduced,
* stored in a retrieval system, or transmitted, in any form or by any
* means, electronic, mechanical, photocopying, recording or otherwise,
* except as stated in the end-user licence agreement, without the prior
* permission of the copyright owners.
*
* X/Open and the 'X' symbol are trademarks of X/Open Company Limited in
* the UK and other countries.
*/
#ifdef HAVE_CONFIG_H
#include <config.h>
#endif
/************************************************************************
SCCS: @(#)child.c 1.22 98/09/01 TETware release 3.3
NAME: child.c
PRODUCT: TETware
AUTHOR: Andrew Dingwall, UniSoft Ltd.
DATE CREATED: October 1992
DESCRIPTION:
tet_tcmc_main() is called from a different main() wrapper for each API,
providing the main() function for processes started by tet_exec()
and tet_remexec().
MODIFICATIONS:
Andrew Dingwall, UniSoft Ltd., December 1993
removed reference to dapi.h
Geoff Clare, UniSoft Ltd., August 1996
Changes for TETWare.
Geoff Clare, UniSoft Ltd., 21 August 1996
Made include of <stdio.h> non-conditional.
Geoff Clare, UniSoft Ltd, Sept 1996
Moved tet_blockable_sigs setup to tet_init_blockable_sigs().
Changes for TETware-Lite.
Geoff Clare, UniSoft Ltd., Oct 1996
restructured tcm source to avoid "ld -r"
Geoff Clare, UniSoft Ltd., July 1997
Changes to support NT threads.
Andrew Dingwall, UniSoft Ltd., July 1997
Added code to generate a new (unique) context value on Win32 systems,
since it is not possible for tet_spawn() to call tet_setcontext()
on a Win32 system.
Andrew Dingwall, UniSoft Ltd., February 1998
Use TETware-specific macros to access threads functions and
data items.
Andrew Dingwall, UniSoft Ltd., July 1998
Added support for shared API libraries.
Note that this includes a change to the calling convention for
child processes.
************************************************************************/
#include <stdio.h>
#include <stdlib.h>
#include <signal.h>
#include "dtmac.h"
#include "dtmsg.h"
#include "dtthr.h"
#include "alarm.h"
#include "error.h"
#include "synreq.h"
#include "dtetlib.h"
#include "globals.h"
#include "tcmfuncs.h"
#include "tet_api.h"
#include "apilib.h"
#include "sigsafe.h"
/* global variables, values inhereted from tet_exec() and tet_remexec() */
#ifdef TET_THREADS
static int start_errno;
static int start_child;
static int start_alrm_flag;
static long start_block;
static long start_sequence;
#endif /* TET_THREADS */
int tet_tcmc_main(argc, argv)
int argc;
char **argv;
{
register int rc;
#ifdef TET_THREADS
/* initial thread ID */
tet_start_tid = TET_THR_SELF();
/* set up thread-specific data */
if (TET_THR_KEYCREATE(&tet_errno_key) != 0 ||
TET_THR_KEYCREATE(&tet_child_key) != 0 ||
TET_THR_KEYCREATE(&tet_alrm_flag_key) != 0 ||
TET_THR_KEYCREATE(&tet_block_key) != 0 ||
TET_THR_KEYCREATE(&tet_sequence_key) != 0)
{
/* can't use tet_error() yet */
(void) fprintf(stderr,
"%s: TET_THR_KEYCREATE() failed in TCM startup",
tet_progname);
exit(EXIT_FAILURE);
}
TET_THR_SETSPECIFIC(tet_errno_key, (void *) &start_errno);
TET_THR_SETSPECIFIC(tet_child_key, (void *) &start_child);
TET_THR_SETSPECIFIC(tet_alrm_flag_key, (void *) &start_alrm_flag);
TET_THR_SETSPECIFIC(tet_block_key, (void *) &start_block);
TET_THR_SETSPECIFIC(tet_sequence_key, (void *) &start_sequence);
/* initialise all mutexes */
tet_mtx_init();
#endif
if (argc < TET_TCMC_USER_ARGS + 1)
fatal(0, "argument count wrong; process must be executed by",
tet_callfuncname());
/*
** set the global variables from the command line -
** on WIN32 systems there is no fork() in the parent process so
** tet_setcontext() and tet_setblock() have not yet been called;
** so argv[3] and argv[4] are the context and block values from the
** parent and we must simulate calls to tet_setcontext() and
** tet_setblock() in this process
**
** the pids get reused too quickly on WIN32 systems to be useful
** as a context value;
** we do the best we can to generate a unique context value
** which can be used to distinguish journal output from that
** of other processes that write to the same journal
*/
tet_thistest = atoi(*(argv + TET_TCMC_THISTEST));
tet_activity = atol(*(argv + TET_TCMC_ACTIVITY));
tet_context = atol(*(argv + TET_TCMC_CONTEXT));
# ifdef TET_THREADS
tet_next_block = atol(*(argv + TET_TCMC_BLOCK));
# else
tet_block = atol(*(argv + TET_TCMC_BLOCK));
# endif
argc -= TET_TCMC_USER_ARGS;
argv += TET_TCMC_USER_ARGS;
tet_pname = *argv;
tet_init_blockable_sigs();
/* initialise the server and transport stuff */
tet_tcminit(argc, argv);
/* start a new block and read in the config variables */
tet_setblock();
tet_config();
/* call the user-supplied program */
rc = tet_main(argc, argv);
#ifdef TET_THREADS
tet_cln_threads(0);
tet_mtx_destroy();
tet_mtx_init();
#endif
/* log off all the servers and exit */
tet_logoff();
return(rc);
}
|
