d0p1/ack
1
0
Fork 0
Code Issues Pull requests Packages Projects Releases Wiki Activity

Run through clang-format.

Browse source
This commit is contained in:
David Given 2018-06-23 23:46:44 +02:00
parent fd94e219d4
commit 205c8d0a35
1 changed files with 199 additions and 165 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

178
util/cmisc/tabgen.c
View file

@ -41,18 +41,21 @@ int setval(int, char *);
int quoted(char**); int quoted(char**);
void DoFile(char*); void DoFile(char*);
int int main(int argc, char* argv[])
main(int argc, char *argv[])
{ {
ProgCall = *argv++; ProgCall = *argv++;
argc--; argc--;
while (argc-- > 0) { while (argc-- > 0)
if (**argv == COMCOM) { {
if (**argv == COMCOM)
{
option(*argv++); option(*argv++);
} }
else { else
if (! process(*argv++, InputForm)) { {
if (!process(*argv++, InputForm))
{
exit(1); exit(1);
} }
} }
@ -61,25 +64,25 @@ main(int argc, char *argv[])
/*NOTREACHED*/ /*NOTREACHED*/
} }
char * char* Salloc(char* s)
Salloc(char *s)
{ {
char* ns = strdup(s); char* ns = strdup(s);
if (!ns) { if (!ns)
{
fprintf(stderr, "%s: out of memory\n", ProgCall); fprintf(stderr, "%s: out of memory\n", ProgCall);
exit(1); exit(1);
} }
return ns; return ns;
} }
void void option(char* str)
option(char *str)
{ {
/* note that *str indicates the source of the option: /* note that *str indicates the source of the option:
either COMCOM (from command line) or FILECOM (from a file). either COMCOM (from command line) or FILECOM (from a file).
*/ */
switch (*++str) { switch (*++str)
{
case ' ': /* command */ case ' ': /* command */
case '\t': case '\t':
@ -89,7 +92,8 @@ option(char *str)
InputForm = *++str; InputForm = *++str;
break; break;
case 'f': /* input from file ... */ case 'f': /* input from file ... */
if (*++str == '\0') { if (*++str == '\0')
{
fprintf(stderr, "%s: -f: name expected\n", ProgCall); fprintf(stderr, "%s: -f: name expected\n", ProgCall);
exit(1); exit(1);
} }
@ -108,20 +112,24 @@ option(char *str)
InitTable((char*)0); InitTable((char*)0);
break; break;
case 'i': /* initialize table with given value */ case 'i': /* initialize table with given value */
if (*++str == '\0') { if (*++str == '\0')
{
InitTable((char*)0); InitTable((char*)0);
} }
else InitTable(str); else
InitTable(str);
break; break;
case 'S': case 'S':
{ {
int i = atoi(++str); int i = atoi(++str);
if (i <= 0 || i > MAXTAB) { if (i <= 0 || i > MAXTAB)
{
fprintf(stderr, "%s: size would exceed maximum\n", fprintf(stderr, "%s: size would exceed maximum\n",
ProgCall); ProgCall);
} }
else { else
{
TabSize = i; TabSize = i;
} }
break; break;
@ -131,8 +139,7 @@ option(char *str)
} }
} }
void void option_F(char* form)
option_F(char *form)
{ {
int len; int len;
char* cp; char* cp;
@ -154,54 +161,60 @@ bad:
exit(1); exit(1);
} }
void void InitTable(char* ival)
InitTable(char *ival)
{ {
int i; int i;
for (i = 0; i < TabSize; i++) { for (i = 0; i < TabSize; i++)
{
Table[i] = 0; Table[i] = 0;
} }
InitialValue = 0; InitialValue = 0;
if (ival) { if (ival)
{
InitialValue = Salloc(ival); InitialValue = Salloc(ival);
} }
} }
void void PrintTable(void)
PrintTable(void)
{ {
int i; int i;
for (i = 0; i < TabSize; i++) { for (i = 0; i < TabSize; i++)
if (Table[i]) { {
if (Table[i])
{
printf(OutputForm, Table[i]); printf(OutputForm, Table[i]);
} }
else if (InitialValue) { else if (InitialValue)
{
printf(OutputForm, InitialValue); printf(OutputForm, InitialValue);
} }
else { else
{
printf(OutputForm, "0"); printf(OutputForm, "0");
} }
} }
} }
int int process(char* str, int format)
process(char *str, int format)
{ {
char* cstr = str; char* cstr = str;
char* Name = cstr; /* overwrite original string! */ char* Name = cstr; /* overwrite original string! */
/* strip of the entry name /* strip of the entry name
*/ */
while (*str && *str != ':') { while (*str && *str != ':')
if (*str == '\\') { {
if (*str == '\\')
{
++str; ++str;
} }
*cstr++ = *str++; *cstr++ = *str++;
} }
if (*str != ':') { if (*str != ':')
{
fprintf(stderr, "%s: bad specification: \"%s\", ignored\n", fprintf(stderr, "%s: bad specification: \"%s\", ignored\n",
ProgCall, Name); ProgCall, Name);
return 0; return 0;
@ -209,7 +222,8 @@ process(char *str, int format)
*cstr = '\0'; *cstr = '\0';
str++; str++;
switch (format) { switch (format)
{
case 'c': case 'c':
return c_proc(str, Name); return c_proc(str, Name);
@ -219,76 +233,91 @@ process(char *str, int format)
return 0; return 0;
} }
int int c_proc(char* str, char* Name)
c_proc(char *str, char *Name)
{ {
int ch, ch2; int ch, ch2;
char* name = Salloc(Name); char* name = Salloc(Name);
while (*str) { while (*str)
if (*str == '\\') { {
if (*str == '\\')
{
ch = quoted(&str); ch = quoted(&str);
} }
else { else
{
ch = *str++ & 0377; ch = *str++ & 0377;
} }
if (*str == '-') { if (*str == '-')
if (*++str == '\\') { {
if (*++str == '\\')
{
ch2 = quoted(&str); ch2 = quoted(&str);
} }
else { else
{
ch2 = (*str++ & 0377); ch2 = (*str++ & 0377);
if (!ch2) str--; if (!ch2)
str--;
} }
if (ch > ch2) { if (ch > ch2)
{
fprintf(stderr, "%s: bad range\n", ProgCall); fprintf(stderr, "%s: bad range\n", ProgCall);
return 0; return 0;
} }
while (ch <= ch2) { while (ch <= ch2)
if (! setval(ch, name)) return 0; {
if (!setval(ch, name))
return 0;
ch++; ch++;
} }
} }
else { else
if (! setval(ch, name)) return 0; {
if (!setval(ch, name))
return 0;
} }
} }
return 1; return 1;
} }
int int setval(int ch, char* nm)
setval(int ch, char *nm)
{ {
char** p = &Table[ch]; char** p = &Table[ch];
if (ch < 0 || ch >= TabSize) { if (ch < 0 || ch >= TabSize)
{
fprintf(stderr, "Illegal index: %d\n", ch); fprintf(stderr, "Illegal index: %d\n", ch);
return 0; return 0;
} }
if (*(p = &Table[ch])) { if (*(p = &Table[ch]))
{
fprintf(stderr, "Warning: redefinition of index %d\n", ch); fprintf(stderr, "Warning: redefinition of index %d\n", ch);
} }
*p = nm; *p = nm;
return 1; return 1;
} }
int int quoted(char** pstr)
quoted(char **pstr)
{ {
int ch; int ch;
int i; int i;
char* str = *pstr; char* str = *pstr;
if ((*++str >= '0') && (*str <= '9')) { if ((*++str >= '0') && (*str <= '9'))
{
ch = 0; ch = 0;
for (i = 0; i < 3; i++) { for (i = 0; i < 3; i++)
{
ch = 8 * ch + (*str - '0'); ch = 8 * ch + (*str - '0');
if (*++str < '0' || *str > '9') if (*++str < '0' || *str > '9')
break; break;
} }
} }
else { else
switch (*str++) { {
switch (*str++)
{
case 'n': case 'n':
ch = '\n'; ch = '\n';
break; break;
@ -316,18 +345,19 @@ quoted(char **pstr)
return ch & 0377; return ch & 0377;
} }
char * char* getln(char* s, int n, FILE* fp)
getln(char *s, int n, FILE *fp)
{ {
int c = getc(fp); int c = getc(fp);
char* str = s; char* str = s;
while (n--) { while (n--)
if (c == EOF) { {
if (c == EOF)
{
return NULL; return NULL;
} }
else else if (c == '\n')
if (c == '\n') { {
*str++ = '\0'; *str++ = '\0';
return s; return s;
} }
@ -340,22 +370,26 @@ getln(char *s, int n, FILE *fp)
#define BUFSIZE 1024 #define BUFSIZE 1024
void void DoFile(char* name)
DoFile(char *name)
{ {
char text[BUFSIZE]; char text[BUFSIZE];
FILE* fp; FILE* fp;
if ((fp = fopen(name, "r")) == NULL) { if ((fp = fopen(name, "r")) == NULL)
{
fprintf(stderr, "%s: cannot read file %s\n", ProgCall, name); fprintf(stderr, "%s: cannot read file %s\n", ProgCall, name);
exit(1); exit(1);
} }
while (getln(text, BUFSIZE, fp) != NULL) { while (getln(text, BUFSIZE, fp) != NULL)
if (text[0] == FILECOM) { {
if (text[0] == FILECOM)
{
option(text); option(text);
} }
else { else
if (! process(text, InputForm)) { {
if (!process(text, InputForm))
{
exit(1); exit(1);
} }
} }