diff options
| author | Sadeep Madurange <sadeep@asciimx.com> | 2026-05-29 16:33:00 +0800 |
|---|---|---|
| committer | Sadeep Madurange <sadeep@asciimx.com> | 2026-05-29 16:37:30 +0800 |
| commit | ed9249a66c2e5fe4fe8fdbea6642a6349d6b7fb9 (patch) | |
| tree | 593593ca6865d55bb91e487c2f42ece216b7c4f5 /gentags.pl | |
| parent | 9d7d3a5e1849eb339690b072eb707e6bfe44e446 (diff) | |
| download | glacier-master.tar.gz | |
Diffstat (limited to 'gentags.pl')
| -rw-r--r-- | gentags.pl | 6 |
1 files changed, 3 insertions, 3 deletions
@@ -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"; |
