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