qemu/hw/s390x/sclpcpi.c

 /*
  * SPDX-License-Identifier: GPL-2.0-or-later
  *
  * SCLP event type 11 - Control-Program Identification (CPI):
  *    CPI is used to send program identifiers from the guest to the
  *    Service-Call Logical Processor (SCLP). It is not sent by the SCLP.
  *
  *    Control-program identifiers provide data about the guest operating
  *    system.  The control-program identifiers are: system type, system name,
  *    system level and sysplex name.
  *
  *    In Linux, all the control-program identifiers are user configurable. The
  *    system type, system name, and sysplex name use EBCDIC characters from
  *    this set: capital A-Z, 0-9, $, @, #, and blank.  In Linux, the system
  *    type, system name and sysplex name are arbitrary free-form texts.
  *
  *    In Linux, the 8-byte hexadecimal system-level has the format
  *    0x<a><b><cc><dd><eeee><ff><gg><hh>, where:
  *    <a>: is a 4-bit digit, its most significant bit indicates hypervisor use
  *    <b>: is one digit that represents Linux distributions as follows
  *    0: generic Linux
  *    1: Red Hat Enterprise Linux
  *    2: SUSE Linux Enterprise Server
  *    3: Canonical Ubuntu
  *    4: Fedora
  *    5: openSUSE Leap
  *    6: Debian GNU/Linux
  *    7: Red Hat Enterprise Linux CoreOS
  *    <cc>: are two digits for a distribution-specific encoding of the major
  *    version of the distribution
  *    <dd>: are two digits for a distribution-specific encoding of the minor
  *    version of the distribution
  *    <eeee>: are four digits for the patch level of the distribution
  *    <ff>: are two digits for the major version of the kernel
  *    <gg>: are two digits for the minor version of the kernel
  *    <hh>: are two digits for the stable version of the kernel
  *    (e.g. 74872343805430528, when converted to hex is 0x010a000000060b00). On
  *    machines prior to z16, some of the values are not available to display.
  *
  *    Sysplex refers to a cluster of logical partitions that communicates and
  *    co-operates with each other.
  *
  *    The CPI feature is supported since 10.1.
  *
  * Copyright IBM, Corp. 2024
  *
  * Authors:
  *  Shalini Chellathurai Saroja <shalini@linux.ibm.com>
  *
  */

#include "qemu/osdep.h"
#include "hw/s390x/event-facility.h"

typedef struct Data {
    uint8_t id_format;
    uint8_t reserved0;
    uint8_t system_type[8];
    uint64_t reserved1;
    uint8_t system_name[8];
    uint64_t reserved2;
    uint64_t system_level;
    uint64_t reserved3;
    uint8_t sysplex_name[8];
    uint8_t reserved4[16];
} QEMU_PACKED Data;

typedef struct ControlProgramIdMsg {
    EventBufferHeader ebh;
    Data data;
} QEMU_PACKED ControlProgramIdMsg;

static bool can_handle_event(uint8_t type)
{
    return type == SCLP_EVENT_CTRL_PGM_ID;
}

static sccb_mask_t send_mask(void)
{
    return 0;
}

/* Enable SCLP to accept buffers of event type CPI from the control-program. */
static sccb_mask_t receive_mask(void)
{
    return SCLP_EVENT_MASK_CTRL_PGM_ID;
}

static int write_event_data(SCLPEvent *event, EventBufferHeader *evt_buf_hdr)
{
    ControlProgramIdMsg *cpim = container_of(evt_buf_hdr, ControlProgramIdMsg,
                                             ebh);

    cpim->ebh.flags = SCLP_EVENT_BUFFER_ACCEPTED;
    return SCLP_RC_NORMAL_COMPLETION;
}

static void cpi_class_init(ObjectClass *klass, const void *data)
{
    DeviceClass *dc = DEVICE_CLASS(klass);
    SCLPEventClass *k = SCLP_EVENT_CLASS(klass);

    dc->user_creatable = false;

    k->can_handle_event = can_handle_event;
    k->get_send_mask = send_mask;
    k->get_receive_mask = receive_mask;
    k->write_event_data = write_event_data;
}

static const TypeInfo sclp_cpi_info = {
    .name          = TYPE_SCLP_EVENT_CPI,
    .parent        = TYPE_SCLP_EVENT,
    .instance_size = sizeof(SCLPEventCPI),
    .class_init    = cpi_class_init,
};

static void sclp_cpi_register_types(void)
{
    type_register_static(&sclp_cpi_info);
}

type_init(sclp_cpi_register_types)