![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to fpr.1 CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [CSRG BSD Unix] / 43BSDTahoe / man / man1|
Return to fpr.1 CVS log | Up to [CSRG BSD Unix] / 43BSDTahoe / man / man1 |
1.1 ! root 1: .\" Copyright (c) 1983 Regents of the University of California. ! 2: .\" All rights reserved. The Berkeley software License Agreement ! 3: .\" specifies the terms and conditions for redistribution. ! 4: .\" ! 5: .\" @(#)fpr.1 6.2 (Berkeley) 5/7/86 ! 6: .\" ! 7: .TH FPR 1 "May 7, 1986" ! 8: .UC 5 ! 9: .ds f. fpr.tbl ! 10: .SH NAME ! 11: fpr \- print Fortran file ! 12: .SH SYNOPSIS ! 13: .B fpr ! 14: .SH DESCRIPTION ! 15: .I Fpr ! 16: is a filter that transforms files formatted according to ! 17: Fortran's carriage control conventions into files formatted ! 18: according to UNIX line printer conventions. ! 19: .PP ! 20: .I Fpr ! 21: copies its input onto its output, replacing the carriage ! 22: control characters with characters that will produce the intended ! 23: effects when printed using ! 24: .IR lpr (1). ! 25: The first character of each line determines the vertical spacing as follows: ! 26: ! 27: .if t \{\ ! 28: .\" tbl input for vertical spacing table ! 29: .\" .TS ! 30: .\" center box; ! 31: .\" c | l. ! 32: .\" Character Vertical Space Before Printing ! 33: .\" _ ! 34: .\" Blank One line ! 35: .\" 0 Two lines ! 36: .\" 1 To first line of next page ! 37: .\" + No advance ! 38: .\" .TE ! 39: .\" end of tbl input for vertical spacing table ! 40: .\" tbl output for vertical spacing table ! 41: .TS ! 42: .if \n+(b.=1 .nr d. \n(.c-\n(c.-1 ! 43: .de 35 ! 44: .ps \n(.s ! 45: .vs \n(.vu ! 46: .in \n(.iu ! 47: .if \n(.u .fi ! 48: .if \n(.j .ad ! 49: .if \n(.j=0 .na ! 50: .. ! 51: .nf ! 52: .nr #~ 0 ! 53: .if n .nr #~ 0.6n ! 54: .ds #d .d ! 55: .if \(ts\n(.z\(ts\(ts .ds #d nl ! 56: .fc ! 57: .nr 33 \n(.s ! 58: .rm 80 81 ! 59: .nr 80 0 ! 60: .nr 38 \wCharacter ! 61: .if \n(80<\n(38 .nr 80 \n(38 ! 62: .nr 38 \wBlank ! 63: .if \n(80<\n(38 .nr 80 \n(38 ! 64: .nr 38 \w0 ! 65: .if \n(80<\n(38 .nr 80 \n(38 ! 66: .nr 38 \w1 ! 67: .if \n(80<\n(38 .nr 80 \n(38 ! 68: .nr 38 \w+ ! 69: .if \n(80<\n(38 .nr 80 \n(38 ! 70: .80 ! 71: .rm 80 ! 72: .nr 81 0 ! 73: .nr 38 \wVertical Space Before Printing ! 74: .if \n(81<\n(38 .nr 81 \n(38 ! 75: .nr 38 \wOne line ! 76: .if \n(81<\n(38 .nr 81 \n(38 ! 77: .nr 38 \wTwo lines ! 78: .if \n(81<\n(38 .nr 81 \n(38 ! 79: .nr 38 \wTo first line of next page ! 80: .if \n(81<\n(38 .nr 81 \n(38 ! 81: .nr 38 \wNo advance ! 82: .if \n(81<\n(38 .nr 81 \n(38 ! 83: .81 ! 84: .rm 81 ! 85: .nr 38 1n ! 86: .nr 79 0 ! 87: .nr 40 \n(79+(1*\n(38) ! 88: .nr 80 +\n(40 ! 89: .nr 41 \n(80+(3*\n(38) ! 90: .nr 81 +\n(41 ! 91: .nr TW \n(81 ! 92: .nr TW +1*\n(38 ! 93: .if t .if (\n(TW+\n(.o)>7.65i .tm Table at line 45 file fpr.tbl is too wide - \n(TW units ! 94: .ne 5v+2p ! 95: .nr #I \n(.i ! 96: .in +(\n(.lu-\n(TWu-\n(.iu)/2u ! 97: .fc ! 98: .nr #T 0-1 ! 99: .nr #a 0-1 ! 100: .nr #a 0-1 ! 101: .eo ! 102: .de T# ! 103: .ds #d .d ! 104: .if \(ts\n(.z\(ts\(ts .ds #d nl ! 105: .mk ## ! 106: .nr ## -1v ! 107: .ls 1 ! 108: .if \n(#T>=0 .nr #a \n(#T ! 109: .if \n(T. .vs \n(.vu-\n(.sp ! 110: .if \n(T. \h'|0'\s\n(33\l'|\n(TWu\(ul'\s0 ! 111: .if \n(T. .vs ! 112: .if \n(#a>=0 .sp -1 ! 113: .if \n(#a>=0 \h'|0'\s\n(33\h'-\n(#~u'\L'|\n(#au-1v'\s0\v'\n(\*(#du-\n(#au+1v'\h'|\n(TWu' ! 114: .if \n(#a>=0 .sp -1 ! 115: .if \n(#a>=0 \h'(|\n(41u+|\n(80u)/2u'\s\n(33\h'-\n(#~u'\L'|\n(#au-1v'\s0\v'\n(\*(#du-\n(#au+1v'\h'|\n(TWu' ! 116: .if \n(#a>=0 .sp -1 ! 117: .if \n(#a>=0 \h'|\n(TWu'\s\n(33\h'-\n(#~u'\L'|\n(#au-1v'\s0\v'\n(\*(#du-\n(#au+1v' ! 118: .ls ! 119: .. ! 120: .ec ! 121: .nr 36 \n(.v ! 122: .vs \n(.vu-\n(.sp ! 123: \h'|0'\s\n(33\l'|\n(TWu\(ul'\s0 ! 124: .vs \n(36u ! 125: .mk #a ! 126: .ta \n(80u \n(81u ! 127: .nr 31 \n(.f ! 128: .nr 35 1m ! 129: \&\h'|\n(40u'Character\h'|\n(41u'Vertical Space Before Printing ! 130: .nr 36 \n(.v ! 131: .vs \n(.vu-\n(.sp ! 132: \h'|0'\s\n(33\l'|\n(TWu\(ul'\s0 ! 133: .vs \n(36u ! 134: .ta \n(80u \n(81u ! 135: .nr 31 \n(.f ! 136: .nr 35 1m ! 137: \&\h'|\n(40u'Blank\h'|\n(41u'One line ! 138: .ta \n(80u \n(81u ! 139: .nr 31 \n(.f ! 140: .nr 35 1m ! 141: \&\h'|\n(40u'0\h'|\n(41u'Two lines ! 142: .ta \n(80u \n(81u ! 143: .nr 31 \n(.f ! 144: .nr 35 1m ! 145: \&\h'|\n(40u'1\h'|\n(41u'To first line of next page ! 146: .ta \n(80u \n(81u ! 147: .nr 31 \n(.f ! 148: .nr 35 1m ! 149: \&\h'|\n(40u'+\h'|\n(41u'No advance ! 150: .fc ! 151: .nr T. 1 ! 152: .T# 1 ! 153: .in \n(#Iu ! 154: .35 ! 155: .nr #a 0 ! 156: .TE ! 157: .if \n-(b.=0 .nr c. \n(.c-\n(d.-9 ! 158: .\" end of tbl output for vertical spacing table ! 159: .\} ! 160: .if n \{\ ! 161: .nf ! 162: +---------------+--------------------------------+ ! 163: | Character | Vertical Space Before Printing | ! 164: |---------------+--------------------------------| ! 165: | Blank | One line | ! 166: | 0 | Two lines | ! 167: | 1 | To first line of next page | ! 168: | + | No advance | ! 169: +---------------+--------------------------------+ ! 170: .fi ! 171: .\} ! 172: ! 173: .PP ! 174: A blank line is treated as if its first ! 175: character is a blank. A blank that appears as a carriage control ! 176: character is deleted. A zero is changed to a newline. A one is ! 177: changed to a form feed. The effects of a "+" are simulated using ! 178: backspaces. ! 179: .SH EXAMPLES ! 180: a.out | fpr | lpr ! 181: .PP ! 182: fpr < f77.output | lpr ! 183: .SH BUGS ! 184: Results are undefined for input lines longer than 170 characters.
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.