repos
/
smoke
/ annotate_shade
summary
|
shortlog
|
log
|
tree
|
commit
|
commitdiff
|
headdiff
|
annotate
|
filehistory
normal
|
plain
|
shade
|
zebra
Update to the new Smoke ABI (v.3)
Annotate for file src/smoke-c/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 :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 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 (: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 :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 :pointer
2009-04-05 tobias
40
(smoke :pointer)
15:36:29 '
41
(object :pointer)
'
42
(from smoke-index)
'
43
(to smoke-index))