<html><head><meta name="color-scheme" content="light dark"></head><body><pre style="word-wrap: break-word; white-space: pre-wrap;">#!/usr/bin/perl

print &lt;&lt;EOF if ($ARGV[0] eq '--help');
$0: Fortran 90 词白デバッグツ〖ル

Fortran 90 のソ〖スコ〖ド (ただし布淡スタイルに嘎る) をこのフィルタに
奶すと悸乖矢の涟に PRINT 矢を赁掐し、ファイル叹、乖戎规、ソ〖スコ〖ドの
乖极挛を磅机する。これによりデバッガがないか慨完できない茨董でも
≈皖ちる眷疥の玫梦∽くらいはできるようになる。

スタイルの掘凤は笆布の奶り:
  ˇ甥プログラムの呵介の悸乖矢の涟に矢戎规なし continue 矢を弥く
  ˇ甥プログラムを姜えるためには end function/end subroutine 矢を蝗脱
  ˇ费鲁乖は &amp; ではじめる

vi エディタを蝗脱している眷圭は努脱に 1G!Gperl $0 \%^M とし、
豺近に :g/!DBG\$/d^M とすればよい。ただしここで ^M は猖乖である。
EOF

while(&lt;&gt;) {
    chomp;
    $line = $_;
    $line =~ s/'/''/g;
    $line =~ s/^\s*//;
    $run = 1 if ($line =~ /^continue/);
    $run = 0 if ($line =~ /^contains/);
    $run = 0 if ($line =~ /^end [fsp]/);
    $tmprun = $run;
    $tmprun = 0 if ($line =~ /^&amp;/);
    $tmprun = 0 if ($line =~ /^case/);
    print "PRINT '(A)', '\&amp;$ARGV $.: $line' !DBG\n" if $tmprun;
    print "$_\n";
}
</pre></body></html>