File: gen-mi-enum

package info (click to toggle)
crawl 2%3A0.34.0-1
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid
  • size: 100,188 kB
  • sloc: cpp: 363,709; ansic: 27,765; javascript: 9,516; python: 8,463; perl: 3,293; java: 3,132; xml: 2,380; makefile: 1,835; sh: 611; objc: 250; cs: 15; sed: 9; lisp: 3
file content (15 lines) | stat: -rwxr-xr-x 456 bytes parent folder | download | duplicates (4) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
#!/usr/bin/env perl

use warnings;

open IN, "<mon-info.h" or die "Can't read mon-info.h\n";
undef $/;
$_=<IN>;
s/\r//g;

s/^enum monster_info_flags\n\{\n//m && s/^\s*NUM_MB_FLAGS.*//ms
    or die "Can't find monster_info_flags in mon-info.h\n";
open OUT, ">mi-enum.h" or die "Can't create mi-enum.h\n";
print OUT "#pragma once\n\n";
print OUT "// Generated by gen-mi-enum, do not edit.\n\n";
print OUT "MI_FLAG(\"\L$_\");\n" for /^ *MB_([A-Z0-9_-]+),/mg;