[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Pingus-CVS] r4195 - trunk/pingus/data
From: |
grumbel |
Subject: |
[Pingus-CVS] r4195 - trunk/pingus/data |
Date: |
Tue, 30 Aug 2011 01:55:49 +0200 |
Author: grumbel
Date: 2011-08-30 01:55:49 +0200 (Tue, 30 Aug 2011)
New Revision: 4195
Removed:
trunk/pingus/data/gen-scrfile.scm
Log:
Removed obsolete .xml generation script
Deleted: trunk/pingus/data/gen-scrfile.scm
===================================================================
--- trunk/pingus/data/gen-scrfile.scm 2011-08-29 23:41:20 UTC (rev 4194)
+++ trunk/pingus/data/gen-scrfile.scm 2011-08-29 23:55:49 UTC (rev 4195)
@@ -1,120 +0,0 @@
-#!/usr/bin/guile \
---debug -e main -s
-!#
-
-(define (get-keyword-value args keyword default)
- (let ((kv (memq keyword args)))
- (if (and kv (>= (length kv) 2))
- (cadr kv)
- default)))
-
-;; Return a list containing all the objects which match 'pred?'
-(define (filter pred? objects)
- (let loop ((objs objects)
- (result '()))
- (cond ((null? objs) (reverse! result))
- ((pred? (car objs)) (loop (cdr objs) (cons (car objs) result)))
- (else (loop (cdr objs) result)))))
-
-;; Return a list of the strings which match the regex 'rx'
-(define (grep rx strings)
- (let ((r (make-regexp rx)))
- (filter (lambda (x) (regexp-exec r x)) strings)))
-
-(define (print . str)
- (for-each (lambda (x) (display x)) str)
- (force-output))
-
-(define (println-sep . str)
- (for-each (lambda (x)
- (display "\"")
- (display x)
- (display "\"")) str)
- (newline))
-
-;; Print the given strings and a newline
-(define (println . str)
- (apply print str) (newline))
-
-(define (println-port port . strs)
- (for-each (lambda (el)
- (display el port))
- strs)
- (newline port))
-
-(define (directory->list path)
- (let* ((dir (opendir path))
- (lst '()))
- (let loop ((fobj (readdir dir)))
- (cond ((not (eof-object? fobj))
- (set! lst (cons fobj lst))
- (loop (readdir dir)))))
- (closedir dir)
- (reverse lst)))
-
-;; End: Helper functions
-
-(define (directory? file)
- (equal? (stat:type (stat file)) 'directory))
-
-(define (indent level)
- (make-string (* 2 level) #\space))
-
-(define (cut-extension filename)
- (substring filename 0 (- (string-length filename) 4)))
-
-(define (dirtree2scr port level path)
- (let* ((lst (sort (directory->list path) string<=?))
- (images (grep "\.png$\|\.jpg$" (filter (lambda (x)
- (not (directory?
(string-append path "/" x))))
- lst)))
- (directories (filter (lambda (el)
- (and (directory? (string-append path "/" el))
- (not (equal? el "CVS"))
- (not (equal? el "old"))
- (not (equal? (string-ref el 0) #\.))))
- lst)))
- (for-each (lambda (el)
- (println-port port
- (indent (1+ level))
- "<sprite name=\"" (cut-extension el) "\">\n"
- (indent (+ 2 level))
- "<image file=\"../" path "/" el "\"/>\n"
- (indent (1+ level))"</sprite>\n"
- ))
- images)
- (for-each (lambda (el)
- (println-port port (indent level) "<section name=\"" el "\">")
- (dirtree2scr port (1+ level) (string-append path "/" el))
- (println-port port (indent level) "</section>"))
- directories)))
-
-(define (create-scr-file filename directory . sections)
- (let ((port (open-output-file filename)))
- (println-port port "<?xml version=\"1.0\"?>\n")
- (println-port port "<!-- Automatic generated by gen-scrfile.scm - don't
edit by hand! -->\n")
- (println-port port"<resources>")
- (for-each (lambda (el)
- (println-port port "<section name=\"" el "\">"))
- sections)
- (dirtree2scr port (length sections) directory)
- (for-each (lambda (el)
- (println-port port "</section>"))
- sections)
- (println-port port"</resources>")
- (close port)))
-
-(define (main args)
- (create-scr-file "data/groundpieces-ground.xml" "images/groundpieces/ground"
- "groundpieces" "ground")
- (create-scr-file "data/groundpieces-solid.xml" "images/groundpieces/solid"
- "groundpieces" "solid")
- (create-scr-file "data/groundpieces-remove.xml" "images/groundpieces/remove"
- "groundpieces" "remove")
- (create-scr-file "data/groundpieces-transparent.xml"
"images/groundpieces/transparent"
- "groundpieces" "transparent")
- (create-scr-file "data/groundpieces-bridge.xml" "images/groundpieces/bridge"
"groundpieces" "bridge")
- (create-scr-file "data/hotspots.xml" "images/hotspots" "hotspots"))
-
-
-;; EOF ;;
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Pingus-CVS] r4195 - trunk/pingus/data,
grumbel <=