diff options
Diffstat (limited to 'gencssprops.pl')
| -rw-r--r-- | gencssprops.pl | 68 |
1 files changed, 68 insertions, 0 deletions
diff --git a/gencssprops.pl b/gencssprops.pl new file mode 100644 index 0000000..be0caea --- /dev/null +++ b/gencssprops.pl @@ -0,0 +1,68 @@ +#!/usr/bin/perl +use strict; +use warnings; + +my @props = sort grep { /\S/ } map { chomp; $_ } <STDIN>; + +my $maxlen = (sort { $b <=> $a } map { length($_) } @props)[0]; + +print "/* Generated file, do not edit */\n\n"; +print "#ifndef CSSPROPS_H\n"; +print "#define CSSPROPS_H\n\n"; +print "#include <string.h>\n\n"; + +print "typedef enum {\n"; +print "\tCSS_PROP_UNKNOWN,\n"; +for my $prop (@props) { + (my $enum = uc($prop)) =~ s/-/_/g; + printf "\tCSS_PROP_%s,\n", $enum; +} +print "} css_prop;\n\n"; + +print "static const struct {\n"; +print "\tconst char *name;\n"; +print "\tcss_prop prop;\n"; +print "} css_prop_map[] = {\n"; +for my $prop (@props) { + (my $enum = uc($prop)) =~ s/-/_/g; + printf "\t{ \"%-*s\tCSS_PROP_%s },\n", $maxlen + 2, "$prop\",", $enum; +} +print "};\n\n"; + +my $n = scalar @props; + +print "static inline css_prop\n"; +print "str_to_css_prop(const char *name, size_t len)\n"; +print "{\n"; +print "\tint lo, hi, mid, cmp;\n\n"; +print "\tlo = 0;\n"; +print "\thi = $n - 1;\n\n"; +print "\twhile (lo <= hi) {\n"; +print "\t\tmid = (lo + hi) / 2;\n"; +print "\t\tcmp = strncmp(name, css_prop_map[mid].name, len);\n"; +print "\t\tif (cmp == 0) {\n"; +print "\t\t\tif (css_prop_map[mid].name[len] == '\\0')\n"; +print "\t\t\t\treturn css_prop_map[mid].prop;\n"; +print "\t\t\thi = mid - 1;\n"; +print "\t\t} else if (cmp < 0)\n"; +print "\t\t\thi = mid - 1;\n"; +print "\t\telse\n"; +print "\t\t\tlo = mid + 1;\n"; +print "\t}\n\n"; +print "\treturn CSS_PROP_UNKNOWN;\n"; +print "}\n\n"; + +print "static inline const char *\n"; +print "css_prop_to_str(css_prop prop)\n"; +print "{\n"; +print "\tswitch (prop) {\n"; +print "\tcase CSS_PROP_UNKNOWN: return \"unknown\";\n"; +for my $prop (@props) { + (my $enum = uc($prop)) =~ s/-/_/g; + printf "\tcase CSS_PROP_%s: return \"%s\";\n", $enum, $prop; +} +print "\tdefault: return \"unknown\";\n"; +print "\t}\n"; +print "}\n\n"; + +print "#endif /* CSSPROPS_H */\n"; |
