8ab51608da55ddf193c97ffd49343fe8dce186cc
[safe/jmp/linux-2.6] / drivers / s390 / cio / chp.c
1 /*
2  *  drivers/s390/cio/chp.c
3  *
4  *    Copyright IBM Corp. 1999,2007
5  *    Author(s): Cornelia Huck (cornelia.huck@de.ibm.com)
6  *               Arnd Bergmann (arndb@de.ibm.com)
7  *               Peter Oberparleiter <peter.oberparleiter@de.ibm.com>
8  */
9
10 #include <linux/bug.h>
11 #include <linux/workqueue.h>
12 #include <linux/spinlock.h>
13 #include <linux/init.h>
14 #include <linux/jiffies.h>
15 #include <linux/wait.h>
16 #include <linux/mutex.h>
17 #include <linux/errno.h>
18 #include <asm/chpid.h>
19 #include <asm/sclp.h>
20 #include <asm/crw.h>
21
22 #include "cio.h"
23 #include "css.h"
24 #include "ioasm.h"
25 #include "cio_debug.h"
26 #include "chp.h"
27
28 #define to_channelpath(device) container_of(device, struct channel_path, dev)
29 #define CHP_INFO_UPDATE_INTERVAL        1*HZ
30
31 enum cfg_task_t {
32         cfg_none,
33         cfg_configure,
34         cfg_deconfigure
35 };
36
37 /* Map for pending configure tasks. */
38 static enum cfg_task_t chp_cfg_task[__MAX_CSSID + 1][__MAX_CHPID + 1];
39 static DEFINE_MUTEX(cfg_lock);
40 static int cfg_busy;
41
42 /* Map for channel-path status. */
43 static struct sclp_chp_info chp_info;
44 static DEFINE_MUTEX(info_lock);
45
46 /* Time after which channel-path status may be outdated. */
47 static unsigned long chp_info_expires;
48
49 /* Workqueue to perform pending configure tasks. */
50 static struct workqueue_struct *chp_wq;
51 static struct work_struct cfg_work;
52
53 /* Wait queue for configure completion events. */
54 static wait_queue_head_t cfg_wait_queue;
55
56 /* Return channel_path struct for given chpid. */
57 static inline struct channel_path *chpid_to_chp(struct chp_id chpid)
58 {
59         return channel_subsystems[chpid.cssid]->chps[chpid.id];
60 }
61
62 /* Set vary state for given chpid. */
63 static void set_chp_logically_online(struct chp_id chpid, int onoff)
64 {
65         chpid_to_chp(chpid)->state = onoff;
66 }
67
68 /* On succes return 0 if channel-path is varied offline, 1 if it is varied
69  * online. Return -ENODEV if channel-path is not registered. */
70 int chp_get_status(struct chp_id chpid)
71 {
72         return (chpid_to_chp(chpid) ? chpid_to_chp(chpid)->state : -ENODEV);
73 }
74
75 /**
76  * chp_get_sch_opm - return opm for subchannel
77  * @sch: subchannel
78  *
79  * Calculate and return the operational path mask (opm) based on the chpids
80  * used by the subchannel and the status of the associated channel-paths.
81  */
82 u8 chp_get_sch_opm(struct subchannel *sch)
83 {
84         struct chp_id chpid;
85         int opm;
86         int i;
87
88         opm = 0;
89         chp_id_init(&chpid);
90         for (i = 0; i < 8; i++) {
91                 opm <<= 1;
92                 chpid.id = sch->schib.pmcw.chpid[i];
93                 if (chp_get_status(chpid) != 0)
94                         opm |= 1;
95         }
96         return opm;
97 }
98 EXPORT_SYMBOL_GPL(chp_get_sch_opm);
99
100 /**
101  * chp_is_registered - check if a channel-path is registered
102  * @chpid: channel-path ID
103  *
104  * Return non-zero if a channel-path with the given chpid is registered,
105  * zero otherwise.
106  */
107 int chp_is_registered(struct chp_id chpid)
108 {
109         return chpid_to_chp(chpid) != NULL;
110 }
111
112 /*
113  * Function: s390_vary_chpid
114  * Varies the specified chpid online or offline
115  */
116 static int s390_vary_chpid(struct chp_id chpid, int on)
117 {
118         char dbf_text[15];
119         int status;
120
121         sprintf(dbf_text, on?"varyon%x.%02x":"varyoff%x.%02x", chpid.cssid,
122                 chpid.id);
123         CIO_TRACE_EVENT(2, dbf_text);
124
125         status = chp_get_status(chpid);
126         if (!on && !status)
127                 return 0;
128
129         set_chp_logically_online(chpid, on);
130         chsc_chp_vary(chpid, on);
131         return 0;
132 }
133
134 /*
135  * Channel measurement related functions
136  */
137 static ssize_t chp_measurement_chars_read(struct kobject *kobj,
138                                           struct bin_attribute *bin_attr,
139                                           char *buf, loff_t off, size_t count)
140 {
141         struct channel_path *chp;
142         struct device *device;
143
144         device = container_of(kobj, struct device, kobj);
145         chp = to_channelpath(device);
146         if (!chp->cmg_chars)
147                 return 0;
148
149         return memory_read_from_buffer(buf, count, &off,
150                                 chp->cmg_chars, sizeof(struct cmg_chars));
151 }
152
153 static struct bin_attribute chp_measurement_chars_attr = {
154         .attr = {
155                 .name = "measurement_chars",
156                 .mode = S_IRUSR,
157         },
158         .size = sizeof(struct cmg_chars),
159         .read = chp_measurement_chars_read,
160 };
161
162 static void chp_measurement_copy_block(struct cmg_entry *buf,
163                                        struct channel_subsystem *css,
164                                        struct chp_id chpid)
165 {
166         void *area;
167         struct cmg_entry *entry, reference_buf;
168         int idx;
169
170         if (chpid.id < 128) {
171                 area = css->cub_addr1;
172                 idx = chpid.id;
173         } else {
174                 area = css->cub_addr2;
175                 idx = chpid.id - 128;
176         }
177         entry = area + (idx * sizeof(struct cmg_entry));
178         do {
179                 memcpy(buf, entry, sizeof(*entry));
180                 memcpy(&reference_buf, entry, sizeof(*entry));
181         } while (reference_buf.values[0] != buf->values[0]);
182 }
183
184 static ssize_t chp_measurement_read(struct kobject *kobj,
185                                     struct bin_attribute *bin_attr,
186                                     char *buf, loff_t off, size_t count)
187 {
188         struct channel_path *chp;
189         struct channel_subsystem *css;
190         struct device *device;
191         unsigned int size;
192
193         device = container_of(kobj, struct device, kobj);
194         chp = to_channelpath(device);
195         css = to_css(chp->dev.parent);
196
197         size = sizeof(struct cmg_entry);
198
199         /* Only allow single reads. */
200         if (off || count < size)
201                 return 0;
202         chp_measurement_copy_block((struct cmg_entry *)buf, css, chp->chpid);
203         count = size;
204         return count;
205 }
206
207 static struct bin_attribute chp_measurement_attr = {
208         .attr = {
209                 .name = "measurement",
210                 .mode = S_IRUSR,
211         },
212         .size = sizeof(struct cmg_entry),
213         .read = chp_measurement_read,
214 };
215
216 void chp_remove_cmg_attr(struct channel_path *chp)
217 {
218         device_remove_bin_file(&chp->dev, &chp_measurement_chars_attr);
219         device_remove_bin_file(&chp->dev, &chp_measurement_attr);
220 }
221
222 int chp_add_cmg_attr(struct channel_path *chp)
223 {
224         int ret;
225
226         ret = device_create_bin_file(&chp->dev, &chp_measurement_chars_attr);
227         if (ret)
228                 return ret;
229         ret = device_create_bin_file(&chp->dev, &chp_measurement_attr);
230         if (ret)
231                 device_remove_bin_file(&chp->dev, &chp_measurement_chars_attr);
232         return ret;
233 }
234
235 /*
236  * Files for the channel path entries.
237  */
238 static ssize_t chp_status_show(struct device *dev,
239                                struct device_attribute *attr, char *buf)
240 {
241         struct channel_path *chp = to_channelpath(dev);
242
243         if (!chp)
244                 return 0;
245         return (chp_get_status(chp->chpid) ? sprintf(buf, "online\n") :
246                 sprintf(buf, "offline\n"));
247 }
248
249 static ssize_t chp_status_write(struct device *dev,
250                                 struct device_attribute *attr,
251                                 const char *buf, size_t count)
252 {
253         struct channel_path *cp = to_channelpath(dev);
254         char cmd[10];
255         int num_args;
256         int error;
257
258         num_args = sscanf(buf, "%5s", cmd);
259         if (!num_args)
260                 return count;
261
262         if (!strnicmp(cmd, "on", 2) || !strcmp(cmd, "1"))
263                 error = s390_vary_chpid(cp->chpid, 1);
264         else if (!strnicmp(cmd, "off", 3) || !strcmp(cmd, "0"))
265                 error = s390_vary_chpid(cp->chpid, 0);
266         else
267                 error = -EINVAL;
268
269         return error < 0 ? error : count;
270
271 }
272
273 static DEVICE_ATTR(status, 0644, chp_status_show, chp_status_write);
274
275 static ssize_t chp_configure_show(struct device *dev,
276                                   struct device_attribute *attr, char *buf)
277 {
278         struct channel_path *cp;
279         int status;
280
281         cp = to_channelpath(dev);
282         status = chp_info_get_status(cp->chpid);
283         if (status < 0)
284                 return status;
285
286         return snprintf(buf, PAGE_SIZE, "%d\n", status);
287 }
288
289 static int cfg_wait_idle(void);
290
291 static ssize_t chp_configure_write(struct device *dev,
292                                    struct device_attribute *attr,
293                                    const char *buf, size_t count)
294 {
295         struct channel_path *cp;
296         int val;
297         char delim;
298
299         if (sscanf(buf, "%d %c", &val, &delim) != 1)
300                 return -EINVAL;
301         if (val != 0 && val != 1)
302                 return -EINVAL;
303         cp = to_channelpath(dev);
304         chp_cfg_schedule(cp->chpid, val);
305         cfg_wait_idle();
306
307         return count;
308 }
309
310 static DEVICE_ATTR(configure, 0644, chp_configure_show, chp_configure_write);
311
312 static ssize_t chp_type_show(struct device *dev, struct device_attribute *attr,
313                              char *buf)
314 {
315         struct channel_path *chp = to_channelpath(dev);
316
317         if (!chp)
318                 return 0;
319         return sprintf(buf, "%x\n", chp->desc.desc);
320 }
321
322 static DEVICE_ATTR(type, 0444, chp_type_show, NULL);
323
324 static ssize_t chp_cmg_show(struct device *dev, struct device_attribute *attr,
325                             char *buf)
326 {
327         struct channel_path *chp = to_channelpath(dev);
328
329         if (!chp)
330                 return 0;
331         if (chp->cmg == -1) /* channel measurements not available */
332                 return sprintf(buf, "unknown\n");
333         return sprintf(buf, "%x\n", chp->cmg);
334 }
335
336 static DEVICE_ATTR(cmg, 0444, chp_cmg_show, NULL);
337
338 static ssize_t chp_shared_show(struct device *dev,
339                                struct device_attribute *attr, char *buf)
340 {
341         struct channel_path *chp = to_channelpath(dev);
342
343         if (!chp)
344                 return 0;
345         if (chp->shared == -1) /* channel measurements not available */
346                 return sprintf(buf, "unknown\n");
347         return sprintf(buf, "%x\n", chp->shared);
348 }
349
350 static DEVICE_ATTR(shared, 0444, chp_shared_show, NULL);
351
352 static struct attribute *chp_attrs[] = {
353         &dev_attr_status.attr,
354         &dev_attr_configure.attr,
355         &dev_attr_type.attr,
356         &dev_attr_cmg.attr,
357         &dev_attr_shared.attr,
358         NULL,
359 };
360
361 static struct attribute_group chp_attr_group = {
362         .attrs = chp_attrs,
363 };
364
365 static void chp_release(struct device *dev)
366 {
367         struct channel_path *cp;
368
369         cp = to_channelpath(dev);
370         kfree(cp);
371 }
372
373 /**
374  * chp_new - register a new channel-path
375  * @chpid - channel-path ID
376  *
377  * Create and register data structure representing new channel-path. Return
378  * zero on success, non-zero otherwise.
379  */
380 int chp_new(struct chp_id chpid)
381 {
382         struct channel_path *chp;
383         int ret;
384
385         if (chp_is_registered(chpid))
386                 return 0;
387         chp = kzalloc(sizeof(struct channel_path), GFP_KERNEL);
388         if (!chp)
389                 return -ENOMEM;
390
391         /* fill in status, etc. */
392         chp->chpid = chpid;
393         chp->state = 1;
394         chp->dev.parent = &channel_subsystems[chpid.cssid]->device;
395         chp->dev.release = chp_release;
396
397         /* Obtain channel path description and fill it in. */
398         ret = chsc_determine_base_channel_path_desc(chpid, &chp->desc);
399         if (ret)
400                 goto out_free;
401         if ((chp->desc.flags & 0x80) == 0) {
402                 ret = -ENODEV;
403                 goto out_free;
404         }
405         /* Get channel-measurement characteristics. */
406         if (css_chsc_characteristics.scmc && css_chsc_characteristics.secm) {
407                 ret = chsc_get_channel_measurement_chars(chp);
408                 if (ret)
409                         goto out_free;
410         } else {
411                 chp->cmg = -1;
412         }
413         dev_set_name(&chp->dev, "chp%x.%02x", chpid.cssid, chpid.id);
414
415         /* make it known to the system */
416         ret = device_register(&chp->dev);
417         if (ret) {
418                 CIO_MSG_EVENT(0, "Could not register chp%x.%02x: %d\n",
419                               chpid.cssid, chpid.id, ret);
420                 put_device(&chp->dev);
421                 goto out;
422         }
423         ret = sysfs_create_group(&chp->dev.kobj, &chp_attr_group);
424         if (ret) {
425                 device_unregister(&chp->dev);
426                 goto out;
427         }
428         mutex_lock(&channel_subsystems[chpid.cssid]->mutex);
429         if (channel_subsystems[chpid.cssid]->cm_enabled) {
430                 ret = chp_add_cmg_attr(chp);
431                 if (ret) {
432                         sysfs_remove_group(&chp->dev.kobj, &chp_attr_group);
433                         device_unregister(&chp->dev);
434                         mutex_unlock(&channel_subsystems[chpid.cssid]->mutex);
435                         goto out;
436                 }
437         }
438         channel_subsystems[chpid.cssid]->chps[chpid.id] = chp;
439         mutex_unlock(&channel_subsystems[chpid.cssid]->mutex);
440         goto out;
441 out_free:
442         kfree(chp);
443 out:
444         return ret;
445 }
446
447 /**
448  * chp_get_chp_desc - return newly allocated channel-path description
449  * @chpid: channel-path ID
450  *
451  * On success return a newly allocated copy of the channel-path description
452  * data associated with the given channel-path ID. Return %NULL on error.
453  */
454 void *chp_get_chp_desc(struct chp_id chpid)
455 {
456         struct channel_path *chp;
457         struct channel_path_desc *desc;
458
459         chp = chpid_to_chp(chpid);
460         if (!chp)
461                 return NULL;
462         desc = kmalloc(sizeof(struct channel_path_desc), GFP_KERNEL);
463         if (!desc)
464                 return NULL;
465         memcpy(desc, &chp->desc, sizeof(struct channel_path_desc));
466         return desc;
467 }
468
469 /**
470  * chp_process_crw - process channel-path status change
471  * @crw0: channel report-word to handler
472  * @crw1: second channel-report word (always NULL)
473  * @overflow: crw overflow indication
474  *
475  * Handle channel-report-words indicating that the status of a channel-path
476  * has changed.
477  */
478 static void chp_process_crw(struct crw *crw0, struct crw *crw1,
479                             int overflow)
480 {
481         struct chp_id chpid;
482
483         if (overflow) {
484                 css_schedule_eval_all();
485                 return;
486         }
487         CIO_CRW_EVENT(2, "CRW reports slct=%d, oflw=%d, "
488                       "chn=%d, rsc=%X, anc=%d, erc=%X, rsid=%X\n",
489                       crw0->slct, crw0->oflw, crw0->chn, crw0->rsc, crw0->anc,
490                       crw0->erc, crw0->rsid);
491         /*
492          * Check for solicited machine checks. These are
493          * created by reset channel path and need not be
494          * handled here.
495          */
496         if (crw0->slct) {
497                 CIO_CRW_EVENT(2, "solicited machine check for "
498                               "channel path %02X\n", crw0->rsid);
499                 return;
500         }
501         chp_id_init(&chpid);
502         chpid.id = crw0->rsid;
503         switch (crw0->erc) {
504         case CRW_ERC_IPARM: /* Path has come. */
505                 if (!chp_is_registered(chpid))
506                         chp_new(chpid);
507                 chsc_chp_online(chpid);
508                 break;
509         case CRW_ERC_PERRI: /* Path has gone. */
510         case CRW_ERC_PERRN:
511                 chsc_chp_offline(chpid);
512                 break;
513         default:
514                 CIO_CRW_EVENT(2, "Don't know how to handle erc=%x\n",
515                               crw0->erc);
516         }
517 }
518
519 int chp_ssd_get_mask(struct chsc_ssd_info *ssd, struct chp_link *link)
520 {
521         int i;
522         int mask;
523
524         for (i = 0; i < 8; i++) {
525                 mask = 0x80 >> i;
526                 if (!(ssd->path_mask & mask))
527                         continue;
528                 if (!chp_id_is_equal(&ssd->chpid[i], &link->chpid))
529                         continue;
530                 if ((ssd->fla_valid_mask & mask) &&
531                     ((ssd->fla[i] & link->fla_mask) != link->fla))
532                         continue;
533                 return mask;
534         }
535         return 0;
536 }
537 EXPORT_SYMBOL_GPL(chp_ssd_get_mask);
538
539 static inline int info_bit_num(struct chp_id id)
540 {
541         return id.id + id.cssid * (__MAX_CHPID + 1);
542 }
543
544 /* Force chp_info refresh on next call to info_validate(). */
545 static void info_expire(void)
546 {
547         mutex_lock(&info_lock);
548         chp_info_expires = jiffies - 1;
549         mutex_unlock(&info_lock);
550 }
551
552 /* Ensure that chp_info is up-to-date. */
553 static int info_update(void)
554 {
555         int rc;
556
557         mutex_lock(&info_lock);
558         rc = 0;
559         if (time_after(jiffies, chp_info_expires)) {
560                 /* Data is too old, update. */
561                 rc = sclp_chp_read_info(&chp_info);
562                 chp_info_expires = jiffies + CHP_INFO_UPDATE_INTERVAL ;
563         }
564         mutex_unlock(&info_lock);
565
566         return rc;
567 }
568
569 /**
570  * chp_info_get_status - retrieve configure status of a channel-path
571  * @chpid: channel-path ID
572  *
573  * On success, return 0 for standby, 1 for configured, 2 for reserved,
574  * 3 for not recognized. Return negative error code on error.
575  */
576 int chp_info_get_status(struct chp_id chpid)
577 {
578         int rc;
579         int bit;
580
581         rc = info_update();
582         if (rc)
583                 return rc;
584
585         bit = info_bit_num(chpid);
586         mutex_lock(&info_lock);
587         if (!chp_test_bit(chp_info.recognized, bit))
588                 rc = CHP_STATUS_NOT_RECOGNIZED;
589         else if (chp_test_bit(chp_info.configured, bit))
590                 rc = CHP_STATUS_CONFIGURED;
591         else if (chp_test_bit(chp_info.standby, bit))
592                 rc = CHP_STATUS_STANDBY;
593         else
594                 rc = CHP_STATUS_RESERVED;
595         mutex_unlock(&info_lock);
596
597         return rc;
598 }
599
600 /* Return configure task for chpid. */
601 static enum cfg_task_t cfg_get_task(struct chp_id chpid)
602 {
603         return chp_cfg_task[chpid.cssid][chpid.id];
604 }
605
606 /* Set configure task for chpid. */
607 static void cfg_set_task(struct chp_id chpid, enum cfg_task_t cfg)
608 {
609         chp_cfg_task[chpid.cssid][chpid.id] = cfg;
610 }
611
612 /* Perform one configure/deconfigure request. Reschedule work function until
613  * last request. */
614 static void cfg_func(struct work_struct *work)
615 {
616         struct chp_id chpid;
617         enum cfg_task_t t;
618         int rc;
619
620         mutex_lock(&cfg_lock);
621         t = cfg_none;
622         chp_id_for_each(&chpid) {
623                 t = cfg_get_task(chpid);
624                 if (t != cfg_none) {
625                         cfg_set_task(chpid, cfg_none);
626                         break;
627                 }
628         }
629         mutex_unlock(&cfg_lock);
630
631         switch (t) {
632         case cfg_configure:
633                 rc = sclp_chp_configure(chpid);
634                 if (rc)
635                         CIO_MSG_EVENT(2, "chp: sclp_chp_configure(%x.%02x)="
636                                       "%d\n", chpid.cssid, chpid.id, rc);
637                 else {
638                         info_expire();
639                         chsc_chp_online(chpid);
640                 }
641                 break;
642         case cfg_deconfigure:
643                 rc = sclp_chp_deconfigure(chpid);
644                 if (rc)
645                         CIO_MSG_EVENT(2, "chp: sclp_chp_deconfigure(%x.%02x)="
646                                       "%d\n", chpid.cssid, chpid.id, rc);
647                 else {
648                         info_expire();
649                         chsc_chp_offline(chpid);
650                 }
651                 break;
652         case cfg_none:
653                 /* Get updated information after last change. */
654                 info_update();
655                 mutex_lock(&cfg_lock);
656                 cfg_busy = 0;
657                 mutex_unlock(&cfg_lock);
658                 wake_up_interruptible(&cfg_wait_queue);
659                 return;
660         }
661         queue_work(chp_wq, &cfg_work);
662 }
663
664 /**
665  * chp_cfg_schedule - schedule chpid configuration request
666  * @chpid - channel-path ID
667  * @configure - Non-zero for configure, zero for deconfigure
668  *
669  * Schedule a channel-path configuration/deconfiguration request.
670  */
671 void chp_cfg_schedule(struct chp_id chpid, int configure)
672 {
673         CIO_MSG_EVENT(2, "chp_cfg_sched%x.%02x=%d\n", chpid.cssid, chpid.id,
674                       configure);
675         mutex_lock(&cfg_lock);
676         cfg_set_task(chpid, configure ? cfg_configure : cfg_deconfigure);
677         cfg_busy = 1;
678         mutex_unlock(&cfg_lock);
679         queue_work(chp_wq, &cfg_work);
680 }
681
682 /**
683  * chp_cfg_cancel_deconfigure - cancel chpid deconfiguration request
684  * @chpid - channel-path ID
685  *
686  * Cancel an active channel-path deconfiguration request if it has not yet
687  * been performed.
688  */
689 void chp_cfg_cancel_deconfigure(struct chp_id chpid)
690 {
691         CIO_MSG_EVENT(2, "chp_cfg_cancel:%x.%02x\n", chpid.cssid, chpid.id);
692         mutex_lock(&cfg_lock);
693         if (cfg_get_task(chpid) == cfg_deconfigure)
694                 cfg_set_task(chpid, cfg_none);
695         mutex_unlock(&cfg_lock);
696 }
697
698 static int cfg_wait_idle(void)
699 {
700         if (wait_event_interruptible(cfg_wait_queue, !cfg_busy))
701                 return -ERESTARTSYS;
702         return 0;
703 }
704
705 static int __init chp_init(void)
706 {
707         struct chp_id chpid;
708         int ret;
709
710         ret = crw_register_handler(CRW_RSC_CPATH, chp_process_crw);
711         if (ret)
712                 return ret;
713         chp_wq = create_singlethread_workqueue("cio_chp");
714         if (!chp_wq) {
715                 crw_unregister_handler(CRW_RSC_CPATH);
716                 return -ENOMEM;
717         }
718         INIT_WORK(&cfg_work, cfg_func);
719         init_waitqueue_head(&cfg_wait_queue);
720         if (info_update())
721                 return 0;
722         /* Register available channel-paths. */
723         chp_id_for_each(&chpid) {
724                 if (chp_info_get_status(chpid) != CHP_STATUS_NOT_RECOGNIZED)
725                         chp_new(chpid);
726         }
727
728         return 0;
729 }
730
731 subsys_initcall(chp_init);