mirror of
https://gitlab.freedesktop.org/cairo/cairo.git
synced 2025-12-22 06:50:09 +01:00
19 lines
443 B
Perl
19 lines
443 B
Perl
|
#!/usr/bin/perl -w
|
||
|
|
|
||
|
|
while (<>) {
|
||
|
|
next unless /CAIRO_TEST \((.*),/; # XXX Parse multi-line macro
|
||
|
|
push @names, $1;
|
||
|
|
}
|
||
|
|
|
||
|
|
print <<EOD
|
||
|
|
/* WARNING: Autogenerated file - see make-cairo-test-constructors.pl! */
|
||
|
|
|
||
|
|
#include "cairo-test-private.h"
|
||
|
|
|
||
|
|
EOD
|
||
|
|
;
|
||
|
|
print "extern void _register_$_ (void);\n" foreach (@names);
|
||
|
|
print "\nvoid\n_cairo_test_runner_register_tests (void)\n{\n";
|
||
|
|
print " _register_$_ ();\n" foreach (reverse @names);
|
||
|
|
print "}\n";
|