summaryrefslogtreecommitdiffstats
path: root/gentags.pl
diff options
context:
space:
mode:
authorSadeep Madurange <sadeep@asciimx.com>2026-05-29 16:33:00 +0800
committerSadeep Madurange <sadeep@asciimx.com>2026-05-29 16:37:30 +0800
commited9249a66c2e5fe4fe8fdbea6642a6349d6b7fb9 (patch)
tree593593ca6865d55bb91e487c2f42ece216b7c4f5 /gentags.pl
parent9d7d3a5e1849eb339690b072eb707e6bfe44e446 (diff)
downloadglacier-ed9249a66c2e5fe4fe8fdbea6642a6349d6b7fb9.tar.gz
wip: css.HEADmaster
Diffstat (limited to 'gentags.pl')
-rw-r--r--gentags.pl6
1 files changed, 3 insertions, 3 deletions
diff --git a/gentags.pl b/gentags.pl
index 6c5b58b..0dfa283 100644
--- a/gentags.pl
+++ b/gentags.pl
@@ -3,7 +3,7 @@ use strict;
use warnings;
my @tags = sort grep { /\S/ } map { chomp; $_ } <STDIN>;
-
+my $n = scalar @tags;
my $maxlen = (sort { $b <=> $a } map { length($_) } @tags)[0];
print "/* Generated file, do not edit */\n\n";
@@ -19,6 +19,8 @@ for my $tag (@tags) {
}
print "} tag_type;\n\n";
+printf "#define TAGLEN %d\n\n", $n + 2;
+
print "static const struct {\n";
print "\tconst char *name;\n";
print "\ttag_type tag;\n";
@@ -28,8 +30,6 @@ for my $tag (@tags) {
}
print "};\n\n";
-my $n = scalar @tags;
-
print "static inline tag_type\n";
print "str_to_tag(const char *name, size_t len)\n";
print "{\n";