Master/texmf-dist/doc/metapost/mpman-ru/idx3.awk


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16

BEGIN {
  print "\\begin{theindex}"
  l=65
}
{
  if (0+substr($0,1,3)>=l && pl!=l && index($0,"\\subitem")==0) {
    print "\\indexspace"
    l=0+substr($0,1,3)
    pl=l++
    if (l==91) l=161
  }
  print substr($0,index($0,"@@@")+4)
}
END {
  print "\\end{theindex}"
}