From: christoph <christoph@christoph-PC.lan>
Date: Tue, 4 Aug 2009 00:11:44 +0000 (+0200)
Subject: Removed the old package declarations.
X-Git-Url: http://uxul.de/gitweb/?a=commitdiff_plain;h=6ee962b8ab6450433f4d756e20e57042284a9ff6;p=uxul-world.git

Removed the old package declarations.

Split the level-editor into an own package, so the game itself
doesnt have so much dependencies.
---

diff --git a/leveleditor.lisp b/leveleditor.lisp
index 5a7808c..72c53df 100644
--- a/leveleditor.lisp
+++ b/leveleditor.lisp
@@ -1,6 +1,6 @@
 ;;; Copyright 2009 Christoph Senjak
 
-(in-package :uxul-world)
+(in-package :uxul-world-leveleditor)
 
 (defparameter *leveleditor-images* nil)
 
@@ -15,15 +15,15 @@
 (defun prepare-base64-images (&optional (care-about-initialization *leveleditor-images*))
   (when (not care-about-initialization)
     (setf *leveleditor-images* (make-hash-table))
-    (setf (gethash 'uxul *leveleditor-images*) (stretched-base64-image |uxul_small1|))
-    (setf (gethash 'leaf *leveleditor-images*) (stretched-base64-image |leaf|))
-    (setf (gethash 'nasobem *leveleditor-images*) (stretched-base64-image |nasobem|))
-    (setf (gethash 'blue-nasobem *leveleditor-images*) (stretched-base64-image |blue_nasobem|))
-    (setf (gethash 'burning-marshmallow *leveleditor-images*) (stretched-base64-image |burning_marshmallow_ld1|))
-    (setf (gethash 'gray-stone *leveleditor-images*) (stretched-base64-image |gray_stone|))
-    (setf (gethash 'brown-stone *leveleditor-images*) (stretched-base64-image |brown_stone|))
-    (setf (gethash 'empty *leveleditor-images*) (stretched-base64-image |empty|))
-    (setf (gethash 'tulip *leveleditor-images*) (stretched-base64-image |tulip|))))
+    (setf (gethash 'uxul *leveleditor-images*) (stretched-base64-image uxul-world::|uxul_small1|))
+    (setf (gethash 'leaf *leveleditor-images*) (stretched-base64-image uxul-world::|leaf|))
+    (setf (gethash 'nasobem *leveleditor-images*) (stretched-base64-image uxul-world::|nasobem|))
+    (setf (gethash 'blue-nasobem *leveleditor-images*) (stretched-base64-image uxul-world::|blue_nasobem|))
+    (setf (gethash 'burning-marshmallow *leveleditor-images*) (stretched-base64-image uxul-world::|burning_marshmallow_ld1|))
+    (setf (gethash 'gray-stone *leveleditor-images*) (stretched-base64-image uxul-world::|gray_stone|))
+    (setf (gethash 'brown-stone *leveleditor-images*) (stretched-base64-image uxul-world::|brown_stone|))
+    (setf (gethash 'empty *leveleditor-images*) (stretched-base64-image uxul-world::|empty|))
+    (setf (gethash 'tulip *leveleditor-images*) (stretched-base64-image uxul-world::|tulip|))))
 
 (defun load-image-into-tk (png-base64)
   "return a tkobject with this image"
diff --git a/uxul-world-leveleditor.asd b/uxul-world-leveleditor.asd
new file mode 100644
index 0000000..2ea18f5
--- /dev/null
+++ b/uxul-world-leveleditor.asd
@@ -0,0 +1,15 @@
+;;; -*- lisp -*-
+
+;;; Copyright 2009 Christoph Senjak
+
+(defsystem "uxul-world-leveleditor"
+  :description "Uxul World Leveleditor"
+  :version "No Release Yet"
+  :author "Christoph Senjak <firstName.secondName at googlemail.com>"
+  :license "Copyright 2009 Christoph Senjak."
+  :depends-on (#:uxul-world
+	       #:ltk
+	       #:lisp-magick)
+  :components ((:file "uxul-world-leveleditor")
+	       (:file "leveleditor"))
+  :serial t)
\ No newline at end of file
diff --git a/uxul-world-leveleditor.lisp b/uxul-world-leveleditor.lisp
new file mode 100644
index 0000000..0a2b8ca
--- /dev/null
+++ b/uxul-world-leveleditor.lisp
@@ -0,0 +1,6 @@
+;;; Copyright 2009 Christoph Senjak
+
+(defpackage #:uxul-world-leveleditor
+	(:use
+	 #:cl #:uxul-world)
+	(:export #:level-editor))
diff --git a/uxul-world.asd b/uxul-world.asd
index ce8f70b..155cd02 100755
--- a/uxul-world.asd
+++ b/uxul-world.asd
@@ -9,17 +9,13 @@
   :license "Copyright 2009 Christoph Senjak."
   :depends-on (#:lispbuilder-sdl #:closer-mop
 				 #:cl-fad
-				 ;#:asdf
-				 #:ltk
-				 #:lisp-magick
                                  #:lispbuilder-sdl-image)
-  :components ((:file "package")
+  :components ((:file "uxul-world")
                (:file "macros")
                (:file "constants")
                (:file "xy-coordinates")
                (:file "collision")
                (:file "files")
-	       (:file "leveleditor")
                (:file "animation")
                (:file "functions")
                (:file "game-object")
diff --git a/package.lisp b/uxul-world.lisp
similarity index 100%
rename from package.lisp
rename to uxul-world.lisp