* Rewrote mkindex.c in awk.
git-svn-id: svn://svn.zoy.org/elk/trunk@135 55e467fa-43c5-0310-a8a2-de718669efc6
This commit is contained in:
sam
parent
181c7bc863
commit
16ca7ace5c
|
|
@ -1 +1 @@
|
|||
EXTRA_DIST = block.awk fixindex.awk mkindex.c tmac.index tmac.scheme
|
||||
EXTRA_DIST = block.awk fixindex.awk mkindex.awk tmac.index tmac.scheme
|
||||
|
|
|
|||
|
|
@ -0,0 +1,107 @@
|
|||
#! /usr/bin/awk -f
|
||||
|
||||
# mkindex.awk: Copy named files or standard input (if no arguments are
|
||||
# given) to standard output, replacing @[something] by troff macro calls.
|
||||
# $Id$
|
||||
#
|
||||
# These replacements are performed:
|
||||
#
|
||||
# @[.something] --> \n.Ix "something"\nsomething
|
||||
# @[!something] --> \n.Id "something"\nsomething
|
||||
#
|
||||
# @[.some|thing] --> \n.Ix "thing, some"\nsome thing
|
||||
# @[!some|thing] --> \n.Id "thing, some"\nsome thing
|
||||
#
|
||||
# @[.=something] --> \n.Ix "something"\n
|
||||
# @[!=something] --> \n.Id "something"\n
|
||||
#
|
||||
#
|
||||
# 1) initial \n is omitted at the beginning of an output line
|
||||
#
|
||||
# 2) initial \n is prefixed by \c if @[ follows "(" in input
|
||||
#
|
||||
# 3) omit final \n if @[...] is at end of input line
|
||||
#
|
||||
# 4) within @[...], \] is replaced by ]
|
||||
#
|
||||
# 5) in the macro argument ("something"), all sequences of the form
|
||||
# `` or '' or \fX or \% are removed
|
||||
|
||||
{
|
||||
need_nl = 0;
|
||||
do_line($0);
|
||||
printf "\n";
|
||||
}
|
||||
|
||||
function do_line(line) {
|
||||
nxt = index(line, "@[")
|
||||
|
||||
if(nxt == 0) {
|
||||
printf "%s", line;
|
||||
return;
|
||||
}
|
||||
|
||||
if(nxt > 1) {
|
||||
if(substr(line, nxt - 1, 1) == "(") {
|
||||
need_c = 1;
|
||||
}
|
||||
need_nl = 1;
|
||||
printf "%s", substr(line, 1, nxt - 1);
|
||||
do_line(substr(line, nxt));
|
||||
return;
|
||||
}
|
||||
|
||||
tmp = substr(line, 1, 3);
|
||||
if(tmp == "@[.") {
|
||||
macro = "Ix";
|
||||
} else
|
||||
if(tmp == "@[.") {
|
||||
macro = "Id";
|
||||
} else {
|
||||
printf "error: invalid index %s\n", tmp > "/dev/stderr";
|
||||
exit 1;
|
||||
}
|
||||
|
||||
end = match(line, "[^\\\\]]");
|
||||
|
||||
if(end == 0) {
|
||||
printf "error: unfinished @[\n" > "/dev/stderr";
|
||||
exit 1;
|
||||
}
|
||||
|
||||
inx = substr(line, 4, end - 3);
|
||||
gsub("\\\\]", "]", inx);
|
||||
arg = inx;
|
||||
gsub("(\\\\f.|''|``|\\\\%)", "", arg);
|
||||
|
||||
if(arg == "") {
|
||||
printf "error: empty index\n" > "/dev/stderr";
|
||||
exit 1;
|
||||
}
|
||||
|
||||
if(need_c) { printf "\\c"; }
|
||||
if(need_nl) { printf "\n"; }
|
||||
|
||||
printf ".%s ", macro;
|
||||
|
||||
line = substr(line, end + 2);
|
||||
|
||||
if(sub("^=", "", arg)) {
|
||||
printf "\"%s\"", arg;
|
||||
if(line != "") {
|
||||
printf "\n";
|
||||
need_nl = 0;
|
||||
sub("^ ", "", line);
|
||||
}
|
||||
} else if (arg ~ /[|]/) {
|
||||
q = arg; sub("[^|]*[|]", "", q); sub("[|].*", "", arg);
|
||||
printf "\"%s, %s\"\n%s %s", q, arg, arg, q;
|
||||
need_nl = 1;
|
||||
} else {
|
||||
printf "\"%s\"\n%s", arg, inx;
|
||||
need_nl = 1;
|
||||
}
|
||||
|
||||
do_line(line);
|
||||
}
|
||||
|
||||
|
|
@ -1,173 +0,0 @@
|
|||
/* mkindex
|
||||
*
|
||||
* Copy named files or standard input (if no arguments are given) to
|
||||
* standard output, replacing @[something] by troff macro calls.
|
||||
*
|
||||
* These replacements are performed:
|
||||
*
|
||||
* @[.something] --> \n.Ix "something"\nsomething
|
||||
* @[!something] --> \n.Id "something"\nsomething
|
||||
*
|
||||
* @[.some|thing] --> \n.Ix "thing, some"\nsome thing
|
||||
* @[!some|thing] --> \n.Id "thing, some"\nsome thing
|
||||
*
|
||||
* @[.=something] --> \n.Ix "something"\n
|
||||
* @[!=something] --> \n.Id "something"\n
|
||||
*
|
||||
*
|
||||
* 1) initial \n is omitted at the beginning of an output line
|
||||
*
|
||||
* 2) initial \n is prefixed by \c if @[ follows "(" in input
|
||||
*
|
||||
* 3) omit final \n if @[...] is at end of input line
|
||||
*
|
||||
* 4) within @[...], \] is replaced by ]
|
||||
*
|
||||
* 5) in the macro argument ("something"), all sequences of the form
|
||||
* `` or '' or \fX or \% are removed
|
||||
*/
|
||||
|
||||
#include <stdio.h>
|
||||
|
||||
char *index();
|
||||
|
||||
char buf[10000];
|
||||
long line;
|
||||
char *fn;
|
||||
|
||||
main(int ac, char **av) {
|
||||
FILE *fp;
|
||||
|
||||
if (ac < 2) {
|
||||
fn = "stdin";
|
||||
doit(stdin);
|
||||
} else {
|
||||
while (--ac > 0) {
|
||||
fn = *++av;
|
||||
if ((fp = fopen(fn, "r")) == 0) {
|
||||
perror(fn); exit(1);
|
||||
}
|
||||
/* Traite tous les fichiers un par un */
|
||||
doit(fp);
|
||||
fclose(fp);
|
||||
}
|
||||
}
|
||||
return 0;
|
||||
}
|
||||
|
||||
doit(FILE *fp) {
|
||||
char *p, *q, *start, *macro;
|
||||
char inx[1000], arg[1000];
|
||||
int n, need_nl = 0;
|
||||
|
||||
line = 1;
|
||||
/* Proceed line by line */
|
||||
while (fgets(buf, 10000, fp) != NULL) {
|
||||
if (p = index(buf, '\n'))
|
||||
*p = 0;
|
||||
p = buf;
|
||||
/* Proceed char by char */
|
||||
while (*p) {
|
||||
/* On cherche @[ , sinon on affiche le nouveau caractère */
|
||||
if (*p != '@' || p[1] != '[') {
|
||||
putchar(*p);
|
||||
need_nl = 1;
|
||||
p++;
|
||||
start = p;
|
||||
} else {
|
||||
p += 2;
|
||||
switch (*p) {
|
||||
/* @[. -> Ix */
|
||||
case '.':
|
||||
macro = "Ix"; break;
|
||||
/* @[! -> Ix */
|
||||
case '!':
|
||||
macro = "Id"; break;
|
||||
case 0:
|
||||
error("index truncated");
|
||||
default:
|
||||
error("invalid index type");
|
||||
}
|
||||
p++;
|
||||
q = inx;
|
||||
/* On cherche ] */
|
||||
while (*p != ']') {
|
||||
if (*p == 0)
|
||||
error("missing ]");
|
||||
/* Si ] est escapé, on l'imprime */
|
||||
if (*p == '\\' && p[1] == ']')
|
||||
p++;
|
||||
*q++ = *p++;
|
||||
}
|
||||
/* inx devient ce qu'il y avait entre [ ] */
|
||||
if (q == inx)
|
||||
error("empty index");
|
||||
*q = 0;
|
||||
/* Vire \f. '' `` \% de l'index et on le met dans arg */
|
||||
eatfont(inx, arg);
|
||||
/* Si le précédent caractère est un "(", on affiche "\\c" */
|
||||
if (start > buf && start[-1] == '(')
|
||||
printf("\\c");
|
||||
/* Si need_nl == 1, on saute une ligne */
|
||||
if (need_nl)
|
||||
putchar('\n');
|
||||
/* on affiche .Ix ou .Id */
|
||||
printf(".%s ", macro);
|
||||
/* On bouffe le caractère suivant de l'input */
|
||||
p++;
|
||||
/* Si arg commence par '=', on l'affiche entre "" */
|
||||
if (arg[0] == '=') {
|
||||
printf("\"%s\"", arg+1);
|
||||
/* S'il reste du data, on saute une ligne et si c'est
|
||||
une espace, on la saute sans l'afficher ; par
|
||||
ailleurs au prochain coup ça sera pas la peine de
|
||||
sauter une ligne */
|
||||
if (*p) {
|
||||
putchar('\n');
|
||||
need_nl = 0;
|
||||
if (*p == ' ')
|
||||
p++;
|
||||
}
|
||||
/* Si arg est du genre "foo|bar", on affiche
|
||||
"bar, foo"\nfoo bar */
|
||||
} else if (q = index(arg, '|')) {
|
||||
*q = 0; q++;
|
||||
printf("\"%s, %s\"\n%s %s", q, arg, arg, q);
|
||||
need_nl = 1;
|
||||
} else {
|
||||
/* Sinon on affiche "arg"\ninx */
|
||||
printf("\"%s\"\n%s", arg, inx);
|
||||
need_nl = 1;
|
||||
}
|
||||
}
|
||||
}
|
||||
/* Si on a fini de parser, on saute une ligne */
|
||||
putchar('\n');
|
||||
need_nl = 0;
|
||||
line++;
|
||||
}
|
||||
}
|
||||
|
||||
eatfont(char *from, char *to) {
|
||||
while (*from) {
|
||||
/* "\f." -> "" */
|
||||
if (*from == '\\' && from[1] == 'f' && from[2]) {
|
||||
from += 3;
|
||||
/* "''" -> "" */
|
||||
} else if (*from == '\'' && from[1] == '\'') {
|
||||
from += 2;
|
||||
/* "``" -> "" */
|
||||
} else if (*from == '`' && from[1] == '`') {
|
||||
from += 2;
|
||||
/* "\%" -> "" */
|
||||
} else if (*from == '\\' && from[1] == '%') {
|
||||
from += 2;
|
||||
} else *to++ = *from++;
|
||||
}
|
||||
*to = 0;
|
||||
}
|
||||
|
||||
error(char *s) {
|
||||
fprintf(stderr, "Error in %s line %d, %s:\n%s\n", fn, line, s, buf);
|
||||
exit(1);
|
||||
}
|
||||
Loading…
Reference in New Issue