[people/teissler/ipfire-2.x.git] / src / install+setup / libsmooth / makelangs.pl

#!/usr/bin/perl\r
#\r
# $Id: makelangs.pl,v 1.4 2003/12/11 11:25:53 riddles Exp $\r
#\r
# Used to process lang_en.c and build the enum type from comments embeded \r
# within said source file.\r
\r
while (<>)\r
{\r
	if (/\/\* (TR_[A-Z0-9_]*)/) {\r
		print "\t$1,\n"; }\r
} \r
print "};\n";\r
Commit	Line	Data
cd1a2927 MT	1	#!/usr/bin/perl\r
	2	#\r
	3	# $Id: makelangs.pl,v 1.4 2003/12/11 11:25:53 riddles Exp $\r
	4	#\r
	5	# Used to process lang_en.c and build the enum type from comments embeded \r
	6	# within said source file.\r
	7	\r
	8	while (<>)\r
	9	{\r
	10	if (/\/\* (TR_[A-Z0-9_]*)/) {\r
	11	print "\t$1,\n"; }\r
	12	} \r
	13	print "};\n";\r