From 5dda5cf1d039767c632fe5e58ed7b95f5a615c0f Mon Sep 17 00:00:00 2001
From: Simon Tatham <anakin@pobox.com>
Date: Sat, 8 Jun 2013 16:29:15 +0000
Subject: Rename wingames.lst to gamedesc.txt, and add a couple of extra fields
 to it giving each game's "internal" name (as seen in the source file, .R etc)
 and also a brief description of the game. The idea of the latter is that it
 should be usable as a comment field in .desktop files and similar.

[originally from svn r9858]
---
 wceinf.pl | 18 +++++++++---------
 1 file changed, 9 insertions(+), 9 deletions(-)

(limited to 'wceinf.pl')

diff --git a/wceinf.pl b/wceinf.pl
index 8bfc117..4756f3c 100644
--- a/wceinf.pl
+++ b/wceinf.pl
@@ -2,22 +2,22 @@
 
 # Perl script to generate a .INF file for building a Pocket PC .CAB
 # archive of Puzzles. This has to be scripted so that it can read
-# wingames.lst and automatically adjust to the current available
+# gamedesc.txt and automatically adjust to the current available
 # set of puzzles.
 
 # Usage:
 #
-#   $ ./wceinf.pl wingames.lst > puzzles.inf
+#   $ ./wceinf.pl gamedesc.txt > puzzles.inf
 
-$lst = shift @ARGV;
-open LST, "<", $lst;
-while (<LST>) {
+$desc = shift @ARGV;
+open DESC, "<", $desc;
+while (<DESC>) {
     chomp;
-    split /:/;
-    push @exes, $_[0];
-    $names{$_[0]} = $_[1];
+    @_ = split /:/;
+    push @exes, $_[1];
+    $names{$_[1]} = $_[2];
 }
-close LST;
+close DESC;
 
 print '[Version]'."\n";
 print 'Signature   = "$Windows NT$"    ; required as-is'."\n";
-- 
cgit v1.1