transmit.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
 */
 
/**
 * @file transmit.c
 * @brief Implements the OP_PCSC_TRANSMIT opcode (conditional build).
 *
 * Transmits an APDU to the connected smart card associated with a given
 * handle. Returns a map with the response bytes and status words. When PCSC
 * support is disabled at build time, consumes its arguments and returns a map
 * with code = -2.
 * 
 * OP_PCSC_TRANSMIT: (handle_id:int, apdu:array<int>) -> map
 *
 * - Pops: apdu array, then handle_id.
 * - Pushes: map { data: array<int>, sw1:int, sw2:int, code:int }.
 *   - On success (code == SCARD_S_SUCCESS), data contains response bytes (no
 *     status words) and sw1/sw2 are the trailing status bytes.
 *   - On error, data is [], sw1/sw2 remain -1, and code is the PCSC error.
 * - Notes: Negotiates protocol from the connected handle (T0/T1) and uses
 *   SCardTransmit. APDU bytes are taken modulo 256 from array ints.
 */
 
/* PCSC transmit */
case OP_PCSC_TRANSMIT: {
#ifdef FUN_WITH_PCSC
  /* pops apdu array, handle_id */
  Value vapdu = pop_value(vm);
  Value vh = pop_value(vm);
  int hid = (int)vh.i;
  free_value(vh);
  pcsc_card_entry *ce = pcsc_get_card(hid);
 
  Value m = make_map_empty();
  map_set(&m, "data", make_array_from_values(NULL, 0));
  map_set(&m, "sw1", make_int(-1));
  map_set(&m, "sw2", make_int(-1));
  map_set(&m, "code", make_int(-1));
 
  if (!ce || vapdu.type != VAL_ARRAY) {
    free_value(vapdu);
    push_value(vm, m);
    break;
  }
  int n = array_length(&vapdu);
  if (n < 0) n = 0;
  unsigned char sbuf[4096];
  if (n > (int)sizeof(sbuf)) n = (int)sizeof(sbuf);
  for (int i = 0; i < n; ++i) {
    Value tmp;
    if (array_get_copy(&vapdu, i, &tmp)) {
      int64_t v = tmp.type == VAL_INT ? tmp.i : 0;
      sbuf[i] = (unsigned char)(v & 0xFF);
      free_value(tmp);
    } else {
      sbuf[i] = 0;
    }
  }
  free_value(vapdu);
 
  SCARD_IO_REQUEST pio;
  if (ce->proto == SCARD_PROTOCOL_T0)
    pio = *SCARD_PCI_T0;
  else if (ce->proto == SCARD_PROTOCOL_T1)
    pio = *SCARD_PCI_T1;
  else {
    pio = *SCARD_PCI_T1;
  }
 
  unsigned char rbuf[4096];
  DWORD rlen = sizeof(rbuf);
  LONG rv = SCardTransmit(ce->h, &pio, sbuf, (DWORD)n, NULL, rbuf, &rlen);
 
  int sw1 = -1, sw2 = -1;
  int datalen = 0;
  if (rv == SCARD_S_SUCCESS && rlen >= 2) {
    sw1 = rbuf[rlen - 2];
    sw2 = rbuf[rlen - 1];
    datalen = (int)rlen - 2;
  }
 
  map_set(&m, "sw1", make_int(sw1));
  map_set(&m, "sw2", make_int(sw2));
  map_set(&m, "code", make_int((int)rv));
 
  if (datalen > 0) {
    Value *vals = (Value *)malloc(sizeof(Value) * (size_t)datalen);
    if (!vals) {
      map_set(&m, "data", make_array_from_values(NULL, 0));
    } else {
      for (int i = 0; i < datalen; ++i)
        vals[i] = make_int((int64_t)rbuf[i]);
      Value arr = make_array_from_values(vals, datalen);
      for (int i = 0; i < datalen; ++i)
        free_value(vals[i]);
      free(vals);
      map_set(&m, "data", arr);
    }
  }
 
  push_value(vm, m);
#else
  Value vapdu = pop_value(vm);
  free_value(vapdu);
  Value vh = pop_value(vm);
  free_value(vh);
  Value m = make_map_empty();
  map_set(&m, "data", make_array_from_values(NULL, 0));
  map_set(&m, "sw1", make_int(-1));
  map_set(&m, "sw2", make_int(-1));
  map_set(&m, "code", make_int(-2));
  push_value(vm, m);
#endif
  break;
}