![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to acm CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [Research Unix] / researchv10no / cmd / prefer / styles|
Return to acm CVS log | Up to [Research Unix] / researchv10no / cmd / prefer / styles |
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 ".in \\w'999.\\ 'u" ! 939: printf ".sp .5\n.ti -\\w'%s.\\ 'u\n",i; ! 940: printf "%s.\\ ", i ; ! 941: if(sortflag) return sortorder[i]; ! 942: else return i; ! 943: } ! 944: ! 945: ! 946: ! 947: ############################################# ! 948: # ! 949: # Reference types ! 950: # ! 951: ############################################ ! 952: ! 953: ! 954: func book(b) { ! 955: # authorlist ! 956: if(authors[b]) { ! 957: printfull(b); ! 958: printf "\n"; ! 959: } ! 960: # italic title. ! 961: if(title[b]) ! 962: printf "\\f2\\&%s\\f1\\&.\n", title[b]; ! 963: # Vol. #. ! 964: if (volstr[b]) ! 965: printf "%s.\n", volstr[b] ; ! 966: else if (volume[b]) ! 967: printf "Vol. %s.\n", volume[b] ; ! 968: # publisher, location ! 969: printf "%s", issuer[b] ; ! 970: punc = ",\n"; ! 971: if (city[b]) printf ", %s", city[b] ; ! 972: # date ! 973: if(date[b]) { ! 974: printf punc date[b] ; ! 975: punc = ",\n"; ! 976: } ! 977: # pages, ! 978: if(pages[b]) ! 979: printf punc pages[b]; ! 980: } ! 981: ! 982: func editedbook(b) { ! 983: ! 984: # authorlist ! 985: if(authors[b]) { ! 986: printfull(b); ! 987: if(authors[b] <2) ! 988: printf ", Ed.\n"; ! 989: else ! 990: printf ", Eds.\n"; ! 991: } ! 992: # italic title. ! 993: if(title[b]) ! 994: printf "\\f2\\&%s\\f1\\&.\n", title[b]; ! 995: # Vol. #. ! 996: if (volstr[b]) ! 997: printf "%s.\n", volstr[b] ; ! 998: else if (volume[b]) ! 999: printf "Vol. %s.\n", volume[b] ; ! 1000: # publisher, location ! 1001: printf "%s", issuer[b] ; ! 1002: if (city[b]) printf ", %s", city[b] ; ! 1003: # date ! 1004: printf ",\n%s", date[b] ; ! 1005: } ! 1006: ! 1007: ! 1008: ! 1009: func incollection(b) { ! 1010: ! 1011: # Authorlist ! 1012: if(authors[b]) { ! 1013: printfull(b); ! 1014: printf "\n"; ! 1015: } ! 1016: # Title. ! 1017: if(title[b]) ! 1018: printf "%s.\n", title[b] ; ! 1019: # in italics booktitle, ! 1020: printf "In \\f2\\&%s\\f1\\&,\n", booktitle[b]; ! 1021: # Vol. #, ! 1022: if (volstr[b]) ! 1023: printf "%s,\n", volstr[b] ; ! 1024: else if (volume[b]) ! 1025: printf "Vol. %s,\n", volume[b] ; ! 1026: # editorlist Ed. ! 1027: if (editors[b]) { ! 1028: editorlist(b); ! 1029: if (editors[b] == 1) printf ", Ed.\n" ! 1030: else if (editors[b] > 1) printf ", Eds.\n" ! 1031: } ! 1032: # publisher, location ! 1033: printf "%s", issuer[b] ; ! 1034: if (city[b]) printf ", %s", city[b] ; ! 1035: # date, ! 1036: printf ",\n%s", date[b] ; ! 1037: # pages, ! 1038: if ( pages[b]) { ! 1039: if ( pages[b] ~ /[,-]/ ) ! 1040: printf ",\npp. %s", pages[b]; ! 1041: else printf ",\np. %s", pages[b]; ! 1042: } ! 1043: } ! 1044: ! 1045: func thesis(b) { ! 1046: ! 1047: # authorlist ! 1048: if(authors[b]) { ! 1049: printfull(b); ! 1050: printf "\n"; ! 1051: } ! 1052: # italic title. ! 1053: if(title[b]) ! 1054: printf "%s.\n", title[b]; ! 1055: # thesis, publisher, ! 1056: if(reftype[b] == "phdthesis") ! 1057: printf "PhD Thesis, %s", issuer[b]; ! 1058: else if(reftype[b] == "mastersthesis") ! 1059: printf "Master's Thesis, %s", issuer[b]; ! 1060: ! 1061: # date ! 1062: printf ",\n%s", date[b] ; ! 1063: } ! 1064: ! 1065: ! 1066: ! 1067: func review(b) { ! 1068: article(b); ! 1069: } ! 1070: ! 1071: func article(b) { ! 1072: ! 1073: # authorlist ! 1074: if(authors[b]) { ! 1075: printfull(b); ! 1076: printf "\n"; ! 1077: } ! 1078: # title. ! 1079: if(title[b]) ! 1080: printf "%s.\n", title[b] ; ! 1081: # review ! 1082: if(booktitle[b]) { ! 1083: printf "Review of \\f2\\&%s\\f1\\&", booktitle[b]; ! 1084: if(editors[b]) { ! 1085: printf " by " ! 1086: editorlist(b); ! 1087: } ! 1088: if (issuer[b]) { ! 1089: printf " %s", issuer[b]; ! 1090: } ! 1091: printf ".\n"; ! 1092: } ! 1093: # italics journal ! 1094: printf "\\f2\\&%s\\f1\\&", journal[b]; ! 1095: # italics volume, ! 1096: if (volstr[b]) ! 1097: printf " \\f2\\&%s\\f1\\&", volstr[b] ; ! 1098: else if (volume[b]) ! 1099: printf " \\f2\\&%s\\f1\\&", volume[b] ; ! 1100: # number ! 1101: if(numstr[b]) ! 1102: printf ", %s", numstr[b]; ! 1103: else if (number[b]) ! 1104: printf ", %s", number[b] ; ! 1105: # part ! 1106: if(partstr[b]) ! 1107: printf ", %s", partstr[b]; ! 1108: else if (part[b]) ! 1109: printf ", Pt. %s", part[b] ; ! 1110: # date ! 1111: printf " (%s)", date[b] ; ! 1112: # pages, ! 1113: if ( pages[b]) printf ", %s", pages[b]; ! 1114: } ! 1115: ! 1116: ! 1117: ! 1118: ! 1119: func inproceedings(b) { ! 1120: # authorlist ! 1121: if(authors[b]) { ! 1122: printfull(b); ! 1123: printf "\n"; ! 1124: } ! 1125: # Title. ! 1126: if(title[b]) ! 1127: printf "%s.\n", title[b] ; ! 1128: # italics Journal, ! 1129: printf "In \\f2\\&%s\\f1\\&", journal[b]; ! 1130: # volume, ! 1131: if (volstr[b]) ! 1132: printf ", %s", volstr[b] ; ! 1133: else if (volume[b]) ! 1134: printf ", Vol. %s", volume[b] ; ! 1135: if(numstr[b]) ! 1136: printf ", %s", numstr[b]; ! 1137: else if (number[b]) ! 1138: printf ", No. %s", number[b] ; ! 1139: if(partstr[b]) ! 1140: printf ", %s", partstr[b]; ! 1141: else if (part[b]) ! 1142: printf ", Pt. %s", part[b] ; ! 1143: # editorlist Ed. ! 1144: if(editors[b]) { ! 1145: printf ",\n"; ! 1146: editorlist(b); ! 1147: if (editors[b] == 1) printf ", Ed." ! 1148: else if (editors[b] > 1) printf ", Eds." ! 1149: } ! 1150: # organization, ! 1151: if(issuer[b]) ! 1152: printf ", %s", issuer[b]; ! 1153: # location, ! 1154: if(city[b]) ! 1155: printf ", %s", city[b]; ! 1156: # date, ! 1157: printf ", %s", date[b]; ! 1158: # pages, ! 1159: if ( pages[b]) { ! 1160: if ( pages[b] ~ /[,-]/ ) ! 1161: printf ", pp. %s", pages[b]; ! 1162: else printf ", p. %s", pages[b] ; ! 1163: } ! 1164: } ! 1165: ! 1166: func proceedings(b) { ! 1167: punc = ""; ! 1168: # authorlist ! 1169: if(authors[b] >0) { ! 1170: authorlist(b); ! 1171: punc = "\n"; ! 1172: } ! 1173: ! 1174: # editorlist Ed. ! 1175: else if(editors[b] > 0) { ! 1176: printf punc; ! 1177: editorlist(b); ! 1178: if (editors[b] == 1) printf ", Ed." ! 1179: else if (editors[b] > 1) printf ", Eds." ! 1180: punc = "\n"; ! 1181: } ! 1182: # publisher. ! 1183: else if(issuer[b]) { ! 1184: printf "%s%s", punc, issuer[b]; ! 1185: punc = ".\n"; ! 1186: } ! 1187: # italics(title), ! 1188: if(title[b]) { ! 1189: printf "%s\\f2\\&%s\\f1\\&", punc,title[b]; ! 1190: punc = ".\n"; ! 1191: if(substr(title[b],length(title[b]),1) == ".") ! 1192: punc = "\n"; ! 1193: ! 1194: # volume, number, part. ! 1195: if (volstr[b]) ! 1196: printf ", %s", volstr[b] ; ! 1197: else if (volume[b]) ! 1198: printf ", Vol. %s", volume[b] ; ! 1199: if(numstr[b]) ! 1200: printf ", %s", numstr[b]; ! 1201: else if (number[b]) ! 1202: printf ", No. %s", number[b] ; ! 1203: if(partstr[b]) ! 1204: printf ", %s", partstr[b]; ! 1205: else if (part[b]) ! 1206: printf ", Pt. %s", part[b] ; ! 1207: } ! 1208: # publisher, ! 1209: if(issuer[b]) ! 1210: if(authors[b] || editors[b]) { ! 1211: printf "%s%s", punc, issuer[b]; ! 1212: punc = ",\n"; ! 1213: } ! 1214: # location, ! 1215: if (city[b]) { ! 1216: printf "%s%s", punc, city[b] ; ! 1217: punc = ",\n"; ! 1218: } ! 1219: # date ! 1220: if (date[b]) ! 1221: printf "%s%s", punc, date[b]; ! 1222: } ! 1223: ! 1224: func techreport(b) { ! 1225: ! 1226: # authorlist ! 1227: if(authors[b]) { ! 1228: printfull(b); ! 1229: printf "\n"; ! 1230: } ! 1231: # title. ! 1232: if(title[b]) ! 1233: printf "%s.\n", title[b]; ! 1234: # report number, ! 1235: printf report[b] ! 1236: # publisher, ! 1237: if (issuer[b]) printf ",\n%s", issuer[b] ; ! 1238: # date ! 1239: printf ",\n%s", date[b] ; ! 1240: } ! 1241: ! 1242: func tm(b) { ! 1243: ! 1244: # authorlist ! 1245: if(authors[b]) { ! 1246: printfull(b); ! 1247: printf "\n"; ! 1248: } ! 1249: # title. ! 1250: if(title[b]) ! 1251: printf "%s.\n", title[b]; ! 1252: # report number, ! 1253: if(rp) ! 1254: printf "AT&T Bell Laboratories internal memorandum"; ! 1255: else ! 1256: printf tmno[b] ! 1257: # date ! 1258: printf ",\n%s", date[b] ; ! 1259: } ! 1260: ! 1261: ! 1262: func manual(b) { ! 1263: punc = ""; ! 1264: # authorlist ! 1265: if(authors[b] >0) { ! 1266: printfull(b); ! 1267: punc = "\n"; ! 1268: } ! 1269: # editorlist Ed. ! 1270: else if(editors[b]) { ! 1271: printf punc; ! 1272: printedfull(b); ! 1273: if (editors[b] == 1) printf ", Ed." ! 1274: else if (editors[b] > 1) printf ", Eds." ! 1275: punc = "\n"; ! 1276: } ! 1277: # publisher ! 1278: else if(issuer[b]) { ! 1279: printf "%s%s", punc, issuer[b]; ! 1280: punc = ".\n"; ! 1281: } ! 1282: # title, ! 1283: if(title[b]) { ! 1284: printf "%s\\f2\\&%s\\f1\\&" ,punc, title[b]; ! 1285: punc = ".\n"; ! 1286: # Vol. volume, ! 1287: if (volstr[b]) ! 1288: printf ", %s", volstr[b] ; ! 1289: else if (volume[b]) ! 1290: printf ", Vol. %s", volume[b] ; ! 1291: } ! 1292: # publisher ! 1293: if(issuer[b]) { ! 1294: if(authors[b] || editors[b]) { ! 1295: printf "%s%s", punc, issuer[b]; ! 1296: punc = ", "; ! 1297: } ! 1298: } ! 1299: # location ! 1300: if (city[b]) { ! 1301: printf "%s%s", punc, city[b] ; ! 1302: punc = ", "; ! 1303: } ! 1304: # date ! 1305: printf "%s%s", punc, date[b]; ! 1306: } ! 1307: ! 1308: func pamphlet(b) { ! 1309: default(b); ! 1310: } ! 1311: ! 1312: func default(b) { ! 1313: punc = ""; ! 1314: # authorlist ! 1315: if(authors[b] >0) { ! 1316: printfull(b); ! 1317: punc = "\n"; ! 1318: } ! 1319: ! 1320: # publisher. ! 1321: else if(issuer[b]) { ! 1322: printf "%s%s", punc, issuer[b]; ! 1323: punc = ".\n"; ! 1324: } ! 1325: # title, ! 1326: if (title[b]) { ! 1327: printf "%s%s" ,punc, title[b]; ! 1328: punc = ".\n"; ! 1329: } ! 1330: # volume, ! 1331: if(volstr[b]) { ! 1332: printf ", %s", volstr[b]; ! 1333: } ! 1334: else if (volume[b]) { ! 1335: printf ", Vol. %s", punc, volume[b] ; ! 1336: } ! 1337: # publisher, ! 1338: if(issuer[b]) { ! 1339: printf "%s%s", punc, issuer[b]; ! 1340: punc = ", "; ! 1341: } ! 1342: # location, ! 1343: if (city[b]) { ! 1344: printf "%s%s", punc, city[b] ; ! 1345: punc = ", "; ! 1346: } ! 1347: # date, ! 1348: if (date[b]) { ! 1349: printf "%s%s", punc, date[b]; ! 1350: punc = ", "; ! 1351: } ! 1352: # pages ! 1353: if (pages[b]) { ! 1354: if ( pages[b] ~ /[,-]/ ) ! 1355: printf "%spp. %s", punc, pages[b]; ! 1356: else ! 1357: printf "%sp. %s", punc, pages[b]; ! 1358: } ! 1359: } ! 1360: ! 1361: ! 1362: ! 1363: ! 1364: ! 1365: ! 1366: # Author, First ! 1367: # Author, First and Second Author ! 1368: # Author, First, Second Author, and Remaining Authors ! 1369: ! 1370: func printfull(b) { ! 1371: if ( authors[b] == 0 ) ; ! 1372: else if ( authors[b] == 1 ) { ! 1373: printf Afull[b,1] ; ! 1374: if(aetal[b]) printf ", et al."; ! 1375: } ! 1376: else if ( authors[b] == 2 ) printf Afull[b,1] " and " Afull[b,2]; ! 1377: else { ! 1378: for ( j = 1; j < authors[b]; j++ ) printf Afull[b,j] ", "; ! 1379: printf "and " Afull[b,authors[b]]; ! 1380: } ! 1381: } ! 1382: func printedfull(b) { ! 1383: if ( editors[b] == 0 ) ; ! 1384: else if ( editors[b] == 1 ) { ! 1385: printf Efull[b,1] ; ! 1386: if(eetal[b]) printf ", et al."; ! 1387: } ! 1388: else if ( editors[b] == 2 ) printf Efull[b,1] " and " Efull[b,2]; ! 1389: else { ! 1390: for ( j = 1; j < editors[b]; j++ ) printf Efull[b,j] ", "; ! 1391: printf "and " Efull[b,editors[b]]; ! 1392: } ! 1393: } ! 1394: ! 1395: func editorlist(b) { ! 1396: if ( editors[b] == 0 ) ; ! 1397: else if ( editors[b] == 1 ) printf E[b,1] ; ! 1398: else if ( editors[b] == 2 ) printf E[b,1] " and " E[b,2]; ! 1399: else { ! 1400: for ( j = 1; j < editors[b]; j++ ) printf E[b,j] ", "; ! 1401: printf "and " E[b,editors[b]]; ! 1402: } ! 1403: }
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.