1 # This file is part of NIT ( http://www.nitlanguage.org ).
3 # Copyright 2012-2014 Alexis Laferrière <alexis.laf@xymus.net>
5 # Licensed under the Apache License, Version 2.0 (the "License");
6 # you may not use this file except in compliance with the License.
7 # You may obtain a copy of the License at
9 # http://www.apache.org/licenses/LICENSE-2.0
11 # Unless required by applicable law or agreed to in writing, software
12 # distributed under the License is distributed on an "AS IS" BASIS,
13 # WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
14 # See the License for the specific language governing permissions and
15 # limitations under the License.
17 # Support for nesting C code within a Nit program using its FFI
20 import modelize
::modelize_property
24 redef class FFILanguageAssignationPhase
25 var c_language
: FFILanguage = new CLanguage(self)
31 redef fun identify_language
(n
) do return n
.is_c
33 redef fun compile_module_block
(block
, ecc
, mmodule
)
35 if block
.is_c_header
then
36 ecc
.header_custom
.add block
.location
.as_line_pragma
37 ecc
.header_custom
.add
"\n"
38 ecc
.header_custom
.add block
.code
39 else if block
.is_c_body
then
40 ecc
.body_impl
.add block
.location
.as_line_pragma
41 ecc
.body_impl
.add
"\n"
42 ecc
.body_impl
.add block
.code
46 redef fun compile_extern_method
(block
, m
, ecc
, mmodule
)
48 var fc
= new ExternCFunction(m
, mmodule
)
49 fc
.decls
.add
( block
.location
.as_line_pragma
)
50 fc
.exprs
.add
( block
.code
)
51 ecc
.body_impl
.add fc
.to_writer
54 redef fun compile_extern_class
(block
, m
, ecc
, mmodule
) do end
56 redef fun get_ftype
(block
, m
) do return new ForeignCType(block
.code
)
59 redef class AExternCodeBlock
60 fun is_c
: Bool do return language_name
== null or
61 language_name_lowered
== "c" or language_name_lowered
.has_prefix
( "c " )
63 fun is_c_body
: Bool do return language_name
== null or
64 language_name_lowered
== "c" or language_name_lowered
== "c body"
66 fun is_c_header
: Bool do return language_name_lowered
== "c header"
70 fun as_line_pragma
: String do return "#line {line_start-1} \"{file.filename}\
"\n"
74 # FIXME make nullable the key of `cflags`, `ldflags` and `cppflags` when
75 # supported by the bootstrap
77 # Custom options for the C compiler (CFLAGS)
78 var cflags
= new MultiHashMap[String, String]
80 # Custom options for the C linker (LDFLAGS)
81 var ldflags
= new MultiHashMap[String, String]
83 # Additional libraries needed for the compilation
84 # Will be used with pkg-config
85 var pkgconfigs
= new Array[String]
91 redef var ctype
: String
95 # Context when calling user C code from generated code
96 fun to_c_call_context
: ToCCallContext do return once
new ToCCallContext
98 # Context when calling generated code from user C code
99 fun from_c_call_context
: FromCCallContext do return once
new FromCCallContext
102 # Context when calling user C code from generated code
106 # TODO: private init because singleton instance (see `to_c_call_context`)
108 redef fun name_mtype
(mtype
)
110 if mtype
isa MClassType and mtype
.mclass
.kind
== extern_kind
then return "void *"
115 # Context when calling generated code from user C code
116 class FromCCallContext
119 # TODO: private init because singleton instance (see `from_c_call_context`)
121 redef fun name_mtype
(mtype
) do return mtype
.cname
124 class ExternCFunction
127 var method
: AMethPropdef
129 init (method
: AMethPropdef, mmodule
: MModule)
133 var recv_mtype
= method
.mpropdef
.mclassdef
.bound_mtype
134 var csignature
= method
.mpropdef
.mproperty
.build_csignature
(recv_mtype
, mmodule
, "___impl", long_signature
, from_c_call_context
)