72 lines
2 KiB
C
72 lines
2 KiB
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
|
|
*/
|
|
|
|
/**
|
|
* @file connect.c
|
|
* @brief Implements the OP_PCSC_CONNECT opcode (conditional build).
|
|
*
|
|
* Connects to a smart card in the specified reader using an existing PC/SC
|
|
* context. On success, allocates/returns a card handle id from the internal
|
|
* registry. When PCSC support is disabled at build time, this opcode returns 0.
|
|
*
|
|
* OP_PCSC_CONNECT: (ctx_id:int, reader_name:any) -> int
|
|
*
|
|
* - Pops: reader_name (converted to string), then ctx_id.
|
|
* - Pushes: card handle id (>0) on success; 0 on error/invalid inputs or when
|
|
* FUN_WITH_PCSC is disabled.
|
|
* - Notes: Uses SCARD_SHARE_SHARED and negotiates T0/T1 protocols.
|
|
*/
|
|
|
|
/* 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;
|
|
}
|