![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to newpami 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 newpami CVS log | Up to [Research Unix] / researchv10no / cmd / prefer / styles |
1.1 root 1: ###
2: ### pami reference formatting style
3: ###
4:
5: BEGIN {
6: PASS="%TWOPASS"; # only one pass thru document
7: sortflag = 1; # reference_placement bib is sortedone
8: STYLE = "pami";
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:
28: func setauthor(b,a) {
29: Afull[b,a] = FMLast();
30: Asort[b] = Asort[b] LastFM() " ";
31: }
32:
33: func seteditor(b,a) {
34: E[b,a] = FMLast();
35: Efull[b,a] = LastFM();
36: Esort[b] = Esort[b] Efull[b,a] " ";
37: }
38:
39:
40: ##
41: ## citations
42: ## print a citation list
43: ## (Last, year; Last, year...)
44: ##
45: func citations(lastpunc) {
46: seq = "no";
47: punc = "\n";
48: if(lastpunc == "\"" || lastpunc == "'") {
49: punc = lastpunc " ";
50: lastpunc = "\\ ";
51: }
52: if(lastpunc == "(") {
53: punc = lastpunc;
54: lastpunc = "";
55: }
56: for(i=1; i<=cites; i++) {
57: cn = bibptr[i]
58: seq = sequence(i,cites);
59: if (seq == "in") continue;
60: if (seq == "end") {
61: punc = "-";
62: seq = "no";
63: }
64: printf "%s[", punc;
65: if (pre_text[cn]) printf "%s ", pre_text[cn];
66: printf "%s", makemark(i);
67: if(post_text[cn]) {
68: if (is_punc(substr(post_text[cn],1,1)) == 0) print "";
69: printf "%s", post_text[cn];
70: }
71: printf "]";
72: punc = ", ";
73: }
74: printf lastpunc;
75: }
76:
77: func is_punc(p)
78: {
79: if(p == ",") return 1;
80: if(p == ".") return 1;
81: if(p == ";") return 1;
82: return 0;
83: }
84:
85:
86: ##
87: ## makemark
88: ## return citation mark: identical citations have the same number
89: ##
90: func makemark(m) {
91: return(inverse[uniqno[bibptr[m]]]);
92: }
93:
94:
95:
96: ##
97: ## bibindex
98: ## print citation mark for the bibliography;
99: ## return an index for accessing rest of citation
100: ##
101: func bibindex(b) {
102: printf ".sp .5\n.ti -\\w'[" b "]\\ \\ \\ 'u\n";
103: printf "[" b "]\\ \\ \\ ";
104: if(sortflag) return sortorder[b];
105: else return b;
106: }
107:
108:
109:
110: #############################################
111: #
112: # Reference types
113: #
114: ############################################
115:
116:
117: func book(b) {
118: # authorlist
119: if(authors[b]) {
120: printfull(b);
121: printf ",\n";
122: }
123: # (italic) title.
124: if(title[b])
125: printf "\\f2\\&%s\\f1\\&.\n", title[b];
126: # Vol. #.
127: if (volstr[b])
128: printf "%s.\n", volstr[b] ;
129: else if (volume[b])
130: printf "Vol. %s.\n", volume[b] ;
131: # [location: ]publisher,
132: if (city[b]) printf "%s: ", city[b] ;
133: printf "%s,\n", issuer[b] ;
134: # date
135: printf date[b] ;
136: }
137:
138: func editedbook(b) {
139: # authorlist, Ed[s].,
140: if(authors[b]) {
141: printfull(b);
142: if(authors[b] <2)
143: printf ", Ed.,\n";
144: else
145: printf ", Eds.,\n";
146: }
147: # (italic) title.
148: if(title[b])
149: printf "\\f2\\&%s\\f1\\&.\n", title[b];
150: # Vol. #.
151: if (volstr[b])
152: printf "%s.\n", volstr[b] ;
153: else if (volume[b])
154: printf "Vol. %s.\n", volume[b] ;
155: # [location: ]publisher,
156: if (city[b]) printf "%s: ", city[b] ;
157: printf "%s,\n", issuer[b] ;
158: # date
159: printf date[b] ;
160: }
161:
162: func incollection(b) {
163: # authorlist,
164: if(authors[b]) {
165: printfull(b);
166: printf ",\n";
167: }
168: # ``title,''
169: if(title[b]) {
170: if(nroff)
171: printf "\"%s,\"", title[b] ;
172: else
173: printf "``%s,''", title[b] ;
174: }
175: # in (italics) booktitle,
176: printf "In \\f2\\&%s\\f1\\&,\n", booktitle[b];
177: # Vol. #,
178: if (volstr[b])
179: printf "%s,\n", volstr[b] ;
180: else if (volume[b])
181: printf "Vol. %s,\n", volume[b] ;
182: # editorlist Ed.
183: if (editors[b]) {
184: editorlist(b);
185: if (editors[b] == 1) printf ", Ed.\n"
186: else if (editors[b] > 1) printf ", Eds.\n"
187: }
188: # [location: ]publisher,
189: if (city[b]) printf "%s: ", city[b] ;
190: printf "%s,\n", issuer[b] ;
191: # date
192: printf date[b] ;
193: # pages,
194: if ( pages[b]) {
195: if ( pages[b] ~ /[,-]/ )
196: printf ",\npp. %s", pages[b];
197: else printf ",\np. %s", pages[b];
198: }
199: }
200:
201: func thesis(b) {
202: # authorlist,
203: if(authors[b]) {
204: printfull(b);
205: printf ",\n";
206: }
207: # ``title,''
208: if(title[b]) {
209: if(nroff)
210: printf "\"%s,\"", title[b] ;
211: else
212: printf "``%s,''", title[b] ;
213: }
214: # thesis, publisher,
215: if(reftype[b] == "phdthesis")
216: printf "PhD dissertation, %s", issuer[b];
217: else if(reftype[b] == "mastersthesis")
218: printf "Master's dissertation, %s", issuer[b];
219: # date
220: printf ",\n%s", date[b] ;
221: }
222:
223: func review(b) {
224: article(b);
225: }
226:
227: func article(b) {
228: # authorlist,
229: if(authors[b]) {
230: printfull(b);
231: printf ",\n";
232: }
233: # ``title,''
234: if(title[b]) {
235: if(nroff)
236: printf "\"%s,\"", title[b] ;
237: else
238: printf "``%s,''", title[b] ;
239: }
240: # review
241: if(booktitle[b]) {
242: printf "Review of \\f2\\&%s\\f1\\&", booktitle[b];
243: if(editors[b]) {
244: printf " by "
245: editorlist(b);
246: }
247: if (issuer[b]) {
248: printf " %s", issuer[b];
249: }
250: printf ".\n";
251: }
252: # (italics) journal,
253: printf "\\f2\\&%s\\f1\\&,\n", journal[b];
254: # vol. #,
255: if (volstr[b])
256: printf "%s, ", volstr[b] ;
257: else if (volume[b])
258: printf "vol. %s, ", volume[b] ;
259: # no. #,
260: if(numstr[b])
261: printf "%s, ", numstr[b];
262: else if (number[b])
263: printf "no. %s, ", number[b] ;
264: # pt. #,
265: if(partstr[b])
266: printf "%s, ", partstr[b];
267: else if (part[b])
268: printf "pt. %s, ", part[b] ;
269: # pages,
270: if ( pages[b]) {
271: if ( pages[b] ~ /[,-]/ )
272: printf "pp. %s, ", pages[b];
273: else printf "p. %, s", pages[b];
274: }
275: # date
276: printf "%s", date[b] ;
277: }
278:
279: func inproceedings(b) {
280: # authorlist,
281: if(authors[b]) {
282: printfull(b);
283: printf ",\n";
284: }
285: # ``title,''
286: if(title[b]) {
287: if(nroff)
288: printf "\"%s,\"", title[b] ;
289: else
290: printf "``%s,''", title[b] ;
291: }
292: # (italics) journal,
293: printf "in \\f2\\&%s\\f1\\&,", journal[b];
294: # volume,
295: if (volstr[b])
296: printf ", %s", volstr[b] ;
297: else if (volume[b])
298: printf ", Vol. %s", volume[b] ;
299: if(numstr[b])
300: printf ", %s", numstr[b];
301: else if (number[b])
302: printf ", No. %s", number[b] ;
303: if(partstr[b])
304: printf ", %s", partstr[b];
305: else if (part[b])
306: printf ", Pt. %s", part[b] ;
307: # [location: ]publisher,
308: if (city[b]) printf "%s: ", city[b] ;
309: printf "%s,\n", issuer[b] ;
310: # date
311: printf date[b] ;
312: # pages,
313: if ( pages[b]) {
314: if ( pages[b] ~ /[,-]/ )
315: printf ",\npp. %s", pages[b];
316: else printf ",\np. %s", pages[b];
317: }
318: }
319:
320: func proceedings(b) {
321: # authorlist,
322: if(authors[b]) {
323: printfull(b);
324: printf ",\n";
325: }
326: # editorlist, Ed.
327: else if(editors[b]) {
328: editorlist(b);
329: if (editors[b] == 1) printf ", Ed."
330: else if (editors[b] > 1) printf ", Eds."
331: printf ",\n";
332: }
333: # publisher.
334: else if(issuer[b]) {
335: printf "%s", issuer[b];
336: printf ".\n";
337: }
338: # (italics) title,
339: if(title[b]) {
340: printf "\\f2\\&%s\\f1\\&", title[b];
341: printf ",\n";
342: }
343: # vol. #,
344: if (volstr[b])
345: printf "%s, ", volstr[b] ;
346: else if (volume[b])
347: printf "vol. %s, ", volume[b] ;
348: # no. #,
349: if(numstr[b])
350: printf "%s, ", numstr[b];
351: else if (number[b])
352: printf "no. %s, ", number[b] ;
353: # pt. #,
354: if(partstr[b])
355: printf "%s, ", partstr[b];
356: else if (part[b])
357: printf "pt. %s, ", part[b] ;
358: # publisher,
359: if(issuer[b]) {
360: if(authors[b] || editors[b]) {
361: printf issuer[b];
362: printf ",\n";
363: }
364: }
365: # location,
366: if (city[b]) {
367: printf city[b] ;
368: printf ",\n";
369: }
370: # date
371: if (date[b])
372: printf date[b];
373: }
374:
375: func techreport(b) {
376: # authorlist,
377: if(authors[b]) {
378: printfull(b);
379: printf ",\n";
380: }
381: # ``title,''
382: if(title[b]) {
383: if(nroff)
384: printf "\"%s,\"", title[b] ;
385: else
386: printf "``%s,''", title[b] ;
387: }
388: # publisher,
389: if (issuer[b]) printf ",\n%s", issuer[b] ;
390: # location,
391: if (city[b]) {
392: printf city[b] ;
393: printf ",\n";
394: }
395: # report number,
396: printf report[b]
397: # date
398: printf ",\n%s", date[b] ;
399: }
400:
401: func tm(b) {
402: # authorlist,
403: if(authors[b]) {
404: printfull(b);
405: printf ",\n";
406: }
407: # ``title,''
408: if(title[b]) {
409: if(nroff)
410: printf "\"%s,\"", title[b] ;
411: else
412: printf "``%s,''", title[b] ;
413: }
414: # report number,
415: if(rp)
416: printf "AT&T Bell Laboratories internal memorandum";
417: else
418: printf tmno[b]
419: # date
420: printf ",\n%s", date[b] ;
421: }
422:
423: func manual(b) {
424: # authorlist,
425: if(authors[b]) {
426: printfull(b);
427: printf ",\n";
428: }
429: # editorlist, Ed.
430: else if(editors[b]) {
431: editorlist(b);
432: if (editors[b] == 1) printf ", Ed."
433: else if (editors[b] > 1) printf ", Eds."
434: printf ",\n";
435: }
436: # publisher.
437: else if(issuer[b]) {
438: printf "%s", issuer[b];
439: printf ".\n";
440: }
441: # (italics) title,
442: if(title[b]) {
443: printf "\\f2\\&%s\\f1\\&", title[b];
444: printf ",\n";
445: # vol. #,
446: if (volstr[b])
447: printf "%s, ", volstr[b] ;
448: else if (volume[b])
449: printf "vol. %s, ", volume[b] ;
450: }
451: # publisher,
452: if(issuer[b]) {
453: if(authors[b] || editors[b]) {
454: printf issuer[b];
455: printf ",\n";
456: }
457: }
458: # location,
459: if (city[b]) {
460: printf city[b] ;
461: printf ",\n";
462: }
463: # date
464: printf date[b];
465: }
466:
467: func pamphlet(b) {
468: default(b);
469: }
470:
471: func default(b) {
472: # authorlist
473: punc = "";
474: if(authors[b]) {
475: printfull(b);
476: punc = ",\n";
477: }
478: # publisher.
479: else if(issuer[b]) {
480: printf "%s%s", punc, issuer[b];
481: punc = ".\n";
482: }
483: # title,
484: if (title[b]) {
485: printf "%s%s", punc, title[b];
486: punc = ".\n";
487: }
488: # volume,
489: if(volstr[b]) {
490: printf ", %s", volstr[b];
491: }
492: else if (volume[b]) {
493: printf ", Vol. %s", punc, volume[b] ;
494: }
495: # publisher,
496: if(issuer[b]) {
497: printf "%s%s", punc, issuer[b];
498: punc = ", ";
499: }
500: # location,
501: if (city[b]) {
502: printf "%s%s", punc, city[b] ;
503: punc = ", ";
504: }
505: # date,
506: if (date[b]) {
507: printf "%s%s", punc, date[b];
508: punc = ", ";
509: }
510: # pages
511: if (pages[b]) {
512: if ( pages[b] ~ /[,-]/ )
513: printf "%spp. %s", punc, pages[b];
514: else
515: printf "%sp. %s", punc, pages[b];
516: }
517: }
518:
519:
520:
521: # authorlist
522: # First
523: # First and Second
524: # First, Second, ..., and Last
525:
526: func printfull(b) {
527: if ( authors[b] == 0 ) ;
528: else if ( authors[b] == 1 ) {
529: printf Afull[b,1] ;
530: if(aetal[b]) printf ", et al.";
531: }
532: else if ( authors[b] == 2 ) printf Afull[b,1] " and " Afull[b,2];
533: else {
534: for ( j = 1; j < authors[b]; j++ ) printf Afull[b,j] ", ";
535: printf "and " Afull[b,authors[b]];
536: }
537: }
538:
539: func editorlist(b) {
540: if ( editors[b] == 0 ) ;
541: else if ( editors[b] == 1 ) printf E[b,1] ;
542: else if ( editors[b] == 2 ) printf E[b,1] " and " E[b,2];
543: else {
544: for ( j = 1; j < editors[b]; j++ ) printf E[b,j] ", ";
545: printf "and " E[b,editors[b]];
546: }
547: }
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.