[sod] / pre-reorg / class-layout.lisp

;;; -*-lisp-*-
;;;
;;; Layout for instances and vtables
;;;
;;; (c) 2009 Straylight/Edgeware
;;;

;;;----- Licensing notice ---------------------------------------------------
;;;
;;; This file is part of the Simple Object Definition system.
;;;
;;; SOD 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.
;;;
;;; SOD 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 SOD; if not, write to the Free Software Foundation,
;;; Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.

(cl:in-package #:sod)

;;;--------------------------------------------------------------------------
;;; Effective slot objects.

(defclass effective-slot ()
  ((class :initarg :class :type sod-slot :reader effective-slot-class)
   (slot :initarg :slot :type sod-slot :reader effective-slot-direct-slot)
   (initializer :initarg :initializer :type (or sod-initializer null)
		:reader effective-slot-initializer))
  (:documentation
   "Describes a slot and how it's meant to be initialized.

   Effective slot objects are usually attached to layouts."))

(defgeneric find-slot-initializer (class slot)
  (:documentation
   "Return the most specific initializer for SLOT, starting from CLASS."))

(defgeneric compute-effective-slot (class slot)
  (:documentation
   "Construct an effective slot from the supplied direct slot.

   SLOT is a direct slot defined on CLASS or one of its superclasses.
   (Metaclass initializers are handled using a different mechanism.)"))

;;;--------------------------------------------------------------------------
;;; Instance layout objects.

(defclass islots ()
  ((class :initarg :class :type sod-class :reader islots-class)
   (subclass :initarg :subclass :type sod-class :reader islots-subclass)
   (slots :initarg :slots :type list :reader islots-slots))
  (:documentation
   "The collection of effective SLOTS defined by an instance of CLASS."))

;;; Standard implementation.

;;;--------------------------------------------------------------------------
;;; Effective methods.

;;;--------------------------------------------------------------------------
;;; Vtable layout.

;;; vtmsgs

;;; base-offset

;;; chain-offset

;;; vtable

;;; Implementation.

;;;----- That's all, folks --------------------------------------------------
Commit	Line	Data
dea4d055 MW	1	;;; --lisp--
	2	;;;
	3	;;; Layout for instances and vtables
	4	;;;
	5	;;; (c) 2009 Straylight/Edgeware
	6	;;;
	7
	8	;;;----- Licensing notice ---------------------------------------------------
	9	;;;
	10	;;; This file is part of the Simple Object Definition system.
	11	;;;
	12	;;; SOD is free software; you can redistribute it and/or modify
	13	;;; it under the terms of the GNU General Public License as published by
	14	;;; the Free Software Foundation; either version 2 of the License, or
	15	;;; (at your option) any later version.
	16	;;;
	17	;;; SOD is distributed in the hope that it will be useful,
	18	;;; but WITHOUT ANY WARRANTY; without even the implied warranty of
	19	;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
	20	;;; GNU General Public License for more details.
	21	;;;
	22	;;; You should have received a copy of the GNU General Public License
	23	;;; along with SOD; if not, write to the Free Software Foundation,
	24	;;; Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
	25
	26	(cl:in-package #:sod)
	27
	28	;;;--------------------------------------------------------------------------
	29	;;; Effective slot objects.
	30
	31	(defclass effective-slot ()
	32	((class :initarg :class :type sod-slot :reader effective-slot-class)
	33	(slot :initarg :slot :type sod-slot :reader effective-slot-direct-slot)
	34	(initializer :initarg :initializer :type (or sod-initializer null)
	35	:reader effective-slot-initializer))
	36	(:documentation
	37	"Describes a slot and how it's meant to be initialized.
	38
	39	Effective slot objects are usually attached to layouts."))
	40
	41	(defgeneric find-slot-initializer (class slot)
	42	(:documentation
	43	"Return the most specific initializer for SLOT, starting from CLASS."))
	44
	45	(defgeneric compute-effective-slot (class slot)
	46	(:documentation
	47	"Construct an effective slot from the supplied direct slot.
	48
	49	SLOT is a direct slot defined on CLASS or one of its superclasses.
	50	(Metaclass initializers are handled using a different mechanism.)"))
	51
	52	;;;--------------------------------------------------------------------------
	53	;;; Instance layout objects.
	54
	55	(defclass islots ()
	56	((class :initarg :class :type sod-class :reader islots-class)
	57	(subclass :initarg :subclass :type sod-class :reader islots-subclass)
	58	(slots :initarg :slots :type list :reader islots-slots))
	59	(:documentation
	60	"The collection of effective SLOTS defined by an instance of CLASS."))
	61
	62	;;; Standard implementation.
	63
	64	;;;--------------------------------------------------------------------------
65	;;; Effective methods.
66
67	;;;--------------------------------------------------------------------------
68	;;; Vtable layout.
69
70	;;; vtmsgs
71
72	;;; base-offset
73
74	;;; chain-offset
75
76	;;; vtable
77
78	;;; Implementation.
79
80	;;;----- That's all, folks --------------------------------------------------