BSD 4_3 development

Work on file usr/lib/vlpmacs

Synthesized-from: CSRG/cd1/4.3

diff --git a/usr/lib/vlpmacs b/usr/lib/vlpmacs
new file mode 100644 (file)
index 0000000..672f44f
--- /dev/null
+++ b/usr/lib/vlpmacs
@@ -0,0 +1,81 @@
+.\" $Header: vlpmacs,v 1.4 83/08/04 16:15:42 layer Exp $       
+.\" .Fi   -- print out file name and date, used at beginning of document
+.\"
+.de Fi
+.ds Hd
+.if !'\\*(F='' .bp
+.if '\\*(F='' .sp 5v
+.ds F= \\$1
+.nr % 1
+.ev 1
+.ft 2
+.ps 12
+.tl 'File: \\*(F=''Modified: \\$2'
+.tl '''Printed: \\$3'
+.ev
+.sp .25i 
+..
+.\"
+.\" .Ti <text> -- declare text to be printed at the bottom of each page
+.\"
+.de Ti
+.ds T= \\$1
+..
+.\"
+.\"  .He   -- print out bottom of page information, and skip to next page
+.\"
+.de He
+.br
+.ev 1
+.ft 2
+.ps 12
+.sp .25i
+.tl '\\*(T=''Page \\n% of \\*(F='
+.bp
+.ft 3
+.ps 12
+.sp 4v
+.if !'\\*(Hd'' .tl '''...\\*(Hd'
+.if !'\\*(Hd'' .sp .25i
+.ev
+..
+.\" 
+.\" trap bottom of page -1.25 from bottom of paper
+.\"
+.\"
+.\"    .Lf <name> --- declare we are in lisp function <name>
+.\"
+.de Lf
+.ds Hd \\$1
+.br
+.ev 2          \" So it works with me macros, which use ev 1
+.ft 3
+.ps 12
+.tl '''\\*(Hd'
+.ev
+..
+.\"
+.\"
+.\"    .Ls <size> --- Begin block of embedded Lisp code
+.\"
+.de Ls
+.\" save the point size and vert spacing
+.nr Op \\n(.s
+.nr Ov \\n(.v
+.if \\n(.$=1 .ps \\$1
+.if \\n(.$=1 .vs \\$1+2v
+.\" save fill register flag in Xu and start fill mode
+.nr Xu \\n(.u
+.nf
+..
+.\"
+.\"
+.\"    .Le --- End block of embedded Lisp code
+.\"
+.de Le
+.vs \\n(Ovu
+.ps \\n(Op
+.if \\n(Xu .fi
+..
+.ds T= 
+.ds F=