Add PGINDENT and support program.
This commit is contained in:
Bruce Momjian
parent
448332a769
commit
fddc57bfcd
24
src/tools/PGINDENT
Normal file
24
src/tools/PGINDENT
Normal file
@ -0,0 +1,24 @@
|
|||||||
|
#!/bin/sh
|
||||||
|
trap "rm -f /tmp/$$" 0 1 2 3 15
|
||||||
|
entab </dev/null >/dev/null
|
||||||
|
if [ "$?" -ne 0 ]
|
||||||
|
then echo "Go to the src/tools/entab directory and do a 'make' and 'make install'." >&2
|
||||||
|
echo "This will put the 'entab' command in your path." >&2
|
||||||
|
echo "Then run $0 again."
|
||||||
|
exit 1
|
||||||
|
fi
|
||||||
|
indent -st </dev/null >/dev/null
|
||||||
|
if [ "$?" -ne 0 ]
|
||||||
|
then echo "You do not appear to have 'indent' installed on your system." >&2
|
||||||
|
exit 1
|
||||||
|
fi
|
||||||
|
for FILE
|
||||||
|
do
|
||||||
|
cat $FILE |
|
||||||
|
sed 's;/\* *---;/*---;g' |
|
||||||
|
indent -bad -bap -bbb -bc -bl -d0 -ncdb -nce -cli1 -di16 -nfc1 \
|
||||||
|
-lp -nip -nbc -psl -di1 -i4 -st |
|
||||||
|
detab -t8 |
|
||||||
|
entab -qc -t4 |
|
||||||
|
sed 's;/\*---;/* ---;g' >/tmp/$$ && cat /tmp/$$ >$FILE
|
||||||
|
done
|
||||||
29
src/tools/entab/Makefile
Normal file
29
src/tools/entab/Makefile
Normal file
@ -0,0 +1,29 @@
|
|||||||
|
#
|
||||||
|
# Makefile
|
||||||
|
#
|
||||||
|
#
|
||||||
|
TARGET = entab
|
||||||
|
BINDIR = /usr/local/bin
|
||||||
|
XFLAGS =
|
||||||
|
CFLAGS = -O
|
||||||
|
LIBS =
|
||||||
|
|
||||||
|
$(TARGET) : entab.o halt.o
|
||||||
|
$(CC) -o $(TARGET) $(XFLAGS) $(CFLAGS) entab.o halt.o $(LIBS)
|
||||||
|
|
||||||
|
entab.o : entab.c
|
||||||
|
$(CC) -c $(XFLAGS) $(CFLAGS) entab.c
|
||||||
|
|
||||||
|
halt.o : halt.c
|
||||||
|
$(CC) -c $(XFLAGS) $(CFLAGS) halt.c
|
||||||
|
|
||||||
|
clean:
|
||||||
|
rm -f *.o $(TARGET) log core
|
||||||
|
|
||||||
|
install:
|
||||||
|
make clean
|
||||||
|
make CFLAGS=-O
|
||||||
|
install -s -o bin -g bin $(TARGET) $(BINDIR)
|
||||||
|
rm -f $(BINDIR)/detab
|
||||||
|
ln /usr/local/bin/$(TARGET) $(BINDIR)/detab
|
||||||
|
|
||||||
199
src/tools/entab/entab.c
Normal file
199
src/tools/entab/entab.c
Normal file
@ -0,0 +1,199 @@
|
|||||||
|
/*
|
||||||
|
** entab.c - add tabs to a text file
|
||||||
|
** by Bruce Momjian (root@candle.pha.pa.us)
|
||||||
|
**
|
||||||
|
** version 1.0
|
||||||
|
**
|
||||||
|
** tabsize = 4
|
||||||
|
**
|
||||||
|
*/
|
||||||
|
|
||||||
|
#include <stdio.h>
|
||||||
|
#include <stdlib.h>
|
||||||
|
#include <string.h>
|
||||||
|
|
||||||
|
#define NUL '\0'
|
||||||
|
|
||||||
|
#ifndef TRUE
|
||||||
|
#define TRUE 1
|
||||||
|
#endif
|
||||||
|
#ifndef FALSE
|
||||||
|
#define FALSE 0
|
||||||
|
#endif
|
||||||
|
|
||||||
|
void halt();
|
||||||
|
|
||||||
|
extern char *optarg;
|
||||||
|
extern int optind;
|
||||||
|
|
||||||
|
int main(argc, argv)
|
||||||
|
int argc;
|
||||||
|
char **argv;
|
||||||
|
{
|
||||||
|
int tab_size = 8,
|
||||||
|
min_spaces = 2,
|
||||||
|
protect_quotes = FALSE,
|
||||||
|
del_tabs = FALSE,
|
||||||
|
clip_lines = FALSE,
|
||||||
|
prv_spaces,
|
||||||
|
col_in_tab,
|
||||||
|
escaped,
|
||||||
|
nxt_spaces;
|
||||||
|
char in_line[BUFSIZ],
|
||||||
|
out_line[BUFSIZ],
|
||||||
|
*src,
|
||||||
|
*dst,
|
||||||
|
quote_char,
|
||||||
|
ch,
|
||||||
|
*cp;
|
||||||
|
FILE *in_file;
|
||||||
|
|
||||||
|
if ((cp = strrchr(argv[0],'/')) != NULL)
|
||||||
|
++cp;
|
||||||
|
else
|
||||||
|
cp = argv[0];
|
||||||
|
if (strcmp(cp,"detab") == 0)
|
||||||
|
del_tabs = 1;
|
||||||
|
|
||||||
|
while ((ch = getopt(argc, argv, "cdhqs:t:")) != -1)
|
||||||
|
switch (ch)
|
||||||
|
{
|
||||||
|
case 'c' : clip_lines = TRUE; break;
|
||||||
|
case 'd' : del_tabs = TRUE; break;
|
||||||
|
case 'q' : protect_quotes = TRUE; break;
|
||||||
|
case 's' : min_spaces = atoi(optarg); break;
|
||||||
|
case 't' : tab_size = atoi(optarg); break;
|
||||||
|
case 'h' :
|
||||||
|
case '?' :
|
||||||
|
halt("USAGE: %s [ -cdqst ] [file ...]\n\
|
||||||
|
-c (clip trailing whitespace)\n\
|
||||||
|
-d (delete tabs)\n\
|
||||||
|
-q (protect quotes)\n\
|
||||||
|
-s minimum_spaces\n\
|
||||||
|
-t tab_width\n",
|
||||||
|
cp);
|
||||||
|
}
|
||||||
|
|
||||||
|
argv += optind;
|
||||||
|
argc -= optind;
|
||||||
|
|
||||||
|
do {
|
||||||
|
if (argc < 1)
|
||||||
|
in_file = stdin;
|
||||||
|
else
|
||||||
|
{
|
||||||
|
if ( (in_file=fopen(*argv,"r")) == NULL)
|
||||||
|
halt("PERROR: Can not open file %s\n",argv[0]);
|
||||||
|
argv++;
|
||||||
|
}
|
||||||
|
|
||||||
|
escaped = FALSE;
|
||||||
|
|
||||||
|
while (fgets(in_line, BUFSIZ, in_file) != NULL)
|
||||||
|
{
|
||||||
|
col_in_tab = 0;
|
||||||
|
prv_spaces = 0;
|
||||||
|
src = in_line; /* points to current processed char */
|
||||||
|
dst = out_line; /* points to next unallocated char */
|
||||||
|
if (escaped == FALSE)
|
||||||
|
quote_char = ' ';
|
||||||
|
escaped = FALSE;
|
||||||
|
while (*src != NUL)
|
||||||
|
{
|
||||||
|
col_in_tab++;
|
||||||
|
if (*src == ' ' || *src == '\t')
|
||||||
|
{
|
||||||
|
if (*src == '\t')
|
||||||
|
{
|
||||||
|
prv_spaces = prv_spaces + tab_size - col_in_tab + 1;
|
||||||
|
col_in_tab = tab_size;
|
||||||
|
}
|
||||||
|
else
|
||||||
|
prv_spaces++;
|
||||||
|
|
||||||
|
if (col_in_tab == tab_size)
|
||||||
|
{
|
||||||
|
/* Is the next character going to be a tab?
|
||||||
|
Needed to do tab replacement in current spot if
|
||||||
|
next char is going to be a tab, ignoring
|
||||||
|
min_spaces */
|
||||||
|
nxt_spaces = 0;
|
||||||
|
while (1)
|
||||||
|
{
|
||||||
|
if ( *(src+nxt_spaces+1) == NUL ||
|
||||||
|
(*(src+nxt_spaces+1) != ' ' &&
|
||||||
|
*(src+nxt_spaces+1) != '\t'))
|
||||||
|
break;
|
||||||
|
if (*(src+nxt_spaces+1) == ' ')
|
||||||
|
++nxt_spaces;
|
||||||
|
if (*(src+nxt_spaces+1) == '\t' ||
|
||||||
|
nxt_spaces == tab_size)
|
||||||
|
{
|
||||||
|
nxt_spaces = tab_size;
|
||||||
|
break;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
if ((prv_spaces >= min_spaces || nxt_spaces == tab_size) &&
|
||||||
|
quote_char == ' ' &&
|
||||||
|
del_tabs == FALSE )
|
||||||
|
{
|
||||||
|
*(dst++) = '\t';
|
||||||
|
prv_spaces = 0;
|
||||||
|
}
|
||||||
|
else
|
||||||
|
{
|
||||||
|
for (; prv_spaces > 0; prv_spaces--)
|
||||||
|
*(dst++) = ' ';
|
||||||
|
}
|
||||||
|
}
|
||||||
|
}
|
||||||
|
else
|
||||||
|
{
|
||||||
|
for (; prv_spaces > 0; prv_spaces--)
|
||||||
|
*(dst++) = ' ';
|
||||||
|
if (*src == '\b')
|
||||||
|
col_in_tab -= 2;
|
||||||
|
if (escaped == FALSE && protect_quotes == TRUE)
|
||||||
|
{
|
||||||
|
if (*src == '\\')
|
||||||
|
escaped = TRUE;
|
||||||
|
if (*src == '"' || *src == '\'')
|
||||||
|
if (quote_char == ' ')
|
||||||
|
quote_char = *src;
|
||||||
|
else if (*src == quote_char)
|
||||||
|
quote_char = ' ';
|
||||||
|
}
|
||||||
|
else
|
||||||
|
if (*src != '\r' && *src != '\n')
|
||||||
|
escaped = FALSE;
|
||||||
|
|
||||||
|
if (( *src == '\r' || *src == '\n') &&
|
||||||
|
clip_lines == TRUE && escaped == FALSE)
|
||||||
|
{
|
||||||
|
while (dst > out_line &&
|
||||||
|
(*(dst-1) == ' ' || *(dst-1) == '\t'))
|
||||||
|
dst--;
|
||||||
|
prv_spaces = 0;
|
||||||
|
}
|
||||||
|
*(dst++) = *src;
|
||||||
|
}
|
||||||
|
col_in_tab %= tab_size;
|
||||||
|
++src;
|
||||||
|
}
|
||||||
|
/* for cases where the last line of file has no newline */
|
||||||
|
if (clip_lines == TRUE && escaped == FALSE)
|
||||||
|
{
|
||||||
|
while (dst > out_line &&
|
||||||
|
(*(dst-1) == ' ' || *(dst-1) == '\t'))
|
||||||
|
dst--;
|
||||||
|
prv_spaces = 0;
|
||||||
|
}
|
||||||
|
for (; prv_spaces > 0; prv_spaces--)
|
||||||
|
*(dst++) = ' ';
|
||||||
|
*dst = NUL;
|
||||||
|
if (fputs(out_line,stdout) == EOF)
|
||||||
|
halt("PERROR: Error writing output.\n");
|
||||||
|
}
|
||||||
|
} while (--argc > 0);
|
||||||
|
return 0;
|
||||||
|
}
|
||||||
51
src/tools/entab/entab.man
Normal file
51
src/tools/entab/entab.man
Normal file
@ -0,0 +1,51 @@
|
|||||||
|
.TH ENTAB 1 local
|
||||||
|
.SH NAME
|
||||||
|
entab - tab processor
|
||||||
|
.SH SYNOPSIS
|
||||||
|
.nf
|
||||||
|
entab [-cdq] [-s min_spaces] [-t tab_width] [file ... ]
|
||||||
|
detab [-cq] [-s min_spaces] [-t tab_width] [file ... ]
|
||||||
|
.fi
|
||||||
|
.SH DESCRIPTION
|
||||||
|
Entab is a program designed to selectively add or remove tabs
|
||||||
|
from a file based on user-supplied criteria.
|
||||||
|
In default mode, entab prints the specified files to standard output
|
||||||
|
with the optimal mix of tabs and spaces.
|
||||||
|
Tabs default to every 8 characters, and tabs are used only when they
|
||||||
|
can replace more than one space, unlike 'col' which uses tabs wherever
|
||||||
|
possible.
|
||||||
|
.LP
|
||||||
|
The options are:
|
||||||
|
.in +0.5i
|
||||||
|
.nf
|
||||||
|
-c Clip trailing tabs and spaces from each line.
|
||||||
|
-d Delete all tabs from output
|
||||||
|
-q Protect single and double-quoted strings from tab replacement.
|
||||||
|
(This option is useful when operating on source code.
|
||||||
|
Line continuation with back-slashes is also understood.)
|
||||||
|
-s Minimum spaces needed to replace with a tab (default = 2).
|
||||||
|
-t Number of spaces in a tab stop (default = 8).
|
||||||
|
.fi
|
||||||
|
.in -0.5i
|
||||||
|
Detab is equivalent to entab -d.
|
||||||
|
.SH NOTES
|
||||||
|
Entab has improved tab handling for certain situations.
|
||||||
|
It only replaces tabs if there is a user-defined number of spaces
|
||||||
|
to be saved.
|
||||||
|
Other tab replacement programs put tabs wherever
|
||||||
|
possible, so if two words are separated by one space, and that
|
||||||
|
space is on a tab stop, a tab is inserted.
|
||||||
|
Then, when words are added to the left, the words are shifted over,
|
||||||
|
leaving a large gap.
|
||||||
|
The quote-protection option allows tab replacement without
|
||||||
|
quoted strings being changed.
|
||||||
|
Useful when strings in source code will not have the same tab stops
|
||||||
|
when executed in the program.
|
||||||
|
.LP
|
||||||
|
To change a text file created on a system with one size of tab
|
||||||
|
stop to display properly on a device with different tab setting,
|
||||||
|
use detab (or entab -d) to remove tabs from the file with the
|
||||||
|
tab size set to the original tab size, then use entab to re-tab
|
||||||
|
the file with the new tab size.
|
||||||
|
.SH AUTHOR
|
||||||
|
Bruce Momjian, root@candle.pha.pa.us
|
||||||
56
src/tools/entab/halt.c
Normal file
56
src/tools/entab/halt.c
Normal file
@ -0,0 +1,56 @@
|
|||||||
|
/*
|
||||||
|
**
|
||||||
|
** halt.c
|
||||||
|
**
|
||||||
|
** This is used to print out error messages and exit
|
||||||
|
*/
|
||||||
|
|
||||||
|
#include <varargs.h>
|
||||||
|
#include <signal.h>
|
||||||
|
#include <stdio.h>
|
||||||
|
#include <errno.h>
|
||||||
|
|
||||||
|
|
||||||
|
/*-------------------------------------------------------------------------
|
||||||
|
**
|
||||||
|
** halt - print error message, and call clean up routine or exit
|
||||||
|
**
|
||||||
|
**------------------------------------------------------------------------*/
|
||||||
|
|
||||||
|
/*VARARGS*/
|
||||||
|
void halt(va_alist)
|
||||||
|
va_dcl
|
||||||
|
{
|
||||||
|
va_list arg_ptr;
|
||||||
|
char *format, *pstr;
|
||||||
|
void (*sig_func)();
|
||||||
|
|
||||||
|
va_start(arg_ptr);
|
||||||
|
format = va_arg(arg_ptr,char *);
|
||||||
|
if (strncmp(format,"PERROR", 6) != 0)
|
||||||
|
vfprintf(stderr,format,arg_ptr);
|
||||||
|
else
|
||||||
|
{
|
||||||
|
for (pstr=format+6; *pstr == ' ' || *pstr == ':'; pstr++)
|
||||||
|
;
|
||||||
|
vfprintf(stderr,pstr,arg_ptr);
|
||||||
|
perror("");
|
||||||
|
}
|
||||||
|
va_end(arg_ptr);
|
||||||
|
fflush(stderr);
|
||||||
|
|
||||||
|
/* call one clean up function if defined */
|
||||||
|
if ( (sig_func = signal(SIGTERM, SIG_DFL)) != SIG_DFL &&
|
||||||
|
sig_func != SIG_IGN)
|
||||||
|
(*sig_func)(0);
|
||||||
|
else if ( (sig_func = signal(SIGHUP, SIG_DFL)) != SIG_DFL &&
|
||||||
|
sig_func != SIG_IGN)
|
||||||
|
(*sig_func)(0);
|
||||||
|
else if ( (sig_func = signal(SIGINT, SIG_DFL)) != SIG_DFL &&
|
||||||
|
sig_func != SIG_IGN)
|
||||||
|
(*sig_func)(0);
|
||||||
|
else if ( (sig_func = signal(SIGQUIT, SIG_DFL)) != SIG_DFL &&
|
||||||
|
sig_func != SIG_IGN)
|
||||||
|
(*sig_func)(0);
|
||||||
|
exit(1);
|
||||||
|
}
|
||||||
Loading…
x
Reference in New Issue
Block a user