xstr.c revision 7c478bd95313f5f23a4c958a745db2134aa03244
/*
* Copyright 1989 Sun Microsystems, Inc. All rights reserved.
* Use is subject to license terms.
*/
/* Copyright (c) 1983, 1984, 1985, 1986, 1987, 1988, 1989 AT&T */
/* All Rights Reserved */
/*
* Copyright (c) 1980 Regents of the University of California.
* All rights reserved. The Berkeley software License Agreement
* specifies the terms and conditions for redistribution.
*/
#ident "%Z%%M% %I% %E% SMI"
#include <stdio.h>
#include <ctype.h>
#include <signal.h>
#include <stdlib.h>
/*
* xstr - extract and hash strings in a C program
*
* Bill Joy UCB
* November, 1978
*/
#define ignore(a) ((void) a)
void onintr();
char *savestr();
char *strcat();
char *strcpy();
void cleanup();
char *strings = "strings";
int cflg;
int vflg;
char *xname = "xstr";
int readstd;
int tmpfd;
int argc;
char *argv[];
{
argc--;
if (*cp == 0) {
readstd++;
continue;
}
do switch (*cp++) {
case 'c':
cflg++;
continue;
case 'l':
argc--;
continue;
case 'v':
vflg++;
continue;
default:
"usage: xstr [ -v ] [ -c ] [ -l label ] [ - ] [ name ... ]\n");
} while (*cp);
}
inithash();
else {
if (tmpfd == -1) {
exit(9);
}
}
if (readstd == 0)
else
readstd = 0;
};
flushsh();
if (cflg == 0)
xsdotc();
(void) cleanup();
exit(0);
/* NOTREACHED */
}
char *name;
{
char *cp;
register int c;
register int incomm = 0;
int ret;
for (;;) {
(void) cleanup();
exit(3);
}
break;
}
if (linebuf[0] == '#') {
else
continue;
}
switch (c) {
case '"':
if (incomm)
goto def;
goto out;
break;
case '\'':
if (incomm)
goto def;
putchar(c);
if (*cp)
break;
case '/':
goto def;
incomm = 1;
cp++;
printf("/*");
continue;
case '*':
incomm = 0;
cp++;
printf("*/");
continue;
}
goto def;
def:
default:
putchar(c);
break;
}
}
}
out:
}
register char **cpp;
{
register int c, ch;
register char *tp;
while (c = *cp++) {
switch (c) {
case '"':
cp++;
goto out;
case '\\':
c = *cp++;
if (c == 0)
break;
if (c == '\n') {
== NULL) {
(void) cleanup();
exit(3);
}
return (-1);
}
continue;
}
if (c == ch) {
c = *tp;
goto gotc;
}
if (!octdigit(c)) {
*dp++ = '\\';
break;
}
c -= '0';
break;
break;
break;
}
gotc:
*dp++ = c;
}
out:
*dp = 0;
}
octdigit(c)
char c;
{
}
inithash()
{
return;
for (;;) {
break;
}
}
char *obuf;
register int rmdr;
{
register c;
*buf++ = c;
*buf++ = 0;
}
{
tellpt++;
}
#define BUCKETS 128
struct hash {
char *hstr;
short hnew;
char *str;
int new;
{
int i;
if (i >= 0)
}
perror("xstr");
(void) cleanup();
exit(8);
}
}
flushsh()
{
register int i;
for (i = 0; i < BUCKETS; i++)
new++;
else
old++;
return;
for (i = 0; i < BUCKETS; i++)
(void) cleanup();
exit(4);
}
}
}
}
int new;
char *str;
{
if (vflg == 0)
return;
if (!new)
else
}
register char *cp;
{
register int c;
while (c = (*cp++ & 0377))
if (c < ' ')
else if (c == 0177)
else if (c > 0200)
else
}
xsdotc()
{
for (;;) {
register int i, c;
for (i = 0; i < 8; i++) {
onintr();
}
goto out;
}
}
}
out:
}
char *
register char *cp;
{
register char *dp;
perror("xstr");
exit(8);
}
}
register char *cp;
{
cp++;
return (*cp);
}
{
return (-1);
return (d);
}
void
onintr()
{
(void) cleanup();
exit(7);
}
void
cleanup(void)
{
if (strings[0] == '/') {
}
}