enum2debug.pl

   1 #!/usr/bin/env perl
   2
   3 # Usage: ./enum2debug.pl isakmp.h  >vpnc-debug.c 2>vpnc-debug.h
   4
   5 use strict;
   6 use warnings;
   7
   8 my $in_enum = 0;
   9
  10 print STDERR << 'EOF';
  11 /* Automatically generated with enum2debug.pl: Don't edit! */
  12
  13 struct debug_strings {
  14         unsigned int id;
  15         const char *string;
  16 };
  17
  18 extern const char *val_to_string(unsigned int, const struct debug_strings *);
  19
  20 EOF
  21
  22 print << 'EOF';
  23 /* Automatically generated with enum2debug.pl: Don't edit! */
  24
  25 #include <stdio.h>
  26
  27 #include "vpnc-debug.h"
  28 #include "isakmp.h"
  29
  30 const char *val_to_string(unsigned int val, const struct debug_strings *dstrings)
  31 {
  32         static const char *unknown = " (unknown)";
  33         static const char *na = "";
  34         unsigned int i;
  35
  36         if (dstrings == NULL)
  37                 return na;
  38
  39         for (i = 0; dstrings[i].id != 0 || dstrings[i].string != NULL; i++)
  40                 if (dstrings[i].id == val)
  41                         return dstrings[i].string;
  42         return unknown;
  43 }
  44
  45 EOF
  46
  47 while (<>) {
  48         if (/^enum\W+(\w+)\W*/) {
  49                 print STDERR "extern const struct debug_strings $1_array[];\n";
  50                 print "const struct debug_strings $1_array[] = {\n";
  51                 $in_enum = 1;
  52         } elsif ($in_enum && /^}/) {
  53                 print "\t{ 0,\t(const char *) 0 }\n};\n\n";
  54                 $in_enum = 0;
  55         } elsif (/^\s*\/\*.*\*\/\s*$/) {
  56                 next;
  57         } elsif ($in_enum && /^\W*(\w+)\W*/) {
  58                 print "\t{ $1,\t\" ($1)\" },\n";
  59         }
  60 }
  61
  62 exit 0;
  63
  64 __END__