Sébastien Loriot
3fbc191693
This reverts commit eb23730432aaeeef35b85feb013942175ae504f8, reversing changes made to 1f0191190bcd9dfce903cf5af155ee114d00ac4b. Only undo the permission changes Conflicts: Polygon_mesh_processing/examples/Polygon_mesh_processing/hole_filling_example_OM.cpp Polygon_mesh_processing/include/CGAL/Polygon_mesh_processing/internal/Hole_filling/Weights.h Polygon_mesh_processing/include/CGAL/Polygon_mesh_processing/internal/fair_impl.h Polygon_mesh_processing/include/CGAL/Polygon_mesh_processing/triangulate_hole.h
35 lines
914 B
Perl
Executable File
35 lines
914 B
Perl
Executable File
#!/usr/bin/env perl
|
|
#
|
|
# file: cgal2gml
|
|
# author: Michael Hoffmann
|
|
# version: $Id$
|
|
# purpose: convert package dependencies (output of cgal_depend)
|
|
# into gml graph format
|
|
#
|
|
|
|
require "cgal_dependencies";
|
|
|
|
print "Creator \"cgal2gml\"\nVersion 1.7\ngraph [\n\nlabel \"\"\ndirected 1\n\n";
|
|
|
|
# nodes
|
|
$i = 0;
|
|
foreach $pkg (keys %depend) {
|
|
$ind{"$pkg"} = $i;
|
|
printf "node [\n\tid %d\n\tlabel \"$pkg\"\n\tlabelAnchor \"c\"\n\tgraphics [\n\t\tx %d\n\t\ty %d\n\t\tw 10\n\t\th 10\n\t\ttype \"rectangle\"\n\t\twidth 10\n\t]\n", $i, $i, $i*$i/2;
|
|
print "\tLabelGraphics [\n\t\ttype \"index_label\"\n\t]\n]\n";
|
|
++$i;
|
|
}
|
|
|
|
# edges
|
|
foreach $pkg (keys %depend) {
|
|
foreach $dep (keys %{$depend{"$pkg"}}) {
|
|
if ($dep ne $pkg) {
|
|
printf "edge [\n\tsource %d\n\ttarget %d\n\tgraphics [\n\t\ttype \"line\"\n\t\tarrow \"last\"\n\t]\n]\n", $ind{"$dep"}, $ind{"$pkg"};
|
|
}
|
|
}
|
|
}
|
|
|
|
print "]\n";
|
|
|
|
# EOF
|