![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to vol2.style CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [Research Unix] / researchv10dc / vol2 / ADM|
Return to vol2.style CVS log | Up to [Research Unix] / researchv10dc / vol2 / ADM |
1.1 ! root 1: # ! 2: # general - general style awk script ! 3: # every style script must begin with this general header ! 4: # ! 5: ! 6: ! 7: ! 8: ! 9: BEGIN { ! 10: ! 11: # ! 12: # used by fixname for parsing name string ! 13: # ! 14: verbatim="%verbatim[ ]*((\\([^\\)]*\\))|(\\[[^\\]]*\\])|(<[^>]*>)|({[^}]*}))" ! 15: ! 16: titles["Mr."] = 1; ! 17: titles["Mr"] = 1; ! 18: titles["Mrs."] = 1; ! 19: titles["Mrs"] = 1; ! 20: titles["Ms."] = 1; ! 21: titles["Ms"] = 1; ! 22: titles["Dr."] = 1; ! 23: titles["Dr"] = 1; ! 24: titles["Fr."] = 1; ! 25: titles["Fr"] = 1; ! 26: titles["Rev."] = 1; ! 27: titles["Rev"] = 1; ! 28: ! 29: postfix["I"] = 1; ! 30: postfix["II"] = 1; ! 31: postfix["III"] = 1; ! 32: postfix["IV"] = 1; ! 33: postfix["Jr."] = 1; ! 34: postfix["Jr"] = 1; ! 35: postfix["M.D."] = 1; ! 36: postfix["MD"] = 1; ! 37: postfix["S.J."] = 1; ! 38: postfix["SJ"] = 1; ! 39: ! 40: prefix["Mac"] = 1; ! 41: prefix["Mc"] = 1; ! 42: prefix["Van"] = 1; ! 43: prefix["Von"] = 1; ! 44: prefix["mac"] = 1; ! 45: prefix["mc"] = 1; ! 46: prefix["van"] = 1; ! 47: prefix["von"] = 1; ! 48: prefix["di"] = 1; ! 49: prefix["Di"] = 1; ! 50: prefix["de"] = 1; ! 51: prefix["De"] = 1; ! 52: prefix["D'"] = 1; ! 53: prefix["d'"] = 1; ! 54: prefix["Der"] = 1; ! 55: prefix["der"] = 1; ! 56: prefix["Del"] = 1; ! 57: prefix["del"] = 1; ! 58: prefix["La"] = 1; ! 59: prefix["la"] = 1; ! 60: prefix["L'"] = 1; ! 61: prefix["l'"] = 1; ! 62: ! 63: ! 64: ! 65: Monthcode["Foo"] = 00; ! 66: Monthcode["Jan"] = 01; ! 67: Monthcode["Feb"] = 02; ! 68: Monthcode["Mar"] = 03; ! 69: Monthcode["Apr"] = 04; ! 70: Monthcode["May"] = 05; ! 71: Monthcode["Jun"] = 06; ! 72: Monthcode["Jul"] = 07; ! 73: Monthcode["Aug"] = 08; ! 74: Monthcode["Sep"] = 09; ! 75: Monthcode["Oct"] = 10; ! 76: Monthcode["Nov"] = 11; ! 77: Monthcode["Dec"] = 12; ! 78: } ! 79: ! 80: ! 81: ## ! 82: ## Control and reference information from prefer ! 83: ## ! 84: ! 85: $1 == "%LETS_GO" { ! 86: print PASS; ! 87: if($2 == "nroff") nroff = 1; ! 88: if($3 == "rp") rp = 1; ! 89: } ! 90: ! 91: ! 92: $1 == "%BEGIN_CITE" { ! 93: bibno++; ! 94: cbibno++; ! 95: assoc = ""; ! 96: allauthors[bibno] = ""; ! 97: } ! 98: ! 99: $1 == "%T" { # check for refer format ! 100: if(refertitle == 0) { ! 101: print "Warning: reference data is in refer format; use pconvert to change to refer format" | "cat >&2"; ! 102: } ! 103: refertitle++; ! 104: } ! 105: ! 106: /^%/ { sub(/[ \t]*$/,""); } ! 107: ! 108: $1 == "%author" { ! 109: if($2 ~ /^et/ && $3 ~ /^al/) { ! 110: aetal[bibno] = 1; ! 111: } ! 112: else { ! 113: a = ++authors[bibno]; ! 114: fixname(); ! 115: setauthor(bibno,a); ! 116: if(!aflag) ! 117: assoc = assoc Afull[bibno,a]; ! 118: allauthors[bibno] = allauthors[bibno] Afull[bibno,a]; ! 119: } ! 120: } ! 121: ! 122: ! 123: $1 == "%booktitle" { booktitle[bibno] = getrest();} ! 124: ! 125: $1 == "%address" { city[bibno] = getrest(); } ! 126: ! 127: $1 == "%date" { # assumes Month Day, Year ! 128: year[bibno] = $NF; ! 129: if(NF > 2) { ! 130: month[bibno] = substr($2,1,3); ! 131: if(NF == 4) { ! 132: day[bibno] = $3; ! 133: sub(",","",day[bibno]); ! 134: } ! 135: date[bibno] = getrest(); ! 136: } ! 137: else date[bibno] = $NF; ! 138: if(!aflag) ! 139: assoc = assoc date[bibno]; ! 140: } ! 141: ! 142: $1 == "%editor" { ! 143: if($2 ~ /^et/ && $3 ~ /^al/) ! 144: eetal[bibno] = 1; ! 145: else { ! 146: e = ++editors[bibno]; ! 147: fixname(); ! 148: seteditor(bibno,e); ! 149: } ! 150: } ! 151: ! 152: $1 == "%publisher" { issuer[bibno] = getrest(); } ! 153: ! 154: $1 == "%journal" { journal[bibno] = getrest(); } ! 155: ! 156: $1 == "%number" { ! 157: number[bibno] = $2; ! 158: if(NF > 2) numstr[bibno] = getrest(); ! 159: } ! 160: ! 161: $1 == "%other" { other[bibno] = getrest(); } ! 162: ! 163: $1 == "%pages" { ! 164: pages[bibno] = getrest(); ! 165: gsub(/- /,"-",pages[bibno]); ! 166: gsub(/ -/,"-",pages[bibno]); ! 167: } ! 168: ! 169: $1 == "%part" { ! 170: part[bibno] = $2 ! 171: if(NF > 2) partstr[bibno] = getrest(); ! 172: } ! 173: ! 174: $1 == "%report" { report[bibno] = getrest(); } ! 175: ! 176: $1 == "%tm" { tmno[bibno] = getrest(); } ! 177: ! 178: $1 == "%type" { reftype[bibno] = $2; } ! 179: ! 180: $1 == "%title" { ! 181: title[bibno] = getrest(); ! 182: if(!aflag) ! 183: assoc = assoc title[bibno]; ! 184: } ! 185: ! 186: $1 == "%volume" { ! 187: volume[bibno] = $2; ! 188: if(NF > 2) volstr[bibno] = getrest(); ! 189: } ! 190: ! 191: $1 == "%also_begin" { ! 192: if(++aflag == 1) { ! 193: savebibno = bibno; ! 194: } ! 195: bibno = savebibno " " ++also[savebibno]; ! 196: allauthors[bibno] = ""; ! 197: pre_also[bibno] = getrest(); ! 198: } ! 199: ! 200: ! 201: $1 == "%also_end" { ! 202: aflag--; ! 203: if(reftype[bibno] == "not_found" || reftype[savebibno] == "not_found") { ! 204: erasebib(bibno); ! 205: also[savebibno]--; ! 206: } ! 207: ! 208: else { ! 209: if(title[savebibno] == title[bibno]) ! 210: title[bibno] = ""; ! 211: if(allauthors[savebibno] == allauthors[bibno]) ! 212: authors[bibno] = 0; ! 213: post_also[bibno] = getrest(); ! 214: } ! 215: if(aflag) ! 216: bibno = savebibno " " aflag; ! 217: else ! 218: bibno = savebibno; ! 219: } ! 220: ! 221: $1 == "%no_cite" { no_cite[cbibno] = 1; } ! 222: ! 223: $1 == "%no_author" { no_author[cbibno] = 1; } ! 224: ! 225: $1 == "%no_date" { no_date[cbibno] = 1; } ! 226: ! 227: $1 == "%pre_text" { pre_text[cbibno] = getrest(); } ! 228: ! 229: $1 == "%post_text" { post_text[cbibno] = getrest(); } ! 230: ! 231: $1 == "%END_CITE" { ! 232: if(reftype[bibno] == "not_found") { ! 233: erasebib(bibno); ! 234: erasecite(cbibno); ! 235: bibno--; ! 236: cbibno--; ! 237: } ! 238: else { ! 239: assoc = assoc reftype[bibno]; ! 240: if (biblist[assoc] != 0) { ! 241: erasebib(bibno); ! 242: bibno--; ! 243: } ! 244: else ! 245: biblist[assoc] = bibno; ! 246: uniqno[cbibno] = biblist[assoc]; ! 247: ! 248: if (no_cite[cbibno] != 1) { ! 249: cites++; ! 250: bibptr[cites] = cbibno; ! 251: } ! 252: } ! 253: } ! 254: ! 255: $1 == "%END_LIST" { ! 256: if (cites > 0) { ! 257: citations($2); ! 258: cites = 0; ! 259: } ! 260: else printf $2; ! 261: print $1; ! 262: } ! 263: ! 264: $1 == "%BIBLIO" { ! 265: if(bibno > 0 && $2 != "no_bib") { ! 266: if(sortflag && PASS == "") ! 267: bibsort(SKEY); ! 268: bibliography(); ! 269: } ! 270: print "%END_BIB"; ! 271: } ! 272: ! 273: $1 == "%WHOLEBIB" { ! 274: if(bibno > 0) { ! 275: if ($2) { ! 276: sortflag = 1; ! 277: if($2 == "sort") ! 278: bibsort(SKEY); ! 279: else ! 280: bibsort($2); ! 281: } ! 282: else sortflag = 0; ! 283: bibliography(); ! 284: } ! 285: print "%END_BIB"; ! 286: } ! 287: ! 288: ! 289: ## ! 290: ## For two passes ! 291: ## ! 292: $1 == "%END_CITE2" { ! 293: cbibno++ ! 294: if (no_cite[cbibno] != 1) { ! 295: cites++; ! 296: bibptr[cites] = cbibno; ! 297: ! 298: } ! 299: } ! 300: ! 301: $1 == "%END_LIST1" { ! 302: cites = 0; ! 303: print $2 "%END_LIST"; ! 304: } ! 305: ! 306: ! 307: $1 == "%BIBLIO1" { ! 308: if(sortflag) ! 309: bibsort(SKEY); ! 310: cbibno = 0; ! 311: } ! 312: ! 313: $1 == "%DBINCLUDE" { ! 314: cbibno +=$2; ! 315: } ! 316: ! 317: ! 318: ! 319: ############################################## ! 320: ## ! 321: ## functions ! 322: ## ! 323: ############################################## ! 324: ! 325: ## ! 326: ## Sort the entire bibliography by the stated keys ! 327: ## ! 328: func bibsort(keys) ! 329: { ! 330: if (bibno == 0) return; ! 331: ! 332: "echo $$" | getline pid; ! 333: sortout = "/tmp/sort" pid; ! 334: sort = "sort -f -o " sortout; ! 335: for(k=1; k <=3; k++) ! 336: key[k] = substr(keys,k,1); ! 337: for(i = 1; i <= bibno; i++) { ! 338: for(k=1; k <=3; k++) { ! 339: if(key[k] == "a") { ! 340: if(authors[i] ) ! 341: printf "%s\t", Asort[i] | sort; ! 342: else if(editors[i]) ! 343: printf "%s\t", Esort[i] | sort; ! 344: else if(issuer[i]) ! 345: printf "%s\t", issuer[i] | sort; ! 346: else ! 347: printf "%s\t", title[i] | sort; ! 348: } ! 349: else if(key[k] == "d") { ! 350: printf "%s", year[i] | sort; ! 351: printf "%2s", Monthcode[month[i]] | sort; ! 352: printf "%2s\t", day[i] | sort; ! 353: } ! 354: else if(key[k] == "t") ! 355: printf "%s\t", title[i] | sort; ! 356: else ! 357: printf " \t" | sort; ! 358: } ! 359: print i | sort; ! 360: } ! 361: close(sort); ! 362: FS = "\t"; ! 363: for(i = 1; i <= bibno; i++) { ! 364: getline < sortout; ! 365: sortorder[i] = $4; ! 366: inverse[$4] = i; ! 367: } ! 368: FS = " "; ! 369: system("rm " sortout); ! 370: } ! 371: ! 372: ## ! 373: ## erase bibliographic entry ! 374: ## ! 375: func erasebib(b) ! 376: { ! 377: authors[b] = 0; ! 378: allauthors[b] = ""; ! 379: aetal[b] = 0; ! 380: editors[b] = 0; ! 381: eetal[b] = 0; ! 382: title[b] = ""; ! 383: booktitle[b] = ""; ! 384: issuer[b] = ""; ! 385: journal[b] = ""; ! 386: number[b] = ""; ! 387: other[b] = ""; ! 388: pages[b] = ""; ! 389: part[b] = ""; ! 390: report[b] = ""; ! 391: reftype[b] = ""; ! 392: volume[b] = ""; ! 393: volstr[b] = ""; ! 394: date[b] = ""; ! 395: year[b] = ""; ! 396: month[b] = "Foo"; ! 397: day[b] = "00"; ! 398: city[b] = ""; ! 399: Asort[b] = ""; ! 400: Esort[b] = ""; ! 401: also[b] = 0; ! 402: pre_also[b] = ""; ! 403: post_also[b] = ""; ! 404: } ! 405: ! 406: ! 407: ## ! 408: ## erase citation entry ! 409: ## ! 410: func erasecite(b) { ! 411: no_cite[b] = 0; ! 412: no_author[b] = 0; ! 413: no_date[b] = 0; ! 414: pre_text[b] = ""; ! 415: post_text[b] = ""; ! 416: } ! 417: ! 418: ## ! 419: ## sequence - dtermine if c is in a sequence c-1, c, c+1 ! 420: ## ! 421: func sequence(c,n) { ! 422: ! 423: # take care of endpoints 1 and n ! 424: if (c == 1) return "no"; ! 425: if (c == n) { ! 426: if(seq == "in") return "end"; ! 427: else return "no" ! 428: } ! 429: ! 430: # ignore sequence if pretext or posttext exists ! 431: ! 432: text = 0; ! 433: if (pretext[bibptr[c-1]] || posttext[bibptr[c-1]] || \ ! 434: pretext[bibptr[c]] || posttext[bibptr[c]] || \ ! 435: pretext[bibptr[c+1]] || posttext[bibptr[c+1]] ) text = 1 ; ! 436: ! 437: # detect a sequence ..1,2,3.. ! 438: ! 439: if((makemark(c-1) == makemark(c)-1) && (makemark(c+1) == makemark(c)+1)) { ! 440: if (text == 1) ! 441: if(seq == "in") return "end"; ! 442: else return "no"; ! 443: else return "in"; ! 444: } ! 445: ! 446: # detect end ..7,8,22 ! 447: ! 448: if((seq == "in") && (makemark(c+1) != makemark(c)+1)) return "end"; ! 449: } ! 450: ! 451: ! 452: ! 453: ## ! 454: ## format a list of bibliographies ! 455: ## used by both reference_placement and reference_list ! 456: ## ! 457: func bibliography() ! 458: { ! 459: print ".in .5i"; ! 460: for(i = 1; i <= bibno; i++) { ! 461: b = bibindex(i); ! 462: printref(b); ! 463: } ! 464: print ".in -5i" ! 465: print ".nr RF " bibno; ! 466: } ! 467: ! 468: ## ! 469: ## format a single reference ! 470: ## ! 471: func printref(b) { ! 472: if (reftype[b] == "book") book(b) ! 473: else if (reftype[b] == "article") article(b) ! 474: else if (reftype[b] == "review") review(b); ! 475: else if (reftype[b] == "incollection") incollection(b) ! 476: else if (reftype[b] == "inproceedings") inproceedings(b) ! 477: else if (reftype[b] == "techreport") techreport(b) ! 478: else if (reftype[b] == "phdthesis") thesis(b) ! 479: else if (reftype[b] == "mastersthesis") thesis(b) ! 480: else if (reftype[b] == "editedbook") editedbook(b) ! 481: else if (reftype[b] == "misc") default(b) ! 482: else if (reftype[b] == "pamphlet") pamphlet(b) ! 483: else if (reftype[b] == "manual") manual(b) ! 484: else if (reftype[b] == "proceedings") proceedings(b) ! 485: else if (reftype[b] == "tm") tm(b) ! 486: else if (reftype[b] == "unpublished") default(b) ! 487: else { ! 488: print "Unknown reference type " reftype[b] " for " Afull[b,1] " ... " title[b] ", " date[b] | "cat >&2"; ! 489: default(b); ! 490: } ! 491: if (other[b]) { ! 492: printf ".\n" other[b]; ! 493: if(substr(other[b],length(other[b]),1) != ".") ! 494: printf "."; ! 495: } ! 496: else printf "."; ! 497: if(also[b]) { ! 498: aprint++; ! 499: print ""; ! 500: for(ia=1; ia <= also[b]; ia++) { ! 501: prea = pre_also[b " " ia] ! 502: if(prea) { ! 503: printf prea; ! 504: if(bracket(prea) == 0) ! 505: printf " "; ! 506: } ! 507: else printf "Also " ; ! 508: printref(b " " ia); ! 509: posta = post_also[b " " ia] ! 510: if(posta) { ! 511: if(bracket(posta) == 0) ! 512: printf " "; ! 513: print posta; ! 514: } ! 515: else print ""; ! 516: } ! 517: aprint--; ! 518: } ! 519: else if(aprint == 0) print ""; ! 520: } ! 521: ! 522: func bracket(string) ! 523: { ! 524: brack = substr(string,length(string)); ! 525: if(brack ~ /[<>\(\){}\[\]]/) ! 526: return 1; ! 527: return 0; ! 528: } ! 529: ! 530: ## ! 531: ## fixverbatim ! 532: ## handle strings with %verbatim around them ! 533: ## ! 534: func fixverbatim() ! 535: { ! 536: vb = 0; ! 537: while(match($0,verbatim)) { ! 538: vb++; ! 539: beg=substr($0,1,RSTART-1); ! 540: mid=substr($0,RSTART,RLENGTH); ! 541: end=substr($0,RSTART+RLENGTH,length($0)-(RLENGTH+RSTART-1)); ! 542: gsub("%verbatim[ ]*","",mid); ! 543: mid=substr(mid,2,length(mid)-2); ! 544: gsub(" ","\\\\&",mid); ! 545: $0 = beg mid end; ! 546: } ! 547: return vb; ! 548: } ! 549: ! 550: ! 551: ! 552: ## ! 553: ## fixname ! 554: ## parse namestring from %author and %editor into ! 555: ## Given Last Title and Post ! 556: ## e.g., Given = Fred P., Last = Smith, Title = Mr., Post = Jr. ! 557: ## ! 558: func fixname() { ! 559: verbflag = fixverbatim() ! 560: Given = ""; ! 561: Last = ""; ! 562: Title = ""; ! 563: Post = ""; ! 564: if(postfix[$NF]) { #....Jr. ! 565: Post = $NF; ! 566: NF--; ! 567: if(substr($NF,length($NF),1) == ",") { ! 568: $NF = substr($NF,1,length($NF)-1); ! 569: } ! 570: } ! 571: for(i=2; i<=NF; i++) { # look for field ending with "," ! 572: if(substr($i,length($i),1) == ",") { ! 573: $i = substr($i,1,length($i)-1); ! 574: break; ! 575: } ! 576: } ! 577: if (i < NF) { # Last, Given... ! 578: for(k=2; k<i; k++) { ! 579: Last = Last $k " "; ! 580: } ! 581: Last = Last $i; ! 582: j=i+1; ! 583: if(titles[$j]) { ! 584: Title = $j; ! 585: j++; ! 586: } ! 587: for(; j<NF; j++) { ! 588: Given = Given $j " "; ! 589: } ! 590: Given = Given $NF; ! 591: } ! 592: else { # Given....Last ! 593: if(NF > 1) Last = $NF; ! 594: for(i=NF-1 ;i>1; i--) { ! 595: if(prefix[$i]) Last = $i " " Last; ! 596: else break; ! 597: } ! 598: j = 2; ! 599: if (titles[$j]) { ! 600: Title = $2; ! 601: j++; ! 602: } ! 603: if(j <= i) { ! 604: for(; j<i; j++) { ! 605: Given = Given $j " "; ! 606: } ! 607: Given = Given $i; ! 608: } ! 609: } ! 610: if(verbflag) { ! 611: gsub("\\\\&"," ",Last); ! 612: gsub("\\\\&"," ",Title); ! 613: gsub("\\\\&"," ",Post); ! 614: } ! 615: } ! 616: ! 617: ! 618: ## ! 619: ## initial - return initial of name string ! 620: ## ! 621: func initial(string) { ! 622: return(substr(string,1,1) ".") ! 623: } ! 624: ! 625: ! 626: ## ! 627: ## LastFM - Organize Name: Last, F.M., e.g. Smith, F.P. Jr. ! 628: ## ! 629: func LastFM() { ! 630: Name = ""; ! 631: punc = ""; ! 632: if(Last) { ! 633: Name = Name Last; ! 634: punc = ", "; ! 635: } ! 636: if(Given) { ! 637: if(Given ~ /\\\&/) { ! 638: gsub("\\\\&"," ",Given); ! 639: Name = Name punc Given; ! 640: } ! 641: else { ! 642: ng = split(Given,G); ! 643: Name = Name punc initial(G[1]); ! 644: for(i = 2; i <= ng; i++) ! 645: Name = Name initial(G[i]); ! 646: } ! 647: } ! 648: punc = " "; ! 649: if(Post) { ! 650: Name = Name punc Post; ! 651: } ! 652: return(Name); ! 653: ! 654: } ! 655: ! 656: ! 657: ## ! 658: ## FMLast - Organize Name: F.M. Last, e.g., F.P. Smith Jr. ! 659: ## ! 660: func FMLast() { ! 661: Name = ""; ! 662: punc = ""; ! 663: if(Given) { ! 664: if(Given ~ /\\\&/) { ! 665: gsub("\\\\&"," ",Given); ! 666: Name = Name punc Given; ! 667: } ! 668: else { ! 669: ng = split(Given,G); ! 670: Name = Name initial(G[1]); ! 671: for(i = 2; i <= ng; i++) ! 672: Name = Name initial(G[i]); ! 673: } ! 674: punc = " "; ! 675: } ! 676: if(Last) { ! 677: Name = Name punc Last; ! 678: punc = " "; ! 679: } ! 680: if(Post) { ! 681: Name = Name punc Post; ! 682: } ! 683: ! 684: return(Name); ! 685: } ! 686: ! 687: ## ! 688: ## F_M_Last - Organize Name: F.M. Last, e.g., F.P. Smith Jr. ! 689: ## ! 690: func F_M_Last() { ! 691: Name = ""; ! 692: punc = ""; ! 693: if(Given) { ! 694: if(Given ~ /\\\&/) { ! 695: gsub("\\\\&"," ",Given); ! 696: Name = Name punc Given; ! 697: } ! 698: else { ! 699: ng = split(Given,G); ! 700: Name = Name initial(G[1]); ! 701: for(i = 2; i <= ng; i++) { ! 702: Name = punc Name initial(G[i]); ! 703: punc = " "; ! 704: } ! 705: } ! 706: punc = " "; ! 707: } ! 708: if(Last) { ! 709: Name = Name punc Last; ! 710: punc = " "; ! 711: } ! 712: if(Post) { ! 713: Name = Name punc Post; ! 714: } ! 715: ! 716: return(Name); ! 717: } ! 718: ! 719: ## ! 720: ## LastF_M - Organize Name: Last, F. M., e.g. Smith F. P. Jr. ! 721: ## ! 722: func LastF_M() { ! 723: Name = ""; ! 724: punc = ""; ! 725: if(Last) { ! 726: Name = Name Last; ! 727: punc = ", "; ! 728: } ! 729: if(Given) { ! 730: if(Given ~ /\\\&/) { ! 731: gsub("\\\\&"," ",Given); ! 732: Name = Name punc Given; ! 733: } ! 734: else { ! 735: ng = split(Given,G); ! 736: Name = Name punc initial(G[1]); ! 737: for(i = 2; i <= ng; i++) ! 738: Name = Name " " initial(G[i]); ! 739: } ! 740: } ! 741: punc = " "; ! 742: if(Post) { ! 743: Name = Name punc Post; ! 744: } ! 745: return(Name); ! 746: } ! 747: ! 748: ## ! 749: ## FMLast - Organize Name: F. M. Last, e.g., F. P. Smith Jr. ! 750: ## ! 751: func F_MLast() { ! 752: Name = ""; ! 753: punc = ""; ! 754: if(Given) { ! 755: if(Given ~ /\\\&/) { ! 756: gsub("\\\\&"," ",Given); ! 757: Name = Name punc Given; ! 758: } ! 759: else { ! 760: ng = split(Given,G); ! 761: Name = Name initial(G[1]); ! 762: for(i = 2; i <= ng; i++) ! 763: Name = Name " " initial(G[i]); ! 764: } ! 765: punc = " "; ! 766: } ! 767: if(Last) { ! 768: Name = Name punc Last; ! 769: punc = " "; ! 770: } ! 771: if(Post) { ! 772: Name = Name punc Post; ! 773: } ! 774: return(Name); ! 775: } ! 776: ! 777: ! 778: ## ! 779: ## FirstMiddleLast - Organize Name: First Middle Last e.g., Fred Peter Smith Jr. ! 780: ## ! 781: func FirstMiddleLast() ! 782: { ! 783: Name = ""; ! 784: punc = ""; ! 785: if(Given) { ! 786: if(Given ~ /\\\&/) { ! 787: gsub("\\\\&"," ",Given); ! 788: } ! 789: Name = Name Given; ! 790: punc = " "; ! 791: } ! 792: if(Last) { ! 793: Name = Name punc Last; ! 794: punc = " "; ! 795: } ! 796: if(Post) { ! 797: Name = Name punc Post; ! 798: } ! 799: return(Name); ! 800: } ! 801: ! 802: ## ! 803: ## LastFirstMiddle - Organize Name: Last, First Middle Last e.g., Smith, Fred Peter, Jr. ! 804: ## ! 805: func LastFirstMiddle() ! 806: { ! 807: Name = ""; ! 808: punc = ""; ! 809: if(Last) { ! 810: Name = Name Last; ! 811: punc = ", "; ! 812: } ! 813: if(Given) { ! 814: if(Given ~ /\\\&/) { ! 815: gsub("\\\\&"," ",Given); ! 816: } ! 817: Name = Name punc Given; ! 818: punc = ", "; ! 819: } ! 820: if(Post) { ! 821: Name = Name punc Post; ! 822: } ! 823: return(Name); ! 824: } ! 825: ! 826: ! 827: ! 828: ## ! 829: ## getrest - get rest of $0 after lopping off $1. ! 830: ## ! 831: func getrest() ! 832: { ! 833: rest = substr($0,length($1)+2); ! 834: return(substr(rest,index(rest,$2))); # strip off blanks ! 835: } ! 836: ### ! 837: ### acm reference formatting style ! 838: ### ! 839: ! 840: BEGIN { ! 841: PASS="%TWOPASS"; # only one pass thru document ! 842: sortflag = 1; # reference_placement bib is sortedone ! 843: STYLE = "acm"; ! 844: SKEY = "atd"; ! 845: } ! 846: ! 847: ! 848: ! 849: ####################################################### ! 850: # ! 851: # Functions required by general awk script ! 852: # ! 853: ####################################################### ! 854: ! 855: ! 856: ## ! 857: ## Set author and editor fields ! 858: ## for reference list ! 859: ## for citation ! 860: ## for possible sorting ! 861: ## ! 862: ! 863: func setauthor(b,a) { ! 864: ! 865: Afull[b,a] = LastFM(); ! 866: Asort[b] = Asort[b] Afull[b,a] " "; ! 867: } ! 868: ! 869: func seteditor(b,a) { ! 870: E[b,a] = FMLast(); ! 871: Efull[b,a] = LastFM(); ! 872: Esort[b] = Esort[b] Efull[b,a] " "; ! 873: } ! 874: ! 875: ! 876: ## ! 877: ## citations ! 878: ## print a citation list ! 879: ## (Last, year; Last, year...) ! 880: ## ! 881: func citations(lastpunc) { ! 882: seq = "no"; ! 883: punc = "\n"; ! 884: if(lastpunc == "\"" || lastpunc == "'") { ! 885: punc = lastpunc " "; ! 886: lastpunc = "\\ "; ! 887: } ! 888: if(lastpunc == "(") { ! 889: punc = lastpunc; ! 890: lastpunc = ""; ! 891: } ! 892: for(i=1; i<=cites; i++) { ! 893: cn = bibptr[i] ! 894: seq = sequence(i,cites); ! 895: if (seq == "in") continue; ! 896: if (seq == "end") { ! 897: punc = "-"; ! 898: seq = "no"; ! 899: } ! 900: printf "%s[", punc; ! 901: if (pre_text[cn]) printf "%s ", pre_text[cn]; ! 902: printf "%s", makemark(i); ! 903: if(post_text[cn]) { ! 904: if (is_punc(substr(post_text[cn],1,1)) == 0) print ""; ! 905: printf "%s", post_text[cn]; ! 906: } ! 907: printf "]"; ! 908: punc = ", "; ! 909: } ! 910: printf lastpunc; ! 911: } ! 912: ! 913: func is_punc(p) ! 914: { ! 915: if(p == ",") return 1; ! 916: if(p == ".") return 1; ! 917: if(p == ";") return 1; ! 918: return 0; ! 919: } ! 920: ! 921: ! 922: ## ! 923: ## makemark ! 924: ## return citation mark: identical citations have the same number ! 925: ## ! 926: func makemark(m) { ! 927: return(inverse[uniqno[bibptr[m]]]); ! 928: } ! 929: ! 930: ! 931: ! 932: ## ! 933: ## bibindex ! 934: ## print citation mark for the bibliography; ! 935: ## return an index for accessing rest of citation ! 936: ## ! 937: func bibindex(i) { ! 938: print ".LP" ! 939: print ".in \\w'999.\\ 'u" ! 940: printf ".ti -\\w'%s.\\ 'u\n",i; ! 941: printf "%s.\\ ", i ; ! 942: if(sortflag) return sortorder[i]; ! 943: else return i; ! 944: } ! 945: ! 946: ! 947: ! 948: ############################################# ! 949: # ! 950: # Reference types ! 951: # ! 952: ############################################ ! 953: ! 954: ! 955: func book(b) { ! 956: # authorlist ! 957: if(authors[b]) { ! 958: printfull(b); ! 959: printf "\n"; ! 960: } ! 961: # italic title. ! 962: if(title[b]) ! 963: printf "\\f2\\&%s\\f1\\&.\n", title[b]; ! 964: # Vol. #. ! 965: if (volstr[b]) ! 966: printf "%s.\n", volstr[b] ; ! 967: else if (volume[b]) ! 968: printf "Vol. %s.\n", volume[b] ; ! 969: # publisher, location ! 970: printf "%s", issuer[b] ; ! 971: punc = ",\n"; ! 972: if (city[b]) printf ", %s", city[b] ; ! 973: # date ! 974: printf punc date[b] ; ! 975: } ! 976: ! 977: func editedbook(b) { ! 978: ! 979: # authorlist ! 980: if(authors[b]) { ! 981: printfull(b); ! 982: if(authors[b] <2) ! 983: printf ", Ed.\n"; ! 984: else ! 985: printf ", Eds.\n"; ! 986: } ! 987: # italic title. ! 988: if(title[b]) ! 989: printf "\\f2\\&%s\\f1\\&.\n", title[b]; ! 990: # Vol. #. ! 991: if (volstr[b]) ! 992: printf "%s.\n", volstr[b] ; ! 993: else if (volume[b]) ! 994: printf "Vol. %s.\n", volume[b] ; ! 995: # publisher, location ! 996: printf "%s", issuer[b] ; ! 997: if (city[b]) printf ", %s", city[b] ; ! 998: # date ! 999: printf ",\n%s", date[b] ; ! 1000: } ! 1001: ! 1002: ! 1003: ! 1004: func incollection(b) { ! 1005: ! 1006: # Authorlist ! 1007: if(authors[b]) { ! 1008: printfull(b); ! 1009: printf "\n"; ! 1010: } ! 1011: # Title. ! 1012: if(title[b]) ! 1013: printf "%s.\n", title[b] ; ! 1014: # in italics booktitle, ! 1015: printf "In \\f2\\&%s\\f1\\&,\n", booktitle[b]; ! 1016: # Vol. #, ! 1017: if (volstr[b]) ! 1018: printf "%s,\n", volstr[b] ; ! 1019: else if (volume[b]) ! 1020: printf "Vol. %s,\n", volume[b] ; ! 1021: # editorlist Ed. ! 1022: if (editors[b]) { ! 1023: editorlist(b); ! 1024: if (editors[b] == 1) printf ", Ed.\n" ! 1025: else if (editors[b] > 1) printf ", Eds.\n" ! 1026: } ! 1027: # publisher, location ! 1028: printf "%s", issuer[b] ; ! 1029: if (city[b]) printf ", %s", city[b] ; ! 1030: # date, ! 1031: printf ",\n%s", date[b] ; ! 1032: # pages, ! 1033: if ( pages[b]) { ! 1034: if ( pages[b] ~ /[,-]/ ) ! 1035: printf ",\npp. %s", pages[b]; ! 1036: else printf ",\np. %s", pages[b]; ! 1037: } ! 1038: } ! 1039: ! 1040: func thesis(b) { ! 1041: ! 1042: # authorlist ! 1043: if(authors[b]) { ! 1044: printfull(b); ! 1045: printf "\n"; ! 1046: } ! 1047: # italic title. ! 1048: if(title[b]) ! 1049: printf "%s.\n", title[b]; ! 1050: # thesis, publisher, ! 1051: if(reftype[b] == "phdthesis") ! 1052: printf "PhD Thesis, %s", issuer[b]; ! 1053: else if(reftype[b] == "mastersthesis") ! 1054: printf "Master's Thesis, %s", issuer[b]; ! 1055: ! 1056: # date ! 1057: printf ",\n%s", date[b] ; ! 1058: } ! 1059: ! 1060: ! 1061: ! 1062: func review(b) { ! 1063: article(b); ! 1064: } ! 1065: ! 1066: func article(b) { ! 1067: ! 1068: # authorlist ! 1069: if(authors[b]) { ! 1070: printfull(b); ! 1071: printf "\n"; ! 1072: } ! 1073: # title. ! 1074: if(title[b]) ! 1075: printf "%s.\n", title[b] ; ! 1076: # review ! 1077: if(booktitle[b]) { ! 1078: printf "Review of \\f2\\&%s\\f1\\&", booktitle[b]; ! 1079: if(editors[b]) { ! 1080: printf " by " ! 1081: editorlist(b); ! 1082: } ! 1083: if (issuer[b]) { ! 1084: printf " %s", issuer[b]; ! 1085: } ! 1086: printf ".\n"; ! 1087: } ! 1088: # italics journal ! 1089: printf "\\f2\\&%s\\f1\\&", journal[b]; ! 1090: # italics volume, ! 1091: if (volstr[b]) ! 1092: printf " \\f2\\&%s\\f1\\&", volstr[b] ; ! 1093: else if (volume[b]) ! 1094: printf " \\f2\\&%s\\f1\\&", volume[b] ; ! 1095: # number ! 1096: if(numstr[b]) ! 1097: printf ", %s", numstr[b]; ! 1098: else if (number[b]) ! 1099: printf ", %s", number[b] ; ! 1100: # part ! 1101: if(partstr[b]) ! 1102: printf ", %s", partstr[b]; ! 1103: else if (part[b]) ! 1104: printf ", Pt. %s", part[b] ; ! 1105: # date ! 1106: printf " (%s)", date[b] ; ! 1107: # pages, ! 1108: if ( pages[b]) printf ", %s", pages[b]; ! 1109: } ! 1110: ! 1111: ! 1112: ! 1113: ! 1114: func inproceedings(b) { ! 1115: # authorlist ! 1116: if(authors[b]) { ! 1117: printfull(b); ! 1118: printf "\n"; ! 1119: } ! 1120: # Title. ! 1121: if(title[b]) ! 1122: printf "%s.\n", title[b] ; ! 1123: # italics Journal, ! 1124: printf "In \\f2\\&%s\\f1\\&", journal[b]; ! 1125: # volume, ! 1126: if (volstr[b]) ! 1127: printf ", %s", volstr[b] ; ! 1128: else if (volume[b]) ! 1129: printf ", Vol. %s", volume[b] ; ! 1130: if(numstr[b]) ! 1131: printf ", %s", numstr[b]; ! 1132: else if (number[b]) ! 1133: printf ", No. %s", number[b] ; ! 1134: if(partstr[b]) ! 1135: printf ", %s", partstr[b]; ! 1136: else if (part[b]) ! 1137: printf ", Pt. %s", part[b] ; ! 1138: # editorlist Ed. ! 1139: if(editors[b]) { ! 1140: printf ",\n"; ! 1141: editorlist(b); ! 1142: if (editors[b] == 1) printf ", Ed." ! 1143: else if (editors[b] > 1) printf ", Eds." ! 1144: } ! 1145: # organization, ! 1146: if(issuer[b]) ! 1147: printf ", %s", issuer[b]; ! 1148: # location, ! 1149: if(city[b]) ! 1150: printf ", %s", city[b]; ! 1151: # date, ! 1152: printf ", %s", date[b]; ! 1153: # pages, ! 1154: if ( pages[b]) { ! 1155: if ( pages[b] ~ /[,-]/ ) ! 1156: printf ", pp. %s", pages[b]; ! 1157: else printf ", p. %s", pages[b] ; ! 1158: } ! 1159: } ! 1160: ! 1161: func proceedings(b) { ! 1162: punc = ""; ! 1163: # authorlist ! 1164: if(authors[b] >0) { ! 1165: authorlist(b); ! 1166: punc = "\n"; ! 1167: } ! 1168: ! 1169: # editorlist Ed. ! 1170: else if(editors[b] > 0) { ! 1171: printf punc; ! 1172: editorlist(b); ! 1173: if (editors[b] == 1) printf ", Ed." ! 1174: else if (editors[b] > 1) printf ", Eds." ! 1175: punc = "\n"; ! 1176: } ! 1177: # publisher. ! 1178: else if(issuer[b]) { ! 1179: printf "%s%s", punc, issuer[b]; ! 1180: punc = ".\n"; ! 1181: } ! 1182: # italics(title), ! 1183: if(title[b]) { ! 1184: printf "%s\\f2\\&%s\\f1\\&", punc,title[b]; ! 1185: punc = ".\n"; ! 1186: if(substr(title[b],length(title[b]),1) == ".") ! 1187: punc = "\n"; ! 1188: ! 1189: # volume, number, part. ! 1190: if (volstr[b]) ! 1191: printf ", %s", volstr[b] ; ! 1192: else if (volume[b]) ! 1193: printf ", Vol. %s", volume[b] ; ! 1194: if(numstr[b]) ! 1195: printf ", %s", numstr[b]; ! 1196: else if (number[b]) ! 1197: printf ", No. %s", number[b] ; ! 1198: if(partstr[b]) ! 1199: printf ", %s", partstr[b]; ! 1200: else if (part[b]) ! 1201: printf ", Pt. %s", part[b] ; ! 1202: } ! 1203: # publisher, ! 1204: if(issuer[b]) ! 1205: if(authors[b] || editors[b]) { ! 1206: printf "%s%s", punc, issuer[b]; ! 1207: punc = ",\n"; ! 1208: } ! 1209: # location, ! 1210: if (city[b]) { ! 1211: printf "%s%s", punc, city[b] ; ! 1212: punc = ",\n"; ! 1213: } ! 1214: # date ! 1215: if (date[b]) ! 1216: printf "%s%s", punc, date[b]; ! 1217: } ! 1218: ! 1219: func techreport(b) { ! 1220: ! 1221: # authorlist ! 1222: if(authors[b]) { ! 1223: printfull(b); ! 1224: printf "\n"; ! 1225: } ! 1226: # title. ! 1227: if(title[b]) ! 1228: printf "%s.\n", title[b]; ! 1229: # report number, ! 1230: if(report[b]) printf "%s,\n", report[b] ; ! 1231: # publisher, ! 1232: if (issuer[b]) printf "%s,\n", issuer[b] ; ! 1233: # date ! 1234: printf "%s", date[b] ; ! 1235: } ! 1236: ! 1237: func tm(b) { ! 1238: ! 1239: # authorlist ! 1240: if(authors[b]) { ! 1241: printfull(b); ! 1242: printf "\n"; ! 1243: } ! 1244: # title. ! 1245: if(title[b]) ! 1246: printf "%s.\n", title[b]; ! 1247: # report number, ! 1248: if(rp) ! 1249: printf "AT&T Bell Laboratories internal memorandum"; ! 1250: else ! 1251: printf tmno[b] ! 1252: # date ! 1253: printf ",\n%s", date[b] ; ! 1254: } ! 1255: ! 1256: ! 1257: func manual(b) { ! 1258: punc = ""; ! 1259: # authorlist ! 1260: if(authors[b] >0) { ! 1261: printfull(b); ! 1262: punc = "\n"; ! 1263: } ! 1264: # editorlist Ed. ! 1265: else if(editors[b]) { ! 1266: printf punc; ! 1267: printedfull(b); ! 1268: if (editors[b] == 1) printf ", Ed." ! 1269: else if (editors[b] > 1) printf ", Eds." ! 1270: punc = "\n"; ! 1271: } ! 1272: # publisher ! 1273: else if(issuer[b]) { ! 1274: printf "%s%s", punc, issuer[b]; ! 1275: punc = ".\n"; ! 1276: } ! 1277: # title, ! 1278: if(title[b]) { ! 1279: printf "%s\\f2\\&%s\\f1\\&" ,punc, title[b]; ! 1280: punc = ".\n"; ! 1281: # Vol. volume, ! 1282: if (volstr[b]) ! 1283: printf ", %s", volstr[b] ; ! 1284: else if (volume[b]) ! 1285: printf ", Vol. %s", volume[b] ; ! 1286: } ! 1287: # publisher ! 1288: if(issuer[b]) { ! 1289: if((authors[b]>0) || editors[b]) { ! 1290: printf "%s%s", punc, issuer[b]; ! 1291: punc = ", "; ! 1292: } ! 1293: } ! 1294: # location ! 1295: if (city[b]) { ! 1296: printf "%s%s", punc, city[b] ; ! 1297: punc = ", "; ! 1298: } ! 1299: # date ! 1300: printf "%s%s", punc, date[b]; ! 1301: } ! 1302: ! 1303: func pamphlet(b) { ! 1304: default(b); ! 1305: } ! 1306: ! 1307: func default(b) { ! 1308: punc = ""; ! 1309: # authorlist ! 1310: if(authors[b] >0) { ! 1311: printfull(b); ! 1312: punc = "\n"; ! 1313: } ! 1314: ! 1315: # publisher. ! 1316: else if(issuer[b]) { ! 1317: printf "%s%s", punc, issuer[b]; ! 1318: punc = ".\n"; ! 1319: } ! 1320: # title, ! 1321: if (title[b]) { ! 1322: printf "%s%s" ,punc, title[b]; ! 1323: punc = ".\n"; ! 1324: } ! 1325: # volume, ! 1326: if(volstr[b]) { ! 1327: printf ", %s", volstr[b]; ! 1328: } ! 1329: else if (volume[b]) { ! 1330: printf ", Vol. %s", punc, volume[b] ; ! 1331: } ! 1332: # publisher, ! 1333: if(issuer[b]) { ! 1334: printf "%s%s", punc, issuer[b]; ! 1335: punc = ", "; ! 1336: } ! 1337: # location, ! 1338: if (city[b]) { ! 1339: printf "%s%s", punc, city[b] ; ! 1340: punc = ", "; ! 1341: } ! 1342: # date, ! 1343: if (date[b]) { ! 1344: printf "%s%s", punc, date[b]; ! 1345: punc = ", "; ! 1346: } ! 1347: # pages ! 1348: if (pages[b]) { ! 1349: if ( pages[b] ~ /[,-]/ ) ! 1350: printf "%spp. %s", punc, pages[b]; ! 1351: else ! 1352: printf "%sp. %s", punc, pages[b]; ! 1353: } ! 1354: } ! 1355: ! 1356: ! 1357: ! 1358: ! 1359: ! 1360: ! 1361: # Author, First ! 1362: # Author, First and Second Author ! 1363: # Author, First, Second Author, and Remaining Authors ! 1364: ! 1365: func printfull(b) { ! 1366: if ( authors[b] == 0 ) ; ! 1367: else if ( authors[b] == 1 ) { ! 1368: printf Afull[b,1] ; ! 1369: if(aetal[b]) printf ", et al."; ! 1370: } ! 1371: else if ( authors[b] == 2 ) printf Afull[b,1] " and " Afull[b,2]; ! 1372: else { ! 1373: for ( j = 1; j < authors[b]; j++ ) printf Afull[b,j] ", "; ! 1374: printf "and " Afull[b,authors[b]]; ! 1375: } ! 1376: } ! 1377: func printedfull(b) { ! 1378: if ( editors[b] == 0 ) ; ! 1379: else if ( editors[b] == 1 ) { ! 1380: printf Efull[b,1] ; ! 1381: if(eetal[b]) printf ", et al."; ! 1382: } ! 1383: else if ( editors[b] == 2 ) printf Efull[b,1] " and " Efull[b,2]; ! 1384: else { ! 1385: for ( j = 1; j < editors[b]; j++ ) printf Efull[b,j] ", "; ! 1386: printf "and " Efull[b,editors[b]]; ! 1387: } ! 1388: } ! 1389: ! 1390: func editorlist(b) { ! 1391: if ( editors[b] == 0 ) ; ! 1392: else if ( editors[b] == 1 ) printf E[b,1] ; ! 1393: else if ( editors[b] == 2 ) printf E[b,1] " and " E[b,2]; ! 1394: else { ! 1395: for ( j = 1; j < editors[b]; j++ ) printf E[b,j] ", "; ! 1396: printf "and " E[b,editors[b]]; ! 1397: } ! 1398: }
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.