X-Git-Url: http://git.silcnet.org/gitweb/?p=silc.git;a=blobdiff_plain;f=scripts%2Ffix.pl;h=8cdaffb148c2cb24ea0f92db6caa44fb3121819f;hp=dca618e6a313f457663ab9157a7805b02b5d580d;hb=c5c656685b9e72b7e55904bf0db7a47a6ec6e216;hpb=2cbaaafed9c02951d4bf17f9c43ff71ac0821677 diff --git a/scripts/fix.pl b/scripts/fix.pl index dca618e6..8cdaffb1 100755 --- a/scripts/fix.pl +++ b/scripts/fix.pl @@ -1,7 +1,7 @@ #!/usr/bin/perl # fix.pl 17-Nov-93 Craig Milo Rogers at USC/ISI -# +# # The style guide for RFCs calls for pages to be delimited by the # sequence . # Unfortunately, NROFF is reluctant to produce output that conforms to @@ -24,17 +24,17 @@ # # When porting this script, please observe the following points: # -# 1) ISI keeps perl in "/local/bin/perl"; your system may keep it +# 1) ISI keeps perl in "/local/bin/perl"; your system may keep it # elsewhere. # 2) On systems with a CRLF end-of-line convention, the "0s below # may have to be replaced with "^[70s. -$* = 1; # Enable multiline patterns. +#$* = 1; # Enable multiline patterns. undef $/; # Read whole files in a single # gulp. - + while (<>) { # Read the entire input file. s/FORMFEED(\[Page\s+\d+\])\s+/ \1\n\f\n/g; s/\f\n$/\f/; # Want bare formfeed at end? print; # Print the resultant file. -} +}