Return to mkindex.sh CVS log

Up to [Research Unix] / researchv10no / ipc / mgrs / ns / mkdb

Annotation of researchv10no/ipc/mgrs/ns/mkdb/mkindex.sh, revision 1.1

1.1     ! root        1: echo Making index 1>&2
        !             2: cat $* | awk '
        !             3: #
        !             4: #      make index of the form:
        !             5: #              value,K|D|I|N|T
        !             6: #
        !             7: BEGIN { nc = 0; }
        !             8: {
        !             9:        for(i = 1; i <= NF; i++) {
        !            10:                if(match($i,",")) {
        !            11:                        n = RSTART +1;
        !            12:                        if(match($i,"^DK"))
        !            13:                                type = "K";
        !            14:                        else if(match($i,"^SERVICE"))
        !            15:                                continue;
        !            16:                        else 
        !            17:                                type = substr($i, 1, 1);
        !            18:                        printf("%s,%s %d\n",substr($i,n),type,nc);
        !            19:                } else {
        !            20:                        
        !            21:                        printf("%s %d\n", $i,nc);
        !            22:                }
        !            23:        }
        !            24:        nc = nc + length($0) + 1;
        !            25: }
        !            26: 
        !            27: ' | sort -u

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