Changeset c849746 in rtems


Ignore:
Timestamp:
May 31, 2000, 1:25:34 PM (21 years ago)
Author:
Joel Sherrill <joel.sherrill@…>
Branches:
4.10, 4.11, 4.8, 4.9, 5, master
Children:
fc76a6aa
Parents:
f65b3668
Message:

Patch from Ralf Corsepius <corsepiu@…>:

Adds a -I <path> option to texi2www. This option is supposed to
compatible to the option of the same name in makeinfo, texi2dvi etc.
[This patch actually is kind of a hack, but it works :]

File:
1 edited

Legend:

Unmodified
Added
Removed
  • doc/tools/texi2www/texi2www

    rf65b3668 rc849746  
    2727                       this files gets inserted near the bottom of each
    2828                       generated HTML file.
     29  -I path           -- Append path to the directories being searched for
     30                       texi files.
    2931  -icons path       -- Specifies the path, relative to the output directory,
    3032                       to the arrow files.  Default is `..'.
     
    4648$dir = ".";                        # where are the generated files to go
    4749$dirfile = "../dir.html";          # "up" node pointer
     50@include_path = () ;               # list of include directories
     51
    4852while ($ARGV[0] =~ /^-/) {
    4953    $_ = shift;
     
    5660    if (/-uselongnames/) {$uselongnames = 1; next;}
    5761    if (/-verbose/) {$verbose = 1; next;}
     62    if (/-I/) { push @include_path, shift; next;}
    5863    die $usage;
    5964}
    6065
     66print STDERR "include-path:@include_path\n" if $verbose ;
    6167&initialize_tables();
    6268
     
    12401246sub open_input_file
    12411247{
    1242     unshift(@texinfo_file,$_[0]);
    1243     print "opening $_[0] ...\n" if $debug{open_input_file};
    1244     open($texinfo_file[0],$_[0]) || die "Couldn't open $_[0]: $!\n";
     1248    my $file = "$_[0]" ;
     1249    if ( not -f "$file" )
     1250    {
     1251      foreach $i ( @include_path )
     1252      {
     1253        if ( -f "$i/$_[0]" ) { $file = "$i/$_[0]"; last ; }
     1254      }
     1255    }
     1256    unshift(@texinfo_file,$file);
     1257    print "opening $file ...\n" if $debug{open_input_file};
     1258    open($texinfo_file[0],$file) || die "Couldn't open $file: $!\n";
    12451259} # open_input_file
    12461260
Note: See TracChangeset for help on using the changeset viewer.