| #!/usr/bin/perl |
| # |
| # Update the list of debug channels of a given spec file |
| # |
| # Copyright 2000 Alexandre Julliard |
| # |
| # This library is free software; you can redistribute it and/or |
| # modify it under the terms of the GNU Lesser General Public |
| # License as published by the Free Software Foundation; either |
| # version 2.1 of the License, or (at your option) any later version. |
| # |
| # This library is distributed in the hope that it will be useful, |
| # but WITHOUT ANY WARRANTY; without even the implied warranty of |
| # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU |
| # Lesser General Public License for more details. |
| # |
| # You should have received a copy of the GNU Lesser General Public |
| # License along with this library; if not, write to the Free Software |
| # Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA |
| # |
| # Usage: make_debug spec_file [source_files...] |
| # |
| |
| die "Usage: make_debug spec_file [source]\n" unless @ARGV; |
| |
| $SPEC = shift @ARGV; |
| |
| # read in all the source files |
| if (@ARGV) |
| { |
| while (<>) |
| { |
| if (/DECLARE_DEBUG_CHANNEL\s*\(\s*([A-Za-z0-9_]+)\s*\)/) { $channels{$1} = 1; } |
| if (/DEFAULT_DEBUG_CHANNEL\s*\(\s*([A-Za-z0-9_]+)\s*\)/) { $channels{$1} = 1; } |
| } |
| } |
| @dbg_channels = sort keys %channels; |
| |
| # read the whole spec file |
| undef $/; |
| open SPEC or die "Cannot open $SPEC\n"; |
| $spec = <SPEC>; |
| close SPEC; |
| |
| # build the new channel list |
| $channel_str = "debug_channels ("; |
| $pos = length($channel_str); |
| for ($i = 0; $i <= $#dbg_channels; $i++) |
| { |
| $channel_str .= $dbg_channels[$i]; |
| $pos += length($dbg_channels[$i]); |
| if ($i < $#dbg_channels) |
| { |
| if ($pos >= 75) { $pos = 16; $channel_str .= "\n" . (" " x $pos); } |
| else { $channel_str .= " "; $pos++; } |
| } |
| } |
| $channel_str .= ")"; |
| |
| # replace the list in the spec file |
| if (!($spec =~ s/debug_channels\s*\(([^)]*)\)/$channel_str/)) |
| { |
| die "Could not replace debug_channels\n" if @dbg_channels; |
| exit 0; |
| } |
| |
| # output the modified spec file |
| open OUTPUT, ">$SPEC" or die "Cannot modify $SPEC\n"; |
| print OUTPUT $spec; |
| close OUTPUT; |