DataMuseum.dk

top - download

    Length: 6342 (0x18c6)
    Types: TextFile
    Names: »apa«

└─⟦87ddcff64⟧ Bits:30001253 CPHDIST85 Tape, 1985 Autumn Conference Copenhagen
    └─ ⟦this⟧ »cph85dist/stat/doc/apa« 

TextFile

#!/bin/sh
# Copyright (c) 1984 Gary Perlman
# This shell script runs the named files through the t/nroff macros below.
# The nroff output is suitable for APA format papers.
# The default formatter is nroff.  It is replaced by any option ending in roff.
# Flag options (beginning with -) are inserted after the roff call and before
# the naked (file name) arguments.
files= flags= formatter=nroff
umask 066
for i
do	case	"$i" in
	-*)	flags="$flags $i";;
	*roff)	formatter=$i;;
	*)	files="$files $i";;
	esac
done
$formatter $flags - $files << \EOF 2> /dev/null
.\"	APA Nroff macros
.\"	by Gary Perlman
.\"	based on the Publication Manual of the APA (3rd edition)
.\"
.\" These macros are to be used to follow the guidelines detailed in the
.\" third edition of the APA Publication Manual.
.\" This is a minimal set to be used for strict adherence to the standards.
.\" In many cases, macros with limited utility are not included;
.\" for example, macros to count experiment numbers, table numbers,
.\" figure numbers, etc. are thought to be not worth the trouble.
.\"	Where possible, the page or section numbers in the manual are cited.
.if \nD \{\
.de --
'tl '\\$1 \\$2 \\$3 \\$4 \\$5 \\$6 \\$7 \\$8 \\$9'''
.fl
.. \}
.--Basic parameters
.de EV\"environment
.ls 2\"137
.pl 11i\"p136
.if \\nI .pl 10i\"kludge for imagen printing with imprint
.po 1.5i\"p137
.if \\nI .po .75i\"kludge for imagen printing with imprint
.if n .ta 8n +8n +8n +8n +8n +8n +8n +8n +8n +8n +8n
.if t .ta .5i +.5i +.5i +.5i +.5i +.5i +.5i +.5i +.5i +.5i
.if \\nI .nr I 0.5i
.ll 5.5i
.if \\nI .ll 5.75i
.lt 5.5i
.if \\nI .lt 5.75i
.in 0
.ce 0
.ps 11p
.vs 12p
.ie \nI .wh -1.0i EP\"p137
.el .wh -1.5i EP\"p137
.wh 0 BP
.nh
.na
..
.EV
.ev 1
.EV
.ev
.de CW
.rm CW
.nr CW 1
.ie '\\$1'' .ds CW \\*(AU
.el .ds CW \\$1
..
.de DR\"draft
.nr DR 1
.ds DT Draft \n(mo/\n(dy/\n(yr
..
.de EP\"end of page macro
.if \\n(CW \
\{\
.ev 1
'sp .5i
.ft B
.if n 'tl @@Copyright (c) 19\n(yr \\*(CW@@
.if t 'tl @@Copyright \(co 19\n(yr \\*(CW@@
.ft R
.ev
.\}
'bp
..
.de BP\"begin page macro
.ev 1
.ft B
'sp |.5i-\\nIu
'tl '\\*(AU''\\*(!R' \"running head
'sp |1i-\\nIu
'tl '\\*(DT''%' \"page numbers p138
'sp |1.5i-\\nIu
.ft R
.ev
..
.de us\"underscore
.if t \\$1\l'|0\(ul'\\$2
.if n \fI\\$1\fP\\$2
..
.de SP
.if n .sp
.if t .sp .5v
..
.de uc\"upper case (must turn ligatures off)
.lg 0
.tr aAbBcCdDeEfFgGhHiIjJkKlLmMnNoOpPqQrRsStTuUvVwWxXyYzZ
.if \\n(.$ \\$1
.tr aabbccddeeffgghhiijjkkllmmnnooppqqrrssttuuvvwwxxyyzz
.lg 1
..
.--Heading and Paragraph Macros (p66)
.de H\"general heading macro
.H\\$1 "\\$2"
..
.de H0\"heading start
.br
.sp
.ne \\$1u
.in 0
.ce 0
.fi
.ft R
..
.de H1\"centered, all caps
.H0 2i
.ce
.ft B
.ps 14
.uc "\\$1"
.ps
.ft R
.if \\n(XX>=1 .>X "\\$1"
..
.de H2\"centered, initial caps
.H0 1.5i
.ce
.ft B
.ps 14
.if \\n(.$ \\$1
.ps
.ft R
.if \\n(XX>=2 .>X "    \\$1"
..
.de H3\"centered, underlined
.H0 1.5i
.ce
.ps 14
.if \\n(.$ .us "\\$1"
.ps
.if \\n(XX>=3 .>X "      \\$1"
..
.de H4\"left, underlined
.H0 1i
.ps 12
.if \\n(.$ .us "\fB\\$1\fR"
.ps
.br
.if \\n(XX>=4 .>X "        \\$1"
..
.de H5\"indented, underlined, followed by period
.H0 .75i
.ti 5n
.if \\n(.$ .us "\\$1" .
.if \\n(XX>=5 .>X "            \\$1"
..
.de P
.br
.in 0
.if \\n(.L=1 .SP
.ie \\n(.$=0 .ti +5n
.el .ti +\\$1
.ft R
.fi
..
.--Series and Paragraph Lists
.--series
.de AL
.de L- @@
.br
.@@
.L0
..
.de BL
.de L- @@
.br
*
.@@
.L0
..
.de LE
.rm L-
..
.de LI
.L# "\\$1"
..
.de L0\"series start
.nr L# 0
.ie \\n(.$ .af L# \\$1
.el .af L# a
..
.de L#\"alphabetically numbered list item
.nr L# +1
.L-
(\\n(L#)\ \c
.if !'\\$1'' .B "\\$1" :
..
.--numbered paragraphs
.de P0\"begin numbered paragraphs
.nr P# 0
.ie \\n(.$ .af P# \\$1
.el .af P# 1
..
.de P#\"numbered paragraph
.nr P# +1
.P \\$1
\\n(P#.
..
.--Reference item
.de R#\"authors date
.br
.fi
.ft R
.in 5n
.ti 0
.if \\n(.L=1 .SP
\\$1 (\\$2)
..
.--Journal item
.de J#\"name volume pages
.if t .ft B
.if n .ft I
\\$1,
.ie \\n(.$<2 vol. ?,
.el \\$2,
.ft R
.ie \\n(.$<3 pp. ?-?.
.el \\$3.
..
.--Quoted Blocks of Text
.de (Q\"begin quote
.br
.ne 2i
.SP
.in +5n
.ll -.5i
..
.de )Q\"end quote
.if \\n(.$ \{\
.sp
(\\$1)
\}
.in -5n
.ll +.5i
.SP
..
.--Figure & Table
.de FT\"Figure Table Placement
.br
.ne 1i
.ce 10
--------------------------
\\$1 about here
--------------------------
.ce 0
..
.--Statistics
.ds SF \o'\(ulF'
.ds St \o'\(ult'
.ds Sr \o'\(ulr'
.ds SM \o'\(ulM'
.ds SD \o'\(ulS'\o'\(ulD'
.ds Sp \o'\(ulp'
.de ST\"statistics (always in parens, always ending with punctuation)
.if '\\$1'F'  \\$7\*(SF(\\$2,\\$3)\ =\ \\$4, \*(Sp\ <\ \\$5\\$6
.if '\\$1't'  \\$6\*(St(\\$2)\ =\ \\$3, \*(Sp\ <\ \\$4\\$5
.if '\\$1'r'  \\$6\*(Sr(\\$2)\ =\ \\$3, \*(Sp\ <\ \\$4\\$5
.if '\\$1'SD' \\$4\*(SD\ =\ \\$2\\$3
.if '\\$1'M'  \\$4\*(SM\ =\ \\$2\\$3
..
.--Title Page
.de (T\"title page
.br
.ds !R \\$1
.di !T
.ce 100
.ls 1
.ft B
.if \\n(.$>=1 \\$1
.if \\n(.$>=2 \\$2
.if \\n(.$>=3 \\$3
.if \\n(.$>=4 \\$4
.if \\n(.$>=5 \\$5
.if \\n(.$>=6 \\$6
.if \\n(.$>=7 \\$7
.if \\n(.$>=8 \\$8
.if \\n(.$>=9 \\$9
.ft R
.ce 0
.ls
.sp
.di
.sp |3i-\\nIu
.if \\n(.L>1 .ps 20
.ce 100
.ft B
.if \\n(.$>=1 \\$1
.if \\n(.$>=2 \\$2
.if \\n(.$>=3 \\$3
.if \\n(.$>=4 \\$4
.if \\n(.$>=5 \\$5
.if \\n(.$>=6 \\$6
.if \\n(.$>=7 \\$7
.if \\n(.$>=8 \\$8
.if \\n(.$>=9 \\$9
.sp
.ft R
..
.de )T\"end page & define running head
.ce 0
.sp |8i-\\nIu
.if \\n(.L>1 .ps
.if \\n(.$ .ds !R \\$1
\fBRunning Head:\fR \\*(!R
.sp
.if \\n(DR Draft \n(mo/\n(dy/\n(yr
..
.--Footnotes
.nr F# 1
.ds F \u\s-2\\n(F#\s+2\d
.de !F
.nf
..
.de (F
.da !F
.ev 1
.EV
.br
\\n(F#.
.nr F# +1
..
.--end footnote
.de )F
.br
.ev
.di
..
.--bold font
.de B
.ie \\n(.$ \fB\\$1\fP\\$2
.el .ft B
..
.--italic font
.de I
.ie \\n(.$ \fI\\$1\fP\\$2
.el .ft I
..
.--regular font
.de R
.ie \\n(.$ \fR\\$1\fP\\$2
.el .ft R
..
.--typewriter font
.de T
.ie \\n(.$ \f(LB\\$1\fP\\$2
.el .ft LB\"bold constant width font
..
.de HH
.H1 "\\$1"
..
.de MH
.H2 "\\$1"
..
.de LH
.H4 "\\$1"
..
.de PH
.H5 "\\$1"
..
.--output to index
.de >X
.da XX
.ev 1
.ta 4nR 5n
.in 1i
.ti 0
.ls 1
.br
	\\n%	\\$1
.br
.ls
.ev
.di
..
.--output index
.de X>
.ls 1
.nf
.XX
..
.--table of contents
.de TC
.ie \\n(.$ \
\{\
.nr XX \\$1
.\}
.el \
\{\
.	af % i
.	ls 1
.	bp 1
.	!T
Page
.	X>
.	ls
.\}
..
.--display
.de (D
.br
.SP
.nf
.ne .75i
.if \\n(.$\
\{\
.	ce
.ft B
\\$1
.ft
.SP
.\}
.T
.ps 10
.in +3n
..
.de )D
.ft R
.ps
.in -3n
.fi
.SP
..
.--done defining apa macros
EOF