← Back to branch summary

~ubuntu-branches/ubuntu/natty/libxml++2.6/natty

« back to all changes in this revision

Viewing changes to docs/reference/2.18/html/installdox

  • Committer: Bazaar Package Importer
  • Author(s): Daniel Holbach
  • Date: 2007-09-18 11:32:24 UTC
  • mfrom: (1.1.10 upstream)
  • Revision ID: james.westby@ubuntu.com-20070918113224-7x031mzf1shoozxx
Tags: 2.20.0-0ubuntu1
* New upstream release:
  - Element: Added get_attribute_value(), to get a simple text value for an
    attribute.
  - Added an experimental --enable-api-exceptions configure option, to allow
    libxml++ to build without exceptions.
* debian/libxml++2.6-doc.docs: 2.18 -> 2.20.

Show diffs side-by-side

added added

removed removed

Lines of Context:
docs/reference/2.18/html/installdox
1
 
#!/usr/bin/perl
2
 
 
3
 
%subst = ( "libstdc++.tag.xml", "", "glibmm_doxygen_tags", "");
4
 
$quiet   = 0;
5
 
 
6
 
if (open(F,"search.cfg"))
7
 
{
8
 
  $_=<F> ; s/[ \t\n]*$//g ; $subst{"_doc"} = $_;
9
 
  $_=<F> ; s/[ \t\n]*$//g ; $subst{"_cgi"} = $_;
10
 
}
11
 
 
12
 
while ( @ARGV ) {
13
 
  $_ = shift @ARGV;
14
 
  if ( s/^-// ) {
15
 
    if ( /^l(.*)/ ) {
16
 
      $v = ($1 eq "") ? shift @ARGV : $1;
17
 
      ($v =~ /\/$/) || ($v .= "/");
18
 
      $_ = $v;
19
 
      if ( /(.+)\@(.+)/ ) {
20
 
        if ( exists $subst{$1} ) {
21
 
          $subst{$1} = $2;
22
 
        } else {
23
 
          print STDERR "Unknown tag file $1 given with option -l\n";
24
 
          &usage();
25
 
        }
26
 
      } else {
27
 
        print STDERR "Argument $_ is invalid for option -l\n";
28
 
        &usage();
29
 
      }
30
 
    }
31
 
    elsif ( /^q/ ) {
32
 
      $quiet = 1;
33
 
    }
34
 
    elsif ( /^\?|^h/ ) {
35
 
      &usage();
36
 
    }
37
 
    else {
38
 
      print STDERR "Illegal option -$_\n";
39
 
      &usage();
40
 
    }
41
 
  }
42
 
  else {
43
 
    push (@files, $_ );
44
 
  }
45
 
}
46
 
 
47
 
foreach $sub (keys %subst)
48
 
{
49
 
  if ( $subst{$sub} eq "" ) 
50
 
  {
51
 
    print STDERR "No substitute given for tag file `$sub'\n";
52
 
    &usage();
53
 
  }
54
 
  elsif ( ! $quiet && $sub ne "_doc" && $sub ne "_cgi" )
55
 
  {
56
 
    print "Substituting $subst{$sub} for each occurence of tag file $sub\n"; 
57
 
  }
58
 
}
59
 
 
60
 
if ( ! @files ) {
61
 
  if (opendir(D,".")) {
62
 
    foreach $file ( readdir(D) ) {
63
 
      $match = ".html";
64
 
      next if ( $file =~ /^\.\.?$/ );
65
 
      ($file =~ /$match/) && (push @files, $file);
66
 
      ($file =~ "tree.js") && (push @files, $file);
67
 
    }
68
 
    closedir(D);
69
 
  }
70
 
}
71
 
 
72
 
if ( ! @files ) {
73
 
  print STDERR "Warning: No input files given and none found!\n";
74
 
}
75
 
 
76
 
foreach $f (@files)
77
 
{
78
 
  if ( ! $quiet ) {
79
 
    print "Editing: $f...\n";
80
 
  }
81
 
  $oldf = $f;
82
 
  $f   .= ".bak";
83
 
  unless (rename $oldf,$f) {
84
 
    print STDERR "Error: cannot rename file $oldf\n";
85
 
    exit 1;
86
 
  }
87
 
  if (open(F,"<$f")) {
88
 
    unless (open(G,">$oldf")) {
89
 
      print STDERR "Error: opening file $oldf for writing\n";
90
 
      exit 1;
91
 
    }
92
 
    if ($oldf ne "tree.js") {
93
 
      while (<F>) {
94
 
        s/doxygen\=\"([^ \"\:\t\>\<]*)\:([^ \"\t\>\<]*)\" (href|src)=\"\2/doxygen\=\"$1:$subst{$1}\" \3=\"$subst{$1}/g;
95
 
        print G "$_";
96
 
      }
97
 
    }
98
 
    else {
99
 
      while (<F>) {
100
 
        s/\"([^ \"\:\t\>\<]*)\:([^ \"\t\>\<]*)\", \"\2/\"$1:$subst{$1}\" ,\"$subst{$1}/g;
101
 
        print G "$_";
102
 
      }
103
 
    }
104
 
  } 
105
 
  else {
106
 
    print STDERR "Warning file $f does not exist\n";
107
 
  }
108
 
  unlink $f;
109
 
}
110
 
 
111
 
sub usage {
112
 
  print STDERR "Usage: installdox [options] [html-file [html-file ...]]\n";
113
 
  print STDERR "Options:\n";
114
 
  print STDERR "     -l tagfile\@linkName   tag file + URL or directory \n";
115
 
  print STDERR "     -q                    Quiet mode\n\n";
116
 
  exit 1;
117
 
}