DataMuseum.dk

Presents historical artifacts from the history of:

ICL Comet 32

This is an automatic "excavation" of a thematic subset of
artifacts from Datamuseum.dk's BitArchive.

See our Wiki for more about ICL Comet 32

Excavated with: AutoArchaeologist - Free & Open Source Software.


top - metrics - download

⟦dd3882c6a⟧ TextFile

    Length: 1869 (0x74d)
    Types: TextFile
    Notes: UNIX file
    Names: »usemac«

Derivation

└─⟦26887b7e0⟧ Bits:30009717 Comet 32 harddisk image
    └─⟦28c352965⟧ »/a« UNIX Filesystem
        └─⟦this⟧ »usr/lib/macros/usemac« 

TextFile

/* Last modified 1984-07-18 by Kim Walden */

/* Standard command lines to include in a Makefile 
** to run 'mm' with proportional pitch
*/

#	-rW	Page width in char pos
#	-rL	Page length in lines
#	-rO	Page offset
#	-rN	Page numbering style (4 = suppress default header)
#	-rU	Underlining of headings (1 = continuous)

BELL= @echo ▶07◀▶07◀▶07◀▶07◀
MMROFF= nroff -cm -mGPf -rU1 -rW150 -rL72 -rO28 -rN4 

paper: paper.n
	$(MMROFF) -TGPpro $? >$@
	$(BELL)

/* Standard register settings for 'mm' documents (proportional)
** to be included at the beginning of the script
*/

.nr Pt 2	\" Paragraph type indented, except after headings etc.
.nr Hy 1	\" Automatic hyphenation on
.nr Li 12	\" List indent (~12 mm prop)
.nr Si 10       \" Static display indent (~10 mm prop)
.nr Oc 1	\" No page number on table of contents
.nr Hb 4	\" Heading break up to this level
.nr Hs 4	\" Blank line after heading up to this level
.nr Ej 1	\" Page eject for first-level headings

/* Normally with 'mm', when the heading type is bold, the section numbers
** are not printed in bold face, only the header text.
** The following definition of the HX macro can be used to overcome this
** bug (feature?).
*/

.de HX				\" Called before heading is output
.if \\n(;0=0 .ds }2 .^^^^^^\\"	\\" Run-in header separator (~6 mm prop)
.if \\$1<3 .ft 3		\\" Bold mark for level 1 and 2 headers
..

/* With proportional 'mm' documents, the spacing between an item number
** and the item text in an ordinary AL list looks a bit narrow.
** The NL macro may be used in place of AL to widen it.
** 

.de NL
.LB \\n(Li 0 4 1 \\$1
..

/* Macro to check if a given amount of vertical space is still
** available on the current page.
** Argument should be scaled, e.g. 15.4c
*/

.de GE
.br
.if \\w'\\n(.z' .)D "GE: diversion in effect"
.nr m \\n(.v*2
.nr h 0\\$1
.if \\nm-\\nh .)D "GE: unscaled arg"
.if \\nh-\\n(.t .SK
..