2004/tex/pretex.pl

#!/usr/bin/perl
use strict;
use Encode;
my $opt = {};
sub c{
  $_ = shift;
  s/\\preprocess{([^{}=\s]+)(?:\s*=\s*([^{}=\s]*))?}/$opt->{$1}=defined$2?$2:1;''/ge;
  s/\x{3001}/, /g;
  s/\x{3002}/. /g;
  s/\$/\\\$/g if $opt->{'Perl-mode'};
  s{\\sourcecode\s*(?:\[([^\[\]]*)\]\s*)?{([^{}]+)}}{
    my %opt = map {$_->[1] = 1 unless defined $_->[1]; @$_}
              map {[split /\s*=\s*/, $_, 2]} split /\s*,\s*/, $1;
    my $filename = $2;
    open my $file, '<', $filename or die "$0: $filename: $!";
    my $source = '';
    my $line = 1;
    for (<$file>) {
      s/\x0C//g;
      s/\t/        /g and warn "$0: $filename\[$line]: TAB found";
      $source .= sprintf '%3d %s', $line++, $_;
    }
    $opt{size} ||= 'tiny';
    "% $&\n\\begin{$opt{size}}\\begin{verbatim}\n$source\n\\end{verbatim}\\end{$opt{size}}\n";
  }ge;
  $_;
}
while(<>){
  print encode(q<iso-2022-jp>,c(decode(q<iso-2022-jp>,$_)))
}


=head1 NAME

pretex.pl - Preprocessor for Japanese LaTeX document

=head1 SYNOPSIS

  $ perl pretex.pl a.pretex > a.tex

=head1 DESCRIPTION

This script preprocesses LaTeX document.  This script is
written to satisfy author's need only.

=head1 FEATURES

=over 4

=item Replacement of COMMA and FULL STOP

In science community, use of COMMA and FULL STOP, rather than
IDEOGRAPHIC COMMA and IDEOGRAPHIC FULL STOP, is often encouraged.
This filter script substitutes IDEOGRAPHIC COMMA and IDEOGRAPHIC FULL STOP
to COMMA and FULL STOP, followed by a SPACE.

=item Command C<\sourcecode{filename}>

This filter script puts content of external plain text file
as C<verbatim> block, in place <\sourcecode> pseudo-command happens.

=back

Note that input document must be written in ISO-2022-JP.

=head1 AUTHOR

Wakaba <w@suika.fam.cx>

=head1 LICENSE

Copyright 2004 Wakaba <w@suika.fam.cx>

This program is free software; you can redistribute it and/or
modify it under the same terms as Perl itself.

=cut

# $Date: 2004/07/31 07:39:00 $
1	wakaba	1.1	#!/usr/bin/perl
2			use strict;
3			use Encode;
4	wakaba	1.2	my $opt = {};
5	wakaba	1.1	sub c{
6			$_ = shift;
7	wakaba	1.2	s/\\preprocess{([^{}=\s]+)(?:\s=\s([^{}=\s]*))?}/$opt->{$1}=defined$2?$2:1;''/ge;
8	wakaba	1.1	s/\x{3001}/, /g;
9			s/\x{3002}/. /g;
10	wakaba	1.2	s/\$/\\\$/g if $opt->{'Perl-mode'};
11	wakaba	1.1	s{\\sourcecode\s(?:\[([^\[\]])\]\s*)?{([^{}]+)}}{
12			my %opt = map {$_->[1] = 1 unless defined $_->[1]; @$_}
13			map {[split /\s=\s/, $_, 2]} split /\s,\s/, $1;
14			my $filename = $2;
15			open my $file, '<', $filename or die "$0: $filename: $!";
16			my $source = '';
17			my $line = 1;
18			for (<$file>) {
19	wakaba	1.3	s/\x0C//g;
20	wakaba	1.1	s/\t/ /g and warn "$0: $filename\[$line]: TAB found";
21			$source .= sprintf '%3d %s', $line++, $_;
22			}
23			$opt{size} \|\|= 'tiny';
24			"% $&\n\\begin{$opt{size}}\\begin{verbatim}\n$source\n\\end{verbatim}\\end{$opt{size}}\n";
25			}ge;
26			$_;
27			}
28			while(<>){
29			print encode(q<iso-2022-jp>,c(decode(q<iso-2022-jp>,$_)))
30			}
31
32
33			=head1 NAME
34
35			pretex.pl - Preprocessor for Japanese LaTeX document
36
37			=head1 SYNOPSIS
38
39			$ perl pretex.pl a.pretex > a.tex
40
41			=head1 DESCRIPTION
42
43			This script preprocesses LaTeX document. This script is
44			written to satisfy author's need only.
45
46			=head1 FEATURES
47
48			=over 4
49
50			=item Replacement of COMMA and FULL STOP
51
52			In science community, use of COMMA and FULL STOP, rather than
53			IDEOGRAPHIC COMMA and IDEOGRAPHIC FULL STOP, is often encouraged.
54			This filter script substitutes IDEOGRAPHIC COMMA and IDEOGRAPHIC FULL STOP
55			to COMMA and FULL STOP, followed by a SPACE.
56
57			=item Command C<\sourcecode{filename}>
58
59			This filter script puts content of external plain text file
60			as C<verbatim> block, in place <\sourcecode> pseudo-command happens.
61
62			=back
63
64			Note that input document must be written in ISO-2022-JP.
65
66			=head1 AUTHOR
67
68			Wakaba <w@suika.fam.cx>
69
70			=head1 LICENSE
71
72			Copyright 2004 Wakaba <w@suika.fam.cx>
73
74			This program is free software; you can redistribute it and/or
75			modify it under the same terms as Perl itself.
76
77			=cut
78
79	wakaba	1.3	# $Date: 2004/07/31 07:39:00 $