The R Project SVN R

Rev

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

Rev 30686 Rev 30814
Line 93... Line 93...
93 
    foreach $fname ( grep /^[A-za-z].*\.tex$/, readdir DIR )
93 
    foreach $fname ( grep /^[A-za-z].*\.tex$/, readdir DIR )
94 
    {
 94 
    {
95 
	$fh->open( $latexDir . $fname )
95 
	$fh->open( $latexDir . $fname )
96 
	    or croak "unable to open file $_:$!\n";
 96 
	    or croak "unable to open file $_:$!\n";
97 
	$fline = <$fh>;
 97 
	$fline = <$fh>;
98 
	## first line is \Header{object}{...}
 98 
	## first line is \HeaderA{object}{object}{...}
99 
	$fline =~ s/\\Header\{\s*([^}]*)\}//;
 99 
	$fline =~ s/\\HeaderA\{\s*([^}]*)\}//;
100 
        ## omit internal help pages
 100 
        ## omit internal help pages
101 
        my $internal = 0;
 101 
        my $internal = 0;
102 
        while(<$fh>) {
 102 
        while(<$fh>) {
103 
	    if(/\\keyword\{\s*internal\s*\}/) { $internal = 1; last; }
 103 
	    if(/\\keyword\{\s*internal\s*\}/) { $internal = 1; last; }
104 
	}
 104 
	}