import "cffc.hff";
import "common.hff";

static const targs []const Targ = {
   {
      "amd64-sysv",
      .ptrsize: 8,
      .intsize: 4,
      .i64align: 8,
      .longsize: 8, .longalign: 8,
      .llongsize: 8, .llongalign: 8,
      .sizesize: 8,
      .f64align: 8,
      .valistsize: 24, .valistalign: 8,
      .valistllvmty: "{ i32, i32, ptr, ptr }",
      .charsigned: #t,
      .shortenum: #f,
   },
   {
      "amd64-windows",
      .ptrsize: 8,
      .intsize: 4,
      .i64align: 8,
      .longsize: 4, .longalign: 4,
      .llongsize: 8, .llongalign: 8,
      .sizesize: 8,
      .f64align: 8,
      .valistsize: 8, .valistalign: 8,
      .valistllvmty: "ptr",
      .charsigned: #t,
      .shortenum: #f,
   },
   {
      "aarch64-sysv",
      .ptrsize: 8,
      .intsize: 4,
      .i64align: 8,
      .longsize: 8, .longalign: 8,
      .llongsize: 8, .llongalign: 8,
      .sizesize: 8,
      .f64align: 8,
      .valistsize: 32, .valistalign: 8,
      .valistllvmty: "{ ptr, ptr, ptr, i32, i32 }",
      .charsigned: #f,
      .shortenum: #f,
   },
   {
      "i386-sysv",
      .ptrsize: 4,
      .intsize: 4,
      .i64align: 4,
      .longsize: 4, .longalign: 4,
      .llongsize: 8, .llongalign: 4,
      .sizesize: 4,
      .f64align: 4,
      .valistsize: 4, .valistalign: 4,
      .valistllvmty: "ptr",
      .charsigned: #t,
      .shortenum: #f,
   },
};

extern static g_targ Targ = {};

extern fn targ_ini(name *const u8) bool {
   foreach(targ, i, targs[0::]) {
      if streq(name, targ.name) {
         g_targ = targs[i];
         return #t;
      }
   }
   return #f;
}

extern fn triple2targ(triple *const u8) *const u8 {
   let arch = (do
      let delim = strstr(triple, "-");
      delim ? triple[0::delim - triple] : spanz(triple);
   );
   let rest = arch.#ptr + arch.#len;
   defmacro archp(s) [ (arch.#len == (s.#len-1) and memcmp(arch.#ptr, s, arch.#len) == 0) ]
   defmacro restp(s) [ (strstr(rest, s) != #null) ]
   switch {
   case archp("x86_64") and !restp("windows"); return "amd64-sysv";
   case archp("x86_64") and restp("windows"); return "amd64-windows";
   case archp("aarch64") and !restp("windows"); return "aarch64-sysv";
   case archp("i386") and !restp("windows"); return "i386-sysv";
   }
   return #null;
}