The R Project SVN R

Rev

Rev 36821 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 36821 Rev 37866
Line 75... Line 75...
75 
sub do_header {
 75 
sub do_header {
76 
    my( $pkgname, $outfile ) = @_;
 76 
    my( $pkgname, $outfile ) = @_;
77 
    $outfile->print("\n\\chapter\{The \\texttt\{$pkgname\} package\}\n");
 77 
    $outfile->print("\n\\chapter\{The \\texttt\{$pkgname\} package\}\n");
78 
}
 78 
}
79 
 
 79 
 
80 
sub foldorder {uc($a) cmp uc($b) or $a cmp $b;}
 80 
sub foldorder {($b =~ /-package$/) cmp ($a =~ /-package$/) or uc($a) cmp uc($b) or $a cmp $b;}
- 
 
 81 
 
81 
sub do_tex_files {
 82 
sub do_tex_files {
82 
    my( $latexDir, $outfile ) = @_;
 83 
    my( $latexDir, $outfile ) = @_;
83 
    my $fh = new FileHandle;
 84 
    my $fh = new FileHandle;
84 
    my $fname;
 85 
    my $fname;
85 
    my $fline;
 86 
    my $fline;
Line 90... Line 91...
90 
	croak "can't open directory $latexDir: $!\n";
 91 
	croak "can't open directory $latexDir: $!\n";
91 
    foreach $fname ( grep /^[A-za-z].*\.tex$/, readdir DIR )
92 
    foreach $fname ( grep /^[A-za-z].*\.tex$/, readdir DIR )
92 
    {
 93 
    {
93 
	$fh->open( $latexDir . $fname )
94 
	$fh->open( $latexDir . $fname )
94 
	    or croak "unable to open file $_:$!\n";
 95 
	    or croak "unable to open file $_:$!\n";
95 
	$fline = <$fh>;
 96
96 
	## first line is \HeaderA{object}{object}{...}
 97 
	## first line is usually \HeaderA{object}{object}{...}
- 
 
 98 
	## but may need to skip \inputencoding line
97 
	$fline =~ s/\\HeaderA\{\s*([^}]*)\}//;
 99 
	$fline = <$fh> until $fline =~ s/\\HeaderA\{\s*([^}]*)\}//;
- 
 
 100 
 
98 
        ## omit internal help pages
 101 
        ## omit internal help pages
99 
        my $internal = 0;
 102 
        my $internal = 0;
100 
        while(<$fh>) {
 103 
        while(<$fh>) {
101 
	    if(/\\keyword\{\s*internal\s*\}/) { $internal = 1; last; }
 104 
	    if(/\\keyword\{\s*internal\s*\}/) { $internal = 1; last; }
102 
	}
 105 
	}