Skip to content

Commit b9b42cf

Browse files
committed
cleanup gtype macro implemenations (remove line numbers)
1 parent c1a56da commit b9b42cf

File tree

1 file changed

+14
-19
lines changed

1 file changed

+14
-19
lines changed

src/GLib/gtype.jl

+14-19
Original file line numberDiff line numberDiff line change
@@ -105,28 +105,25 @@ function get_iface_decl(name::Symbol, iname::Symbol, gtyp::GType)
105105
pname = g_type_name(parent)
106106
piname = symbol(string(pname,'I'))
107107
piface_decl = get_iface_decl(pname, piname, parent)
108-
quote
108+
:(
109109
if $(Meta.quot(name)) in keys(gtype_ifaces)
110110
const $(esc(iname)) = gtype_ifaces[$(Meta.quot(name))]
111111
else
112112
$piface_decl
113113
abstract $(esc(iname)) <: $(esc(piname))
114114
gtype_ifaces[$(Meta.quot(name))] = $(esc(iname))
115115
end
116-
end
116+
)
117117
end
118118

119119
get_gtype_decl(name::Symbol, lib, symname::Expr) =
120-
quote
121-
GLib.g_type(::Type{$(esc(name))}) = $(esc(symname))
122-
end
120+
:( GLib.g_type(::Type{$(esc(name))}) = $(esc(symname)) )
123121
get_gtype_decl(name::Symbol, lib, symname::Symbol) =
124-
quote
125-
GLib.g_type(::Type{$(esc(name))}) = ccall(($(Meta.quot(symbol(string(symname,"_get_type")))), $(esc(lib))), GType, ())
126-
end
122+
:( GLib.g_type(::Type{$(esc(name))}) =
123+
ccall(($(Meta.quot(symbol(string(symname,"_get_type")))), $(esc(lib))), GType, ()) )
127124

128-
function get_type_decl(name,iname,gtyp,gtype_decl)
129-
quote
125+
function get_type_decl(name,iname,gtyp)
126+
:(
130127
if $(Meta.quot(name)) in keys(gtype_wrappers)
131128
const $(esc(iname)) = gtype_ifaces[$(Meta.quot(name))]
132129
const $(esc(name)) = gtype_wrappers[$(Meta.quot(name))]
@@ -138,8 +135,7 @@ function get_type_decl(name,iname,gtyp,gtype_decl)
138135
end
139136
gtype_wrappers[$(Meta.quot(name))] = $(esc(name))
140137
end
141-
$(gtype_decl)
142-
end
138+
)
143139
end
144140

145141
macro Gtype(name,lib,symname)
@@ -149,20 +145,19 @@ macro Gtype(name,lib,symname)
149145
error("not implemented yet")
150146
end
151147
iname = symbol(string(name,'I'))
152-
gtype_decl = get_gtype_decl(name, lib, symname)
153-
get_type_decl(name,iname,gtyp,gtype_decl)
148+
Expr(:block,
149+
get_type_decl(name, iname, gtyp),
150+
get_gtype_decl(name, lib, symname))
154151
end
155152

156153
macro Gabstract(iname,lib,symname)
157154
@assert endswith(string(iname),"I")
158155
name = symbol(string(iname)[1:end-1])
159156
gtyp = g_type(name, lib, symname)
160157
@assert name === g_type_name(gtyp)
161-
iface_decl = get_iface_decl(name, iname, gtyp)
162-
quote
163-
$iface_decl
164-
$(get_gtype_decl(iname, lib, symname))
165-
end
158+
Expr(:block,
159+
get_iface_decl(name, iname, gtyp),
160+
get_gtype_decl(iname, lib, symname))
166161
end
167162

168163
macro quark_str(q)

0 commit comments

Comments
 (0)