Return to getuid.sh CVS log

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

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

1.1     ! root        1: echo "merge on datakit and domain names" 1>&2
        !             2: cat $* | awk '
        !             3: #
        !             4: #      unique is an array that associates a numeric id with each
        !             5: #      symbolic one
        !             6: #
        !             7: BEGIN {
        !             8:        nextid=1;
        !             9: }
        !            10: #
        !            11: #      add com/att to the front of a dk string to make a unique id
        !            12: #
        !            13: $1=="uucp" {
        !            14:        id = 0
        !            15:        for (i=2; i<=NF; i++)
        !            16:                if(match($i, "/")){
        !            17:                        str = "com/att/" $i
        !            18:                        if(str in unique){
        !            19:                                id = unique[str];
        !            20:                        } else {
        !            21:                                print nextid " UNIQ," str
        !            22:                                id = nextid;
        !            23:                                nextid = nextid+1;
        !            24:                        }
        !            25:                        break;
        !            26:                }
        !            27:        if(id==0){
        !            28:                id = nextid;
        !            29:                nextid = nextid+1;
        !            30:        }
        !            31:        line = ""
        !            32:        for (i=2; i<=NF; i++)
        !            33:                if(match($i, "/")){
        !            34:                        str = "com/att/" $i
        !            35:                        unique[str] = id;
        !            36:                        line = line " DK," $i
        !            37:                } else
        !            38:                        line = line " " $i
        !            39:        print id " " line
        !            40:        next;
        !            41: }
        !            42: #
        !            43: #      invert order of domain components       to make a unique id
        !            44: #
        !            45: $1=="hosts" {
        !            46:        id = 0
        !            47:        for (i=2; i<=NF; i++)
        !            48:                if(match($i, ".att.com")){
        !            49:                        n = split($i,a,".");
        !            50:                        str = a[n];
        !            51:                        for(j=n-1; j>=1; j--)
        !            52:                                str = str "/" a[j];
        !            53:                        if(str in unique){
        !            54:                                id = unique[str];
        !            55:                        } else {
        !            56:                                print nextid " UNIQ," str
        !            57:                                id = nextid;
        !            58:                                nextid = nextid+1;
        !            59:                        }
        !            60:                        break;
        !            61:                }
        !            62:        if(id==0){
        !            63:                id = nextid;
        !            64:                nextid = nextid+1;
        !            65:        }
        !            66:        line = ""
        !            67:        for (i=2; i<=NF; i++)
        !            68:                if(match($i, ".att.com")){
        !            69:                        n = split($i,a,".");
        !            70:                        str = a[n];
        !            71:                        for(j=n-1; j>=1; j--)
        !            72:                                str = str "/" a[j];
        !            73:                        unique[str] = id;
        !            74:                        line = line " DOMAIN," $i
        !            75:                } else
        !            76:                        line = line " " $i
        !            77:        print id " " line
        !            78:        next;
        !            79: }
        !            80: ' | merge.sh | rmdups.sh

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