connect.c

Go to the documentation of this file.

/*
 * 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
 */



/* 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;
}