Support modular smoke & cleanup.
Annotate for file src/libsmoke/method.lisp
2009-04-05 tobias 1 (in-package #:smoke)
15:36:29 ' 2
' 3 (defcenum smoke-method-flags
' 4 "Method flags"
' 5 (:static #x01)
' 6 (:const #x02)
' 7 (:copy-constructor #x04)
' 8 (:internal #x08)
' 9 (:enum #x10)
' 10 (:constructor #x20)
' 11 (:destructor #x40)
2009-12-13 tobias 12 (:protected #x80)
10:17:08 ' 13 (:attribute #x100)
' 14 (:property #x200)
' 15 (:virtual #x400)
' 16 (:purevirtual #x800)
' 17 (:signal #x1000)
' 18 (:slot #x2000))
2009-04-05 tobias 19
15:36:29 ' 20 (defcstruct smoke-method
' 21 "Describe a method"
' 22 (class smoke-index)
' 23 (name smoke-index)
' 24 (arguments smoke-index)
' 25 (num-args :unsigned-char)
2009-12-13 tobias 26 (flags :unsigned-short)
2009-04-05 tobias 27 (return-type smoke-index)
15:36:29 ' 28 (method smoke-index))
' 29
2009-04-17 tobias 30 (defcstruct smoke-method-map
15:26:55 ' 31 "Maps a munged method."
' 32 (class-id smoke-index)
' 33 (name smoke-index)
' 34 (method smoke-index))
' 35
2009-06-22 tobias 36 (declaim (inline smoke-find-method))
2010-01-10 tobias 37 (defcfun (smoke-find-method "cl_smoke_find_method") :void
2009-04-05 tobias 38 (m :pointer smoke-module-index)
15:36:29 ' 39 (smoke :pointer)
' 40 (class smoke-index)
' 41 (method :string))