repos
/
smoke
/ annotate_shade
summary
|
shortlog
|
log
|
tree
|
commit
|
commitdiff
|
headdiff
|
annotate
|
headblob
|
headfilediff
|
filehistory
normal
|
plain
|
shade
|
zebra
Support modular smoke & cleanup.
Annotate for file src/libsmoke/class.lisp
2009-04-05 tobias
1
(in-package #:smoke)
15:36:29 '
2
'
3
(defcenum smoke-class-flags
'
4
"Class properties"
'
5
(:constructor #x01)
'
6
(:copy-constructor #x02)
'
7
(:virtual-destructor #x04)
'
8
(:undefined #x10))
'
9
'
10
(defcstruct smoke-class
'
11
"Describe a class"
'
12
(name :string)
'
13
(external cxx-bool)
'
14
(parents smoke-index)
'
15
(class-function :pointer)
'
16
(enum-function :pointer)
2009-12-13 tobias
17
(flags :unsigned-short)
10:17:08 '
18
(size :unsigned-int))
2009-04-05 tobias
19
2010-01-10 tobias
20
(defcfun (smoke-find-class "cl_smoke_find_class") :void
2009-04-05 tobias
21
(m :pointer smoke-module-index)
2010-01-17 tobias
22
(smoke :pointer)
2009-04-05 tobias
23
(name :string))
15:36:29 '
24
2010-01-10 tobias
25
(defcfun (smoke-class-id "cl_smoke_class_id") smoke-index
2009-04-05 tobias
26
(smoke :pointer)
15:36:29 '
27
(name :string))
'
28
2010-01-10 tobias
29
(defcfun (smoke-get-class "cl_smoke_get_class") (:pointer smoke-class)
2009-04-05 tobias
30
(smoke :pointer)
15:36:29 '
31
(class smoke-index))
'
32
2010-01-10 tobias
33
(defcfun (smoke-is-derived-from "cl_smoke_is_derived_from") :boolean
2009-04-05 tobias
34
(smoke :pointer)
15:36:29 '
35
(class smoke-index)
'
36
(smoke-base :pointer)
'
37
(base-class smoke-index))
'
38
2010-01-10 tobias
39
(defcfun (smoke-cast "cl_smoke_cast") :pointer
2009-04-05 tobias
40
(smoke :pointer)
15:36:29 '
41
(object :pointer)
'
42
(from smoke-index)
'
43
(to smoke-index))