1#!/usr/bin/perl
2
3print "/* do not edit this file, edit XMixer.ad instead!\n";
4print " * and call 'mkfb.pl' again */\n";
5print "String fallback[] = {\n";
6while (<>) {
7	if (/^!/) { next; }
8	if (/^\n/) { next; }
9	chomp;
10#	s/^xmixer//;
11	s%\\%\\\\%g;
12	if (/\\$/) {
13		print "\t\"$_\"\n";
14		while (<>) {
15			if (/^!/) { next; }
16			if (/^\n/) { next; }
17			chomp;
18			s/^\s+//;
19			s%\\%\\\\%g;
20			if (!/\\$/) {
21				print "\t\"$_\",\n";
22				break;
23			} else {
24				print "\t\"$_\"\n";
25			}
26		}
27	} else {
28		print "\t\"$_\",\n";
29	}
30}
31print "\tNULL };\n";
32