Return to idx2ind CVS log

Up to [CSRG BSD Unix] / 43BSDReno / contrib / isode-beta / doc / manual

Annotation of 43BSDReno/contrib/isode-beta/doc/manual/idx2ind, revision 1.1

1.1     ! root        1: #! /bin/sh
        !             2: : 'idx2ind - new LaTeX index converter - 11-Jul-88/JLR'
        !             3: 
        !             4: L=%%
        !             5: case x$1 in
        !             6:   x-l) L=""; shift ;;
        !             7: esac
        !             8: 
        !             9: for i
        !            10: do
        !            11:   awk 'BEGIN {for (i = 97; i < 123; i++)       # index letters "a" to "z"
        !            12:                printf "%c\n", i; exit}' |\
        !            13:   cat - $i.idx |\
        !            14:   sed \
        !            15:     -e 's/     / /g'\
        !            16:     -e 's/^\\indexentry{\(.*\)}{\([^}]*\)}$/\1 \2/'\
        !            17:     -e 's/^\\verb\(.\)\(.*\)\1 \(.*\)$/\2      \3      \\verb\1\2\1/'\
        !            18:     -e '/\\/!s/ *{}//'\
        !            19:     -e '/,/{;s/^\(.*\) \(.*\)$/\1      \2      \1/;s/,/ /;}' |\
        !            20:   sort -u -t"  " +0fd -1 +1n |\
        !            21:   awk -F"      " '
        !            22: BEGIN  {printf "\\begin{theindex}\\makeatletter\n"
        !            23:        printf "\\raggedright\n"
        !            24:        printf "\\def\\newindex#1{{\\huge\\hspace{-.5in}"
        !            25:        printf "\\parbox[t]{.5in}{\\makebox[.35in][c]{\\uppercase{#1}}}"
        !            26:        printf "\\vspace{-1.5ex}}}\n"
        !            27:        }
        !            28: NF == 1        {x = $1; next}                          # NF=1: index letter
        !            29:        {n = $1}
        !            30: NF == 3        {n = $3}                                # NF=3: special sort key
        !            31: n == p {printf ", %s", $2; next}               # another page number
        !            32: p != ""        {printf "\n"}                           # end of this item
        !            33: x != ""        {if (p != "")                           # index letter?
        !            34:            printf "\\indexspace\n"
        !            35:        printf "'$L'\\newindex{%s}\n", x
        !            36:        }
        !            37:        {x = s = ""; i = n; l = $2}             # reset
        !            38: /,/    {s = "sub"                              # sub-item
        !            39:        nf = split (i, a, ","); k = a[1]; i = a[2]
        !            40:        split (p, pk, ",")
        !            41:        if (pk[1] != k && pk[1] != k"{}")       # should use substr...
        !            42:            {i = n; s =""}
        !            43:        else for (j = 3; j <= nf; j++)          # add sub-sub-items
        !            44:            i = sprintf ("%s,%s", i, a[j])
        !            45:        }
        !            46:        {printf "\\%sitem %s, %s", s, i, l}
        !            47:        {p = n}                                 # save for next comparison
        !            48: END    {printf "\n\\end{theindex}\n"
        !            49:        }' > $i.ind
        !            50: 
        !            51: done
        !            52: 
        !            53: exit 0

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.