Original BTL Ratfor System
for 4.2
/* @(#)r2.c 1.1 (Berkeley) %G% */
fprintf(outfil
, "%s\n", outbuf
);
p
= (char *) xp
; /* shut lint up */
if (cont
== 0 && comptr
> 0) /* flush comment if not on continuation */
if (type
[c
] == LET
|| type
[c
] == DIG
) {
if (strlen(p
-1)+outp
> 71)
if (c1
== '"' || c1
== '\'') {
fprintf(outfil
, "%s\n", outbuf
);
n
+= INDENT
* indent
+ 1;
for( outp
=0; outp
<n
; outbuf
[outp
++] = ' ' );
outbuf
[contfld
-1] = contchar
;
error("more than 19 continuation cards");
else if (cont
== 0 && comptr
> 0) {
for (i
=j
=0; i
< comptr
; i
++)
if (comment
[i
] == '\n') {
fprintf(outfil
, "%s\n", &comment
[j
]);