^ ^ V V < > < > B A

build-ccl.lisp

;; (push (merge-pathnames "lib/" *default-pathname-defaults*)
;;       asdf:*central-registry*)
;; (push #P"/home/dto/blocky/"
;;       asdf:*central-registry*)
;; (push #P"/home/dto/2x0ng/"
;;       asdf:*central-registry*)
(ql:quickload '(:trivial-main-thread :cocoahelper :lispbuilder-sdl-mixer :lispbuilder-sdl-ttf :lispbuilder-sdl-image :uuid :cl-opengl :cl-fad))

(defpackage :xelf-asd)

(in-package :xelf-asd)

(asdf:defsystem xelf
  :name "xelf"
  :version "2.01"
  :maintainer "David T O'Toole <dto@blocky.io>"
  :author "David T O'Toole <dto@blocky.io>"
  :license "General Public License (GPL) Version 3"
  :description "XELF is a visual programming language for Common Lisp."
  :serial t
  :depends-on (:lispbuilder-sdl
	       :lispbuilder-sdl-image
	       :lispbuilder-sdl-ttf
	       :lispbuilder-sdl-mixer
	       :uuid
;;	       :gettext
	       :cl-fad
	       :cl-opengl)
  :components ((:file "xelf")
	       (:file "rgb" :depends-on ("xelf"))
	       (:file "keys" :depends-on ("xelf"))
	       (:file "math" :depends-on ("xelf"))
	       (:file "logic" :depends-on ("xelf"))
	       (:file "prototypes" :depends-on ("xelf"))
	       (:file "quadtree" :depends-on ("xelf"))
	       (:file "console" :depends-on ("prototypes" "quadtree" "rgb" "keys" "math" "logic"))
	       (:file "blocks" :depends-on ("console"))
	       (:file "text" :depends-on ("blocks"))
	       (:file "phrase" :depends-on ("blocks"))
	       (:file "entry" :depends-on ("phrase" "text"))
	       (:file "words" :depends-on ("entry"))
	       (:file "trees" :depends-on ("words"))
	       (:file "halo" :depends-on ("trees"))
	       (:file "sidebar" :depends-on ("halo"))
	       (:file "shell" :depends-on ("sidebar"))
	       (:file "commands" :depends-on ("shell"))
	       (:file "buffers" :depends-on ("commands"))
	       (:file "path" :depends-on ("buffers"))))

	       ;; (:file "syntax" :depends-on ("blocks"))))
;	       (:file "trees" :depends-on ("phrase"))
;	       (:file "program" :depends-on ("blocks"))


(asdf:defsystem #:cypress
  :depends-on (:xelf)
  :pathname "cypress"
  :components ((:file "package")
	       (:file "world" :depends-on ("package"))
	       (:file "status" :depends-on ("world"))
	       (:file "objects" :depends-on ("status"))
	       (:file "enemy" :depends-on ("objects"))
	       (:file "gumps" :depends-on ("enemy"))
	       (:file "monk" :depends-on ("gumps"))
	       (:file "magic" :depends-on ("monk"))
	       (:file "geoffrey" :depends-on ("magic"))
	       (:file "lucius" :depends-on ("geoffrey"))
	       (:file "arturo" :depends-on ("lucius"))
	       (:file "alistair" :depends-on ("arturo"))
	       (:file "terrain" :depends-on ("alistair"))
	       (:file "scene" :depends-on ("terrain"))
	       (:file "townspeople" :depends-on ("scene"))
	       (:file "town" :depends-on ("townspeople"))
	       (:file "ancients" :depends-on ("town"))
	       (:file "valisade" :depends-on ("ancients"))
	       (:file "alonso" :depends-on ("valisade"))
	       (:file "hamlet" :depends-on ("alonso"))
	       (:file "owl" :depends-on ("hamlet"))
	       (:file "wizards" :depends-on ("owl"))
	       (:file "amalia" :depends-on ("wizards"))
	       (:file "map" :depends-on ("amalia"))
	       (:file "lore" :depends-on ("map"))
	       (:file "story" :depends-on ("lore"))
	       (:file "cypress" :depends-on ("story"))))

(asdf:load-system :cypress)

(ccl:save-application "cypressmac"
		      :clear-clos-caches t
		      :prepend-kernel t
		      :toplevel-function
		      (lambda ()
			(tmt:with-body-in-main-thread ()
			  (setf xelf::*executable* t)
			  (setf xelf::*suppress-warnings* t)
			  (asdf:operate 'asdf:load-op :cocoahelper)
			  (lispbuilder-sdl-cocoahelper::cocoahelper-init)
			  (cypress:cypress))
			(loop while t)))

build-sbcl.lisp

;(require 'sb-posix)

#-quicklisp (load #P"~/quicklisp/setup.lisp")

;; (push (merge-pathnames "lib/" *default-pathname-defaults*)
;;       asdf:*central-registry*)

(ql:quickload '(:trivial-main-thread :cocoahelper :lispbuilder-sdl-mixer :lispbuilder-sdl-ttf :lispbuilder-sdl-image :uuid :cl-opengl :cl-fad))


;; (defpackage :xelf-asd)

;; (in-package :xelf-asd)

(asdf:defsystem xelf
  :name "xelf"
  :version "2.01"
  :maintainer "David T O'Toole <dto@blocky.io>"
  :author "David T O'Toole <dto@blocky.io>"
  :license "General Public License (GPL) Version 3"
  :description "XELF is a visual programming language for Common Lisp."
  :serial t
  :depends-on (:lispbuilder-sdl
	       :lispbuilder-sdl-image
	       :lispbuilder-sdl-ttf
	       :lispbuilder-sdl-mixer
	       :uuid
;;	       :gettext
	       :cl-fad
	       :cl-opengl)
  :components ((:file "xelf")
	       (:file "rgb" :depends-on ("xelf"))
	       (:file "keys" :depends-on ("xelf"))
	       (:file "math" :depends-on ("xelf"))
	       (:file "logic" :depends-on ("xelf"))
	       (:file "prototypes" :depends-on ("xelf"))
	       (:file "quadtree" :depends-on ("xelf"))
	       (:file "console" :depends-on ("prototypes" "quadtree" "rgb" "keys" "math" "logic"))
	       (:file "blocks" :depends-on ("console"))
	       (:file "text" :depends-on ("blocks"))
	       (:file "phrase" :depends-on ("blocks"))
	       (:file "entry" :depends-on ("phrase" "text"))
	       (:file "words" :depends-on ("entry"))
	       (:file "trees" :depends-on ("words"))
	       (:file "halo" :depends-on ("trees"))
	       (:file "sidebar" :depends-on ("halo"))
	       (:file "shell" :depends-on ("sidebar"))
	       (:file "commands" :depends-on ("shell"))
	       (:file "buffers" :depends-on ("commands"))
	       (:file "path" :depends-on ("buffers"))))

	       ;; (:file "syntax" :depends-on ("blocks"))))
;	       (:file "trees" :depends-on ("phrase"))
;	       (:file "program" :depends-on ("blocks"))

;;(asdf:load-system :xelf)

(require 'xelf)

(asdf:defsystem #:cypress
  :depends-on (:xelf)
  :pathname "cypress"
  :components ((:file "package")
	       (:file "world" :depends-on ("package"))
	       (:file "status" :depends-on ("world"))
	       (:file "objects" :depends-on ("status"))
	       (:file "enemy" :depends-on ("objects"))
	       (:file "gumps" :depends-on ("enemy"))
	       (:file "monk" :depends-on ("gumps"))
	       (:file "magic" :depends-on ("monk"))
	       (:file "geoffrey" :depends-on ("magic"))
	       (:file "lucius" :depends-on ("geoffrey"))
	       (:file "arturo" :depends-on ("lucius"))
	       (:file "alistair" :depends-on ("arturo"))
	       (:file "terrain" :depends-on ("alistair"))
	       (:file "scene" :depends-on ("terrain"))
	       (:file "journal" :depends-on ("scene"))
	       (:file "townspeople" :depends-on ("journal"))
	       (:file "town" :depends-on ("townspeople"))
	       (:file "ancients" :depends-on ("town"))
	       (:file "valisade" :depends-on ("ancients"))
	       (:file "alonso" :depends-on ("valisade"))
	       (:file "hamlet" :depends-on ("alonso"))
	       (:file "owl" :depends-on ("hamlet"))
	       (:file "wizards" :depends-on ("owl"))
	       (:file "amalia" :depends-on ("wizards"))
	       (:file "map" :depends-on ("amalia"))
	       (:file "lore" :depends-on ("map"))
	       (:file "story" :depends-on ("lore"))
	       (:file "cypress" :depends-on ("story"))))

;;(asdf:load-system :cypress)

(require 'cypress)

;(push #p"/home/dto/cypress/" asdf:*central-registry*)

(setf sb-impl::*default-external-format* :utf-8)
(asdf:oos 'asdf:load-op 'cypress)
(sb-ext:save-lisp-and-die "cypressmac"
			  :toplevel
			  (lambda ()
			    (eval-when
				(:compile-toplevel :load-toplevel :execute)
			      (sb-int:set-floating-point-modes :traps nil))
			    (tmt:with-body-in-main-thread (:blocking t)
			      (setf xelf::*executable* t)
			      (setf xelf::*suppress-warnings* nil)
			      (asdf:operate 'asdf:load-op :cocoahelper)
			      (lispbuilder-sdl-cocoahelper::cocoahelper-init)
			      (cypress:cypress))
			    0)
			  :executable t)