[Pingus-CVS] r3339 - trunk/pingus/data/po

[grumbel at BerliOS]

Author: grumbel
Date: 2007-10-27 08:15:33 +0200 (Sat, 27 Oct 2007)
New Revision: 3339

Modified:
   trunk/pingus/data/po/extract-levels.guile
Log:
- added levelset support

Modified: trunk/pingus/data/po/extract-levels.guile
===================================================================
--- trunk/pingus/data/po/extract-levels.guile   2007-10-27 05:27:00 UTC (rev 
3338)
+++ trunk/pingus/data/po/extract-levels.guile   2007-10-27 06:15:33 UTC (rev 
3339)
@@ -14,6 +14,10 @@
     (pingus-worldmap (intro_story end_story) title)
     (pingus-worldmap (intro_story end_story) pages page text)))
 
+(define levelset-pattern-list
+  '((pingus-levelset title)
+    (pingus-worldmap description)))
+
 (define (escape-string str)
   (regexp-substitute/global #f "\"" str 'pre "\\\"" 'post))
 
@@ -70,6 +74,8 @@
                                  worldmap-pattern-list)
                                 ((string-suffix? ".pingus" file)
                                  level-pattern-list)
+                                ((string-suffix? ".levelset" file)
+                                 levelset-pattern-list)
                                 (else
                                  (error "Unknown file suffix\n"))))
                 (close-port port)))