// `#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 #foreign;
sx_ffi_avg_doubles  :: (n: i32, ..args: []f64) -> f64 #foreign;
sx_ffi_count_args   :: (tag: *u8, ..args: []*u8) -> i32 #foreign;

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
}