1 /*
2  *    Hypervisor filesystem for Linux on s390. z/VM implementation.
3  *
4  *    Copyright (C) IBM Corp. 2006
5  *    Author(s): Michael Holzheu <holzheu@de.ibm.com>
6  */
7 
8 #include <linux/types.h>
9 #include <linux/errno.h>
10 #include <linux/string.h>
11 #include <linux/vmalloc.h>
12 #include <asm/ebcdic.h>
13 #include <asm/timex.h>
14 #include "hypfs.h"
15 
16 #define NAME_LEN 8
17 #define DBFS_D2FC_HDR_VERSION 0
18 
19 static char local_guest[] = "        ";
20 static char all_guests[] = "*       ";
21 static char *guest_query;
22 
23 struct diag2fc_data {
24 	__u32 version;
25 	__u32 flags;
26 	__u64 used_cpu;
27 	__u64 el_time;
28 	__u64 mem_min_kb;
29 	__u64 mem_max_kb;
30 	__u64 mem_share_kb;
31 	__u64 mem_used_kb;
32 	__u32 pcpus;
33 	__u32 lcpus;
34 	__u32 vcpus;
35 	__u32 cpu_min;
36 	__u32 cpu_max;
37 	__u32 cpu_shares;
38 	__u32 cpu_use_samp;
39 	__u32 cpu_delay_samp;
40 	__u32 page_wait_samp;
41 	__u32 idle_samp;
42 	__u32 other_samp;
43 	__u32 total_samp;
44 	char  guest_name[NAME_LEN];
45 };
46 
47 struct diag2fc_parm_list {
48 	char userid[NAME_LEN];
49 	char aci_grp[NAME_LEN];
50 	__u64 addr;
51 	__u32 size;
52 	__u32 fmt;
53 };
54 
diag2fc(int size,char * query,void * addr)55 static int diag2fc(int size, char* query, void *addr)
56 {
57 	unsigned long residual_cnt;
58 	unsigned long rc;
59 	struct diag2fc_parm_list parm_list;
60 
61 	memcpy(parm_list.userid, query, NAME_LEN);
62 	ASCEBC(parm_list.userid, NAME_LEN);
63 	parm_list.addr = (unsigned long) addr ;
64 	parm_list.size = size;
65 	parm_list.fmt = 0x02;
66 	memset(parm_list.aci_grp, 0x40, NAME_LEN);
67 	rc = -1;
68 
69 	asm volatile(
70 		"	diag    %0,%1,0x2fc\n"
71 		"0:\n"
72 		EX_TABLE(0b,0b)
73 		: "=d" (residual_cnt), "+d" (rc) : "0" (&parm_list) : "memory");
74 
75 	if ((rc != 0 ) && (rc != -2))
76 		return rc;
77 	else
78 		return -residual_cnt;
79 }
80 
81 /*
82  * Allocate buffer for "query" and store diag 2fc at "offset"
83  */
diag2fc_store(char * query,unsigned int * count,int offset)84 static void *diag2fc_store(char *query, unsigned int *count, int offset)
85 {
86 	void *data;
87 	int size;
88 
89 	do {
90 		size = diag2fc(0, query, NULL);
91 		if (size < 0)
92 			return ERR_PTR(-EACCES);
93 		data = vmalloc(size + offset);
94 		if (!data)
95 			return ERR_PTR(-ENOMEM);
96 		if (diag2fc(size, query, data + offset) == 0)
97 			break;
98 		vfree(data);
99 	} while (1);
100 	*count = (size / sizeof(struct diag2fc_data));
101 
102 	return data;
103 }
104 
diag2fc_free(const void * data)105 static void diag2fc_free(const void *data)
106 {
107 	vfree(data);
108 }
109 
110 #define ATTRIBUTE(sb, dir, name, member) \
111 do { \
112 	void *rc; \
113 	rc = hypfs_create_u64(sb, dir, name, member); \
114 	if (IS_ERR(rc)) \
115 		return PTR_ERR(rc); \
116 } while(0)
117 
hpyfs_vm_create_guest(struct super_block * sb,struct dentry * systems_dir,struct diag2fc_data * data)118 static int hpyfs_vm_create_guest(struct super_block *sb,
119 				 struct dentry *systems_dir,
120 				 struct diag2fc_data *data)
121 {
122 	char guest_name[NAME_LEN + 1] = {};
123 	struct dentry *guest_dir, *cpus_dir, *samples_dir, *mem_dir;
124 	int dedicated_flag, capped_value;
125 
126 	capped_value = (data->flags & 0x00000006) >> 1;
127 	dedicated_flag = (data->flags & 0x00000008) >> 3;
128 
129 	/* guest dir */
130 	memcpy(guest_name, data->guest_name, NAME_LEN);
131 	EBCASC(guest_name, NAME_LEN);
132 	strim(guest_name);
133 	guest_dir = hypfs_mkdir(sb, systems_dir, guest_name);
134 	if (IS_ERR(guest_dir))
135 		return PTR_ERR(guest_dir);
136 	ATTRIBUTE(sb, guest_dir, "onlinetime_us", data->el_time);
137 
138 	/* logical cpu information */
139 	cpus_dir = hypfs_mkdir(sb, guest_dir, "cpus");
140 	if (IS_ERR(cpus_dir))
141 		return PTR_ERR(cpus_dir);
142 	ATTRIBUTE(sb, cpus_dir, "cputime_us", data->used_cpu);
143 	ATTRIBUTE(sb, cpus_dir, "capped", capped_value);
144 	ATTRIBUTE(sb, cpus_dir, "dedicated", dedicated_flag);
145 	ATTRIBUTE(sb, cpus_dir, "count", data->vcpus);
146 	ATTRIBUTE(sb, cpus_dir, "weight_min", data->cpu_min);
147 	ATTRIBUTE(sb, cpus_dir, "weight_max", data->cpu_max);
148 	ATTRIBUTE(sb, cpus_dir, "weight_cur", data->cpu_shares);
149 
150 	/* memory information */
151 	mem_dir = hypfs_mkdir(sb, guest_dir, "mem");
152 	if (IS_ERR(mem_dir))
153 		return PTR_ERR(mem_dir);
154 	ATTRIBUTE(sb, mem_dir, "min_KiB", data->mem_min_kb);
155 	ATTRIBUTE(sb, mem_dir, "max_KiB", data->mem_max_kb);
156 	ATTRIBUTE(sb, mem_dir, "used_KiB", data->mem_used_kb);
157 	ATTRIBUTE(sb, mem_dir, "share_KiB", data->mem_share_kb);
158 
159 	/* samples */
160 	samples_dir = hypfs_mkdir(sb, guest_dir, "samples");
161 	if (IS_ERR(samples_dir))
162 		return PTR_ERR(samples_dir);
163 	ATTRIBUTE(sb, samples_dir, "cpu_using", data->cpu_use_samp);
164 	ATTRIBUTE(sb, samples_dir, "cpu_delay", data->cpu_delay_samp);
165 	ATTRIBUTE(sb, samples_dir, "mem_delay", data->page_wait_samp);
166 	ATTRIBUTE(sb, samples_dir, "idle", data->idle_samp);
167 	ATTRIBUTE(sb, samples_dir, "other", data->other_samp);
168 	ATTRIBUTE(sb, samples_dir, "total", data->total_samp);
169 	return 0;
170 }
171 
hypfs_vm_create_files(struct super_block * sb,struct dentry * root)172 int hypfs_vm_create_files(struct super_block *sb, struct dentry *root)
173 {
174 	struct dentry *dir, *file;
175 	struct diag2fc_data *data;
176 	unsigned int count = 0;
177 	int rc, i;
178 
179 	data = diag2fc_store(guest_query, &count, 0);
180 	if (IS_ERR(data))
181 		return PTR_ERR(data);
182 
183 	/* Hpervisor Info */
184 	dir = hypfs_mkdir(sb, root, "hyp");
185 	if (IS_ERR(dir)) {
186 		rc = PTR_ERR(dir);
187 		goto failed;
188 	}
189 	file = hypfs_create_str(sb, dir, "type", "z/VM Hypervisor");
190 	if (IS_ERR(file)) {
191 		rc = PTR_ERR(file);
192 		goto failed;
193 	}
194 
195 	/* physical cpus */
196 	dir = hypfs_mkdir(sb, root, "cpus");
197 	if (IS_ERR(dir)) {
198 		rc = PTR_ERR(dir);
199 		goto failed;
200 	}
201 	file = hypfs_create_u64(sb, dir, "count", data->lcpus);
202 	if (IS_ERR(file)) {
203 		rc = PTR_ERR(file);
204 		goto failed;
205 	}
206 
207 	/* guests */
208 	dir = hypfs_mkdir(sb, root, "systems");
209 	if (IS_ERR(dir)) {
210 		rc = PTR_ERR(dir);
211 		goto failed;
212 	}
213 
214 	for (i = 0; i < count; i++) {
215 		rc = hpyfs_vm_create_guest(sb, dir, &(data[i]));
216 		if (rc)
217 			goto failed;
218 	}
219 	diag2fc_free(data);
220 	return 0;
221 
222 failed:
223 	diag2fc_free(data);
224 	return rc;
225 }
226 
227 struct dbfs_d2fc_hdr {
228 	u64	len;		/* Length of d2fc buffer without header */
229 	u16	version;	/* Version of header */
230 	char	tod_ext[16];	/* TOD clock for d2fc */
231 	u64	count;		/* Number of VM guests in d2fc buffer */
232 	char	reserved[30];
233 } __attribute__ ((packed));
234 
235 struct dbfs_d2fc {
236 	struct dbfs_d2fc_hdr	hdr;	/* 64 byte header */
237 	char			buf[];	/* d2fc buffer */
238 } __attribute__ ((packed));
239 
dbfs_diag2fc_create(void ** data,void ** data_free_ptr,size_t * size)240 static int dbfs_diag2fc_create(void **data, void **data_free_ptr, size_t *size)
241 {
242 	struct dbfs_d2fc *d2fc;
243 	unsigned int count;
244 
245 	d2fc = diag2fc_store(guest_query, &count, sizeof(d2fc->hdr));
246 	if (IS_ERR(d2fc))
247 		return PTR_ERR(d2fc);
248 	get_clock_ext(d2fc->hdr.tod_ext);
249 	d2fc->hdr.len = count * sizeof(struct diag2fc_data);
250 	d2fc->hdr.version = DBFS_D2FC_HDR_VERSION;
251 	d2fc->hdr.count = count;
252 	memset(&d2fc->hdr.reserved, 0, sizeof(d2fc->hdr.reserved));
253 	*data = d2fc;
254 	*data_free_ptr = d2fc;
255 	*size = d2fc->hdr.len + sizeof(struct dbfs_d2fc_hdr);
256 	return 0;
257 }
258 
259 static struct hypfs_dbfs_file dbfs_file_2fc = {
260 	.name		= "diag_2fc",
261 	.data_create	= dbfs_diag2fc_create,
262 	.data_free	= diag2fc_free,
263 };
264 
hypfs_vm_init(void)265 int hypfs_vm_init(void)
266 {
267 	if (!MACHINE_IS_VM)
268 		return 0;
269 	if (diag2fc(0, all_guests, NULL) > 0)
270 		guest_query = all_guests;
271 	else if (diag2fc(0, local_guest, NULL) > 0)
272 		guest_query = local_guest;
273 	else
274 		return -EACCES;
275 	return hypfs_dbfs_create_file(&dbfs_file_2fc);
276 }
277 
hypfs_vm_exit(void)278 void hypfs_vm_exit(void)
279 {
280 	if (!MACHINE_IS_VM)
281 		return;
282 	hypfs_dbfs_remove_file(&dbfs_file_2fc);
283 }
284