From 1a6dbe26f00e7f9eabb65a1844ab7d2aa5648126 Mon Sep 17 00:00:00 2001 From: Arvid Norlander Date: Sun, 28 Jan 2007 13:08:14 +0000 Subject: [PATCH] Fixed trailing whitespaces in some other scripts in tools and added missing svn:keywords SVN-Revision: 4700 --- tools/levelconverter-0.0.6_0.0.7.py | 8 ++++---- tools/levelconverter-0.1.3_0.2.0.pl | 2 +- tools/levelconverter-0.1.3_0.2.0.scm | 6 +++--- 3 files changed, 8 insertions(+), 8 deletions(-) diff --git a/tools/levelconverter-0.0.6_0.0.7.py b/tools/levelconverter-0.0.6_0.0.7.py index 642bd9ecb73..dceb99bd46a 100755 --- a/tools/levelconverter-0.0.6_0.0.7.py +++ b/tools/levelconverter-0.0.6_0.0.7.py @@ -23,19 +23,19 @@ ['d', "cloud-00.png", 90], ['e', "cloud-00.png", 91], ['f', "cloud-00.png", 92], - + ['G', "bkgd-00.png", 93], ['H', "bkgd-01.png", 94], ['I', "bkgd-02.png", 95], ['J', "bkgd-03.png", 96], - + ['g', "bkgd-10.png", 97], ['h', "bkgd-11.png", 98], ['i', "bkgd-12.png", 99], ['j', "bkgd-13.png", 100], - + ['#', "solid0.png", 11], - ['[', "solid1.png", 13], + ['[', "solid1.png", 13], ['=', "solid2.png", 14], [']', "solid3.png", 15], ['$', "distro", 82], diff --git a/tools/levelconverter-0.1.3_0.2.0.pl b/tools/levelconverter-0.1.3_0.2.0.pl index b98eb68018b..7a25b1cb45b 100755 --- a/tools/levelconverter-0.1.3_0.2.0.pl +++ b/tools/levelconverter-0.1.3_0.2.0.pl @@ -28,7 +28,7 @@ # Usage: # levelconverter-0.1.3_0.2.0.pl < oldformat.stl > newformat.stl # -# Note that the script makes some unreasonable assumptions about where +# Note that the script makes some unreasonable assumptions about where # newlines occur in level files. It does work for most levels created # in SuperTux 0.1.3 and Flexlay, though. # diff --git a/tools/levelconverter-0.1.3_0.2.0.scm b/tools/levelconverter-0.1.3_0.2.0.scm index e6cc095e1fd..10b0cea5b1a 100755 --- a/tools/levelconverter-0.1.3_0.2.0.scm +++ b/tools/levelconverter-0.1.3_0.2.0.scm @@ -73,7 +73,7 @@ ; return SuperTux 0.1.3 level in SuperTux 0.2.x form (define (convert-level level) - (let + (let ( (type (car level)) (version (find-sublist level 'version)) @@ -100,12 +100,12 @@ (if (not background-tm) (error "No background tilemap given")) (if (not foreground-tm) (error "No foreground tilemap given")) (if (not objects) (error "No objects list given")) - (quasiquote + (quasiquote (supertux-level (version 2) (name (_ ,(car name))) (author ,(car author)) - ,(append + ,(append (quasiquote (sector (name "main")