Return to pdoc CVS log

Up to [Research Unix] / researchv10no / cmd / prefer / misc

Annotation of researchv10no/cmd/prefer/misc/pdoc, revision 1.1

1.1     ! root        1: sed '
        !             2: /^%A/  s/%A /%author /
        !             3: /^%B/  s/%B /%booktitle /
        !             4: /^%C/  s/%C /%address /
        !             5: /^%d/  s/%d /%date /
        !             6: /^%D/  s/%D /%date /
        !             7: /^%E/  s/%E /%editor /
        !             8: /^%G/  s/%G /%government /
        !             9: /^%I/  s/%I /%publisher /
        !            10: /^%J/  s/%J /%journal /
        !            11: /^%K/  s/%K /%keyword /
        !            12: /^%L/  s/%L /%label /
        !            13: /^%M/  s/%M /%tm /
        !            14: /^%N/  s/%N /%number /
        !            15: /^%O/  s/%O /%other /
        !            16: /^%P/  s/%P /%pages /
        !            17: /^%r/  s/%r /%report /
        !            18: /^%R/  s/%R /%report /
        !            19: /^%T/  s/%T /%title /
        !            20: /^%V/  s/%V /%volume /
        !            21: ' $1 | sed '
        !            22: /\.\[/ N
        !            23: /\.\[\n\$LIST\$/ N
        !            24: /\.\[\n\$LIST\$\n\.\]/ c\
        !            25: |reference_placement
        !            26: /^\.\[/ s/\.\[/|reference</
        !            27: /^\.\]/ s/\.\]/%type >/
        !            28: ' | awk '
        !            29: BEGIN  {typestr = "%type"; edstr = "%editor"; reffields = 0;}
        !            30: 
        !            31: 
        !            32: /^%/   {
        !            33:        if(($1 != "%author") && ($1 != "%publisher") && ($1 != "%type"))
        !            34:                print; 
        !            35:        if($1 != "%editor")
        !            36:                ineditor = 0
        !            37:        if($1 != "%type") reffields++;
        !            38: }
        !            39: 
        !            40: $1 == "%author"        {
        !            41:        if ($NF ~ /\([Ee]d.*\)/) {
        !            42:                edited++;
        !            43:                $NF = "";
        !            44:        }
        !            45:        print;
        !            46: }
        !            47: 
        !            48: $1 == "%publisher"     {
        !            49:        publisher++ ;
        !            50:        if($2 == "PhD") {
        !            51:                phd++;
        !            52:                printf "%s", $1;
        !            53:                for (i=4; i <= NF; i++)
        !            54:                        printf " %s", $i;
        !            55:                print "";
        !            56:        }
        !            57:        else if($2 ~ /Master*/) {
        !            58:                masters++;
        !            59:                printf "%s",$1;
        !            60:                for (i=4; i <= NF; i++)
        !            61:                        printf " %s", $i;
        !            62:                print "";
        !            63:        }
        !            64:        else print;
        !            65: }
        !            66: 
        !            67: $1 == "%editor"                { editor++; ineditor = 1;}
        !            68: $1 == "%author"                { author++ }
        !            69: $1 == "%journal"       { journal++ }
        !            70: $1 == "%tm"            { tm++ }
        !            71: $1 == "%report"                { report++ }
        !            72: $1 == "%booktitle"     { booktitle++ }
        !            73: /[Pp]roc/ || /[Cc]onf/ { if ($1 == "%journal") inproceedings++;}
        !            74: 
        !            75: /^[^%]/        {               # handle multiple editors
        !            76:        if(ineditor) {
        !            77:                printf "%s ", edstr;
        !            78:                if($1 == "and")
        !            79:                        print substr($0,length($1)+2);
        !            80:                else
        !            81:                        print;
        !            82:        }
        !            83:        else print;
        !            84: }
        !            85: /^$/   {print}         # blank lines
        !            86: 
        !            87: # now infer document type
        !            88: $1 == "%type"  {
        !            89:        if(reffields) {
        !            90:                printf "%s ", typestr;
        !            91:                if(edited) print "editedbook";
        !            92:                else if(masters) print "mastersthesis";
        !            93:                else if(phd) print "phdthesis";
        !            94:                else if(inproceedings) print "inproceedings";
        !            95:                else if(journal) print "article";
        !            96:                else if(booktitle) print "incollection";
        !            97:                else if(tm) print "tm";
        !            98:                else if(report) print "techreport";
        !            99:                else if(publisher) print "book";
        !           100:                else print "misc";
        !           101:        }
        !           102:        print ">";
        !           103: 
        !           104:        editor = 0;
        !           105:        author = 0;
        !           106:        journal = 0;
        !           107:        inproceedings = 0;
        !           108:        booktitle = 0;
        !           109:        publisher = 0;
        !           110:        tm = 0;
        !           111:        report = 0;
        !           112:        book = 0;
        !           113:        tflag = 0;
        !           114:        ineditor = 0;
        !           115:        phd = 0;
        !           116:        masters = 0;
        !           117:        edited = 0;
        !           118:        reffields = 0;
        !           119: }
        !           120: '

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