[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Pingus-CVS] r4053 - in trunk/pingus: . contrib tools
From: |
grumbel at BerliOS |
Subject: |
[Pingus-CVS] r4053 - in trunk/pingus: . contrib tools |
Date: |
Fri, 6 Nov 2009 14:57:37 +0100 |
Author: grumbel
Date: 2009-11-06 14:57:36 +0100 (Fri, 06 Nov 2009)
New Revision: 4053
Added:
trunk/pingus/tools/README
trunk/pingus/tools/clanlib_2_sexpr.rb
trunk/pingus/tools/extract-gettext.rb
trunk/pingus/tools/findlevel.sh
trunk/pingus/tools/gen-res-list.sh
trunk/pingus/tools/iso-8859-1-latin1.txt
trunk/pingus/tools/iso-8859-1-utf8.txt
trunk/pingus/tools/iso-8859-2-utf8.txt
trunk/pingus/tools/iso-8859-9-utf8.txt
trunk/pingus/tools/levelcheck.scm
trunk/pingus/tools/levelconvert.sh
trunk/pingus/tools/pingus-cvs-build
trunk/pingus/tools/pingus-level
trunk/pingus/tools/pingusv1tov2.xsl
trunk/pingus/tools/surface2sprite.xsl
trunk/pingus/tools/unicode-mes1.rb
trunk/pingus/tools/worldmapv0tov1.xsl
trunk/pingus/tools/xml2sexpr.rb
Removed:
trunk/pingus/contrib/README
trunk/pingus/contrib/animtest/
trunk/pingus/contrib/clanlib_2_sexpr.rb
trunk/pingus/contrib/clanlib_make_datafile.sh
trunk/pingus/contrib/extract-gettext.rb
trunk/pingus/contrib/iso-8859-1-latin1.txt
trunk/pingus/contrib/iso-8859-1-utf8.txt
trunk/pingus/contrib/iso-8859-2-utf8.txt
trunk/pingus/contrib/iso-8859-9-utf8.txt
trunk/pingus/contrib/levelcheck.scm
trunk/pingus/contrib/levelconvert.sh
trunk/pingus/contrib/pingus-cvs-build
trunk/pingus/contrib/pingus-level
trunk/pingus/contrib/pinguscfg/
trunk/pingus/contrib/pingusv1tov2.xsl
trunk/pingus/contrib/soundtest/
trunk/pingus/contrib/stringgen.cxx
trunk/pingus/contrib/surface2sprite.xsl
trunk/pingus/contrib/unicode-mes1.rb
trunk/pingus/contrib/worldmapv0tov1.xsl
trunk/pingus/contrib/xml2sexpr.rb
Modified:
trunk/pingus/
trunk/pingus/TODO
Log:
Moved contrib/ content to tools/ deleted a few obsolete things along the way
Property changes on: trunk/pingus
___________________________________________________________________
Name: svn:ignore
- *.a
aclocal.m4
autom4te.cache
compile
config.guess
config.h
config.h.in
config.log
config.status
config.sub
configure
Debug
depcomp
.deps
*.gmo
include
install-sh
libs
Makefile
Makefile.in
missing
mkinstalldirs
*.o
old
pingus
pingus.ncb
pingus.suo
pingus.vcproj.user
Release
.sconf_temp
.sconf_temp/
.sconsign
.sconsign.dblite
semantic.cache
stamp-h1
+ *.a
aclocal.m4
autom4te.cache
build
compile
config.guess
config.h
config.h.in
config.log
config.status
config.sub
configure
Debug
depcomp
.deps
*.gmo
include
install-sh
libs
Makefile
Makefile.in
missing
mkinstalldirs
*.o
old
pingus
pingus.ncb
pingus.suo
pingus.vcproj.user
Release
.sconf_temp
.sconf_temp/
.sconsign
.sconsign.dblite
semantic.cache
stamp-h1
Modified: trunk/pingus/TODO
===================================================================
--- trunk/pingus/TODO 2009-11-06 13:52:48 UTC (rev 4052)
+++ trunk/pingus/TODO 2009-11-06 13:57:36 UTC (rev 4053)
@@ -30,8 +30,6 @@
Code Cleanup
============
-* use wildcard in source file specification
-
* Editor ObjectSelector is broken, graphics are not clipped (dirty
rectangle renderers fault)
@@ -39,7 +37,15 @@
* banish Vector3f from the source code, along with float
+* replace PingusError with std::runtime_error()
+* reduce global variables
+
+* get rid of "pingus/pingus.cpp"
+
+* make pingu.hpp use int not float
+
+
OLPC Issues
===========
Deleted: trunk/pingus/contrib/README
===================================================================
--- trunk/pingus/contrib/README 2009-11-06 13:52:48 UTC (rev 4052)
+++ trunk/pingus/contrib/README 2009-11-06 13:57:36 UTC (rev 4053)
@@ -1,14 +0,0 @@
-pingus-cvs-build:
- Shell script that downloads and builds Pingus and all the dependencies
- automatically from CVS
-
-clanlib/:
- A bunch small bugfix patches for ClanLib, which aren't in the
- official version.
-
-extract-gettext.*:
- extracts english messages from xml files and puts them into a .po
- style file
-
-
-# EOF #
\ No newline at end of file
Deleted: trunk/pingus/contrib/clanlib_2_sexpr.rb
===================================================================
--- trunk/pingus/contrib/clanlib_2_sexpr.rb 2009-11-06 13:52:48 UTC (rev
4052)
+++ trunk/pingus/contrib/clanlib_2_sexpr.rb 2009-11-06 13:57:36 UTC (rev
4053)
@@ -1,103 +0,0 @@
-#!/usr/bin/ruby -w
-
-require "rexml/document"
-
-def parse_surface(prefix, dir, sprite)
- # convert surfaces to sprites, since we don't really use surfaces anyway
- print "\n#{prefix}(sprite"
- print "\n#{prefix} (name \"#{sprite.attribute("name").value}\")"
- print "\n#{prefix} (images \"#{sprite.attribute("file").value}\")"
- puts ")\n"
-end
-
-def parse_sprite(prefix, dir, sprite)
- # puts ";; data/images/#{dir[1..-1]}/#{sprite.attribute("name")}.sprite"
- print "\n#{prefix}(sprite"
- print "\n#{prefix} (name \"#{sprite.attribute("name").value}\")"
- sprite.elements.each{|el|
- case el.name
- when "image"
- if not el.has_elements? then
- print "\n#{prefix} (image-file \"#{el.attribute("file").value}\")"
- elsif el.elements["grid"] then
- print "\n#{prefix} (image-file \"#{el.attribute("file").value}\")"
-
- if el.elements["grid"].attribute("array") then
- print "\n#{prefix} (image-array
#{el.elements["grid"].attribute("array").value.gsub(",", " ")})"
- end
-
- if el.elements["grid"].attribute("size") then
- print "\n#{prefix} (image-size
#{el.elements["grid"].attribute("size").value.gsub(",", " ")})"
- end
-
- if el.elements["grid"].attribute("pos") then
- print "\n#{prefix} (image-pos
#{el.elements["grid"].attribute("pos").value.gsub(",", " ")})"
- end
- else
- puts "unknown font element: "
- end
- when "translation"
- print "\n#{prefix} (origin \"#{el.attribute("origin")}\")"
- print "\n#{prefix} (offset #{el.attribute("x") or 0}
#{el.attribute("y") or 0})"
- when "animation"
- if el.attribute("loop") and el.attribute("loop").value == "no" then
- print "\n#{prefix} (loop #f)"
- end
-
- if el.attribute("speed") then
- print "\n#{prefix} (speed #{el.attribute("speed")})"
- end
- else
- raise "Unhandled tag: #{el.name}"
- end
- }
- puts ")\n"
-end
-
-def parse_alias(prefix, dir, section)
- print "\n#{prefix}(alias (name \"#{section.attribute("name").value}\")"
- print "\n#{prefix} (link \"#{section.attribute("link").value}\"))"
- puts
-end
-
-def parse_section(prefix, dir, section)
- section.each{|el|
- if el.is_a?(REXML::Text) then
- # skip text nodes, just indention junk
- # puts "'#{el}'"
- elsif el.is_a?(REXML::Element) then
- case el.name
- when "section"
- print "\n#{prefix}(section (name \"#{el.attribute("name")}\")"
- parse_section("#{prefix} ", dir + "/#{el.attribute("name")}" , el)
- puts "#{prefix} )"
- when "sprite"
- parse_sprite(prefix, dir, el)
- when "surface"
- parse_surface(prefix, dir, el)
- when "alias"
- parse_alias(prefix, dir, el)
- else
- puts "unknown element: #{el.name}"
- end
- elsif el.is_a?(REXML::Comment) then
- print "\n#{prefix};; #{el.to_s}"
- else
- puts "<unknown>: #{el.inspect}"
- end
- }
-end
-
-ARGV.each{|arg|
- i = 0
- dir = File.dirname(arg)
- doc = REXML::Document.new(File.new(arg))
- doc.elements.each("resources") { |el|
- print ";; #{arg}\n(pingus-resources"
- parse_section(" ", "", el)
- puts " )"
- }
- puts "\n;; EOF ;;"
-}
-
-# EOF #
Deleted: trunk/pingus/contrib/clanlib_make_datafile.sh
===================================================================
--- trunk/pingus/contrib/clanlib_make_datafile.sh 2009-11-06 13:52:48 UTC
(rev 4052)
+++ trunk/pingus/contrib/clanlib_make_datafile.sh 2009-11-06 13:57:36 UTC
(rev 4053)
@@ -1,31 +0,0 @@
-#!/bin/sh
-
-for filename in $@; do
- if [ ! -f $filename ]; then
- echo "$filename: file not found"
- continue;
- fi
-
- out=`tempfile`
-
-# echo "Identifing: $0 $out ..."
-
- identify -verbose $filename > $out
- width=`grep " Geometry" $out | sed "s/ Geometry: \([0-9]*\)x[0-9]*/\1/"`
- height=`grep " Geometry" $out | sed "s/ Geometry: [0-9]*x\([0-9]*\)/\1/"`
- name=`basename $filename | sed "s/.jpg$//" | sed "s/.pcx$//" | sed
"s/.tga$//"`
- type=`grep " Format:" $out | sed "s/ Format: \(.*\)/\1/"`
-
- #echo "Height: $height"
- #echo "Width: $width"
- #echo "Name: $name"
- #echo "Type: $type"
- #echo "Datafile line:"
-
- if [ "$type" = "PCX (ZSoft IBM PC Paintbrush)" ]; then
- echo -e "\t$name = $filename (type=surface, x=0, y=0, width=$width,
height=$height, tcol=0);"
- else
- echo -e "\t$name = $filename (type=surface, x=0, y=0, width=$width,
height=$height);"
- fi
-
-done
Deleted: trunk/pingus/contrib/extract-gettext.rb
===================================================================
--- trunk/pingus/contrib/extract-gettext.rb 2009-11-06 13:52:48 UTC (rev
4052)
+++ trunk/pingus/contrib/extract-gettext.rb 2009-11-06 13:57:36 UTC (rev
4053)
@@ -1,43 +0,0 @@
-#!/usr/bin/ruby -w
-
-require "rexml/document"
-require "rexml/xpath"
-
-puts "# SOME DESCRIPTIVE TITLE."
-puts "# Copyright (C) YEAR Free Software Foundation, Inc."
-puts "# FIRST AUTHOR <address@hidden>, YEAR."
-puts "#"
-puts "#, fuzzy"
-puts "msgid \"\""
-puts "msgstr \"\""
-puts "\"Project-Id-Version: PACKAGE VERSION\\n\""
-puts "\"PO-Revision-Date: YEAR-MO-DA HO:MI +ZONE\\n\""
-puts "\"Last-Translator: FULL NAME <address@hidden>\\n\""
-puts "\"Language-Team: LANGUAGE <address@hidden>\\n\""
-puts "\"MIME-Version: 1.0\\n\""
-puts "\"Content-Type: text/plain; charset=UTF-8\\n\""
-puts "\"Content-Transfer-Encoding: 8bit\\n\""
-puts ""
-
-lang = ARGV[0]
-ARGV[1..-1].each{|arg|
- doc = REXML::Document.new(File.new(arg))
-
- ["/pingus-level/global/description",
"/pingus-level/global/levelname"].each{|tree|
- element = REXML::XPath.match(doc, "address@hidden'en']")
-
- puts "#: #{arg.gsub(/^\.\.\/\.\.\/pingus_0_6\//, "")}"
- puts "msgid \"#{element[0].text.gsub(/\s+/, " ")}\""
-
- element = REXML::XPath.match(doc, "address@hidden'#{lang}']")
- if (element.length >= 1)
- puts "msgstr \"#{element[0].text.gsub(/\s+/, " ")}\""
- else
- puts "msgstr \"\""
- end
-
- puts ""
- }
-}
-
-# EOF #
Deleted: trunk/pingus/contrib/iso-8859-1-latin1.txt
===================================================================
--- trunk/pingus/contrib/iso-8859-1-latin1.txt 2009-11-06 13:52:48 UTC (rev
4052)
+++ trunk/pingus/contrib/iso-8859-1-latin1.txt 2009-11-06 13:57:36 UTC (rev
4053)
@@ -1 +0,0 @@
-! " # $ % & ' ( ) * + , - . / 0 1 2 3 4 5 6 7 8 9 :
; < = > ? @ A B C D E F G H I J K L M N O P Q R S T U
V W X Y Z [ \ ] ^ _ ` a b c d e f g h i j k l m n o
p q r s t u v w x y z { | } ~ � � � � � � � � � � � �
� � � � � � � � � � � � � � � � � � � � � � � � � �
� � � � � � � � � � � � � � � � � � � � � � � � � � �
� � � � � � � � � � � � � � � � � � � � � � � � � �
� � � � �
Deleted: trunk/pingus/contrib/iso-8859-1-utf8.txt
===================================================================
--- trunk/pingus/contrib/iso-8859-1-utf8.txt 2009-11-06 13:52:48 UTC (rev
4052)
+++ trunk/pingus/contrib/iso-8859-1-utf8.txt 2009-11-06 13:57:36 UTC (rev
4053)
@@ -1 +0,0 @@
-! " # $ % & ' ( ) * + , - . / 0 1 2 3 4 5 6 7 8 9 :
; < = > ? @ A B C D E F G H I J K L M N O P Q R S T U
V W X Y Z [ \ ] ^ _ ` a b c d e f g h i j k l m n o
p q r s t u v w x y z { | } ~ ¡ ¢ £ ¤ ¥ ¦ § ¨ © ª «
¬ ® ¯ ° ± ² ³ ´ µ ¶ · ¸ ¹ º » ¼ ½ ¾ ¿ À Á Â Ã Ä Å
Æ Ç È É Ê Ë Ì Í Î Ï Ð Ñ Ò Ó Ô Õ Ö × Ø Ù Ú Û Ü Ý Þ ß à
á â ã ä å æ ç è é ê ë ì í î ï ð ñ ò ó ô õ ö ÷ ø ù ú
û ü ý þ ÿ
Deleted: trunk/pingus/contrib/iso-8859-2-utf8.txt
===================================================================
--- trunk/pingus/contrib/iso-8859-2-utf8.txt 2009-11-06 13:52:48 UTC (rev
4052)
+++ trunk/pingus/contrib/iso-8859-2-utf8.txt 2009-11-06 13:57:36 UTC (rev
4053)
@@ -1 +0,0 @@
-! " # $ % & ' ( ) * + , - . / 0 1 2 3 4 5 6 7 8 9 :
; < = > ? @ A B C D E F G H I J K L M N O P Q R S T U
V W X Y Z [ \ ] ^ _ ` a b c d e f g h i j k l m n o
p q r s t u v w x y z { | } ~ Ą ˘ Ł ¤ Ľ Ś § ¨ Š Ş Ť
Ź Ž Ż ° ą ˛ ł ´ ľ ś ˇ ¸ š ş ť ź ˝ ž ż Ŕ Á Â Ă Ä Ĺ
Ć Ç Č É Ę Ë Ě Í Î Ď Đ Ń Ň Ó Ô Ő Ö × Ř Ů Ú Ű Ü Ý Ţ ß ŕ
á â ă ä ĺ ć ç č é ę ë ě í î ď đ ń ň ó ô ő ö ÷ ř ů ú
ű ü ý ţ ˙
Deleted: trunk/pingus/contrib/iso-8859-9-utf8.txt
===================================================================
--- trunk/pingus/contrib/iso-8859-9-utf8.txt 2009-11-06 13:52:48 UTC (rev
4052)
+++ trunk/pingus/contrib/iso-8859-9-utf8.txt 2009-11-06 13:57:36 UTC (rev
4053)
@@ -1 +0,0 @@
-! " # $ % & ' ( ) * + , - . / 0 1 2 3 4 5 6 7 8 9 :
; < = > ? @ A B C D E F G H I J K L M N O P Q R S T U
V W X Y Z [ \ ] ^ _ ` a b c d e f g h i j k l m n o
p q r s t u v w x y z { | } ~ ¡ ¢ £ ¤ ¥ ¦ § ¨ © ª «
¬ ® ¯ ° ± ² ³ ´ µ ¶ · ¸ ¹ º » ¼ ½ ¾ ¿ À Á Â Ã Ä Å
Æ Ç È É Ê Ë Ì Í Î Ï Ğ Ñ Ò Ó Ô Õ Ö × Ø Ù Ú Û Ü İ Ş ß à
á â ã ä å æ ç è é ê ë ì í î ï ğ ñ ò ó ô õ ö ÷ ø ù ú
û ü ı ş ÿ
Deleted: trunk/pingus/contrib/levelcheck.scm
===================================================================
--- trunk/pingus/contrib/levelcheck.scm 2009-11-06 13:52:48 UTC (rev 4052)
+++ trunk/pingus/contrib/levelcheck.scm 2009-11-06 13:57:36 UTC (rev 4053)
@@ -1,116 +0,0 @@
-#!/usr/bin/guile \
---debug -e main -s
-!#
-
-(use-modules (ice-9 format))
-
-(define *pingu-level-spec*
- '(pingus-level (hashmap
- (children
- (version (int))
- (head
- (hashmap
- (children
- (levelname (string))
- (description (string))
- (author (string))
- (number-of-pingus (int))
- (number-to-save (int))
- (time (int))
- (difficulty (int))
- (playable (int))
- (comment (string))
- (music (string))
- ;; (actions (string))
- )))
- (objects
- (sequence
- (children
- )))
- ))))
-
-(define (element-position el)
- (if (pair? el)
- (format #f "~a:~a"
- (source-property el 'filename)
- (source-property el 'line))
- (format #f "unknown: ~a" el)))
-
-(define (verify-hashmap spec tree)
- (cond ((list? tree)
- (let loop ((children (assoc-ref (cdr spec) 'children))
- (subtree tree))
- (if (not (null? children))
- (cond ((null? subtree)
- (format #t "~a: Error: Missing elements
in:\n~a\nExpected:\n~a\n"
- (element-position tree)
- tree
- children))
- (else
- (verify-element (car children) (car subtree))
-
- (loop (cdr children) (cdr subtree)))))))
- (else
- (format #t "~a: Error: Expected hashmap, got " (element-position
tree))
- #f)))
-
-(define (verify-sequenc spec tree)
- #t)
-
-(define (verify-element spec tree)
- (let ((tag (car spec))
- (type (cadr spec)))
-
- (cond ((not (list? tree))
- (format #t "Error: Expected element, got ~a\n" tree)
- #f)
-
- ((equal? tag (car tree))
- (format #t "Element '~a' ok\n" tag)
- (cond ((equal? (car type) 'string)
- (if (string? (cadr tree))
- #t
- (format #t "~a: Error: Expected string element got
'~s'\n"
- (element-position tree) (cadr tree))))
- ((equal? (car type) 'int)
- (if (integer? (cadr tree))
- #t
- (format #t "~a: Error: Expected integer element got
'~s'\n"
- (element-position tree) (cadr tree))))
- ((equal? (car type) 'real)
- (if (real? (cadr tree))
- #t
- (format #t "~a: Error: Expected real element got '~s'\n"
- (element-position tree) (cadr tree))))
- ((equal? (car type) 'bool)
- (if (boolean? (cadr tree))
- #t
- (format #t "~a: Error: Expected bool element got '~s'\n"
- (element-position tree) (cadr tree))))
- ((equal? (car type) 'hashmap)
- (verify-hashmap type (cdr tree)))
- ((equal? (car type) 'sequence)
- #t (verify-sequenc type (cdr tree)))))
- (else
- (format #t "Error: Expected element '~a', but got '~a'\n" tag (car
tree))
- #f))))
-
-(define (read-file filename)
- (let* ((port (open-input-file filename))
- (ret (read port)))
- (close-input-port port)
- ret))
-
-(define (main args)
- (read-enable 'positions)
-
- (cond ((= (length args) 1)
- (format #t "Usage: ~a FILENAME...\n" (car args)))
- (else
- (for-each (lambda (filename)
- (format #t "Filename: '~a'\n" filename)
- (let ((content (read-file filename)))
- (verify-element *pingu-level-spec* content)))
- (cdr args)))))
-
-; EOF ;;
Deleted: trunk/pingus/contrib/levelconvert.sh
===================================================================
--- trunk/pingus/contrib/levelconvert.sh 2009-11-06 13:52:48 UTC (rev
4052)
+++ trunk/pingus/contrib/levelconvert.sh 2009-11-06 13:57:36 UTC (rev
4053)
@@ -1,42 +0,0 @@
-#!/bin/bash
-
-set -e
-
-function errmsg() {
- echo "ERROR: Critical failure :ERROR"
-}
-
-trap errmsg ERR
-
-if [ ! \( -d "trunk/pingus" \) ]; then
- echo "You must call this script from the top level of the SVN repository"
- exit 1
-fi
-
-for IN in "$@"; do
- PREFIX=$(echo $IN | sed "s/\(.*\)data\/levels\/.*/\1/")
- TMP=$(tempfile)
- OUT="trunk/pingus/${IN##${PREFIX}}"
- # echo "Prefix: $PREFIX"
- echo "IN: $IN"
- echo "OUT: $OUT"
- if true; then
- xsltproc \
- -o "$TMP" \
- trunk/pingus/contrib/pingusv1tov2.xsl \
- "$IN"
- trunk/pingus/contrib/xml2sexpr.rb "$TMP" "$IN" > "${OUT}"
- else
- xalan \
- -indent 0 \
- -xsl trunk/pingus/contrib/pingusv1tov2.xsl \
- -in "$IN" \
- -out "$TMP"
- trunk/pingus/contrib/xml2sexpr.rb "$TMP" "$IN" > "${OUT}"
- fi
- rm "$TMP"
- echo "Conversion ok"
- echo ""
-done
-
-# EOF #
Deleted: trunk/pingus/contrib/pingus-cvs-build
===================================================================
--- trunk/pingus/contrib/pingus-cvs-build 2009-11-06 13:52:48 UTC (rev
4052)
+++ trunk/pingus/contrib/pingus-cvs-build 2009-11-06 13:57:36 UTC (rev
4053)
@@ -1,170 +0,0 @@
-#!/bin/sh
-
-## Usage: pingus-cvs-build PREFIX
-##
-## Wannabe usage:
-##
-## pingus-cvs-build --prefix="" --rebuild-hermes --skip-clanlib
-##
-## Todo: Build a GUI around this...
-
-## Diskspace Usage:
-## Around: >900MB
-##
-set -e
-
-if [ ! $# -eq 1 ]; then
- echo "Usage: $0 PREFIX"
- exit 1;
-fi
-
-TARGET_DIRECTORY="$1"
-
-echo -n "Do you want to compile and install pingus to '$TARGET_DIRECTORY'?
[y/N] "
-
-read answer
-if [ ! "x$answer" = "xy" ]; then
- echo "abort"
- exit 0
-fi
-
-CVSROOT=':pserver:address@hidden:/var/lib/cvs'
-export CVSROOT
-
-echo "### Setting up environment variables."
-LD_LIBRARY_PATH="$TARGET_DIRECTORY/lib/"
-export LD_LIBRARY_PATH
-
-LIBRARY_PATH="$TARGET_DIRECTORY/lib/"
-export LIBRARY_PATH
-
-LD_RUN_PATH="$TARGET_DIRECTORY/lib/"
-export LD_RUN_PATH
-
-PATH="$TARGET_DIRECTORY/bin:$PATH"
-export PATH
-
-CPLUS_INCLUDE_PATH="$TARGET_DIRECTORY/include/"
-export CPLUS_INCLUDE_PATH
-
-mkdir -p "$TARGET_DIRECTORY/src/"
-cd "$TARGET_DIRECTORY/src/"
-
-
-# FIXME: insert version check here
-if [ ! -x "$TARGET_DIRECTORY/bin/autoconf" ]; then
- echo "### downloading new automake and autoconf"
- wget -c ftp://ftp.gnu.org/gnu/autoconf/autoconf-2.57.tar.gz
- tar --extract --verbose --gzip --file autoconf-2.57.tar.gz
- pushd autoconf-2.57
- ./configure --prefix="$TARGET_DIRECTORY"
- make
- make install
- popd
-fi
-
-# FIXME: insert version check here
-if [ ! -x "$TARGET_DIRECTORY/bin/automake-1.7" ]; then
- wget -c ftp://ftp.gnu.org/gnu/automake/automake-1.7.3.tar.gz
- tar --extract --verbose --gzip --file automake-1.7.3.tar.gz
- pushd automake-1.7.3
- ./configure --prefix="$TARGET_DIRECTORY"
- make
- make install
- popd
-fi
-
-if [ ! -x "$TARGET_DIRECTORY/bin/libtool" ]; then
- wget -c ftp://ftp.gnu.org/gnu/libtool/libtool-1.4.2.tar.gz
- tar --extract --verbose --gzip --file libtool-1.4.2.tar.gz
- pushd libtool-1.4.2
- ./configure --prefix="$TARGET_DIRECTORY"
- make
- make install
- popd
-fi
-
-if [ ! -x "$TARGET_DIRECTORY/bin/gettext" ]; then
- wget -c ftp://ftp.gnu.org/gnu/gettext/gettext-0.11.2.tar.gz
- tar --extract --verbose --gzip --file gettext-0.11.2.tar.gz
- pushd gettext-0.11.2
- ./configure --prefix="$TARGET_DIRECTORY"
- make
- make install
- popd
-fi
-
-echo "### We are now loging into CVS, just press return."
-cvs login
-
-#PS1="\[\033[1;32m\][=Pingus=:\w]\[\033[00m$\] "
-#export PS1
-
-cat > "$TARGET_DIRECTORY/start_pingus" <<EOF
-#!/bin/sh
-
-set -e
-
-LD_LIBRARY_PATH="$TARGET_DIRECTORY/lib/"
-export LD_LIBRARY_PATH
-
-LIBRARY_PATH="$TARGET_DIRECTORY/lib/"
-export LIBRARY_PATH
-
-LD_RUN_PATH="$TARGET_DIRECTORY/lib/"
-export LD_RUN_PATH
-
-CPLUS_INCLUDE_PATH="$TARGET_DIRECTORY/include/"
-export CPLUS_INCLUDE_PATH
-
-cd games/
-./pingus
-EOF
-
-chmod +x "$TARGET_DIRECTORY/start_pingus"
-
-CXXFLAGS="-O2"
-export CXXFLAGS
-
-
-if [ ! -e "$TARGET_DIRECTORY/include/Hermes/Hermes.h" ]; then
- cvs -z3 checkout Libs/Hermes-1.3
- echo "### We are now going to compile Hermes."
- pushd Libs/Hermes-1.3
- ./autogen.sh
- ./configure --prefix="$TARGET_DIRECTORY"
- make
- make install
- popd
-else
- echo "### Skipping Hermes, since already installed"
-fi
-
-cvs -z3 checkout Libs/ClanLib-0.6
-echo "### We are now going to compile ClanLib."
-pushd Libs/ClanLib-0.6
-./autogen.sh
-./configure --prefix="$TARGET_DIRECTORY"
-make
-make install
-popd
-
-
-CXXFLAGS="-Wall -g"
-export CXXFLAGS
-
-cvs -z3 checkout Games/Pingus
-echo "### We are now going to compile Pingus."
-pushd Games/Pingus
-./autogen.sh
-./configure --prefix="$TARGET_DIRECTORY"
-make
-make install
-popd
-
-echo "### You should now be able to start Pingus with:"
-echo ""
-echo " cd $TARGET_DIRECTORY; ./start_pingus"
-echo ""
-
-# EOF #
Deleted: trunk/pingus/contrib/pingus-level
===================================================================
--- trunk/pingus/contrib/pingus-level 2009-11-06 13:52:48 UTC (rev 4052)
+++ trunk/pingus/contrib/pingus-level 2009-11-06 13:57:36 UTC (rev 4053)
@@ -1,262 +0,0 @@
-#!/usr/bin/guile \
---debug -e main -s
-!#
-
-;; Copyright (C) 2002 Ingo Ruhnke <address@hidden>
-;;
-;; This program is free software; you can redistribute it and/or modify
-;; it under the terms of the GNU General Public License as published by
-;; the Free Software Foundation; either version 2 of the License, or
-;; (at your option) any later version.
-;;
-;; This program is distributed in the hope that it will be useful,
-;; but WITHOUT ANY WARRANTY; without even the implied warranty of
-;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
-;; GNU General Public License for more details.
-;;
-;; You should have received a copy of the GNU General Public License
-;; along with this program; if not, write to the Free Software
-;; Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
-
-
-;; Helper Application to view level information
-(use-modules (xml expat)
- (xml mixp)
- (ice-9 format)
- (oop goops)
- (ice-9 getopt-long))
-
-(define *output-format* 'normal)
-
-(define (file->string filename)
- (let ((port (open-input-file filename))
- (lst '()))
- (let loop ((line (read-line port)))
- (cond ((not (eof-object? line))
- (set! lst (cons line lst))
- (loop (read-line port)))))
- (close port)
- (apply string-append (reverse lst))))
-
-(define (println . str)
- (for-each display str) (newline))
-
-(define-class <pingus-level> ()
- (filename #:accessor filename
- #:init-value #f)
-
- (author #:accessor author
- #:init-value #f)
-
- (levelname #:accessor levelname
- #:init-value #f)
-
- (description #:accessor description
- #:init-value #f)
-
- (comment #:accessor comment
- #:init-value #f)
-
- (time #:accessor time
- #:init-value #f)
-
- (difficulty #:accessor difficulty
- #:init-value #f)
-
- (playable #:accessor playable
- #:init-value #f)
-
- (number-to-save #:accessor number-to-save
- #:init-value #f)
-
- (number-of-pingus #:accessor number-of-pingus
- #:init-value #f)
- )
-
-(define-method (file->pingus-level (fname <string>))
- (let* ((plf (make <pingus-level>))
- (document (file->string fname))
- (xml-tree (call-with-input-string document
- mixp:xml->tree)))
- (set! (filename plf) (basename fname))
- (plf:parse plf xml-tree)
- plf))
-
-;; Parse a pingus level file
-(define-method (plf:parse (plf <pingus-level>) tree)
- (cond ((not (null? tree))
- (let ((node (car tree)))
- (cond ((equal? (car node) 'element)
- (cond ((equal? (caadr node) "pingus-level")
- (plf:parse-main plf (cddr node)))
- (else
- (println "Error: Unknown tag: " (caadr node))
- )))
- (else
- (println "Error: " (car node))))))
- (else
- (plf:parse (cdr tree)))))
-
-;; Parse the <global> part of a pingus level file
-(define-method (plf:parse-global (plf <pingus-level>) tree)
- (let ((node (car tree)))
- ;; Insert global check here
- (for-each (lambda (i)
- (case (car i)
- ((character-data) #f)
- ((element)
- ;;(println "El: " i)
- (cond ((not (null? (cddr i)))
- (case (string->symbol (caadr i))
- ((playable)
- (set! (playable plf) (string->number (car
(cdaddr i)))))
- ((difficulty)
- (set! (difficulty plf) (string->number (car
(cdaddr i)))))
- ((time)
- (set! (time plf) (string->number (car
(cdaddr i)))))
- ((levelname)
- (set! (levelname plf) (car (cdaddr i))))
- ((author)
- (set! (author plf) (car (cdaddr i))))
- ((comment)
- (set! (comment plf) (car (cdaddr i))))
-
- ((number-of-pingus)
- (set! (number-of-pingus plf) (string->number
(car (cdaddr i)))))
-
- ((number-to-save)
- (set! (number-to-save plf) (string->number (car
(cdaddr i)))))
-
- (else #f ));; (println (caadr i))))
- )))
- (else (println "Error: global"))))
- (cdr tree))))
-
-(define-method (plf:parse-main (plf <pingus-level>) tree)
- (cond ((not (null? tree))
- (let ((node (car tree)))
- (case (car node)
- ((element)
- (case (string->symbol (caadr node))
- ((global) (plf:parse-global plf (cdr node)))
- ((groundpiece) #f);(println "-groundpiece-: " (caadr node)))
- ((liquid) #f);(println "-liquid-: " (caadr node)))
- ((hotspot) #f);(println "-hotspot-: " (caadr node)))
- ((entrance) #f);(println "-entrance-: " (caadr node)))
- ((exit) #f);(println "-exit-: " (caadr node)))
- (else #f)));(println "else: " (caadr node)))))
- ((character-data)
- #f);(println "Cdata: " (cdr node )))
- (else
- #f);(println "Unknown: " (cdr node)))
- ))
- (plf:parse-main plf (cdr tree)))))
-
-;; (type element content ...)
-
-(define (print-usage)
- (println "Usage: pingus-level [OPTIONS]... [LEVELFILES]...")
- (println "")
- (println " --verbose Verbose output")
- (println " --short Short one-line output for easy parsing. The format
is:")
- (println " filename:playable:difficulty:time")
- (println " --help Print this help")
- (newline)
- (println "Examples:")
- (println "~~~~~~~~~")
- (println " % pingus-level --short somelevel.xml")
- (println " % pingus-level --verbose somelevel.xml")
- (newline))
-
-(define grammar '((verbose (required? #f)
- (single-char #\v)
- (value #f))
- (html (required? #f)
- (value #f))
- (short (required? #f)
- (single-char #\s)
- (value #f))
- (help (required? #f)
- (single-char #\h)
- (value #f))))
-
-(define-method (print-short-info (plf <pingus-level>))
- (println (filename plf) ":" (playable plf) ":" (difficulty plf) ":" (time
plf)))
-
-
-(define-method (print-html-info (plf <pingus-level>))
- (println "<h2>"(levelname plf) " (" (filename plf) ")</h2>"
- "<table>"
- "<tr>" "<td>Author:</td>" "<td>" (author plf) "</td></tr>"
- "<tr>" "<td>Difficulty:</td>" "<td>" (or (difficulty plf) "not
rated") "</td></tr>"
- "<tr>" "<td>Save Ratio:</td>" "<td>" (number-to-save plf) "/"
(number-of-pingus plf) "</td></tr>"
- "<tr>" "<td>Playable:</td>" "<td>" (or (playable plf) "not tested")
"</td></tr>"
- "<tr>" "<td>Time:</td>" "<td>" (or (time plf) "-") "</td></tr>"
- "<tr>" "<td>Comment:</td>" "<td>" (or (comment plf) "-") "</td></tr>"
- "</table>"
- ))
-
-(define-method (print-long-info (plf <pingus-level>))
- (println "---- Filename: " (filename plf) " ----")
- (println "Author: " (author plf))
- (println "Difficulty: " (difficulty plf))
- (println "Playable: " (playable plf))
- (println "Time: " (time plf))
- (println "Comment: " (comment plf))
- (println))
-
-(define (print-level-info fname)
- (catch #t
- (lambda ()
- (let ((plf (file->pingus-level fname)))
- (cond ((equal? *output-format* 'short)
- (print-short-info plf))
- ((equal? *output-format* 'html)
- (print-html-info plf))
- (else
- (print-long-info plf)))))
- (lambda stuff
- (println fname ":error: " stuff))))
-
-(define (print-html-header)
- (println "<html>
-<head>
-<title>Pingus Levels</title>
-</head>
-<body>
-<h1>Pingus Levels</h1>"))
-
-(define (print-html-footer)
- (println "<hr><small>automatically generated by the 'pingus-level' tool on "
- (strftime "%d. %b %G" (gmtime (current-time)))
- " </small></body>"))
-
-(define (main args)
- (catch 'misc-error
- (lambda ()
- (let ((result (getopt-long args grammar)))
- (cond ((assoc-ref result 'verbose)
- (set! *output-format* 'verbose)))
- (cond ((assoc-ref result 'short)
- (set! *output-format* 'short)))
- (cond ((assoc-ref result 'html)
- (set! *output-format* 'html)))
- (cond ((assoc-ref result 'help)
- (print-usage)
- (exit 0)))
- (cond ((not (null? (assoc-ref result '())))
- (cond ((equal? *output-format* 'html)
- (print-html-header)))
- (for-each print-level-info
- (assoc-ref result '()))
- (cond ((equal? *output-format* 'html)
- (print-html-footer))))
- (else
- (println "Error: You must supply a level-filename. Use
--help for more infos.")
- (exit 1)
- ))))
- (lambda err
- (println "Error while parsing command line args: " err)
- (exit 1))))
-
- ;; EOF ;;
\ No newline at end of file
Deleted: trunk/pingus/contrib/pingusv1tov2.xsl
===================================================================
--- trunk/pingus/contrib/pingusv1tov2.xsl 2009-11-06 13:52:48 UTC (rev
4052)
+++ trunk/pingus/contrib/pingusv1tov2.xsl 2009-11-06 13:57:36 UTC (rev
4053)
@@ -1,308 +0,0 @@
-<?xml version="1.0"?>
-<xsl:stylesheet version="1.0"
- xmlns:xsl="http://www.w3.org/1999/XSL/Transform">
-
- <xsl:output
- method="xml"
- indent="yes"
- encoding="UTF-8" /> <!-- ISO-8859-1 -->
-
- <xsl:template match="node()|@*">
- <xsl:copy><xsl:apply-templates select="@* | node()" /></xsl:copy>
- </xsl:template>
-
- <xsl:template match="/pingus-level/global/width" />
- <xsl:template match="/pingus-level/global/height" />
-
- <xsl:template match="pingus-level">
- <pingus-level>
- <version>2</version>
- <head>
- <xsl:apply-templates select="global/*|action-list"/>
- <xsl:if test="count(global/music) = 0">
- <music>none</music>
- </xsl:if>
- <levelsize>
- <width><xsl:value-of select="/pingus-level/global/width" /></width>
- <height><xsl:value-of select="/pingus-level/global/height"
/></height>
- </levelsize>
- </head>
- <objects>
- <xsl:apply-templates
select="background|exit|entrance|hotspot|worldobj|liquid|group|groundpiece|trap"/>
- </objects>
- </pingus-level>
- </xsl:template>
-
- <xsl:template match="/pingus-level/global/levelname">
- <xsl:choose>
- <xsl:when test="@lang='en'">
- <levelname><xsl:apply-templates /></levelname>
- </xsl:when>
- </xsl:choose>
- </xsl:template>
-
- <xsl:template match="/pingus-level/global/description">
- <xsl:choose>
- <xsl:when test="@lang='en'">
- <description><xsl:apply-templates /></description>
- </xsl:when>
- </xsl:choose>
- </xsl:template>
-
- <xsl:template match="resource">
- <xsl:variable name="datafile">
- <xsl:value-of select="resource-datafile" />
- </xsl:variable>
- <xsl:variable name="ident">
- <xsl:value-of select="resource-ident" />
- </xsl:variable>
- <image>
- <xsl:call-template name="replace-alias">
- <xsl:with-param name="text" select="concat(translate($datafile, '-',
'/'), '/', $ident)" />
- </xsl:call-template>
- </image>
- <modifier>
- <xsl:choose>
- <xsl:when test="string(modifier) != ''">
- <xsl:value-of select="modifier" />
- </xsl:when>
- <xsl:otherwise>
- <xsl:text>ROT0</xsl:text>
- </xsl:otherwise>
- </xsl:choose>
- </modifier>
- </xsl:template>
-
- <xsl:template name="replace-alias">
- <xsl:param name="text" />
- <xsl:choose>
- <xsl:when
test="document('../data/data/alias.xml')/resources/address@hidden =
$text]/@link">
- <xsl:value-of
select="document('../data/data/alias.xml')/resources/address@hidden =
$text]/@link" />
- </xsl:when>
- <xsl:otherwise>
- <xsl:value-of select="$text" />
- </xsl:otherwise>
- </xsl:choose>
- </xsl:template>
-
- <xsl:template match="worldobj">
- <xsl:element name="address@hidden">
- <xsl:apply-templates select="*"/>
- </xsl:element>
- </xsl:template>
-
- <xsl:template match="liquid/width">
- <xsl:choose>
- <xsl:when test="../@use-old-width-handling = '0'">
- <repeat><xsl:apply-templates /></repeat>
- </xsl:when>
-
- <xsl:otherwise> <!-- fixme: These must depend on the resources -->
- <xsl:variable name="resourcename"
-
select="concat(../surface/resource/resource-datafile/text(),':',../surface/resource/resource-ident/text())"
/>
-
- <xsl:choose>
- <xsl:when test="$resourcename = 'global:Liquid/water'">
- <repeat><xsl:value-of select="floor(number(text()) div 32)"
/></repeat>
- </xsl:when>
-
- <xsl:when test="$resourcename = 'liquids:Liquid/water'">
- <repeat><xsl:value-of select="floor(number(text()) div 32)"
/></repeat>
- </xsl:when>
-
- <xsl:otherwise>
- <repeat><xsl:value-of select="floor(number(text()) div 64)"
/></repeat>
- </xsl:otherwise>
- </xsl:choose>
- </xsl:otherwise>
- </xsl:choose>
- </xsl:template>
-
- <xsl:template match="liquid">
- <liquid><xsl:apply-templates /></liquid>
- </xsl:template>
-
- <xsl:template match="action-list/*">
- <xsl:element name="{name()}">
- <xsl:value-of select="@count"/>
- </xsl:element>
- </xsl:template>
-
- <xsl:template match="background">
- <xsl:choose>
- <xsl:when test="string(@type) != ''">
- <xsl:element name="{concat(@type, '-background')}">
- <xsl:apply-templates select="*"/>
- </xsl:element>
- </xsl:when>
- <xsl:otherwise>
- <xsl:element name="surface-background">
- <xsl:apply-templates select="*"/>
- </xsl:element>
- </xsl:otherwise>
- </xsl:choose>
- </xsl:template>
-
- <xsl:template match="action-list">
- <actions>
- <xsl:apply-templates select="*"/>
- </actions>
- </xsl:template>
-
- <xsl:template match="address@hidden'surface']/color">
- <xsl:choose>
- <xsl:when test="red/text() = '0' and green/text() = '0' and blue/text()
= '0' and alpha/text() = '1'">
- <color>
- <red>0</red>
- <green>0</green>
- <blue>0</blue>
- <alpha>0</alpha>
- </color>
- </xsl:when>
-
- <xsl:otherwise>
- <color>
- <xsl:apply-templates />
- </color>
- </xsl:otherwise>
- </xsl:choose>
- </xsl:template>
-
- <xsl:template match="address@hidden'teleporter']">
- <teleporter>
- <target-id><xsl:value-of select="generate-id(.)" /></target-id>
- <xsl:apply-templates select="position" />
- </teleporter>
- <teleporter-target>
- <id><xsl:value-of select="generate-id(.)" /></id>
- <position>
- <x><xsl:value-of select="target/position/x-pos"/></x>
- <y><xsl:value-of select="target/position/y-pos"/></y>
- <z><xsl:value-of select="position/z-pos"/></z>
- </position>
- </teleporter-target>
- </xsl:template>
-
- <xsl:template match="group">
- <xsl:apply-templates select="*"/>
- </xsl:template>
-
- <xsl:template match="x-pos">
- <x><xsl:apply-templates/></x>
- </xsl:template>
-
- <xsl:template match="y-pos">
- <y><xsl:apply-templates/></y>
- </xsl:template>
-
- <xsl:template match="z-pos">
- <z><xsl:apply-templates/></z>
- </xsl:template>
-
- <xsl:template match="groundpiece">
- <groundpiece>
- <type><xsl:value-of select="@type"/></type>
- <xsl:apply-templates select="*"/>
- </groundpiece>
- </xsl:template>
-
- <xsl:template match="trap">
- <xsl:element name="{type}">
- <xsl:apply-templates select="*"/>
- </xsl:element>
- </xsl:template>
- <xsl:template match="trap/type"/>
-
- <xsl:template match="surface|position">
- <xsl:copy>
- <xsl:apply-templates select="*"/>
- </xsl:copy>
- </xsl:template>
-
- <xsl:template match="exit/position">
- <xsl:choose>
- <xsl:when test="../@use-old-pos-handling = '0'">
- <position>
- <xsl:apply-templates />
- </position>
- </xsl:when>
-
- <xsl:otherwise>
- <xsl:variable name="resourcename"
-
select="concat(../surface/resource/resource-datafile/text(),':',../surface/resource/resource-ident/text())"
/>
-
- <position>
- <xsl:choose>
- <xsl:when test="$resourcename = 'exits:Exits/desert'">
- <x><xsl:value-of select="floor(number(x-pos) + 150 div 2)" /></x>
- <y><xsl:value-of select="number(y-pos) + 100" /></y>
- <z><xsl:value-of select="number(z-pos)" /></z>
- </xsl:when>
-
- <xsl:when test="$resourcename = 'exits:Exits/stone'">
- <x><xsl:value-of select="floor(number(x-pos) + 75 div 2)" /></x>
- <y><xsl:value-of select="number(y-pos) + 60" /></y>
- <z><xsl:value-of select="number(z-pos)" /></z>
- </xsl:when>
-
- <xsl:when test="$resourcename = 'exits:Exits/ice'">
- <x><xsl:value-of select="floor(number(x-pos) + 64 div 2)" /></x>
- <y><xsl:value-of select="number(y-pos) + 64" /></y>
- <z><xsl:value-of select="number(z-pos)" /></z>
- </xsl:when>
-
- <xsl:when test="$resourcename = 'exits:Exits/sortie_anim'">
- <x><xsl:value-of select="floor(number(x-pos) + 78 div 2)" /></x>
- <y><xsl:value-of select="number(y-pos) + 90" /></y>
- <z><xsl:value-of select="number(z-pos)" /></z>
- </xsl:when>
-
- <xsl:when test="$resourcename = 'exits:Exits/space'">
- <x><xsl:value-of select="floor(number(x-pos) + 154 div 2)" /></x>
- <y><xsl:value-of select="number(y-pos) + 118" /></y>
- <z><xsl:value-of select="number(z-pos)" /></z>
- </xsl:when>
-
- <xsl:when test="$resourcename = 'global:Exits/stone'">
- <x><xsl:value-of select="floor(number(x-pos) + 75 div 2)" /></x>
- <y><xsl:value-of select="number(y-pos) + 60" /></y>
- <z><xsl:value-of select="number(z-pos)" /></z>
- </xsl:when>
-
- <xsl:when test="$resourcename = 'exits:Exits/sweetexit'">
- <x><xsl:value-of select="floor(number(x-pos) + 180 div 2)"
/></x>
- <y><xsl:value-of select="number(y-pos) + 121" /></y>
- <z><xsl:value-of select="number(z-pos)" /></z>
- </xsl:when>
-
- <xsl:when test="$resourcename = 'exits:Exits/crystal'">
- <x><xsl:value-of select="floor(number(x-pos) + 154 div 2)"
/></x>
- <y><xsl:value-of select="number(y-pos) + 105" /></y>
- <z><xsl:value-of select="number(z-pos)" /></z>
- </xsl:when>
-
- <xsl:otherwise>
- <xsl:message terminate="yes">
- Critical error: resourcename: ((<xsl:value-of
select="$resourcename" />))
- </xsl:message>
- </xsl:otherwise>
- </xsl:choose>
- </position>
- </xsl:otherwise>
- </xsl:choose>
- </xsl:template>
-
- <xsl:template match="exit">
- <xsl:element name="exit">
- <xsl:choose>
- <xsl:when test="string(@owner-id) != ''">
- <xsl:apply-templates />
- </xsl:when>
- <xsl:otherwise>
- <owner-id>0</owner-id>
- <xsl:apply-templates />
- </xsl:otherwise>
- </xsl:choose>
- </xsl:element>
- </xsl:template>
-</xsl:stylesheet>
Deleted: trunk/pingus/contrib/stringgen.cxx
===================================================================
--- trunk/pingus/contrib/stringgen.cxx 2009-11-06 13:52:48 UTC (rev 4052)
+++ trunk/pingus/contrib/stringgen.cxx 2009-11-06 13:57:36 UTC (rev 4053)
@@ -1,17 +0,0 @@
-#include <iostream>
-#include <locale.h>
-#include <ctype.h>
-
-int main()
-{
- int i;
-
- setlocale(LC_ALL, "");
-
- for(i = 0; i < 256; ++i)
- if (isgraph(i))
- std::cout << (unsigned char)i << " ";
- std::cout << std::endl;
-}
-
-/* EOF */
Deleted: trunk/pingus/contrib/surface2sprite.xsl
===================================================================
--- trunk/pingus/contrib/surface2sprite.xsl 2009-11-06 13:52:48 UTC (rev
4052)
+++ trunk/pingus/contrib/surface2sprite.xsl 2009-11-06 13:57:36 UTC (rev
4053)
@@ -1,34 +0,0 @@
-<?xml version="1.0"?>
-<xsl:stylesheet version="1.0"
- xmlns:xsl="http://www.w3.org/1999/XSL/Transform">
-
- <xsl:output
- method="xml"
- indent="yes"
- encoding="ISO-8859-1" />
-
- <xsl:template match="node()|@*">
- <xsl:copy><xsl:apply-templates select="@* | node()" /></xsl:copy>
- </xsl:template>
-
- <xsl:template match="surface">
- <xsl:choose>
- <xsl:when test="@array">
- <sprite name="address@hidden">
- <image file="address@hidden">
- <grid
- pos="address@hidden,address@hidden"
- size="address@hidden,address@hidden"
- array="address@hidden" />
- </image>
- </sprite>
- </xsl:when>
- <xsl:otherwise>
- <sprite name="address@hidden">
- <image file="address@hidden" />
- </sprite>
- </xsl:otherwise>
- </xsl:choose>
- </xsl:template>
-
-</xsl:stylesheet>
Deleted: trunk/pingus/contrib/unicode-mes1.rb
===================================================================
--- trunk/pingus/contrib/unicode-mes1.rb 2009-11-06 13:52:48 UTC (rev
4052)
+++ trunk/pingus/contrib/unicode-mes1.rb 2009-11-06 13:57:36 UTC (rev
4053)
@@ -1,28 +0,0 @@
-#! /usr/bin/ruby -w
-
-# http://www.eki.ee/letter/chardata.cgi?comp1=MES-1&comp2
-# use with:
-# ./mes1.rb | recode UCS-4BE..UTF-8
-
-
-# removed: 0x0020 - space
-mes1 =
- (0x0021..0x007E).to_a + (0x00A0..0x00FF).to_a +
- (0x0100..0x0113).to_a + (0x0116..0x012B).to_a + (0x012E..0x014D).to_a +
(0x0150..0x017E).to_a +
- [0x02C7] + (0x02D8..0x02DB).to_a + [0x02DD] +
- [0x2015] + (0x2018..0x2019).to_a + (0x201C..0x201D).to_a + [0x20AC] +
- [0x2122] + [0x2126] + (0x215B..0x215E).to_a + (0x2190..0x2193).to_a +
- [0x266A]
-
-mes1.each{|i|
- print [i].pack("N")
- print [0x0020].pack("N") # space
- print [0x0020].pack("N") # space
-}
-
-print [0x000a].pack("N") # newline
-
-# EOF #
-
-
-
Deleted: trunk/pingus/contrib/worldmapv0tov1.xsl
===================================================================
--- trunk/pingus/contrib/worldmapv0tov1.xsl 2009-11-06 13:52:48 UTC (rev
4052)
+++ trunk/pingus/contrib/worldmapv0tov1.xsl 2009-11-06 13:57:36 UTC (rev
4053)
@@ -1,72 +0,0 @@
-<?xml version="1.0"?>
-<xsl:stylesheet version="1.0"
- xmlns:xsl="http://www.w3.org/1999/XSL/Transform">
-
- <xsl:output
- method="xml"
- indent="yes"
- encoding="ISO-8859-1" />
-
- <xsl:template match="node()|@*">
- <xsl:copy><xsl:apply-templates select="@* | node()" /></xsl:copy>
- </xsl:template>
-
- <xsl:template match="edge">
- <edge>
- <name><xsl:value-of select="@name" /></name>
- <source><xsl:value-of select="@source" /></source>
- <destination><xsl:value-of select="@destination" /></destination>
- <positions>
- <xsl:apply-templates />
- </positions>
- </edge>
- </xsl:template>
-
- <xsl:template match="resource">
- <xsl:variable name="datafile">
- <xsl:value-of select="resource-datafile" />
- </xsl:variable>
- <xsl:variable name="ident">
- <xsl:value-of select="resource-ident" />
- </xsl:variable>
- <image>
- <xsl:call-template name="replace-alias">
- <xsl:with-param name="text" select="concat(translate($datafile, '-',
'/'), '/', $ident)" />
- </xsl:call-template>
- </image>
- <modifer><xsl:value-of select="modifier" /></modifer>
- </xsl:template>
-
- <xsl:template name="replace-alias">
- <xsl:param name="text" />
- <xsl:choose>
- <xsl:when
test="document('../data/data/alias.xml')/resources/address@hidden =
$text]/@link">
- <xsl:value-of
select="document('../data/data/alias.xml')/resources/address@hidden =
$text]/@link" />
- </xsl:when>
- <xsl:otherwise>
- <xsl:value-of select="$text" />
- </xsl:otherwise>
- </xsl:choose>
- </xsl:template>
-
- <xsl:template match="objects/surface">
- <surface>
- <name><xsl:value-of select="@name"/></name>
- <xsl:apply-templates />
- </surface>
- </xsl:template>
-
- <xsl:template match="x-pos">
- <x><xsl:apply-templates /></x>
- </xsl:template>
-
- <xsl:template match="y-pos">
- <y><xsl:apply-templates /></y>
- </xsl:template>
-
- <xsl:template match="z-pos">
- <z><xsl:apply-templates /></z>
- </xsl:template>
-
-
-</xsl:stylesheet>
\ No newline at end of file
Deleted: trunk/pingus/contrib/xml2sexpr.rb
===================================================================
--- trunk/pingus/contrib/xml2sexpr.rb 2009-11-06 13:52:48 UTC (rev 4052)
+++ trunk/pingus/contrib/xml2sexpr.rb 2009-11-06 13:57:36 UTC (rev 4053)
@@ -1,317 +0,0 @@
-#!/usr/bin/ruby -w
-
-# Usage: xml2sexpr.rb XMLFILENAME ORIGINALFILENAME
-
-require "rexml/document"
-
-# Script to convert Pingus 0.6 level files to new sexpr format
-
-$typespec_worldmap =
- [
- [/^\/pingus-worldmap$/, :section],
- [/^\/pingus-worldmap\/head$/, :section],
- [/^\/pingus-worldmap\/head\/author$/, :string],
- [/^\/pingus-worldmap\/head\/default-node$/, :string],
- [/^\/pingus-worldmap\/head\/description$/, :string],
- [/^\/pingus-worldmap\/head\/email$/, :string],
- [/^\/pingus-worldmap\/head\/final-node$/, :string],
- [/^\/pingus-worldmap\/head\/height$/, :integer],
- [/^\/pingus-worldmap\/head\/music$/, :string],
- [/^\/pingus-worldmap\/head\/name$/, :string],
- [/^\/pingus-worldmap\/head\/short-name$/, :string],
- [/^\/pingus-worldmap\/head\/width$/, :integer],
- [/^\/pingus-worldmap\/objects\/surface\/position$/, :vector],
- [/^\/pingus-worldmap\/objects\/surface\/name$/, :string],
- [/^\/pingus-worldmap\/(intro_story|end_story)$/, :section],
- [/^\/pingus-worldmap\/(intro_story|end_story)\/title$/, :string],
- [/^\/pingus-worldmap\/(intro_story|end_story)\/music$/, :string],
- [/^\/pingus-worldmap\/(intro_story|end_story)\/pages$/, :section],
- [/^\/pingus-worldmap\/(intro_story|end_story)\/pages\/page[0-9][0-9]$/,
:section],
-
[/^\/pingus-worldmap\/(intro_story|end_story)\/pages\/page[0-9][0-9]\/surface$/,
:section],
-
[/^\/pingus-worldmap\/(intro_story|end_story)\/pages\/page[0-9][0-9]\/surface\/image$/,
:string],
-
[/^\/pingus-worldmap\/(intro_story|end_story)\/pages\/page[0-9][0-9]\/surface\/modifer$/,
:string],
-
[/^\/pingus-worldmap\/(intro_story|end_story)\/pages\/page[0-9][0-9]\/text$/,
:string],
- [/^\/pingus-worldmap\/graph$/, :section],
- [/^\/pingus-worldmap\/graph\/nodes$/, :section],
- [/^\/pingus-worldmap\/graph\/nodes\/leveldot$/, :section],
- [/^\/pingus-worldmap\/graph\/nodes\/leveldot\/dot$/, :section],
- [/^\/pingus-worldmap\/graph\/nodes\/leveldot\/dot\/name$/, :string],
- [/^\/pingus-worldmap\/graph\/nodes\/leveldot\/dot\/position$/, :vector],
- [/^\/pingus-worldmap\/graph\/nodes\/leveldot\/levelname$/, :string],
- [/^\/pingus-worldmap\/graph\/edges$/, :section],
- [/^\/pingus-worldmap\/graph\/edges\/edge$/, :section],
- [/^\/pingus-worldmap\/graph\/edges\/edge\/name$/, :string],
- [/^\/pingus-worldmap\/graph\/edges\/edge\/source$/, :string],
- [/^\/pingus-worldmap\/graph\/edges\/edge\/destination$/, :string],
- [/^\/pingus-worldmap\/graph\/edges\/edge\/positions$/, :section],
- [/^\/pingus-worldmap\/graph\/edges\/edge\/positions\/position$/, :vector],
- [/^\/pingus-worldmap\/objects$/, :section],
- ]
-
-$typespec_level =
- [
- [/^\/pingus-level$/, :section],
- [/^\/pingus-level\/version$/, :integer],
- [/^\/pingus-level\/head$/, :section],
- [/^\/pingus-level\/head\/levelname$/, :string],
- [/^\/pingus-level\/head\/description$/, :string],
- [/^\/pingus-level\/head\/author$/, :string],
- [/^\/pingus-level\/head\/number-of-pingus$/, :integer],
- [/^\/pingus-level\/head\/number-to-save$/, :integer],
- [/^\/pingus-level\/head\/time$/, :integer],
- [/^\/pingus-level\/head\/difficulty$/, :integer],
- [/^\/pingus-level\/head\/playable$/, :integer],
- [/^\/pingus-level\/head\/comment$/, :string],
- [/^\/pingus-level\/head\/music$/, :string],
- [/^\/pingus-level\/head\/actions$/, :section],
- [/^\/pingus-level\/head\/actions\/[a-z]+$/, :integer],
- [/^\/pingus-level\/head\/levelsize$/, :size],
-
- [/^\/pingus-level\/objects$/, :section],
-
- [/^\/pingus-level\/objects\/surface-background$/, :section],
- [/^\/pingus-level\/objects\/surface-background\/alpha$/, :integer],
- [/^\/pingus-level\/objects\/surface-background\/red$/, :integer],
- [/^\/pingus-level\/objects\/surface-background\/green$/, :integer],
- [/^\/pingus-level\/objects\/surface-background\/blue$/, :integer],
- [/^\/pingus-level\/objects\/surface-background\/scroll-x$/, :float],
- [/^\/pingus-level\/objects\/surface-background\/scroll-y$/, :float],
- [/^\/pingus-level\/objects\/surface-background\/para-x$/, :float],
- [/^\/pingus-level\/objects\/surface-background\/para-y$/, :float],
- [/^\/pingus-level\/objects\/surface-background\/stretch-x$/, :bool],
- [/^\/pingus-level\/objects\/surface-background\/stretch-y$/, :bool],
- [/^\/pingus-level\/objects\/surface-background\/keep-aspect$/, :bool],
-
- [/^\/pingus-level\/objects\/conveyorbelt$/, :section],
- [/^\/pingus-level\/objects\/conveyorbelt\/width$/, :integer],
- [/^\/pingus-level\/objects\/conveyorbelt\/speed$/, :integer],
-
- [/^\/pingus-level\/objects\/entrance$/, :section],
- [/^\/pingus-level\/objects\/entrance\/type$/, :string],
- [/^\/pingus-level\/objects\/entrance\/direction$/, :string],
- [/^\/pingus-level\/objects\/entrance\/release-rate$/, :integer],
- [/^\/pingus-level\/objects\/entrance\/owner-id$/, :integer],
-
- [/^\/pingus-level\/objects\/fake_exit$/, :section],
- [/^\/pingus-level\/objects\/fake_exit\/position$/, :vector],
-
- [/^\/pingus-level\/objects\/bumper$/, :section],
- [/^\/pingus-level\/objects\/bumper\/position$/, :vector],
-
- [/^\/pingus-level\/objects\/starfield-background$/, :section],
- [/^\/pingus-level\/objects\/starfield-background\/small-stars$/, :integer],
- [/^\/pingus-level\/objects\/starfield-background\/middle-stars$/, :integer],
- [/^\/pingus-level\/objects\/starfield-background\/large-stars$/, :integer],
-
- [/^\/pingus-level\/objects\/exit$/, :section],
- [/^\/pingus-level\/objects\/exit\/owner-id$/, :integer],
-
- [/^\/pingus-level\/objects\/groundpiece$/, :section],
- [/^\/pingus-level\/objects\/groundpiece\/type$/, :string],
-
- [/^\/pingus-level\/objects\/guillotine$/, :section],
- [/^\/pingus-level\/objects\/hammer$/, :section],
-
- [/^\/pingus-level\/objects\/hotspot$/, :section],
- [/^\/pingus-level\/objects\/hotspot\/parallax$/, :integer],
- [/^\/pingus-level\/objects\/hotspot\/speed$/, :integer],
-
- [/^\/pingus-level\/objects\/iceblock$/, :section],
- [/^\/pingus-level\/objects\/iceblock\/width$/, :integer],
-
- [/^\/pingus-level\/objects\/infobox$/, :section],
- [/^\/pingus-level\/objects\/infobox\/info-text$/, :string],
-
- [/^\/pingus-level\/objects\/laser_exit$/, :section],
-
- [/^\/pingus-level\/objects\/liquid$/, :section],
- [/^\/pingus-level\/objects\/liquid\/width$/, :integer],
- [/^\/pingus-level\/objects\/liquid\/repeat$/, :integer],
- [/^\/pingus-level\/objects\/liquid\/speed$/, :integer],
-
- [/^\/pingus-level\/objects\/rain-generator$/, :section],
- [/^\/pingus-level\/objects\/smasher$/, :section],
- [/^\/pingus-level\/objects\/snow-generator$/, :section],
- [/^\/pingus-level\/objects\/solidcolor-background$/, :section],
- [/^\/pingus-level\/objects\/spike$/, :section],
-
- [/^\/pingus-level\/objects\/switchdoor$/, :section],
- [/^\/pingus-level\/objects\/switchdoor\/switch$/, :section],
- [/^\/pingus-level\/objects\/switchdoor\/door$/, :section],
- [/^\/pingus-level\/objects\/switchdoor\/door\/height$/, :integer],
-
- [/^\/pingus-level\/objects\/teleporter$/, :section],
- [/^\/pingus-level\/objects\/teleporter\/target-id$/, :string],
- [/^\/pingus-level\/objects\/teleporter\/position$/, :vector],
- [/^\/pingus-level\/objects\/teleporter-target$/, :section],
- [/^\/pingus-level\/objects\/teleporter-target\/id$/, :string],
- [/^\/pingus-level\/objects\/teleporter-target\/position$/, :vector],
- ]
-
-$typespec_generic =
- [
- [/color$/, :color],
-
- [/position$/, :vector],
-
- [/surface$/, :section],
- [/surface\/image$/, :string],
- [/surface\/modifer$/, :string],
- [/surface\/modifier$/, :string],
- [/surface\/auto-uncover$/, :integer],
- ]
-
-$typespec = $typespec_level + $typespec_generic
-
-def get_type(section)
- $typespec.each{|pair|
- if section.match(pair[0]) then
- return pair[1]
- end
- }
- return :unknown
-end
-
-def line_breaker(str)
- lines = []
- line = ""
- word = ""
-
- str.each_byte{|c|
- word <<= c
-
- if c == ?\ then
- line += word
- word = ""
-
- if line.length > 72 then
- lines.push(line)
- line = ""
- end
- end
- }
-
- line += word
- if not line.empty? then
- lines.push(line)
- end
- return lines
-end
-
-def xml2array(section, indent, el)
- if el.is_a?(REXML::Text) then
- # puts section #, " -> ", $typespec[section], "\n"
- case get_type(section)
- when :section
- # indention white space, ignore it
- when :integer
- print el.value.to_i
- else
- if section != ""
- $stderr.puts "Error: unknown: section: #{section} #{el.value}"
- puts el.inspect
- exit 1
- end
- end
-
- elsif el.is_a?(REXML::Element)
- case get_type("#{section}/#{el.name}")
- when :section
- if el.children.length == 0 then
- print "#{indent}(#{el.name} )"
- else
- puts "#{indent}(#{el.name} "
- el.children.each{|child|
- xml2array("#{section}/#{el.name}", "#{indent} ", child)
- }
- print ")"
- end
- when :string
- print "#{indent}(#{el.name} "
- el.children.each{|child|
- line_breaker(child.value.gsub(/\s+/, "
").lstrip).each_with_index{|line,idx|
- if idx == 0 then
- print "\"#{line}\""
- else
- print "\n#{indent} #{" " * el.name.length}\"#{line}\""
- end
- }
- }
- print ")"
- when :bool
- print "#{indent}(#{el.name} "
- el.children.each{|child|
- if child.value.to_i == 0 then
- print "#f"
- else
- print "#t"
- end
- }
- print ")"
- when :integer
- print "#{indent}(#{el.name} "
- el.children.each{|child|
- print "#{child.value.to_i}"
- }
- print ")"
- when :float
- print "#{indent}(#{el.name} "
- el.children.each{|child|
- print "#{child.value.to_f}"
- }
- print ")"
- when :vector
- print "#{indent}(#{el.name} "
- print el.elements["x"][0].value
- print " "
- print el.elements["y"][0].value
- print " "
- print el.elements["z"][0].value
- print ")"
-
- when :color
- print "#{indent}(#{el.name} "
- print el.elements["red"][0].value
- print " "
- print el.elements["green"][0].value
- print " "
- print el.elements["blue"][0].value
- print " "
- print el.elements["alpha"][0].value
- print ")"
-
- when :size
- print "#{indent}(#{el.name} "
- print el.elements["width"][0].value
- print " "
- print el.elements["height"][0].value
- print ")"
-
- else
- puts "#{indent}(#{el.name} "
- el.children.each{|child|
- xml2array("#{section}/#{el.name}", "#{indent} ", child)
- }
- print "#{indent} )"
- end
- if el.next_element then
- puts ""
- end
- elsif el.is_a?(REXML::Comment)
- elsif el.is_a?(REXML::XMLDecl)
- else
- $stderr.puts "Error, unknown element #{el.class}"
- end
-end
-
-i = 0
-dir = File.dirname(ARGV[0])
-doc = REXML::Document.new(File.new(ARGV[0]))
-puts ";; generated by xml2sexpr.rb from file '#{ARGV[1]}'"
-doc.children.each{ |el|
- xml2array("", "", el)
-}
-puts "\n;; EOF ;;"
-exit 0
-
-# EOF #
Copied: trunk/pingus/tools/README (from rev 4029, trunk/pingus/contrib/README)
Copied: trunk/pingus/tools/clanlib_2_sexpr.rb (from rev 4029,
trunk/pingus/contrib/clanlib_2_sexpr.rb)
Copied: trunk/pingus/tools/extract-gettext.rb (from rev 4029,
trunk/pingus/contrib/extract-gettext.rb)
Added: trunk/pingus/tools/findlevel.sh
===================================================================
--- trunk/pingus/tools/findlevel.sh 2009-11-06 13:52:48 UTC (rev 4052)
+++ trunk/pingus/tools/findlevel.sh 2009-11-06 13:57:36 UTC (rev 4053)
@@ -0,0 +1,4 @@
+#!/bin/sh
+
+find branches/pingus_0_6/data/levels/ -name "*.scm" | xargs grep -ie "$1"
+
Property changes on: trunk/pingus/tools/findlevel.sh
___________________________________________________________________
Name: svn:executable
+ *
Added: trunk/pingus/tools/gen-res-list.sh
===================================================================
--- trunk/pingus/tools/gen-res-list.sh 2009-11-06 13:52:48 UTC (rev 4052)
+++ trunk/pingus/tools/gen-res-list.sh 2009-11-06 13:57:36 UTC (rev 4053)
@@ -0,0 +1,9 @@
+#!/bin/bash
+
+for i in "$@"; do
+ echo "(sprite"
+ echo " (name \"$(basename "${i%%.png}")\")"
+ echo " (image-file \"${i}\"))"
+done
+
+# EOF #
Property changes on: trunk/pingus/tools/gen-res-list.sh
___________________________________________________________________
Name: svn:executable
+ *
Copied: trunk/pingus/tools/iso-8859-1-latin1.txt (from rev 4029,
trunk/pingus/contrib/iso-8859-1-latin1.txt)
Copied: trunk/pingus/tools/iso-8859-1-utf8.txt (from rev 4029,
trunk/pingus/contrib/iso-8859-1-utf8.txt)
Copied: trunk/pingus/tools/iso-8859-2-utf8.txt (from rev 4029,
trunk/pingus/contrib/iso-8859-2-utf8.txt)
Copied: trunk/pingus/tools/iso-8859-9-utf8.txt (from rev 4029,
trunk/pingus/contrib/iso-8859-9-utf8.txt)
Copied: trunk/pingus/tools/levelcheck.scm (from rev 4029,
trunk/pingus/contrib/levelcheck.scm)
Copied: trunk/pingus/tools/levelconvert.sh (from rev 4029,
trunk/pingus/contrib/levelconvert.sh)
Copied: trunk/pingus/tools/pingus-cvs-build (from rev 4029,
trunk/pingus/contrib/pingus-cvs-build)
Copied: trunk/pingus/tools/pingus-level (from rev 4029,
trunk/pingus/contrib/pingus-level)
Copied: trunk/pingus/tools/pingusv1tov2.xsl (from rev 4029,
trunk/pingus/contrib/pingusv1tov2.xsl)
Copied: trunk/pingus/tools/surface2sprite.xsl (from rev 4029,
trunk/pingus/contrib/surface2sprite.xsl)
Copied: trunk/pingus/tools/unicode-mes1.rb (from rev 4029,
trunk/pingus/contrib/unicode-mes1.rb)
Copied: trunk/pingus/tools/worldmapv0tov1.xsl (from rev 4029,
trunk/pingus/contrib/worldmapv0tov1.xsl)
Copied: trunk/pingus/tools/xml2sexpr.rb (from rev 4029,
trunk/pingus/contrib/xml2sexpr.rb)
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Pingus-CVS] r4053 - in trunk/pingus: . contrib tools,
grumbel at BerliOS <=