fun/src/vm/pcsc/connect.c

/**
 * This file is part of the Fun programming language.
 * https://fun-lang.xyz/
 *
 * Copyright 2025 Johannes Findeisen <you@hanez.org>
 * Licensed under the terms of the Apache-2.0 license.
 * https://opensource.org/license/apache-2-0
 *
 * Added: 2025-10-02
 */

/* PCSC connect */
case OP_PCSC_CONNECT: {
#ifdef FUN_WITH_PCSC
  /* Stack: [..., ctx_id, reader_name] -> pops reader_name first, then ctx_id */
  Value vreader = pop_value(vm);
  Value vctx = pop_value(vm);

  int ctx_id = (int)vctx.i;
  free_value(vctx);
  char *rname = value_to_string_alloc(&vreader);
  free_value(vreader);

  pcsc_ctx_entry *e = pcsc_get_ctx(ctx_id);
  if (!e || !rname) {
    if (rname) free(rname);
    push_value(vm, make_int(0));
    break;
  }

  int hslot = pcsc_alloc_card_slot();
  if (!hslot) {
    free(rname);
    push_value(vm, make_int(0));
    break;
  }
  pcsc_card_entry *ce = pcsc_get_card(hslot);
  DWORD dwActive = 0;
  LONG rv = SCardConnect(e->ctx, rname, SCARD_SHARE_SHARED,
                         SCARD_PROTOCOL_T0 | SCARD_PROTOCOL_T1,
                         &ce->h, &dwActive);
  free(rname);
  if (rv != SCARD_S_SUCCESS) {
    ce->in_use = 0;
    push_value(vm, make_int(0));
    break;
  }
  ce->proto = dwActive;
  push_value(vm, make_int(hslot));
#else
  Value vreader = pop_value(vm);
  free_value(vreader);
  Value vctx = pop_value(vm);
  free_value(vctx);
  push_value(vm, make_int(0));
#endif
  break;
}