From: <tir...@us...> - 2006-11-17 00:25:35
|
Revision: 1661 http://svn.sourceforge.net/pcgen/?rev=1661&view=rev Author: tir-gwaith Date: 2006-11-16 16:25:35 -0800 (Thu, 16 Nov 2006) Log Message: ----------- some work on xcheck stuff for LOOKUP, TABLE references. Modified Paths: -------------- Trunk/utilities/prettylst/prettylst.pl Modified: Trunk/utilities/prettylst/prettylst.pl =================================================================== --- Trunk/utilities/prettylst/prettylst.pl 2006-11-17 00:17:32 UTC (rev 1660) +++ Trunk/utilities/prettylst/prettylst.pl 2006-11-17 00:25:35 UTC (rev 1661) @@ -3735,6 +3735,10 @@ open $filehandle_for{KIT}, '>', 'kit.csv'; print { $filehandle_for{KIT} } qq{"Kit Startpack Name","Line","Filename"\n}; + # Will hold the list of all kit Tables found in KIT filetypes + open $filehandle_for{TABLE}, '>', 'kit-table.csv'; + print { $filehandle_for{TABLE} } qq{"Table Name","Line","Filename"\n}; + # Will hold the list of all language found in LANGUAGE linetypes open $filehandle_for{LANGUAGE}, '>', 'language.csv'; print { $filehandle_for{LANGUAGE} } qq{"Language Name","Line","Filename"\n}; @@ -10804,6 +10808,12 @@ print { $filehandle_for{KIT} } qq{"$kitname","$line_for_error","$filename"\n}; } + if ( $filetype eq 'KIT TABLE' ) { + my ($tablename) + = ( $line_ref->{ $master_order{$filetype}[0] }[0] =~ /\A TABLE: (.*) \z/xms ); + print { $filehandle_for{TABLE} } qq{"$tablename","$line_for_error","$filename"\n}; + } + if ( $filetype eq 'LANGUAGE' ) { my $languagename = $line_ref->{ $master_order{$filetype}[0] }[0]; print { $filehandle_for{LANGUAGE} } qq{"$languagename","$line_for_error","$filename"\n}; This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site. |