preproc.pl

来自「来自mit的fdtd开放性源代码meep」· PL 代码 · 共 13 行

#!/usr/bin/perl -w

my $amcode = 0;

while (<>) {
  if ($amcode && /^(\\end\{comment\}|\\end\{verbatim\})$/) {
    $amcode = 0
  } elsif ($amcode) {
    print $_;
  } elsif (/^(\\begin\{comment\}|\\begin\{verbatim\})$/) {
    $amcode = 1;
  }
}