0ct0pu5/wesnoth
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

imported wesnoth graph-includes project class,

Browse source 
...and updated invocation to match the imminent 0.1 release
This commit is contained in:
Yann Dirson 2005-03-28 19:54:06 +00:00
parent e1c3372d02
commit 4e63c20ddf
2 changed files with 65 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
Makefile.am
View file

@ -103,8 +103,8 @@ ACLOCAL_AMFLAGS = -I m4
EXTRA_DIST = config/config.rpath
# latest graph-includes.pl can be found currently at http://ydirson.free.fr/soft/wesnoth/graphs/
deps.dot:
(cd $(top_srcdir)/src && graph-includes.pl -verbose -class wesnoth -group 1 1 \
`find -name '*.[ch]pp'|sed s,\./,,`) > $@
wesnoth-deps.dot:
(cd $(top_srcdir) && graph-includes --verbose --class wesnoth --group 1-1 \
`find src -name '*.[ch]pp'|sed 's,\./,,'`) > $@
%.ps: %.dot
dot -Tps $< > $@

62
graphincludes/project/wesnoth.pm Normal file
View file

@ -0,0 +1,62 @@
# This file is part of the graph-includes package
#
# (c) 2005 Yann Dirson <ydirson@altern.org>
# Distributed under version 2 of the GNU GPL.
package graphincludes::project::wesnoth;
use graphincludes::project::default;
our @ISA = qw(graphincludes::project::default);
sub filelabel {
my $self = shift;
my ($file,$level) = @_;
$level = $main::minshow unless defined $level;
if ($level == 0) {
return $file;
} elsif ($level == 1) {
$file =~ s/\.[^.]*$//;
return 'ai' if $file =~ m/^ai_(move|attack)$/;
return $file;
} elsif ($level == 2) {
if ($file =~ m!^(variable|server/variable|game_events)\.! ) {
return 'variable';
} elsif ($file =~ m!^(multiplayer|ai).*!) {
return $1;
} elsif ($file =~ m!^(mapgen|mapgen_dialog|cavegen|map_create)\..*!) {
return 'mapcreator';
} elsif ($file =~ m!^(array|astarnode|config|filesystem|game_config|gettext|global|language|log|map|pathfind|pathutils|race|random|scoped_resource|terrain|thread|unit|util|variable|wassert|(.*/xcoll))\..*!) {
return 'core';
} elsif ($file =~ m!^(clipboard|cursor|font|image|sdl_utils|tooltips|video)\..*!) {
return 'graphics';
} elsif ($file =~ m!^(events|preferences|show_dialog)\..*!) {
return 'guicore';
} elsif ($file =~ m!^(editor|server|serialization|widgets)/.*!) {
return $1;
}
}
return undef;
}
sub defaultcolors {
my @colors;
$colors[2] = {
core => 'steelblue3',
serialization => 'steelblue1',
variable => 'slateblue1',
mapcreator => 'gold',
graphics => 'peachpuff',
widgets => 'linen',
guicore => 'lavenderblush',
multiplayer => 'palegreen',
editor => 'cyan',
server => 'pink',
};
return @colors;
}
1;