#!/usr/bin/perl -w

use strict qw(vars);

print <<END
/* autogenerated - do not edit */

#ifndef DEBUG_FLAGS_H
#define DEBUG_FLAGS_H

typedef struct {
  unsigned long active, nondefault;
} DebugSelectorKindFlags;

typedef struct {
  const char *name;
  unsigned long bit;
} DebugSelectorKindInfo;

typedef struct {
  const char *name;
  const DebugSelectorKindInfo *kinds;
  unsigned long *dflags, *userset;
  unsigned long defdflags;
} DebugSelectorAreaInfo;

END
    or die $!;

our (%count);
our ($decls)='';
our ($defs)='';

our ($shift,$decl,$ma,$mar,$mk);

while (<>) {
    next unless m/\bDPRINTF1?\((\w+),(\w+),/;
    $count{$1}{$2}++;
}

foreach $ma (sort keys %count) {
    $mar= $count{$ma};
    $decl= "unsigned long dflags_$ma";
    $decls.= "extern $decl;\n";
    our $ddf= "DEFDFLAGS_${ma}";
    $defs .= ("\n".
	      "#ifndef $ddf\n".
	      "# define $ddf ~0UL\n".
	      "#endif\n");
    $defs .= "static const DebugSelectorKindInfo dsiks_${ma}[]= {\n";
    $shift= 0;
    foreach $mk (sort { $mar->{$a} <=> $mar->{$b} or $a cmp $b } keys %$mar) {
	next unless length $mk;
	our $db= "DBIT_${ma}_${mk}";
	our $v= 1<<$shift;
	$shift++;
	$defs.= sprintf "  { %-20s %-25s },\n", "\"$mk\",", $db;
	printf "#define %-30s %0#10x /* %3d */\n", $db, $v, $mar->{$mk};
    }
    $defs.= "  { 0 }\n".
	"};\n";
    $defs.= "$decl;\n";
    $defs.= "static unsigned long dflags_userset_$ma;\n";
}
$defs.= <<END;
static const DebugSelectorAreaInfo dsais[]= {
#define DSAI(x) \\
  { #x, dsiks_##x, &dflags_##x, &dflags_userset_##x, DEFDFLAGS_##x }
END
foreach $ma (sort keys %count) {
    $defs.= "DSAI($ma),\n"
}
$defs.= "  { 0 }\n".
    "#undef DSAI\n".
	"};\n";

print <<END

$decls
#endif /*DEBUG_FLAGS_H*/

#ifdef DEBUG_FLAGS_H_DEFINE
$defs
#endif /*DEBUG_FLAGS_H_DEFINE*/

END
    or die $!;