1#!/usr/bin/env perl
2use strict;
3use warnings;
4
5my @mons=();
6open IN, "<mon-spell.h" or die "Can't open mon-spell.h\n";
7while (<IN>)
8{
9    push @mons, $1 if /^\s*{\s*(MST_[A-Z_0-9]+),\s*$/;
10}
11die "Didn't find any MST enums.\n" unless @mons;
12
13open OUT, ">mon-mst.h" or die;
14print OUT <<END;
15// Autogenerated by util/gen-mst.pl, do not edit.
16
17#pragma once
18
19enum mon_spellbook_type
20{
21END
22print OUT "    $_,\n" for @mons;
23print OUT <<END;
24    MST_GHOST,
25    NUM_MSTYPES,
26    MST_NO_SPELLS
27};
28END
29