![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to newapa 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 newapa CVS log | Up to [Research Unix] / researchv10no / cmd / prefer / styles |
1.1 ! root 1: ### ! 2: ### apa reference formatting style ! 3: ### ! 4: ! 5: BEGIN { ! 6: PASS=""; # only one pass thru document ! 7: sortflag = 1; # reference_placement bib is sortedone ! 8: STYLE = "apa"; ! 9: SKEY = "adt"; ! 10: } ! 11: ! 12: ! 13: ! 14: ####################################################### ! 15: # ! 16: # Functions required by general awk script ! 17: # ! 18: ####################################################### ! 19: ! 20: ! 21: ## ! 22: ## Set author and editor fields ! 23: ## for reference list ! 24: ## for citation ! 25: ## for possible sorting ! 26: ## ! 27: func setauthor(b,a) { ! 28: Afull[b,a] = LastF_M(); ! 29: Alast[b,a] = Last; ! 30: Asort[b] = Asort[b] Afull[b,a] " "; ! 31: } ! 32: ! 33: func seteditor(b,a) { ! 34: E[b,a] = F_MLast(); ! 35: Efull[b,a] = LastF_M(); ! 36: Elast[b,a] = Last; ! 37: Esort[b] = Esort[b] Efull[b,a] " "; ! 38: } ! 39: ! 40: ! 41: ## ! 42: ## citations ! 43: ## print a citation list ! 44: ## (Last, year; Last, year...) ! 45: ## ! 46: func citations(lastpunc) { ! 47: sep = "\n("; ! 48: if(lastpunc == "\"" || lastpunc == "'") { ! 49: sep = lastpunc " ("; ! 50: lastpunc = "\\ "; ! 51: } ! 52: ptext = 0; ! 53: ctext = 0; ! 54: for(i=1; i<=cites; i++) { ! 55: cn = bibptr[i]; ! 56: b = uniqno[cn]; ! 57: if (pre_text[cn] || post_text[cn]) ctext = 1; ! 58: punc = ", "; ! 59: if ((ctext == 1) || (ptext == 1) || new_author(i)) { ! 60: printf sep; ! 61: ppunc = ""; ! 62: if (pre_text[cn]) { ! 63: printf "%s", pre_text[cn]; ! 64: if((no_author[cn] == 0) || (no_date[cn] == 0)) ! 65: printf " "; ! 66: } ! 67: if (no_author[cn] == 0) { ! 68: if(authors[b]) ! 69: printlast(b); ! 70: else if (editors[b]) ! 71: printlasted(b); ! 72: else if (issuer[b]) ! 73: printf issuer[b]; ! 74: else ! 75: printf title[b]; ! 76: } ! 77: else punc = ""; ! 78: } ! 79: if(no_date[cn] == 0) { ! 80: if(year[b] ~ /^[0-9][0-9][0-9][0-9]$/) ! 81: printf "%s%s", punc, year[b]; ! 82: else { ! 83: if (date[b] != 0) printf "%s%s", punc, date[b]; ! 84: } ! 85: } ! 86: if (post_text[cn]) { ! 87: if (is_punc(substr(post_text[cn],1,1)) == 0) print ""; ! 88: printf "%s", post_text[cn]; ! 89: } ! 90: sep = ";\n"; ! 91: ptext = ctext; ! 92: ctext = 0; ! 93: } ! 94: printf ")"; ! 95: printf lastpunc; ! 96: } ! 97: ! 98: func is_punc(p) ! 99: { ! 100: if(p == ",") return 1; ! 101: if(p == ".") return 1; ! 102: if(p == ";") return 1; ! 103: return 0; ! 104: } ! 105: ! 106: ## ! 107: ## new_author ! 108: ## returns 1 if current author is difference from ! 109: ## previous author in the citation list ! 110: ## ! 111: func new_author(c) { ! 112: if (c == 1) return 1; ! 113: b1 = uniqno[bibptr[c-1]]; ! 114: b = uniqno[bibptr[c]]; ! 115: if(authors[b] == 0) return 1; ! 116: if(authors[b1] != authors[b]) return 1; ! 117: for(k = 1; k <= authors[b]; k++) { ! 118: if (Alast[b1,k] != Alast[b,k]) return 1; ! 119: } ! 120: return 0; ! 121: } ! 122: ! 123: ! 124: ## ! 125: ## print author last name for citation ! 126: ## First ! 127: ## First and Second ! 128: ## First, Second,..., & Last ! 129: func printlast(c) { ! 130: a = authors[c] ! 131: if ( a == 1 ) printf "%s", Alast[c,1]; ! 132: else if ( a == 2 ) printf "%s & %s", Alast[c,1], Alast[c,2]; ! 133: else if (a > 5) printf "%s et al.", Alast[c,1]; ! 134: else { ! 135: for ( j = 1; j < a; j++ ) printf Alast[c,j] ", "; ! 136: printf "& %s", Alast[c,a]; ! 137: } ! 138: } ! 139: ! 140: ## ! 141: ! 142: ## print editor last name for citation ! 143: ## First ! 144: ## First and Second ! 145: ## First, Second,..., & Last ! 146: func printlasted(c) { ! 147: a = editors[c] ! 148: if ( a == 1 ) printf "%s", Elast[c,1]; ! 149: else if ( a == 2 ) printf "%s & %s", Elast[c,1], Elast[c,2]; ! 150: else if (a > 5) printf "%s et al.", Elast[c,1] ; ! 151: else { ! 152: for ( j = 1; j < a; j++ ) printf Elast[c,j] ", "; ! 153: printf "& %s", Elast[c,a]; ! 154: } ! 155: } ! 156: ! 157: ! 158: ## ! 159: ## bibindex ! 160: ## set up indentation for bibliography; ! 161: ## return an index for accessing rest of citation ! 162: ## ! 163: func bibindex(i) { ! 164: printf ".sp .5\n.ti -.5i\n"; ! 165: if (sortflag) ! 166: return sortorder[i]; ! 167: else return i; ! 168: } ! 169: ! 170: ! 171: ! 172: ############################################# ! 173: # ! 174: # Reference types ! 175: # ! 176: ############################################ ! 177: ! 178: ! 179: func book(b) { ! 180: # authorlist ! 181: if(authors[b]) { ! 182: printfull(b); ! 183: printf "\n"; ! 184: } ! 185: # (date). ! 186: printf "(%s)", date[b] ; ! 187: punc = ".\n"; ! 188: # italic(title) ! 189: if(title[b]) { ! 190: printf "%s\\f2\\&%s\\f1\\&", punc, title[b]; ! 191: # (Vol #). ! 192: if(volstr[b]) ! 193: printf " (%s)", volstr[b]; ! 194: else if(volume[b]) ! 195: printf " (Vol. %s)", volume[b]; ! 196: } ! 197: # location: publisher. ! 198: if (city[b]) { ! 199: printf "%s%s", punc, city[b] ; ! 200: punc = ": "; ! 201: } ! 202: printf "%s%s", punc, issuer[b] ; ! 203: } ! 204: ! 205: ! 206: func editedbook(b) { ! 207: # authorlist ! 208: if(authors[b]) { ! 209: printfull(b); ! 210: if(authors[b] <2) ! 211: printf " (Ed.).\n"; ! 212: else ! 213: printf " (Eds.).\n"; ! 214: } ! 215: # (date). ! 216: printf "(%s)", date[b] ; ! 217: punc = ".\n"; ! 218: # italic(title) ! 219: if(title[b]) { ! 220: printf "%s\\f2\\&%s\\f1\\&", punc, title[b]; ! 221: # (Vol #). ! 222: if(volstr[b]) ! 223: printf " (%s)", volstr[b]; ! 224: else if(volume[b]) ! 225: printf " (Vol. %s)", volume[b]; ! 226: } ! 227: # location: publisher. ! 228: if (city[b]) { ! 229: printf "%s%s", punc, city[b] ; ! 230: punc = ": "; ! 231: } ! 232: printf "%s%s", punc, issuer[b] ; ! 233: } ! 234: ! 235: ! 236: func thesis(b) { ! 237: ! 238: # authorlist ! 239: if(authors[b]) { ! 240: printfull(b); ! 241: printf "\n"; ! 242: } ! 243: # (date). ! 244: printf "(%s).\n", date[b] ; ! 245: # italic(title). ! 246: if(title[b]) { ! 247: printf "\\f2\\&%s\\f1\\&.\n", title[b]; ! 248: } ! 249: # thesis, school. ! 250: if(reftype[b] == "phdthesis") ! 251: printf "Unpublished doctoral dissertation, %s", issuer[b]; ! 252: else if(reftype[b] == "mastersthesis") ! 253: printf "Unpublished master's thesis, %s", issuer[b]; ! 254: } ! 255: ! 256: func review(b) { ! 257: article(b); ! 258: } ! 259: ! 260: ! 261: func article(b) { ! 262: ! 263: # authorlist ! 264: if(authors[b]) { ! 265: printfull(b); ! 266: printf "\n"; ! 267: } ! 268: # (date). ! 269: printf "(%s).\n", date[b] ; ! 270: # title. ! 271: if(title[b]) { ! 272: printf title[b] ".\n"; ! 273: } ! 274: # [reviewed title.] ! 275: if(booktitle[b]) { ! 276: printf "[Review of \\f2\\&%s\\f1\\&", booktitle[b]; ! 277: if(editors[b]) { ! 278: printf " by "; ! 279: editorlist(b); ! 280: } ! 281: if (issuer[b]) { ! 282: printf " %s", issuer[b]; ! 283: } ! 284: printf "].\n"; ! 285: } ! 286: ! 287: # italics journal, ! 288: printf "\\f2\\&%s\\f1\\&", journal[b]; ! 289: # italics(volume) ! 290: if (volstr[b]) ! 291: printf ", \\f2\\&%s\\f1\\&", volstr[b]; ! 292: else if (volume[b]) ! 293: printf ", \\f2\\&%s\\f1\\&", volume[b]; ! 294: # (number Pt. part) ! 295: if (numstr[b]) { ! 296: printf "(%s", numstr[b]; ! 297: if(partstr[b]) ! 298: printf " %s", partstr[b]; ! 299: else if(part[b]) ! 300: printf " Pt. %s", part[b]; ! 301: printf ")"; ! 302: } ! 303: else if (number[b]) { ! 304: printf "(%s", number[b]; ! 305: if(partstr[b]) ! 306: printf " %s", partstr[b]; ! 307: else if(part[b]) ! 308: printf " Pt. %s", part[b]; ! 309: printf ")"; ! 310: } ! 311: # , pages ! 312: if ( pages[b] ) printf ", %s", pages[b]; ! 313: } ! 314: ! 315: func inproceedings(b) { ! 316: ! 317: # authorlist ! 318: if(authors[b]) { ! 319: printfull(b); ! 320: printf "\n"; ! 321: } ! 322: # (date). ! 323: printf "(%s).\n", date[b] ; ! 324: # title. ! 325: if(title[b]) { ! 326: printf title[b] ".\n"; ! 327: } ! 328: ! 329: # italics journal, ! 330: printf "\\f2\\&%s\\f1\\&", journal[b]; ! 331: # italics(volume) ! 332: if (volstr[b]) ! 333: printf ", \\f2\\&%s\\f1\\&", volstr[b]; ! 334: else if (volume[b]) ! 335: printf ", \\f2\\&%s\\f1\\&", volume[b]; ! 336: # (number Pt. part) ! 337: if (numstr[b]) { ! 338: printf "(%s", numstr[b]; ! 339: if(partstr[b]) ! 340: printf " %s", partstr[b]; ! 341: else if(part[b]) ! 342: printf " Pt. %s", part[b]; ! 343: printf ")"; ! 344: } ! 345: else if (number[b]) { ! 346: printf "(%s", number[b]; ! 347: if(partstr[b]) ! 348: printf " %s", partstr[b]; ! 349: else if(part[b]) ! 350: printf " Pt. %s", part[b]; ! 351: printf ")"; ! 352: } ! 353: # editors ! 354: if(editors[b]) { ! 355: printf ", "; ! 356: editorlist(b); ! 357: if (editors[b] == 1) printf " (Ed.)" ! 358: else if (editors[b] > 1) printf " (Eds.)" ! 359: } ! 360: # , pages ! 361: if ( pages[b] ) printf ", %s", pages[b]; ! 362: } ! 363: ! 364: func proceedings(b) { ! 365: punc = ""; ! 366: # authorlist ! 367: if(authors[b] >0) { ! 368: printfull(b); ! 369: punc = "\n"; ! 370: } ! 371: # editor ! 372: else if(editors[b]) { ! 373: printedfull(b); ! 374: if (editors[b] == 1) printf " (Ed.)" ! 375: else if (editors[b] > 1) printf " (Eds.)" ! 376: punc = ".\n"; ! 377: } ! 378: ! 379: # publisher ! 380: else if(issuer[b]) { ! 381: printf "%s%s", punc, issuer[b]; ! 382: punc = ".\n"; ! 383: } ! 384: # (date). ! 385: printf "%s(%s).\n", punc, date[b] ; ! 386: # italic(title) ! 387: if (title[b]) { ! 388: printf "\\f2\\&%s\\f1\\&", title[b]; ! 389: punc = ".\n"; ! 390: if(substr(title[b],length(title[b]),1) == ".") ! 391: punc = "\n"; ! 392: # italics(volume) ! 393: if (volstr[b]) ! 394: printf ", \\f2\\&%s\\f1\\&", volstr[b]; ! 395: else if (volume[b]) ! 396: printf ", \\f2\\&%s\\f1\\&", volume[b]; ! 397: # (number Pt. part) ! 398: if (numstr[b]) { ! 399: printf "(%s", numstr[b]; ! 400: if(partstr[b]) ! 401: printf " %s", partstr[b]; ! 402: else if(part[b]) ! 403: printf " Pt. %s", part[b]; ! 404: printf ")"; ! 405: } ! 406: else if (number[b]) { ! 407: printf "(%s", number[b]; ! 408: if(partstr[b]) ! 409: printf " %s", partstr[b]; ! 410: else if(part[b]) ! 411: printf " Pt. %s", part[b]; ! 412: printf ")"; ! 413: } ! 414: } ! 415: # location: publisher, ! 416: if (city[b]) { ! 417: printf "%s%s", punc, city[b] ; ! 418: punc = ": "; ! 419: } ! 420: printf "%s%s", punc, issuer[b] ; ! 421: } ! 422: ! 423: func incollection(b) { ! 424: ! 425: # authorlist ! 426: if(authors[b]) { ! 427: printfull(b); ! 428: printf "\n"; ! 429: } ! 430: # (date). ! 431: printf "(%s).\n", date[b] ; ! 432: # title ! 433: if(title[b]) { ! 434: printf "%s.\n", title[b]; ! 435: } ! 436: # In editorlist (Ed.), ! 437: if(editors[b]) { ! 438: printf "In " ! 439: editorlist(b); ! 440: if (editors[b] == 1) printf " (Ed.),\n" ! 441: else if (editors[b] > 1) printf " (Eds.),\n" ! 442: } ! 443: # italics(booktitle) ! 444: printf "\\f2\\&%s\\f1\\&", booktitle[b]; ! 445: # (volume, pages). ! 446: if (volume[b] || pages[b]) { ! 447: comma = ""; ! 448: printf "\n(" ; ! 449: if(volstr[b]) { ! 450: printf "%s", volstr[b]; ! 451: comma = ", " ; ! 452: } ! 453: else if(volume[b]) { ! 454: printf "Vol. %s", volume[b]; ! 455: comma = ", " ; ! 456: } ! 457: if(pages[b]) { ! 458: if ( pages[b] ~ /[,-]/ ) ! 459: printf "%spp. %s", comma, pages[b]; ! 460: else printf "%sp. %s)", comma, pages[b]; ! 461: } ! 462: printf ")" ! 463: } ! 464: printf ".\n"; ! 465: # location: publisher, ! 466: if (city[b]) printf "%s: ", city[b] ; ! 467: printf "%s", issuer[b] ; ! 468: } ! 469: ! 470: ! 471: ! 472: func techreport(b) { ! 473: ! 474: # authorlist ! 475: if(authors[b]) { ! 476: printfull(b); ! 477: printf "\n"; ! 478: } ! 479: # (date). ! 480: printf "(%s).\n", date[b] ; ! 481: # italic(title) ! 482: if(title[b]) ! 483: printf "\\f2\\&%s\\f1\\&\n", title[b]; ! 484: # (report number). ! 485: printf "(%s).\n", report[b]; ! 486: ! 487: # location: publisher. ! 488: if (city[b]) printf "%s: ", city[b] ; ! 489: printf issuer[b]; ! 490: } ! 491: ! 492: func tm(b) { ! 493: ! 494: # authorlist ! 495: if(authors[b]) { ! 496: printfull(b); ! 497: printf "\n"; ! 498: } ! 499: # (date). ! 500: printf "(%s).\n", date[b] ; ! 501: # italic(title) ! 502: if(title[b]) ! 503: printf "\\f2\\&%s\\f1\\&\n", title[b]; ! 504: # (tm number). ! 505: if(rp) ! 506: printf "(AT&T Bell Laboratories internal memorandum)"; ! 507: else ! 508: printf "(%s)", tmno[b] ! 509: } ! 510: ! 511: func manual(b) { ! 512: punc = ""; ! 513: # authorlist ! 514: if(authors[b] >0) { ! 515: printfull(b); ! 516: punc = "\n"; ! 517: } ! 518: # editor ! 519: else if(editors[b]) { ! 520: printedfull(b); ! 521: if (editors[b] == 1) printf " (Ed.)" ! 522: else if (editors[b] > 1) printf " (Eds.)" ! 523: punc = ".\n"; ! 524: } ! 525: ! 526: # publisher ! 527: else if(issuer[b]) { ! 528: printf "%s%s", punc, issuer[b]; ! 529: punc = ".\n"; ! 530: } ! 531: # (date). ! 532: printf "%s(%s).\n", punc, date[b] ; ! 533: # italic(title) ! 534: if(title[b]) { ! 535: printf "\\f2\\&%s\\f1\\&", title[b]; ! 536: # (Vol #). ! 537: if(volstr[b]) { ! 538: printf " (%s)", volstr[b]; ! 539: punc = ".\n" ! 540: } ! 541: else if(volume[b]) { ! 542: printf " (Vol. %s)", volume[b]; ! 543: punc = ".\n" ! 544: } ! 545: punc = ".\n" ! 546: } ! 547: ! 548: # location: publisher. ! 549: if (city[b]) { ! 550: printf "%s%s", punc, city[b] ; ! 551: punc = ": "; ! 552: } ! 553: if(issuer[b]) { ! 554: if(editors[b] || authors[b]); ! 555: printf "%s%s", punc, issuer[b]; ! 556: } ! 557: } ! 558: ! 559: func pamphlet(b) ! 560: { ! 561: ! 562: punc = ""; ! 563: # authorlist ! 564: if(authors[b] >0) { ! 565: printfull(b); ! 566: punc = "\n"; ! 567: } ! 568: # publisher ! 569: else if(issuer[b]) { ! 570: printf "%s%s", punc, issuer[b]; ! 571: punc = ".\n"; ! 572: } ! 573: # italic(title) ! 574: else if(title[b]) { ! 575: printf "\\f2\\&%s\\f1\\&", title[b]; ! 576: punc = ".\n" ! 577: } ! 578: # (date). ! 579: if(date[b]) { ! 580: printf "%s(%s)", punc, date[b] ; ! 581: punc = ".\n"; ! 582: } ! 583: # italic(title) ! 584: if(editors[b] || authors[b] || issuer[b]) { ! 585: if(title[b]) { ! 586: printf "%s\\f2\\&%s\\f1\\&", punc, title[b]; ! 587: punc = ".\n" ! 588: } ! 589: } ! 590: ! 591: # location: publisher. ! 592: if (city[b]) { ! 593: printf "%s%s", punc, city[b] ; ! 594: punc = ": "; ! 595: } ! 596: if(issuer[b]) { ! 597: if(editors[b] || authors[b]); ! 598: printf "%s%s", punc, issuer[b]; ! 599: } ! 600: ! 601: } ! 602: ! 603: func default(b) { ! 604: punc = ""; ! 605: # authorlist ! 606: if(authors[b]) { ! 607: printfull(b); ! 608: punc = "\n"; ! 609: } ! 610: # publisher ! 611: else if(issuer[b]) { ! 612: printf "%s%s", punc, issuer[b]; ! 613: punc = ".\n"; ! 614: } ! 615: # italic(title). ! 616: else if(title[b]) { ! 617: printf "\\f2\\&%s\\f1\\&", title[b]; ! 618: punc = ".\n" ! 619: } ! 620: # (date). ! 621: if(date[b]) { ! 622: printf "%s(%s)", punc, date[b] ; ! 623: punc = ".\n"; ! 624: } ! 625: # italic(title) ! 626: if(editors[b] || authors[b] || issuer[b] ) { ! 627: if(title[b]) { ! 628: printf "%s%s", punc, title[b]; ! 629: punc = ".\n" ! 630: } ! 631: } ! 632: # (Vol #, pp.). ! 633: if(pages[b] || volume[b]) { ! 634: printf punc; ! 635: printf "(" ! 636: if(volstr[b]) { ! 637: printf volstr[b]; ! 638: punc = ", "; ! 639: } ! 640: else if(volume[b]) { ! 641: printf "Vol. %s", volume[b]; ! 642: punc = ", "; ! 643: } ! 644: if (pages[b]) { ! 645: if ( pages[b] ~ /[,-]/ ) ! 646: printf "%spp. %s", punc, pages[b]; ! 647: else ! 648: printf "%sp. %s", punc, pages[b]; ! 649: } ! 650: printf ")"; ! 651: punc = ".\n" ! 652: } ! 653: ! 654: # location: publisher. ! 655: if (city[b]) { ! 656: printf "%s%s", punc, city[b] ; ! 657: punc = ": "; ! 658: } ! 659: if(issuer[b]) { ! 660: if(editors[b] || authors[b]); ! 661: printf "%s%s", punc, issuer[b]; ! 662: } ! 663: } ! 664: ! 665: ! 666: # Author, First ! 667: # Author, First, and Second Author ! 668: # Author, First, Second Author, and Remaining Authors ! 669: ! 670: func printfull(b) { ! 671: if ( authors[b] == 0 ) ; ! 672: else if ( authors[b] == 1 ) { ! 673: printf Afull[b,1] ; ! 674: if(aetal[b]) printf ", et al."; ! 675: } ! 676: else if ( authors[b] == 2 ) printf Afull[b,1] ", & " Afull[b,2]; ! 677: else { ! 678: for ( j = 1 ; j < authors[b]; j++ ) ! 679: printf Afull[b,j] ", "; ! 680: printf "& " Afull[b,authors[b]]; ! 681: } ! 682: } ! 683: func printedfull(b) { ! 684: if ( editors[b] == 0 ) ; ! 685: else if ( editors[b] == 1 ) { ! 686: printf Efull[b,1] ; ! 687: if(eetal[b]) printf ", et al."; ! 688: } ! 689: else if ( editors[b] == 2 ) printf Efull[b,1] ", & " Efull[b,2]; ! 690: else { ! 691: for ( j = 1 ; j < editors[b]; j++ ) ! 692: printf Efull[b,j] ", "; ! 693: printf "& " Efull[b,editors[b]]; ! 694: } ! 695: } ! 696: ! 697: func editorlist(b) { ! 698: if ( editors[b] == 0 ) ; ! 699: else if ( editors[b] == 1 ) printf "%s", E[b,1] ; ! 700: else if ( editors[b] == 2 ) printf "%s & %s", E[b,1], E[b,2]; ! 701: else { ! 702: for ( j = 1; j < editors[b]; j++ ) printf E[b,j] ", "; ! 703: printf "& %s", E[b,editors[b]]; ! 704: } ! 705: } ! 706:
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.