2   * SPDX-License-Identifier: GPL-2.0-or-later
4   * SCLP event type 11 - Control-Program Identification (CPI):
6   *    Service-Call Logical Processor (SCLP). It is not sent by the SCLP.
8   *    Control-program identifiers provide data about the guest operating
9   *    system.  The control-program identifiers are: system type, system name,
12   *    In Linux, all the control-program identifiers are user configurable. The
14   *    this set: capital A-Z, 0-9, $, @, #, and blank.  In Linux, the system
15   *    type, system name and sysplex name are arbitrary free-form texts.
17   *    In Linux, the 8-byte hexadecimal system-level has the format
19   *    <a>: is a 4-bit digit, its most significant bit indicates hypervisor use
29   *    <cc>: are two digits for a distribution-specific encoding of the major
31   *    <dd>: are two digits for a distribution-specific encoding of the minor
37   *    (e.g. 74872343805430528, when converted to hex is 0x010a000000060b00). On
41   *    co-operates with each other.
54 #include "hw/s390x/event-facility.h"
56 #include "qapi/qapi-visit-machine.h"
87 /* Enable SCLP to accept buffers of event type CPI from the control-program. */
97     SCLPEventCPI *e = SCLP_EVENT_CPI(event);  in write_event_data()  local
99     ascii_put(e->system_type, (char *)cpim->data.system_type,  in write_event_data()
100               sizeof(cpim->data.system_type));  in write_event_data()
101     ascii_put(e->system_name, (char *)cpim->data.system_name,  in write_event_data()
102               sizeof(cpim->data.system_name));  in write_event_data()
103     ascii_put(e->sysplex_name, (char *)cpim->data.sysplex_name,  in write_event_data()
104               sizeof(cpim->data.sysplex_name));  in write_event_data()
105     e->system_level = ldq_be_p(&cpim->data.system_level);  in write_event_data()
106     e->timestamp = qemu_clock_get_ns(QEMU_CLOCK_HOST);  in write_event_data()
108     cpim->ebh.flags = SCLP_EVENT_BUFFER_ACCEPTED;  in write_event_data()
114     SCLPEventCPI *e = SCLP_EVENT_CPI(obj);  in get_system_type()  local
116     return g_strndup((char *) e->system_type, sizeof(e->system_type));  in get_system_type()
121     SCLPEventCPI *e = SCLP_EVENT_CPI(obj);  in get_system_name()  local
123     return g_strndup((char *) e->system_name, sizeof(e->system_name));  in get_system_name()
128     SCLPEventCPI *e = SCLP_EVENT_CPI(obj);  in get_sysplex_name()  local
130     return g_strndup((char *) e->sysplex_name, sizeof(e->sysplex_name));  in get_sysplex_name()
136     SCLPEventCPI *e = SCLP_EVENT_CPI(obj);  in get_system_level()  local
138     visit_type_uint64(v, name, &e->system_level, errp);  in get_system_level()
144     SCLPEventCPI *e = SCLP_EVENT_CPI(obj);  in get_timestamp()  local
146     visit_type_uint64(v, name, &e->timestamp, errp);  in get_timestamp()
167     dc->user_creatable = false;  in cpi_class_init()
168     dc->vmsd =  &vmstate_sclpcpi;  in cpi_class_init()
170     k->can_handle_event = can_handle_event;  in cpi_class_init()
171     k->get_send_mask = send_mask;  in cpi_class_init()
172     k->get_receive_mask = receive_mask;  in cpi_class_init()
173     k->write_event_data = write_event_data;  in cpi_class_init()
177             "operating system e.g. \"LINUX   \"");  in cpi_class_init()
181             "user configurable name of the VM e.g. \"TESTVM  \"");  in cpi_class_init()
187             " e.g. \"PLEX    \"");  in cpi_class_init()
192             "distribution and kernel version in Linux e.g. 74872343805430528");  in cpi_class_init()