mirror of
https://gitea.nishi.boats/pyrite-dev/milsko
synced 2026-01-03 16:10:50 +00:00
9f2efd4771
git-svn-id: http://svn2.nishi.boats/svn/milsko/trunk@202 b9cfdab3-6d41-4d17-bbe4-086880011989
56 lines
1.5 KiB
Perl
Executable File
56 lines
1.5 KiB
Perl
Executable File
#!/usr/bin/env perl
|
|
# $Id$
|
|
|
|
my $objs = "";
|
|
|
|
opendir(DIR, "include/Mw/Widget");
|
|
my @files = readdir(DIR);
|
|
foreach my $f (@files) {
|
|
if ($f eq '.' || $f eq '..') {
|
|
next;
|
|
}
|
|
|
|
$f =~ /^(.+)\.h$/;
|
|
|
|
my $name = $1;
|
|
|
|
open(OUT, ">", "include/MwOO/Widget/$f");
|
|
print(OUT "/* \$Id\$ */\n");
|
|
print(OUT "#ifndef __MWOO_WIDGET_" . uc($name) . "_H__\n");
|
|
print(OUT "#define __MWOO_WIDGET_" . uc($name) . "_H__\n");
|
|
print(OUT "\n");
|
|
print(OUT "#include <MwOO/Base.h>\n");
|
|
print(OUT "\n");
|
|
print(OUT "class MwOO${name}Widget : public MwOOWidget {\n");
|
|
print(OUT "public:\n");
|
|
print(OUT
|
|
" MwOO${name}Widget(const char* name, MwOOWidget* parent, int x, int y, int w, int h);\n"
|
|
);
|
|
print(OUT "};\n");
|
|
print(OUT "\n");
|
|
print(OUT "#endif\n");
|
|
close(OUT);
|
|
|
|
open(OUT, ">", "oosrc/widget/" . lc($name) . ".cc");
|
|
print(OUT "/* \$Id\$ */\n");
|
|
print(OUT "#include <MwOO/Widget/$name.h>\n");
|
|
print(OUT "#include <Mw/Widget/$name.h>\n");
|
|
print(OUT "\n");
|
|
print(OUT
|
|
"MwOO${name}Widget::MwOO${name}Widget(const char* name, MwOOWidget* parent, int x, int y, int w, int h) : MwOOWidget(name, parent, x, y, w, h){\n"
|
|
);
|
|
print(OUT " this->widget_class = Mw${name}Class;\n");
|
|
print(OUT "}\n");
|
|
close(OUT);
|
|
|
|
if (!($name eq 'Vulkan' || $name eq 'OpenGL')) {
|
|
$objs = $objs . " oosrc/widget/" . lc($name) . ".o";
|
|
}
|
|
}
|
|
closedir(DIR);
|
|
|
|
open(OUT, ">", "oosrc/deps.mk");
|
|
print(OUT "# \$Id\$\n");
|
|
print(OUT "OOL_OBJS +=$objs\n");
|
|
close(OUT);
|