summaryrefslogtreecommitdiff
path: root/render/makeenum
blob: 2b9ca680481b348777de7edcd2310c4b2cd01b51 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
#!/usr/bin/perl -W
# $Id: makeenum,v 1.2 2002/04/24 17:37:37 bursa Exp $

$out = shift or die "usage: makeenum leafname";

open H, ">$out.h" or die "open 'enum.h' failed";
open C, ">$out.c" or die "open 'enum.c' failed";

print C "#include \"$out.h\"\n\n";

while (<>) {
    chomp;
    @enum = split;
    $name = shift @enum;
   
    @uc_enum = map uc, @enum;
    s/-/_/g foreach (@uc_enum);
    $uc_name = uc $name;
    
    print H "extern const char * const ${name}_name[];\n";
    print H "typedef enum {\n    ${uc_name}_";
    print H join ",\n    ${uc_name}_", @uc_enum;
    print H ",\n    ${uc_name}_UNKNOWN\n";
    print H "} $name;\n";
    print H "$name ${name}_parse(const char * const s);\n\n";
    
    print C "/**\n * $name\n */\n\n";
    print C "const char * const ${name}_name[] = {\n    \"";
    print C join "\",\n    \"", @enum;
    print C "\"\n};\n\n";
    print C "$name ${name}_parse(const char * const s)\n{\n";
    foreach $x (@enum) {
        $ux = uc $x;
	$ux =~ s/-/_/g;
        print C "    if (strcmp(s, \"$x\") == 0) return ${uc_name}_$ux;\n";
    }
    print C "    return ${uc_name}_UNKNOWN;\n}\n\n";
}