Commit cce0e20c authored by Pascal J. Bourguignon's avatar Pascal J. Bourguignon

Corrected little errors; Added com.informatimago system.

parent d2d219bd
......@@ -94,7 +94,13 @@ should be made into implementation independant packages).
#+linux (:file "make-volumes" :depends-on ("susv3")))
#-clisp ())
#+(and clisp (not linux)) (warn "System ~A is incomplete without the LINUX package." :com.informatimago.clisp)
#-clisp (warn "System ~A is useless on ~A" :com.informatimago.clisp (lisp-implementation-type))
#+(and clisp (not linux))
(eval-when (:compile-toplevel :load-toplevel :execute)
(warn "System ~A is incomplete without the LINUX package." :com.informatimago.clisp))
#-clisp
(eval-when (:compile-toplevel :load-toplevel :execute)
(warn "System ~A is useless on ~A" :com.informatimago.clisp (lisp-implementation-type)))
;;;; THE END ;;;;
;;;; -*- mode:lisp;coding:utf-8 -*-
;;;;**************************************************************************
;;;;FILE: com.informatimago.asd
;;;;LANGUAGE: Common-Lisp
;;;;SYSTEM: Common-Lisp
;;;;USER-INTERFACE: NONE
;;;;DESCRIPTION
;;;;
;;;; ASD file to load com.informatimago libraries.
;;;;
;;;;AUTHORS
;;;; <PJB> Pascal J. Bourguignon <[email protected]>
;;;;MODIFICATIONS
;;;; 2014-12-23 <PJB> Created this .asd file.
;;;;BUGS
;;;;LEGAL
;;;; AGPL3
;;;;
;;;; Copyright Pascal J. Bourguignon 2010 - 2014
;;;;
;;;; This program is free software: you can redistribute it and/or modify
;;;; it under the terms of the GNU Affero General Public License as published by
;;;; the Free Software Foundation, either version 3 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 Affero General Public License for more details.
;;;;
;;;; You should have received a copy of the GNU Affero General Public License
;;;; along with this program. If not, see http://www.gnu.org/licenses/
;;;;**************************************************************************
(asdf:defsystem :com.informatimago
;; system attributes:
:description "This system gathers most of the Informatimago systems."
:author "Pascal J. Bourguignon <[email protected]>"
:maintainer "Pascal J. Bourguignon <[email protected]>"
:licence "AGPL3"
;; component attributes:
:name "Informatimago Systems Agregate"
:version "1.0.0"
:properties ((#:author-email . "[email protected]")
(#:date . "Winter 2014")
((#:albert #:output-dir) . "/tmp/documentation/com.informatimago/")
((#:albert #:formats) . ("docbook"))
((#:albert #:docbook #:template) . "book")
((#:albert #:docbook #:bgcolor) . "white")
((#:albert #:docbook #:textcolor) . "black"))
#+asdf-unicode :encoding #+asdf-unicode :utf-8
:depends-on ("com.informatimago.common-lisp"
"com.informatimago.clext"
"com.informatimago.clmisc"
"com.informatimago.rdp"
"com.informatimago.tools"
"com.informatimago.xcode"
"com.informatimago.lispdoc"
"com.informatimago.small-cl-pgms"
"com.informatimago.future"
"com.informatimago.objcl" ; empty shell on non-ccl darwin
"com.informatimago.susv3" ; empty shell on non-clisp.
"com.informatimago.clisp" ; empty shell on non-clisp linux
)
:components ())
;;;; THE END ;;;;
......@@ -35,7 +35,8 @@
#+clisp
(unless custom:*ansi*
(warn "clisp should be used with -ansi or (setf custom:*ansi* t) in ~/.clisprc"))
(warn "System ~A: clisp should be used with -ansi or (setf custom:*ansi* t) in ~/.clisprc"
:com.informatimago.common-lisp.cesarum))
(asdf:defsystem :com.informatimago.common-lisp.cesarum
......
;;;; -*- mode:lisp;coding:utf-8 -*-
;;;;**************************************************************************
;;;;FILE: com.informatimago.cocoa-playground.asd
;;;;FILE: com.informatimago.future.asd
;;;;LANGUAGE: Common-Lisp
;;;;SYSTEM: Common-Lisp
;;;;USER-INTERFACE: NONE
;;;;DESCRIPTION
;;;;
;;;; Playground for Cocoa and ObjCL.
;;;; This system loads what can be loaded of future Informatimago projects and sketches.
;;;; !!! This code is clearly not ready for consumption !!!
;;;;
;;;;AUTHORS
;;;; <PJB> Pascal J. Bourguignon <[email protected]>
;;;;MODIFICATIONS
;;;; 2012-04-22 <PJB> Added this header.
;;;; 2014-12-23 <PJB> Created.
;;;;BUGS
;;;;LEGAL
;;;; AGPL3
;;;;
;;;; Copyright Pascal J. Bourguignon 2012 - 2012
;;;; Copyright Pascal J. Bourguignon 2013 - 2014
;;;;
;;;; This program is free software: you can redistribute it and/or modify
;;;; it under the terms of the GNU Affero General Public License as published by
......@@ -29,48 +30,16 @@
;;;; GNU Affero General Public License for more details.
;;;;
;;;; You should have received a copy of the GNU Affero General Public License
;;;; along with this program. If not, see http://www.gnu.org/licenses/
;;;; along with this program. If not, see <http://www.gnu.org/licenses/>.
;;;;**************************************************************************
(asdf:defsystem :com.informatimago.cocoa-playground
;; system attribtues:
:description "Playground for Cocoa and ObjCL."
:long-description "
Playground for Cocoa and ObjCL.
"
:author "Pascal J. Bourguignon <[email protected]>"
:maitainer "Pascal J. Bourguignon <[email protected]>"
:licence "AGPL3"
;; component attributes:
:name "Playground for Cocoa and ObjCL"
:version "0.7.1"
:properties ((#:author-email . "[email protected]")
(#:date . "Spring 2011")
((#:albert #:output-dir) . "../documentation/com.informatimago.cocoa-playground/")
((#:albert #:formats) . ("docbook"))
((#:albert #:docbook #:template) . "book")
((#:albert #:docbook #:bgcolor) . "white")
((#:albert #:docbook #:textcolor) . "black"))
#+asdf-unicode :encoding #+asdf-unicode :utf-8
:depends-on (:com.informatimago.objcl)
:components ((:file "layout" :depends-on ())
(:file "cocoa" :depends-on ("layout"))))
(asdf:defsystem :com.informatimago.future
:name "com.informatimago.future"
:description "Future Informatimago Projects - Not ready for consumption."
:author "Pascal J. Bourguignon"
:version "1.0.2"
:license "GPL3"
:depends-on ("com.informatimago.future.editor")
:components ())
;;;; THE END ;;;;
......@@ -34,14 +34,18 @@
;;;;**************************************************************************
(asdf:defsystem :com.informatimago.future.editor
:name "com.informatimago.tools.editor"
:name "com.informatimago.future.editor"
:description "Editor tools."
:author "Pascal J. Bourguignon"
:version "1.0.1"
:version "1.0.2"
:license "GPL3"
:depends-on ("com.informatimago.common-lisp.cesarum"
"com.informatimago.common-lisp.lisp-sexp"
"split-sequence")
:components ((:file "editor")))
:components (#+clisp (:file "editor"))) ; for now, only on clisp, will be ported soon.
#-clisp (eval-when (:compile-toplevel :load-toplevel :execute)
(warn "System ~A is not available on ~A yet."
:com.informatimago.future.editor (lisp-implementation-type)))
;;;; THE END ;;;;
......@@ -53,12 +53,8 @@
(in-package "COMMON-LISP-USER")
;; Eventually, to be moved to an asd file:
(ql:quickload :com.informatimago.common-lisp.cesarum)
(ql:quickload :com.informatimago.common-lisp.lisp-sexp)
(ql:quickload :split-sequence)
;; while debugging:
#-(and)
(when (find-package "COM.INFORMATIMAGO.EDITOR")
(delete-package "COM.INFORMATIMAGO.EDITOR"))
......@@ -103,7 +99,7 @@ to language names (as keyword).")
;;;---------------------------------------------------------------------
(defpackage "COM.INFORMATIMAGO.EDITOR"
(defpackage "COM.INFORMATIMAGO.FUTURE.EDITOR"
(:nicknames "EDITOR" "EMACS" "E")
(:use "COMMON-LISP"
"SPLIT-SEQUENCE"
......@@ -134,7 +130,7 @@ License along with this program; if not, write to the Free
Software Foundation, Inc., 59 Temple Place, Suite 330,
Boston, MA 02111-1307 USA
"))
(in-package "COM.INFORMATIMAGO.EDITOR")
(in-package "COM.INFORMATIMAGO.FUTURE.EDITOR")
......
......@@ -108,7 +108,7 @@ common-lisp:package and common-lisp:symbol.
(defun read-sources (&key (system-file #P"patchwork.asd")
(base #P"~/works/patchwork/patchwork/src/"))
(setup)
(load-asdf-system (merge-pathnames system-file base))
(LOAD-SIMPLE-ASD-FILE (merge-pathnames system-file base))
(setf *sorted-files* (reverse (topological-sort (hash-table-values *asdf-files*)
(function dependencies))))
;; (defparameter *sources*
......
Markdown is supported
0%
or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment