summaryrefslogtreecommitdiff
path: root/Build/source/texk/web2c/cwebdir/refsort.ch
blob: 79a8867b84ca8e2ab9f36f535786c89b9f5ad109 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
Changes for the REFSORT utility from the CTWILL tarball.

This minimal set of changes tries to satisfy the GCC compiler.

This file is not copyrighted and can be used freely.

@x
\datethis
@y
\datethis
\let\maybe=\iffalse % print only sections that change
@z

@x standard C library interface
#include "stdio.h"
#include "strings.h"
#include "ctype.h"
@y
#include <stdio.h>
#include <string.h>
#include <ctype.h>
@z

@x declare return type
main()
@y
int main()
@z

@x variable not used
{ register int k;
@y
{
@z

@x add 'Index.' section
  for (;*p;p++) *q++=*p;
}
@y
  for (;*p;p++) *q++=*p;
}

@* Index.
@z