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

messagebox

Browse Source 
git-svn-id: http://svn2.nishi.boats/svn/milsko/trunk@257 b9cfdab3-6d41-4d17-bbe4-086880011989
This commit is contained in:
NishiOwO
2025-10-11 06:21:43 +00:00
parent 72ba706b31
commit 22b6c60f45
16 changed files with 3371 additions and 11 deletions
Download Patch File Download Diff File Expand all files Collapse all files

32
tools/color.pl Executable file
View File

@@ -0,0 +1,32 @@
#!/usr/bin/env perl
# $Id$
open(IN, "<", "resource/rgb.txt");
open(OUT, ">", "src/color.c");
print(OUT "/* \$Id\$ */\n");
print(OUT "#include <Mw/Milsko.h>\n");
print(OUT "\n");
print(OUT "MwLLColor MwParseColorName(MwWidget handle, const char* color){\n");
print(OUT " int r, g, b;\n");
print(OUT " ");
while (my $l = <IN>) {
$l =~ s/\r?\n$//;
if ($l =~ /^[ \t]*([0-9]+)[ \t]+([0-9]+)[ \t]+([0-9]+)[ \t]+(.+)$/) {
print(OUT "if(strcmp(color, \"$4\") == 0){\n");
print(OUT " r = $1;\n");
print(OUT " g = $2;\n");
print(OUT " b = $3;\n");
print(OUT " }else ");
}
}
print(OUT "{\n");
print(OUT " r = 0;\n");
print(OUT " g = 0;\n");
print(OUT " b = 0;\n");
print(OUT " }\n");
print(OUT " return MwLLAllocColor(handle->lowlevel, r, g, b);\n");
print(OUT "}\n");
close(OUT);
close(IN);