nishi/milsko
1
Fork 0
mirror of https://gitea.nishi.boats/pyrite-dev/milsko synced 2025-12-31 06:30:52 +00:00
Code Issues Packages Projects Releases Wiki Activity

things

Browse Source 
git-svn-id: http://svn2.nishi.boats/svn/milsko/trunk@204 b9cfdab3-6d41-4d17-bbe4-086880011989
This commit is contained in:
NishiOwO
2025-10-07 14:20:45 +00:00
parent 8c030ba778
commit 7dda33ee1c
22 changed files with 204 additions and 39 deletions
Download Patch File Download Diff File Expand all files Collapse all files

106
tools/genoo.pl
View File

@@ -1,8 +1,28 @@
#!/usr/bin/env perl
# $Id$
use Config::Tiny;
my $conf = Config::Tiny->read("resource/widget.ini");
my $objs = "";
my $decl = "";
my @calls = ();
open(IN, "<", "include/Mw/StringDefs.h");
while (my $hl = <IN>) {
$hl =~ s/\r?\n$//;
if ($hl =~ /^#define[ \t]+([^ ]+)[ \t]+"C(.+)"$/) {
my $name = "On" . uc(substr($2, 0, 1)) . substr($2, 1);
my @c = ($1, $name);
$decl = $decl . " virtual void " . $name . "(void*){};\n";
push(@calls, [@c]);
}
}
close(HIN);
opendir(DIR, "include/Mw/Widget");
my @files = readdir(DIR);
foreach my $f (@files) {
@@ -21,12 +41,14 @@ foreach my $f (@files) {
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 "namespace MwOO {\n");
print(OUT " class ${name} : public MwOO::Base {\n");
print(OUT " public:\n");
print(OUT
" MwOO${name}Widget(const char* name, MwOOWidget* parent, int x, int y, int w, int h);\n"
" ${name}(const char* widget_name, MwOO::Base* parent, int x, int y, int w, int h);\n"
);
print(OUT "};\n");
print(OUT " };\n");
print(OUT "}\n");
print(OUT "\n");
print(OUT "#endif\n");
close(OUT);
@@ -37,7 +59,7 @@ foreach my $f (@files) {
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(Mw${name}Class, name, parent, x, y, w, h){\n"
"MwOO::${name}::${name}(const char* widget_name, MwOO::Base* parent, int x, int y, int w, int h) : MwOO::Base(Mw${name}Class, widget_name, parent, x, y, w, h){\n"
);
print(OUT "}\n");
close(OUT);
@@ -52,3 +74,77 @@ open(OUT, ">", "oosrc/deps.mk");
print(OUT "# \$Id\$\n");
print(OUT "OOL_OBJS +=$objs\n");
close(OUT);
my $base_h = "";
my $skip = 0;
open(IN, "<", "include/MwOO/Base.h");
while (my $l = <IN>) {
$l =~ s/\r?\n$//;
if ($l =~ /BEGIN AUTOGENERATE/) {
$base_h = $base_h . "/* BEGIN AUTOGENERATE */\n";
$skip = 1;
$base_h = $base_h . $decl . "\n";
}
elsif ($l =~ /END AUTOGENERATE/) {
$base_h = $base_h . "/* END AUTOGENERATE */\n";
$skip = 0;
}
elsif (!$skip) {
$base_h = $base_h . $l . "\n";
}
}
close(IN);
open(OUT, ">", "include/MwOO/Base.h");
print(OUT "$base_h");
close(OUT);
my $base_c = "";
my $skip = 0;
open(IN, "<", "oosrc/base.cc");
while (my $l = <IN>) {
$l =~ s/\r?\n$//;
if ($l =~ /BEGIN AUTOGENERATE/) {
$base_c = $base_c . "/* BEGIN AUTOGENERATE */\n";
$skip = 1;
foreach my $call (@calls) {
my @c = @{$call};
$base_c =
$base_c
. "static void __"
. $c[1]
. "(MwWidget widget, void* user, void* call){\n";
$base_c = $base_c . " MwOO::Base* c = (MwOO::Base*)user;\n";
$base_c = $base_c . " c->" . $c[1] . "(call);\n";
$base_c = $base_c . "}\n";
}
$base_c = $base_c . "\n";
$base_c = $base_c . "void MwOO::Base::SetHandler(void){\n";
foreach my $call (@calls) {
my @c = @{$call};
$base_c =
$base_c
. " MwAddUserHandler(this->widget, "
. $c[0] . ", __"
. $c[1]
. ", this);\n";
}
$base_c = $base_c . "}\n";
}
elsif ($l =~ /END AUTOGENERATE/) {
$base_c = $base_c . "/* END AUTOGENERATE */\n";
$skip = 0;
}
elsif (!$skip) {
$base_c = $base_c . $l . "\n";
}
}
close(IN);
open(OUT, ">", "oosrc/base.cc");
print(OUT "$base_c");
close(OUT);