Early work-in-progress.

[sod] / 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)

;;;--------------------------------------------------------------------------
;;; Layout objects.

(defclass effective-slot ()
  ((slot :initarg :slot :type sod-slot :reader slot-direct-slot)
   (initializer :initarg :initializer
		:type (or sod-initializer null)
		:reader slot-initializer)))

(defclass islots ()
  ((class :initarg :class :type sod-class :reader islots-class)
   (slots :initarg :slots :type list :reader islots-slots)))

(defclass ichain ()
  ((class :initarg :class :type sod-class :reader ichain-class)
   (chain :initarg :chain :type sod-class :reader ichain-chain)
   (body :initarg :body :type list :reader ichain-body)))

(defclass ilayout ()
  ((class :initarg :class :type sod-class :reader ilayout-class)
   (ichains :initarg :ichains :type list :reader ilayout-ichains)))

(defclass effective-method ()
  ((message :initarg :message :type sod-message :reader method-message)
   (class :initarg :class :type sod-class :reader method-class)))

(defclass method-entry ()
  ((method :initarg :method
	   :type effective-method
	   :reader method-entry-effective-method)
   (ichain :initarg :chain :type ichain :reader method-entry-ichain)))

(defclass vtmsgs ()
  ((class :initargs :class :type sod-class :reader vtmsgs-class)
   (body :initargs :body :type list :reader vtmsgs-body)))

(defclass class-pointer ()
  ((metaclass :initarg :metaclass
	      :type sod-class
	      :reader class-pointer-metaclass)
   (ichain :initarg :chain :type ichain :reader class-pointer-ichain)))

(defclass base-offset ()
  ((class :initargs :class :type sod-class :reader base-offset-class)
   (ichain :initargs :chain :type ichain :reader base-offset-ichain)))

(defclass chain-offset ()
  ((class :initargs :class :type sod-class :reader chain-offset-class)
   (ichain :initargs :ichain :type ichain :reader chain-offset-ichain)
   (target :initargs :chain :type ichain :reader chain-offset-target)))

(defclass vtable ()
  ((class :initargs :class :type sod-class :reader vtable-class)
   (ichain :initargs :ichain :type ichain :reader vtable-ichain)
   (body :initargs :body :type list :reader vtable-body)))

;;;----- That's all, folks --------------------------------------------------