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