Return to fixindex.icn CVS log

Up to [CSRG BSD Unix] / 43BSD / contrib / X / doc / Xlib

Annotation of 43BSD/contrib/X/doc/Xlib/fixindex.icn, revision 1.1.1.1

1.1       root        1: # transform raw index entries into new macros
                      2: #
                      3: #      features include:  merging page numbers and suppressing duplicates
                      4: #                         sorting out major headings from minor
                      5: #
                      6: # the (pre-sorted) input is of the form
                      7: #      <page-number><tab><major name><tab><minor name>
                      8: #
                      9: 
                     10: 
                     11: record LineState(PageNum, Major, Minor)
                     12: 
                     13: procedure main()
                     14:        local pageList, old, new
                     15: 
                     16:        old := LineState()
                     17:        new := LineState()
                     18:        split(old) | return
                     19:        pageList := old.PageNum
                     20: 
                     21:        if old.Minor ~== "" then
                     22:            write(".Ib \"", old.Major, "\"")
                     23: 
                     24:        while split(new) do {
                     25:            if old.Major == new.Major then
                     26:                if old.Minor == new.Minor then {
                     27:                    if old.PageNum ~= new.PageNum then
                     28:                        pageList ||:= "," || new.PageNum }
                     29:                else {
                     30:                    WriteEntry(old, pageList)
                     31:                    pageList := new.PageNum }
                     32:            else {
                     33:                WriteEntry(old, pageList)
                     34:                pageList := new.PageNum
                     35: 
                     36:                if new.Minor ~== "" then 
                     37:                    write(".Ib \"", new.Major, "\"") }
                     38: 
                     39:            AssignRecord(new, old) }            # new -> old
                     40: 
                     41:        WriteEntry(old, pageList)
                     42:  end
                     43: 
                     44: 
                     45: procedure split(state)
                     46:        static tabChar,
                     47:               digits
                     48:        initial { tabChar := cset("\t");
                     49:                  digits := cset("0123456789") }
                     50: 
                     51:        read() | fail ? {
                     52:            state.PageNum := tab(many(digits))
                     53:            tab(many(tabChar))
                     54:            state.Major := tab(upto(tabChar)) | tab(0)
                     55:            tab(many(tabChar))
                     56:            state.Minor := tab(0) }
                     57: 
                     58:        return
                     59: end
                     60: 
                     61: 
                     62: procedure WriteEntry(state, pageList)
                     63:        if state.Minor == "" then
                     64:            write(".I> \"", state.Major, "\" \"", pageList, "\"")
                     65:        else
                     66:            write(".I< \"", state.Major, "\" \"", state.Minor, 
                     67:                                        "\" \"", pageList, "\"")
                     68:  end
                     69: 
                     70: 
                     71: procedure AssignRecord(a, b)
                     72:        b.Major := a.Major
                     73:        b.Minor := a.Minor
                     74:        b.PageNum := a.PageNum
                     75: end

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