1/* 2 * File...........: linux/drivers/s390/block/dasd_proc.c 3 * Author(s)......: Holger Smolinski <Holger.Smolinski@de.ibm.com> 4 * Horst Hummel <Horst.Hummel@de.ibm.com> 5 * Carsten Otte <Cotte@de.ibm.com> 6 * Martin Schwidefsky <schwidefsky@de.ibm.com> 7 * Bugreports.to..: <Linux390@de.ibm.com> 8 * (C) IBM Corporation, IBM Deutschland Entwicklung GmbH, 1999-2002 9 * 10 * /proc interface for the dasd driver. 11 * 12 */ 13 14#define KMSG_COMPONENT "dasd" 15 16#include <linux/ctype.h> 17#include <linux/slab.h> 18#include <linux/string.h> 19#include <linux/seq_file.h> 20#include <linux/vmalloc.h> 21#include <linux/proc_fs.h> 22 23#include <asm/debug.h> 24#include <asm/uaccess.h> 25 26/* This is ugly... */ 27#define PRINTK_HEADER "dasd_proc:" 28 29#include "dasd_int.h" 30 31static struct proc_dir_entry *dasd_proc_root_entry = NULL; 32static struct proc_dir_entry *dasd_devices_entry = NULL; 33static struct proc_dir_entry *dasd_statistics_entry = NULL; 34 35#ifdef CONFIG_DASD_PROFILE 36static char * 37dasd_get_user_string(const char __user *user_buf, size_t user_len) 38{ 39 char *buffer; 40 41 buffer = kmalloc(user_len + 1, GFP_KERNEL); 42 if (buffer == NULL) 43 return ERR_PTR(-ENOMEM); 44 if (copy_from_user(buffer, user_buf, user_len) != 0) { 45 kfree(buffer); 46 return ERR_PTR(-EFAULT); 47 } 48 /* got the string, now strip linefeed. */ 49 if (buffer[user_len - 1] == '\n') 50 buffer[user_len - 1] = 0; 51 else 52 buffer[user_len] = 0; 53 return buffer; 54} 55#endif /* CONFIG_DASD_PROFILE */ 56 57static int 58dasd_devices_show(struct seq_file *m, void *v) 59{ 60 struct dasd_device *device; 61 struct dasd_block *block; 62 char *substr; 63 64 device = dasd_device_from_devindex((unsigned long) v - 1); 65 if (IS_ERR(device)) 66 return 0; 67 if (device->block) 68 block = device->block; 69 else { 70 dasd_put_device(device); 71 return 0; 72 } 73 /* Print device number. */ 74 seq_printf(m, "%s", dev_name(&device->cdev->dev)); 75 /* Print discipline string. */ 76 if (device->discipline != NULL) 77 seq_printf(m, "(%s)", device->discipline->name); 78 else 79 seq_printf(m, "(none)"); 80 /* Print kdev. */ 81 if (block->gdp) 82 seq_printf(m, " at (%3d:%6d)", 83 MAJOR(disk_devt(block->gdp)), 84 MINOR(disk_devt(block->gdp))); 85 else 86 seq_printf(m, " at (???:??????)"); 87 /* Print device name. */ 88 if (block->gdp) 89 seq_printf(m, " is %-8s", block->gdp->disk_name); 90 else 91 seq_printf(m, " is ????????"); 92 /* Print devices features. */ 93 substr = (device->features & DASD_FEATURE_READONLY) ? "(ro)" : " "; 94 seq_printf(m, "%4s: ", substr); 95 /* Print device status information. */ 96 switch (device->state) { 97 case DASD_STATE_NEW: 98 seq_printf(m, "new"); 99 break; 100 case DASD_STATE_KNOWN: 101 seq_printf(m, "detected"); 102 break; 103 case DASD_STATE_BASIC: 104 seq_printf(m, "basic"); 105 break; 106 case DASD_STATE_UNFMT: 107 seq_printf(m, "unformatted"); 108 break; 109 case DASD_STATE_READY: 110 case DASD_STATE_ONLINE: 111 seq_printf(m, "active "); 112 if (dasd_check_blocksize(block->bp_block)) 113 seq_printf(m, "n/f "); 114 else 115 seq_printf(m, 116 "at blocksize: %d, %lld blocks, %lld MB", 117 block->bp_block, block->blocks, 118 ((block->bp_block >> 9) * 119 block->blocks) >> 11); 120 break; 121 default: 122 seq_printf(m, "no stat"); 123 break; 124 } 125 dasd_put_device(device); 126 if (dasd_probeonly) 127 seq_printf(m, "(probeonly)"); 128 seq_printf(m, "\n"); 129 return 0; 130} 131 132static void *dasd_devices_start(struct seq_file *m, loff_t *pos) 133{ 134 if (*pos >= dasd_max_devindex) 135 return NULL; 136 return (void *)((unsigned long) *pos + 1); 137} 138 139static void *dasd_devices_next(struct seq_file *m, void *v, loff_t *pos) 140{ 141 ++*pos; 142 return dasd_devices_start(m, pos); 143} 144 145static void dasd_devices_stop(struct seq_file *m, void *v) 146{ 147} 148 149static const struct seq_operations dasd_devices_seq_ops = { 150 .start = dasd_devices_start, 151 .next = dasd_devices_next, 152 .stop = dasd_devices_stop, 153 .show = dasd_devices_show, 154}; 155 156static int dasd_devices_open(struct inode *inode, struct file *file) 157{ 158 return seq_open(file, &dasd_devices_seq_ops); 159} 160 161static const struct file_operations dasd_devices_file_ops = { 162 .owner = THIS_MODULE, 163 .open = dasd_devices_open, 164 .read = seq_read, 165 .llseek = seq_lseek, 166 .release = seq_release, 167}; 168 169#ifdef CONFIG_DASD_PROFILE 170static void dasd_statistics_array(struct seq_file *m, unsigned int *array, int factor) 171{ 172 int i; 173 174 for (i = 0; i < 32; i++) { 175 seq_printf(m, "%7d ", array[i] / factor); 176 if (i == 15) 177 seq_putc(m, '\n'); 178 } 179 seq_putc(m, '\n'); 180} 181#endif /* CONFIG_DASD_PROFILE */ 182 183static int dasd_stats_proc_show(struct seq_file *m, void *v) 184{ 185#ifdef CONFIG_DASD_PROFILE 186 struct dasd_profile_info_t *prof; 187 int factor; 188 189 /* check for active profiling */ 190 if (dasd_profile_level == DASD_PROFILE_OFF) { 191 seq_printf(m, "Statistics are off - they might be " 192 "switched on using 'echo set on > " 193 "/proc/dasd/statistics'\n"); 194 return 0; 195 } 196 197 prof = &dasd_global_profile; 198 /* prevent counter 'overflow' on output */ 199 for (factor = 1; (prof->dasd_io_reqs / factor) > 9999999; 200 factor *= 10); 201 202 seq_printf(m, "%d dasd I/O requests\n", prof->dasd_io_reqs); 203 seq_printf(m, "with %u sectors(512B each)\n", 204 prof->dasd_io_sects); 205 seq_printf(m, "Scale Factor is %d\n", factor); 206 seq_printf(m, 207 " __<4 ___8 __16 __32 __64 _128 " 208 " _256 _512 __1k __2k __4k __8k " 209 " _16k _32k _64k 128k\n"); 210 seq_printf(m, 211 " _256 _512 __1M __2M __4M __8M " 212 " _16M _32M _64M 128M 256M 512M " 213 " __1G __2G __4G " " _>4G\n"); 214 215 seq_printf(m, "Histogram of sizes (512B secs)\n"); 216 dasd_statistics_array(m, prof->dasd_io_secs, factor); 217 seq_printf(m, "Histogram of I/O times (microseconds)\n"); 218 dasd_statistics_array(m, prof->dasd_io_times, factor); 219 seq_printf(m, "Histogram of I/O times per sector\n"); 220 dasd_statistics_array(m, prof->dasd_io_timps, factor); 221 seq_printf(m, "Histogram of I/O time till ssch\n"); 222 dasd_statistics_array(m, prof->dasd_io_time1, factor); 223 seq_printf(m, "Histogram of I/O time between ssch and irq\n"); 224 dasd_statistics_array(m, prof->dasd_io_time2, factor); 225 seq_printf(m, "Histogram of I/O time between ssch " 226 "and irq per sector\n"); 227 dasd_statistics_array(m, prof->dasd_io_time2ps, factor); 228 seq_printf(m, "Histogram of I/O time between irq and end\n"); 229 dasd_statistics_array(m, prof->dasd_io_time3, factor); 230 seq_printf(m, "# of req in chanq at enqueuing (1..32) \n"); 231 dasd_statistics_array(m, prof->dasd_io_nr_req, factor); 232#else 233 seq_printf(m, "Statistics are not activated in this kernel\n"); 234#endif 235 return 0; 236} 237 238static int dasd_stats_proc_open(struct inode *inode, struct file *file) 239{ 240 return single_open(file, dasd_stats_proc_show, NULL); 241} 242 243static ssize_t dasd_stats_proc_write(struct file *file, 244 const char __user *user_buf, size_t user_len, loff_t *pos) 245{ 246#ifdef CONFIG_DASD_PROFILE 247 char *buffer, *str; 248 249 if (user_len > 65536) 250 user_len = 65536; 251 buffer = dasd_get_user_string(user_buf, user_len); 252 if (IS_ERR(buffer)) 253 return PTR_ERR(buffer); 254 DBF_EVENT(DBF_DEBUG, "/proc/dasd/statictics: '%s'\n", buffer); 255 256 /* check for valid verbs */ 257 str = skip_spaces(buffer); 258 if (strncmp(str, "set", 3) == 0 && isspace(str[3])) { 259 str = skip_spaces(str + 4); 260 if (strcmp(str, "on") == 0) { 261 /* switch on statistics profiling */ 262 dasd_profile_level = DASD_PROFILE_ON; 263 pr_info("The statistics feature has been switched " 264 "on\n"); 265 } else if (strcmp(str, "off") == 0) { 266 /* switch off and reset statistics profiling */ 267 memset(&dasd_global_profile, 268 0, sizeof (struct dasd_profile_info_t)); 269 dasd_profile_level = DASD_PROFILE_OFF; 270 pr_info("The statistics feature has been switched " 271 "off\n"); 272 } else 273 goto out_error; 274 } else if (strncmp(str, "reset", 5) == 0) { 275 /* reset the statistics */ 276 memset(&dasd_global_profile, 0, 277 sizeof (struct dasd_profile_info_t)); 278 pr_info("The statistics have been reset\n"); 279 } else 280 goto out_error; 281 kfree(buffer); 282 return user_len; 283out_error: 284 pr_warning("%s is not a supported value for /proc/dasd/statistics\n", 285 str); 286 kfree(buffer); 287 return -EINVAL; 288#else 289 pr_warning("/proc/dasd/statistics: is not activated in this kernel\n"); 290 return user_len; 291#endif /* CONFIG_DASD_PROFILE */ 292} 293 294static const struct file_operations dasd_stats_proc_fops = { 295 .owner = THIS_MODULE, 296 .open = dasd_stats_proc_open, 297 .read = seq_read, 298 .llseek = seq_lseek, 299 .release = single_release, 300 .write = dasd_stats_proc_write, 301}; 302 303/* 304 * Create dasd proc-fs entries. 305 * In case creation failed, cleanup and return -ENOENT. 306 */ 307int 308dasd_proc_init(void) 309{ 310 dasd_proc_root_entry = proc_mkdir("dasd", NULL); 311 if (!dasd_proc_root_entry) 312 goto out_nodasd; 313 dasd_devices_entry = proc_create("devices", 314 S_IFREG | S_IRUGO | S_IWUSR, 315 dasd_proc_root_entry, 316 &dasd_devices_file_ops); 317 if (!dasd_devices_entry) 318 goto out_nodevices; 319 dasd_statistics_entry = proc_create("statistics", 320 S_IFREG | S_IRUGO | S_IWUSR, 321 dasd_proc_root_entry, 322 &dasd_stats_proc_fops); 323 if (!dasd_statistics_entry) 324 goto out_nostatistics; 325 return 0; 326 327 out_nostatistics: 328 remove_proc_entry("devices", dasd_proc_root_entry); 329 out_nodevices: 330 remove_proc_entry("dasd", NULL); 331 out_nodasd: 332 return -ENOENT; 333} 334 335void 336dasd_proc_exit(void) 337{ 338 remove_proc_entry("devices", dasd_proc_root_entry); 339 remove_proc_entry("statistics", dasd_proc_root_entry); 340 remove_proc_entry("dasd", NULL); 341} 342