NetBSD/usr.bin/tip/value.c

358 lines
6.9 KiB
C
Raw Normal View History

1997-11-23 07:03:04 +03:00
/* $NetBSD: value.c,v 1.8 1997/11/23 04:03:05 mrg Exp $ */
1993-03-21 12:45:37 +03:00
/*
* Copyright (c) 1983, 1993
* The Regents of the University of California. All rights reserved.
1993-03-21 12:45:37 +03:00
*
* Redistribution and use in source and binary forms, with or without
* modification, are permitted provided that the following conditions
* are met:
* 1. Redistributions of source code must retain the above copyright
* notice, this list of conditions and the following disclaimer.
* 2. Redistributions in binary form must reproduce the above copyright
* notice, this list of conditions and the following disclaimer in the
* documentation and/or other materials provided with the distribution.
* 3. All advertising materials mentioning features or use of this software
* must display the following acknowledgement:
* This product includes software developed by the University of
* California, Berkeley and its contributors.
* 4. Neither the name of the University nor the names of its contributors
* may be used to endorse or promote products derived from this software
* without specific prior written permission.
*
* THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
* ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
* IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
* ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
* FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
* DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
* OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
* HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
* LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
* OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
* SUCH DAMAGE.
*/
#include <sys/cdefs.h>
1993-03-21 12:45:37 +03:00
#ifndef lint
#if 0
static char sccsid[] = "@(#)value.c 8.1 (Berkeley) 6/6/93";
#endif
1997-11-23 07:03:04 +03:00
__RCSID("$NetBSD: value.c,v 1.8 1997/11/23 04:03:05 mrg Exp $");
1993-03-21 12:45:37 +03:00
#endif /* not lint */
#include "tip.h"
#define MIDDLE 35
static int col = 0;
static int vaccess __P((unsigned, unsigned));
static void vassign __P((value_t *, char *));
static value_t *vlookup __P((char *));
static void vprint __P((value_t *));
static void vtoken __P((char *));
1993-03-21 12:45:37 +03:00
/*
* Variable manipulation
*/
void
1993-03-21 12:45:37 +03:00
vinit()
{
value_t *p;
char *cp;
1993-03-21 12:45:37 +03:00
FILE *f;
char file[MAXPATHLEN];
1993-03-21 12:45:37 +03:00
for (p = vtable; p->v_name != NULL; p++) {
if (p->v_type&ENVIRON)
if ((cp = getenv(p->v_name)) != NULL)
1993-03-21 12:45:37 +03:00
p->v_value = cp;
if (p->v_type&IREMOTE)
setnumber(p->v_value, *address(p->v_value));
1993-03-21 12:45:37 +03:00
}
/*
* Read the .tiprc file in the HOME directory
* for sets
*/
snprintf(file, sizeof(file), "%s/.tiprc", value(HOME));
1993-03-21 12:45:37 +03:00
if ((f = fopen(file, "r")) != NULL) {
char *tp;
1993-03-21 12:45:37 +03:00
while (fgets(file, sizeof(file)-1, f) != NULL) {
if (vflag)
printf("set %s", file);
if ((tp = strrchr(file, '\n')) != NULL)
1993-03-21 12:45:37 +03:00
*tp = '\0';
vlex(file);
}
fclose(f);
}
/*
* To allow definition of exception prior to fork
*/
vtable[EXCEPTIONS].v_access &= ~(WRITE<<PUBLIC);
}
void
1993-03-21 12:45:37 +03:00
vassign(p, v)
value_t *p;
1993-03-21 12:45:37 +03:00
char *v;
{
if (!vaccess(p->v_access, WRITE)) {
printf("access denied\r\n");
return;
}
switch (p->v_type&TMASK) {
case STRING:
if (p->v_value && equal(p->v_value, v))
return;
if (!(p->v_type&(ENVIRON|INIT)))
free(p->v_value);
if ((p->v_value = strdup(v)) == NULL) {
1993-03-21 12:45:37 +03:00
printf("out of core\r\n");
return;
}
p->v_type &= ~(ENVIRON|INIT);
break;
case NUMBER:
if (number(p->v_value) == number(v))
return;
setnumber(p->v_value, number(v));
1993-03-21 12:45:37 +03:00
break;
case BOOL:
if (boolean(p->v_value) == (*v != '!'))
return;
setboolean(p->v_value, (*v != '!'));
1993-03-21 12:45:37 +03:00
break;
case CHAR:
if (character(p->v_value) == *v)
return;
setcharacter(p->v_value, *v);
1993-03-21 12:45:37 +03:00
}
p->v_access |= CHANGED;
}
void
1993-03-21 12:45:37 +03:00
vlex(s)
char *s;
1993-03-21 12:45:37 +03:00
{
value_t *p;
1993-03-21 12:45:37 +03:00
if (equal(s, "all")) {
for (p = vtable; p->v_name; p++)
if (vaccess(p->v_access, READ))
vprint(p);
} else {
char *cp;
1993-03-21 12:45:37 +03:00
do {
if ((cp = vinterp(s, ' ')) != NULL)
1993-03-21 12:45:37 +03:00
cp++;
vtoken(s);
s = cp;
} while (s);
}
if (col > 0) {
printf("\r\n");
col = 0;
}
}
static void
vtoken(s)
char *s;
1993-03-21 12:45:37 +03:00
{
value_t *p;
char *cp;
1993-03-21 12:45:37 +03:00
if ((cp = strchr(s, '=')) != NULL) {
1993-03-21 12:45:37 +03:00
*cp = '\0';
if ((p = vlookup(s)) != NULL) {
1993-03-21 12:45:37 +03:00
cp++;
if (p->v_type&NUMBER)
1997-11-23 07:03:04 +03:00
vassign(p, (char *)(long)atoi(cp));
1993-03-21 12:45:37 +03:00
else {
if (strcmp(s, "record") == 0)
cp = expand(cp);
vassign(p, cp);
}
return;
}
} else if ((cp = strchr(s, '?')) != NULL) {
1993-03-21 12:45:37 +03:00
*cp = '\0';
if ((p = vlookup(s)) && vaccess(p->v_access, READ)) {
vprint(p);
return;
}
} else {
if (*s != '!')
p = vlookup(s);
else
p = vlookup(s+1);
if (p != NULL) {
1993-03-21 12:45:37 +03:00
vassign(p, s);
return;
}
}
printf("%s: unknown variable\r\n", s);
}
static void
vprint(p)
value_t *p;
1993-03-21 12:45:37 +03:00
{
char *cp;
1993-03-21 12:45:37 +03:00
if (col > 0 && col < MIDDLE)
while (col++ < MIDDLE)
putchar(' ');
col += strlen(p->v_name);
1993-03-21 12:45:37 +03:00
switch (p->v_type&TMASK) {
case BOOL:
if (boolean(p->v_value) == FALSE) {
col++;
putchar('!');
}
printf("%s", p->v_name);
break;
case STRING:
printf("%s=", p->v_name);
col++;
if (p->v_value) {
cp = interp(p->v_value);
col += strlen(cp);
1993-03-21 12:45:37 +03:00
printf("%s", cp);
}
break;
case NUMBER:
col += 6;
printf("%s=%-5d", p->v_name, (int)number(p->v_value));
1993-03-21 12:45:37 +03:00
break;
case CHAR:
printf("%s=", p->v_name);
col++;
if (p->v_value) {
cp = ctrl(character(p->v_value));
col += strlen(cp);
1993-03-21 12:45:37 +03:00
printf("%s", cp);
}
break;
}
if (col >= MIDDLE) {
col = 0;
printf("\r\n");
return;
}
}
static int
vaccess(mode, rw)
unsigned mode, rw;
1993-03-21 12:45:37 +03:00
{
if (mode & (rw<<PUBLIC))
return (1);
if (mode & (rw<<PRIVATE))
return (1);
return ((mode & (rw<<ROOT)) && getuid() == 0);
}
static value_t *
vlookup(s)
char *s;
1993-03-21 12:45:37 +03:00
{
value_t *p;
1993-03-21 12:45:37 +03:00
for (p = vtable; p->v_name; p++)
if (equal(p->v_name, s) || (p->v_abrev && equal(p->v_abrev, s)))
return (p);
return (NULL);
}
char *
vinterp(s, stop)
char *s;
1993-03-21 12:45:37 +03:00
char stop;
{
char *p = s, c;
1993-03-21 12:45:37 +03:00
int num;
while ((c = *s++) && c != stop)
switch (c) {
case '^':
if (*s)
*p++ = *s++ - 0100;
else
*p++ = c;
break;
case '\\':
num = 0;
c = *s++;
if (c >= '0' && c <= '7')
num = (num<<3)+(c-'0');
else {
char *q = "n\nr\rt\tb\bf\f";
1993-03-21 12:45:37 +03:00
for (; *q; q++)
if (c == *q++) {
*p++ = *q;
goto cont;
}
*p++ = c;
cont:
break;
}
if ((c = *s++) >= '0' && c <= '7') {
num = (num<<3)+(c-'0');
if ((c = *s++) >= '0' && c <= '7')
num = (num<<3)+(c-'0');
else
s--;
} else
s--;
*p++ = num;
break;
default:
*p++ = c;
}
*p = '\0';
return (c == stop ? s-1 : NULL);
}
/*
* assign variable s with value v (for NUMBER or STRING or CHAR types)
*/
int
1993-03-21 12:45:37 +03:00
vstring(s,v)
char *s;
char *v;
1993-03-21 12:45:37 +03:00
{
value_t *p;
1993-03-21 12:45:37 +03:00
p = vlookup(s);
if (p == 0)
return (1);
if (p->v_type&NUMBER)
1997-11-23 07:03:04 +03:00
vassign(p, (char *)(long)atoi(v));
1993-03-21 12:45:37 +03:00
else {
if (strcmp(s, "record") == 0)
v = expand(v);
vassign(p, v);
}
return (0);
}