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
|
/*
* SCCS: @(#)globals.c 1.1 (98/09/01)
*
* UniSoft Ltd., London, England
*
* Copyright (c) 1998 The Open Group
* 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.
* A copy of the end-user licence agreement is contained in the file
* Licence which accompanies this distribution.
*
* Motif, OSF/1, UNIX and the "X" device are registered trademarks and
* IT DialTone and The Open Group are trademarks of The Open Group in
* the US and other countries.
*
* X/Open is a trademark of X/Open Company Limited in the UK and other
* countries.
*
*/
#ifdef HAVE_CONFIG_H
#include <config.h>
#endif
/************************************************************************
SCCS: @(#)globals.c 1.1 98/09/01 TETware release 3.3
NAME: globals.c
PRODUCT: TETware
AUTHOR: Andrew Dingwall, UniSoft Ltd.
DATE CREATED: July 1998
DESCRIPTION:
global variables that must be supplied by all programs that
use the API library
MODIFICATIONS:
Aaron Plattner, April 2010
Fixed warnings when compiled with GCC's -Wall option.
************************************************************************/
#include <stdio.h>
#include <stdlib.h>
# include <unistd.h>
#include "dtmac.h"
#include "dtmsg.h"
#include "error.h"
#include "globals.h"
/* global data items */
TET_IMPORT const char *tet_progname = "<unknown>";
/* my program name */
TET_IMPORT int tet_mypid = -1; /* my program ID */
TET_IMPORT int tet_myptype = PT_NOPROC; /* my process type */
TET_IMPORT int tet_mysysid = -1; /* my system ID */
TET_IMPORT char tet_root[MAXPATH]; /* TET_ROOT from the environment */
TET_IMPORT void (*tet_liberror) PROTOLIST((int, const char *, int, const char *, const char *));
/* ptr to error handler function */
TET_IMPORT TET_NORETURN void (*tet_libfatal) PROTOLIST((int, const char *, int, const char *, const char *));
/* ptr to fatal error handler */
/* static function declarations */
static TET_NORETURN void minfatal PROTOLIST((int, const char *, int, const char *, const char *));
/*
** tet_init_globals() - initialise the global data items
**
** a call to this function should be the very first thing in a
** program's main() function
**
** note that initialisation of all the data items is not guaranteed
** after a call to this function;
** in particular, tet_root might not be initialised
** (not all programs need it)
** and some programs don't know all the information at startup time;
** they have to fill in the information by hand later on
*/
TET_IMPORT void tet_init_globals(const char *progname, int ptype, int sysid,
void (*liberror) PROTOLIST((int, const char *, int, const char *, const char *)),
void TET_NORETURN (*libfatal) PROTOLIST((int, const char *, int, const char *, const char *)))
{
char *p;
if (progname && *progname)
tet_progname = progname;
tet_mypid = GETPID();
if (ptype > 0)
tet_myptype = ptype;
if (sysid >= 0)
tet_mysysid = sysid;
if ((p = getenv("TET_ROOT")) != (char *) 0)
(void) sprintf(tet_root, "%.*s", (int) sizeof tet_root - 1, p);
if (!tet_libfatal)
tet_libfatal = minfatal;
ASSERT(liberror);
tet_liberror = liberror;
ASSERT(libfatal);
tet_libfatal = libfatal;
}
/*
** minfatal() - minimal fatal error reporting function
**
** sufficient for use by the ASSERT() macro calls above
*/
static TET_NORETURN void minfatal(int err, const char *file, int line, const char *s1, const char *s2)
{
if (tet_liberror)
(*tet_liberror)(err, file, line, s1, s2);
else
(void) fprintf(stderr, "%s (%s, %d): %s %s\n",
tet_progname, file, line, s1, s2 ? s2 : "");
exit(1);
}
|
