repos
/
smoke
/ annotate_shade
summary
|
shortlog
|
log
|
tree
|
commit
|
commitdiff
|
headdiff
|
annotate
|
headblob
|
headfilediff
|
filehistory
normal
|
plain
|
shade
|
zebra
Fix class-map image loading and use the new static smoke methods.
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)
15:36:29 '
22
(name :string))
'
23
2010-01-10 tobias
24
(defcfun (smoke-class-id "cl_smoke_class_id") smoke-index
2009-04-05 tobias
25
(smoke :pointer)
15:36:29 '
26
(name :string))
'
27
2010-01-10 tobias
28
(defcfun (smoke-get-class "cl_smoke_get_class") (:pointer smoke-class)
2009-04-05 tobias
29
(smoke :pointer)
15:36:29 '
30
(class smoke-index))
'
31
2010-01-10 tobias
32
(defcfun (smoke-is-derived-from "cl_smoke_is_derived_from") :boolean
2009-04-05 tobias
33
(smoke :pointer)
15:36:29 '
34
(class smoke-index)
'
35
(smoke-base :pointer)
'
36
(base-class smoke-index))
'
37
2010-01-10 tobias
38
(defcfun (smoke-cast "cl_smoke_cast") :pointer
2009-04-05 tobias
39
(smoke :pointer)
15:36:29 '
40
(object :pointer)
'
41
(from smoke-index)
'
42
(to smoke-index))