2cce6a3a26
Migrate the DECLS of the 7 identity-#foreign feature tests to extern/export
(1205-global/-helper, 1207, 1218-cvariadic, 1219, 1306, 1318): fn/global markers →
extern, the 2 objc import classes (1306/1318) → postfix '#objc_class("X") extern {'.
Behavior-preserving (A→B gate + existing extern twins guarantee identical output);
empty snapshot diff, corpus-validated. Comment-only #foreign in these files is left
for the Phase 9.3 doc/comment purge (comments aren't parsed → not cutover-critical).
Suite green (647 corpus / 444 unit, 0 failed).
29 lines
1.0 KiB
Plaintext
29 lines
1.0 KiB
Plaintext
// `#foreign` C-variadic tail: trailing `..args: []T` on a foreign fn maps
|
|
// to the C calling convention's `...`. Extras at the call site are
|
|
// passed via the variadic slot with the standard default argument
|
|
// promotion (i8/i16/bool → i32, f32 → f64) applied implicitly.
|
|
|
|
#import "modules/std.sx";
|
|
|
|
#import c {
|
|
#source "1218-ffi-foreign-cvariadic.c";
|
|
};
|
|
|
|
sx_ffi_sum_ints :: (n: i32, ..args: []i32) -> i64 extern;
|
|
sx_ffi_avg_doubles :: (n: i32, ..args: []f64) -> f64 extern;
|
|
sx_ffi_count_args :: (tag: *u8, ..args: []*u8) -> i32 extern;
|
|
|
|
main :: () -> i32 {
|
|
print("sum_ints(3, 10, 20, 30) = {}\n", sx_ffi_sum_ints(3, 10, 20, 30));
|
|
print("sum_ints(0) = {}\n", sx_ffi_sum_ints(0));
|
|
print("avg_doubles(2) = {}\n", sx_ffi_avg_doubles(2, 1.5, 2.5));
|
|
print("avg_doubles(3) = {}\n", sx_ffi_avg_doubles(3, 1.0, 2.0, 3.0));
|
|
|
|
a := "alpha".ptr;
|
|
b := "beta".ptr;
|
|
g := "gamma".ptr;
|
|
sentinel : *u8 = null;
|
|
print("count_args(3 strs) = {}\n", sx_ffi_count_args("tag".ptr, a, b, g, sentinel));
|
|
0
|
|
}
|