Extend the export feature in the CFFI module to support exporting to a particular package.
This commit is contained in:
parent
95a08b3950
commit
c1fad12bdb
2 changed files with 9 additions and 2 deletions
|
|
@ -4,3 +4,7 @@ See the RELEASENOTES file for a summary of changes in each release.
|
||||||
|
|
||||||
Version 3.0.8 (in progress)
|
Version 3.0.8 (in progress)
|
||||||
===========================
|
===========================
|
||||||
|
|
||||||
|
2015-08-05: lyze
|
||||||
|
[CFFI] Extend the "export" feature in the CFFI module to support
|
||||||
|
exporting to a specified package.
|
||||||
|
|
|
||||||
|
|
@ -860,8 +860,11 @@ void CFFI::emit_struct_union(Node *n, bool un = false) {
|
||||||
}
|
}
|
||||||
|
|
||||||
void CFFI::emit_export(Node *n, String *name) {
|
void CFFI::emit_export(Node *n, String *name) {
|
||||||
if (GetInt(n, "feature:export"))
|
if (GetInt(n, "feature:export")) {
|
||||||
Printf(f_cl, "\n(cl:export '%s)\n", name);
|
String* package = Getattr(n, "feature:export:package");
|
||||||
|
Printf(f_cl, "\n(cl:export '%s%s%s)\n", name, package ? " " : "",
|
||||||
|
package ? package : "");
|
||||||
|
}
|
||||||
}
|
}
|
||||||
|
|
||||||
void CFFI::emit_inline(Node *n, String *name) {
|
void CFFI::emit_inline(Node *n, String *name) {
|
||||||
|
|
|
||||||
Loading…
Add table
Add a link
Reference in a new issue