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
|
/*
* SCCS: @(#)remvar.c 1.7 (98/08/28)
*
* 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: @(#)remvar.c 1.7 98/08/28 TETware release 3.3
NAME: remvar.c
PRODUCT: TETware
AUTHOR: Andrew Dingwall, UniSoft Ltd.
DATE CREATED: June 1992
DESCRIPTION:
function to strip TET_REMnnn_ prefix from remote config variable
assignment
MODIFICATIONS:
Andrew Dingwall, UniSoft Ltd., July 1998
added tet_remvar_sysid() function
Aaron Plattner, April 2010
Fixed warnings when compiled with GCC's -Wall option.
************************************************************************/
#include <stdio.h>
#include <ctype.h>
#include <string.h>
#include "dtmac.h"
#include "dtetlib.h"
/* static function declarations */
static int rvs2 PROTOLIST((char *, char **));
/*
** tet_remvar() - process remote config variable assignment
**
** if s starts with a TET_REMnnn_ prefix and nnn matches sysid,
** tet_remvar() returns a pointer to the start of the rest of the
** assignment string following the TET_REMnnn_ prefix
**
** if the name part does not start with the prefix TET_REMnnn_ or nnn
** does not match sysid, tet_remvar() returns its first argument
**
** if sysid is -1, any sysid is matched
**
** tet_remvar() returns (char *) 0 if the variable name is malformed
*/
char *tet_remvar(s, sysid)
register char *s;
{
char *var;
int rc;
if ((rc = rvs2(s, &var)) < 0)
return(rc == -1 ? s : (char *) 0);
return((sysid == rc || sysid == -1) ? var : s);
}
/*
** tet_remvar_sysid() - parse remote configuration variable name
**
** return nnn if s starts with a TET_REMnnn_ prefix
** return -1 if the name doesn't start with a TET_REMnnn_ prefix
** return -2 for a malformed TET_REMnnn_ prefix
*/
int tet_remvar_sysid(s)
char *s;
{
char *var;
return(rvs2(s, &var));
}
/*
** rvs2() - common function for tet_remvar() and tet_remvar_sysid()
**
** return nnn if s starts with a TET_REMnnn_ prefix;
** a pointer to the first character after the prefix is returned
** indirectly through *vp
**
** return -1 if the name doesn't start with a TET_REMnnn_ prefix
** return -2 for a malformed TET_REMnnn_ prefix
*/
static int rvs2(s, vp)
char *s, **vp;
{
register char *p;
register int sysid;
static char fmt[] = "TET_REM";
/* see if this is a TET_REM variable */
if (strncmp(s, fmt, sizeof fmt - 1))
return(-1);
/*
** make p point past the "TET_REM" and extract the nnn part -
** we don't really mind how many digits there are
*/
sysid = 0;
for (p = s + sizeof fmt - 1; *p && isdigit(*p); p++)
sysid = (sysid * 10) + (*p & 017);
/* next char should be '_'; skip over it */
if (*p++ != '_')
return(-2);
*vp = p;
return(sysid);
}
|
