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