git.oblomov.eu Git - linux-2.6/blob - drivers/s390/scsi/zfcp_aux.c

   1 /*
   2  *
   3  * linux/drivers/s390/scsi/zfcp_aux.c
   4  *
   5  * FCP adapter driver for IBM eServer zSeries
   6  *
   7  * (C) Copyright IBM Corp. 2002, 2004
   8  *
   9  * Author(s): Martin Peschke <mpeschke@de.ibm.com>
  10  *            Raimund Schroeder <raimund.schroeder@de.ibm.com>
  11  *            Aron Zeh
  12  *            Wolfgang Taphorn
  13  *            Stefan Bader <stefan.bader@de.ibm.com>
  14  *            Heiko Carstens <heiko.carstens@de.ibm.com>
  15  *            Andreas Herrmann <aherrman@de.ibm.com>
  16  *
  17  * This program is free software; you can redistribute it and/or modify
  18  * it under the terms of the GNU General Public License as published by
  19  * the Free Software Foundation; either version 2, or (at your option)
  20  * any later version.
  21  *
  22  * This program is distributed in the hope that it will be useful,
  23  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  24  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  25  * GNU General Public License for more details.
  26  *
  27  * You should have received a copy of the GNU General Public License
  28  * along with this program; if not, write to the Free Software
  29  * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
  30  */
  31
  32 #define ZFCP_AUX_REVISION "$Revision: 1.145 $"
  33
  34 #include "zfcp_ext.h"
  35
  36 /* accumulated log level (module parameter) */
  37 static u32 loglevel = ZFCP_LOG_LEVEL_DEFAULTS;
  38 static char *device;
  39 /*********************** FUNCTION PROTOTYPES *********************************/
  40
  41 /* written against the module interface */
  42 static int __init  zfcp_module_init(void);
  43
  44 /* FCP related */
  45 static void zfcp_ns_gid_pn_handler(unsigned long);
  46
  47 /* miscellaneous */
  48 static inline int zfcp_sg_list_alloc(struct zfcp_sg_list *, size_t);
  49 static inline void zfcp_sg_list_free(struct zfcp_sg_list *);
  50 static inline int zfcp_sg_list_copy_from_user(struct zfcp_sg_list *,
  51                                               void __user *, size_t);
  52 static inline int zfcp_sg_list_copy_to_user(void __user *,
  53                                             struct zfcp_sg_list *, size_t);
  54
  55 static long zfcp_cfdc_dev_ioctl(struct file *, unsigned int, unsigned long);
  56
  57 #define ZFCP_CFDC_IOC_MAGIC                     0xDD
  58 #define ZFCP_CFDC_IOC \
  59         _IOWR(ZFCP_CFDC_IOC_MAGIC, 0, struct zfcp_cfdc_sense_data)
  60
  61
  62 static struct file_operations zfcp_cfdc_fops = {
  63         .unlocked_ioctl = zfcp_cfdc_dev_ioctl,
  64 #ifdef CONFIG_COMPAT
  65         .compat_ioctl = zfcp_cfdc_dev_ioctl
  66 #endif
  67 };
  68
  69 static struct miscdevice zfcp_cfdc_misc = {
  70         .minor = ZFCP_CFDC_DEV_MINOR,
  71         .name = ZFCP_CFDC_DEV_NAME,
  72         .fops = &zfcp_cfdc_fops
  73 };
  74
  75 /*********************** KERNEL/MODULE PARAMETERS  ***************************/
  76
  77 /* declare driver module init/cleanup functions */
  78 module_init(zfcp_module_init);
  79
  80 MODULE_AUTHOR("Heiko Carstens <heiko.carstens@de.ibm.com>, "
  81               "Andreas Herrman <aherrman@de.ibm.com>, "
  82               "Martin Peschke <mpeschke@de.ibm.com>, "
  83               "Raimund Schroeder <raimund.schroeder@de.ibm.com>, "
  84               "Wolfgang Taphorn <taphorn@de.ibm.com>, "
  85               "Aron Zeh <arzeh@de.ibm.com>, "
  86               "IBM Deutschland Entwicklung GmbH");
  87 MODULE_DESCRIPTION
  88     ("FCP (SCSI over Fibre Channel) HBA driver for IBM eServer zSeries");
  89 MODULE_LICENSE("GPL");
  90
  91 module_param(device, charp, 0400);
  92 MODULE_PARM_DESC(device, "specify initial device");
  93
  94 module_param(loglevel, uint, 0400);
  95 MODULE_PARM_DESC(loglevel,
  96                  "log levels, 8 nibbles: "
  97                  "FC ERP QDIO CIO Config FSF SCSI Other, "
  98                  "levels: 0=none 1=normal 2=devel 3=trace");
  99
 100 /****************************************************************/
 101 /************** Functions without logging ***********************/
 102 /****************************************************************/
 103
 104 void
 105 _zfcp_hex_dump(char *addr, int count)
 106 {
 107         int i;
 108         for (i = 0; i < count; i++) {
 109                 printk("%02x", addr[i]);
 110                 if ((i % 4) == 3)
 111                         printk(" ");
 112                 if ((i % 32) == 31)
 113                         printk("\n");
 114         }
 115         if (((i-1) % 32) != 31)
 116                 printk("\n");
 117 }
 118
 119 /****************************************************************/
 120 /************** Uncategorised Functions *************************/
 121 /****************************************************************/
 122
 123 #define ZFCP_LOG_AREA                   ZFCP_LOG_AREA_OTHER
 124
 125 /**
 126  * zfcp_device_setup - setup function
 127  * @str: pointer to parameter string
 128  *
 129  * Parse "device=..." parameter string.
 130  */
 131 static int __init
 132 zfcp_device_setup(char *devstr)
 133 {
 134         char *tmp, *str;
 135         size_t len;
 136
 137         if (!devstr)
 138                 return 0;
 139
 140         len = strlen(devstr) + 1;
 141         str = (char *) kmalloc(len, GFP_KERNEL);
 142         if (!str)
 143                 goto err_out;
 144         memcpy(str, devstr, len);
 145
 146         tmp = strchr(str, ',');
 147         if (!tmp)
 148                 goto err_out;
 149         *tmp++ = '\0';
 150         strncpy(zfcp_data.init_busid, str, BUS_ID_SIZE);
 151         zfcp_data.init_busid[BUS_ID_SIZE-1] = '\0';
 152
 153         zfcp_data.init_wwpn = simple_strtoull(tmp, &tmp, 0);
 154         if (*tmp++ != ',')
 155                 goto err_out;
 156         if (*tmp == '\0')
 157                 goto err_out;
 158
 159         zfcp_data.init_fcp_lun = simple_strtoull(tmp, &tmp, 0);
 160         if (*tmp != '\0')
 161                 goto err_out;
 162         kfree(str);
 163         return 1;
 164
 165  err_out:
 166         ZFCP_LOG_NORMAL("Parse error for device parameter string %s\n", str);
 167         kfree(str);
 168         return 0;
 169 }
 170
 171 static void __init
 172 zfcp_init_device_configure(void)
 173 {
 174         struct zfcp_adapter *adapter;
 175         struct zfcp_port *port;
 176         struct zfcp_unit *unit;
 177
 178         down(&zfcp_data.config_sema);
 179         read_lock_irq(&zfcp_data.config_lock);
 180         adapter = zfcp_get_adapter_by_busid(zfcp_data.init_busid);
 181         if (adapter)
 182                 zfcp_adapter_get(adapter);
 183         read_unlock_irq(&zfcp_data.config_lock);
 184
 185         if (adapter == NULL)
 186                 goto out_adapter;
 187         port = zfcp_port_enqueue(adapter, zfcp_data.init_wwpn, 0, 0);
 188         if (!port)
 189                 goto out_port;
 190         unit = zfcp_unit_enqueue(port, zfcp_data.init_fcp_lun);
 191         if (!unit)
 192                 goto out_unit;
 193         up(&zfcp_data.config_sema);
 194         ccw_device_set_online(adapter->ccw_device);
 195         zfcp_erp_wait(adapter);
 196         down(&zfcp_data.config_sema);
 197         zfcp_unit_put(unit);
 198  out_unit:
 199         zfcp_port_put(port);
 200  out_port:
 201         zfcp_adapter_put(adapter);
 202  out_adapter:
 203         up(&zfcp_data.config_sema);
 204         return;
 205 }
 206
 207 static int __init
 208 zfcp_module_init(void)
 209 {
 210
 211         int retval = 0;
 212
 213         atomic_set(&zfcp_data.loglevel, loglevel);
 214
 215         /* initialize adapter list */
 216         INIT_LIST_HEAD(&zfcp_data.adapter_list_head);
 217
 218         /* initialize adapters to be removed list head */
 219         INIT_LIST_HEAD(&zfcp_data.adapter_remove_lh);
 220
 221         zfcp_transport_template = fc_attach_transport(&zfcp_transport_functions);
 222         if (!zfcp_transport_template)
 223                 return -ENODEV;
 224
 225         retval = misc_register(&zfcp_cfdc_misc);
 226         if (retval != 0) {
 227                 ZFCP_LOG_INFO("registration of misc device "
 228                               "zfcp_cfdc failed\n");
 229                 goto out;
 230         }
 231
 232         ZFCP_LOG_TRACE("major/minor for zfcp_cfdc: %d/%d\n",
 233                        ZFCP_CFDC_DEV_MAJOR, zfcp_cfdc_misc.minor);
 234
 235         /* Initialise proc semaphores */
 236         sema_init(&zfcp_data.config_sema, 1);
 237
 238         /* initialise configuration rw lock */
 239         rwlock_init(&zfcp_data.config_lock);
 240
 241         /* save address of data structure managing the driver module */
 242         zfcp_data.scsi_host_template.module = THIS_MODULE;
 243
 244         /* setup dynamic I/O */
 245         retval = zfcp_ccw_register();
 246         if (retval) {
 247                 ZFCP_LOG_NORMAL("registration with common I/O layer failed\n");
 248                 goto out_ccw_register;
 249         }
 250
 251         if (zfcp_device_setup(device))
 252                 zfcp_init_device_configure();
 253
 254         goto out;
 255
 256  out_ccw_register:
 257         misc_deregister(&zfcp_cfdc_misc);
 258  out:
 259         return retval;
 260 }
 261
 262 /*
 263  * function:    zfcp_cfdc_dev_ioctl
 264  *
 265  * purpose:     Handle control file upload/download transaction via IOCTL
 266  *              interface
 267  *
 268  * returns:     0           - Operation completed successfuly
 269  *              -ENOTTY     - Unknown IOCTL command
 270  *              -EINVAL     - Invalid sense data record
 271  *              -ENXIO      - The FCP adapter is not available
 272  *              -EOPNOTSUPP - The FCP adapter does not have CFDC support
 273  *              -ENOMEM     - Insufficient memory
 274  *              -EFAULT     - User space memory I/O operation fault
 275  *              -EPERM      - Cannot create or queue FSF request or create SBALs
 276  *              -ERESTARTSYS- Received signal (is mapped to EAGAIN by VFS)
 277  */
 278 static long
 279 zfcp_cfdc_dev_ioctl(struct file *file, unsigned int command,
 280                     unsigned long buffer)
 281 {
 282         struct zfcp_cfdc_sense_data *sense_data, __user *sense_data_user;
 283         struct zfcp_adapter *adapter = NULL;
 284         struct zfcp_fsf_req *fsf_req = NULL;
 285         struct zfcp_sg_list *sg_list = NULL;
 286         u32 fsf_command, option;
 287         char *bus_id = NULL;
 288         int retval = 0;
 289
 290         sense_data = kmalloc(sizeof(struct zfcp_cfdc_sense_data), GFP_KERNEL);
 291         if (sense_data == NULL) {
 292                 retval = -ENOMEM;
 293                 goto out;
 294         }
 295
 296         sg_list = kmalloc(sizeof(struct zfcp_sg_list), GFP_KERNEL);
 297         if (sg_list == NULL) {
 298                 retval = -ENOMEM;
 299                 goto out;
 300         }
 301         memset(sg_list, 0, sizeof(*sg_list));
 302
 303         if (command != ZFCP_CFDC_IOC) {
 304                 ZFCP_LOG_INFO("IOC request code 0x%x invalid\n", command);
 305                 retval = -ENOTTY;
 306                 goto out;
 307         }
 308
 309         if ((sense_data_user = (void __user *) buffer) == NULL) {
 310                 ZFCP_LOG_INFO("sense data record is required\n");
 311                 retval = -EINVAL;
 312                 goto out;
 313         }
 314
 315         retval = copy_from_user(sense_data, sense_data_user,
 316                                 sizeof(struct zfcp_cfdc_sense_data));
 317         if (retval) {
 318                 retval = -EFAULT;
 319                 goto out;
 320         }
 321
 322         if (sense_data->signature != ZFCP_CFDC_SIGNATURE) {
 323                 ZFCP_LOG_INFO("invalid sense data request signature 0x%08x\n",
 324                               ZFCP_CFDC_SIGNATURE);
 325                 retval = -EINVAL;
 326                 goto out;
 327         }
 328
 329         switch (sense_data->command) {
 330
 331         case ZFCP_CFDC_CMND_DOWNLOAD_NORMAL:
 332                 fsf_command = FSF_QTCB_DOWNLOAD_CONTROL_FILE;
 333                 option = FSF_CFDC_OPTION_NORMAL_MODE;
 334                 break;
 335
 336         case ZFCP_CFDC_CMND_DOWNLOAD_FORCE:
 337                 fsf_command = FSF_QTCB_DOWNLOAD_CONTROL_FILE;
 338                 option = FSF_CFDC_OPTION_FORCE;
 339                 break;
 340
 341         case ZFCP_CFDC_CMND_FULL_ACCESS:
 342                 fsf_command = FSF_QTCB_DOWNLOAD_CONTROL_FILE;
 343                 option = FSF_CFDC_OPTION_FULL_ACCESS;
 344                 break;
 345
 346         case ZFCP_CFDC_CMND_RESTRICTED_ACCESS:
 347                 fsf_command = FSF_QTCB_DOWNLOAD_CONTROL_FILE;
 348                 option = FSF_CFDC_OPTION_RESTRICTED_ACCESS;
 349                 break;
 350
 351         case ZFCP_CFDC_CMND_UPLOAD:
 352                 fsf_command = FSF_QTCB_UPLOAD_CONTROL_FILE;
 353                 option = 0;
 354                 break;
 355
 356         default:
 357                 ZFCP_LOG_INFO("invalid command code 0x%08x\n",
 358                               sense_data->command);
 359                 retval = -EINVAL;
 360                 goto out;
 361         }
 362
 363         bus_id = kmalloc(BUS_ID_SIZE, GFP_KERNEL);
 364         if (bus_id == NULL) {
 365                 retval = -ENOMEM;
 366                 goto out;
 367         }
 368         snprintf(bus_id, BUS_ID_SIZE, "%d.%d.%04x",
 369                 (sense_data->devno >> 24),
 370                 (sense_data->devno >> 16) & 0xFF,
 371                 (sense_data->devno & 0xFFFF));
 372
 373         read_lock_irq(&zfcp_data.config_lock);
 374         adapter = zfcp_get_adapter_by_busid(bus_id);
 375         if (adapter)
 376                 zfcp_adapter_get(adapter);
 377         read_unlock_irq(&zfcp_data.config_lock);
 378
 379         kfree(bus_id);
 380
 381         if (adapter == NULL) {
 382                 ZFCP_LOG_INFO("invalid adapter\n");
 383                 retval = -ENXIO;
 384                 goto out;
 385         }
 386
 387         if (sense_data->command & ZFCP_CFDC_WITH_CONTROL_FILE) {
 388                 retval = zfcp_sg_list_alloc(sg_list,
 389                                             ZFCP_CFDC_MAX_CONTROL_FILE_SIZE);
 390                 if (retval) {
 391                         retval = -ENOMEM;
 392                         goto out;
 393                 }
 394         }
 395
 396         if ((sense_data->command & ZFCP_CFDC_DOWNLOAD) &&
 397             (sense_data->command & ZFCP_CFDC_WITH_CONTROL_FILE)) {
 398                 retval = zfcp_sg_list_copy_from_user(
 399                         sg_list, &sense_data_user->control_file,
 400                         ZFCP_CFDC_MAX_CONTROL_FILE_SIZE);
 401                 if (retval) {
 402                         retval = -EFAULT;
 403                         goto out;
 404                 }
 405         }
 406
 407         retval = zfcp_fsf_control_file(adapter, &fsf_req, fsf_command,
 408                                        option, sg_list);
 409         if (retval)
 410                 goto out;
 411
 412         if ((fsf_req->qtcb->prefix.prot_status != FSF_PROT_GOOD) &&
 413             (fsf_req->qtcb->prefix.prot_status != FSF_PROT_FSF_STATUS_PRESENTED)) {
 414                 retval = -ENXIO;
 415                 goto out;
 416         }
 417
 418         sense_data->fsf_status = fsf_req->qtcb->header.fsf_status;
 419         memcpy(&sense_data->fsf_status_qual,
 420                &fsf_req->qtcb->header.fsf_status_qual,
 421                sizeof(union fsf_status_qual));
 422         memcpy(&sense_data->payloads, &fsf_req->qtcb->bottom.support.els, 256);
 423
 424         retval = copy_to_user(sense_data_user, sense_data,
 425                 sizeof(struct zfcp_cfdc_sense_data));
 426         if (retval) {
 427                 retval = -EFAULT;
 428                 goto out;
 429         }
 430
 431         if (sense_data->command & ZFCP_CFDC_UPLOAD) {
 432                 retval = zfcp_sg_list_copy_to_user(
 433                         &sense_data_user->control_file, sg_list,
 434                         ZFCP_CFDC_MAX_CONTROL_FILE_SIZE);
 435                 if (retval) {
 436                         retval = -EFAULT;
 437                         goto out;
 438                 }
 439         }
 440
 441  out:
 442         if (fsf_req != NULL)
 443                 zfcp_fsf_req_free(fsf_req);
 444
 445         if ((adapter != NULL) && (retval != -ENXIO))
 446                 zfcp_adapter_put(adapter);
 447
 448         if (sg_list != NULL) {
 449                 zfcp_sg_list_free(sg_list);
 450                 kfree(sg_list);
 451         }
 452
 453         kfree(sense_data);
 454
 455         return retval;
 456 }
 457
 458
 459 /**
 460  * zfcp_sg_list_alloc - create a scatter-gather list of the specified size
 461  * @sg_list: structure describing a scatter gather list
 462  * @size: size of scatter-gather list
 463  * Return: 0 on success, else -ENOMEM
 464  *
 465  * In sg_list->sg a pointer to the created scatter-gather list is returned,
 466  * or NULL if we run out of memory. sg_list->count specifies the number of
 467  * elements of the scatter-gather list. The maximum size of a single element
 468  * in the scatter-gather list is PAGE_SIZE.
 469  */
 470 static inline int
 471 zfcp_sg_list_alloc(struct zfcp_sg_list *sg_list, size_t size)
 472 {
 473         struct scatterlist *sg;
 474         unsigned int i;
 475         int retval = 0;
 476         void *address;
 477
 478         BUG_ON(sg_list == NULL);
 479
 480         sg_list->count = size >> PAGE_SHIFT;
 481         if (size & ~PAGE_MASK)
 482                 sg_list->count++;
 483         sg_list->sg = kmalloc(sg_list->count * sizeof(struct scatterlist),
 484                               GFP_KERNEL);
 485         if (sg_list->sg == NULL) {
 486                 sg_list->count = 0;
 487                 retval = -ENOMEM;
 488                 goto out;
 489         }
 490         memset(sg_list->sg, 0, sg_list->count * sizeof(struct scatterlist));
 491
 492         for (i = 0, sg = sg_list->sg; i < sg_list->count; i++, sg++) {
 493                 sg->length = min(size, PAGE_SIZE);
 494                 sg->offset = 0;
 495                 address = (void *) get_zeroed_page(GFP_KERNEL);
 496                 if (address == NULL) {
 497                         sg_list->count = i;
 498                         zfcp_sg_list_free(sg_list);
 499                         retval = -ENOMEM;
 500                         goto out;
 501                 }
 502                 zfcp_address_to_sg(address, sg);
 503                 size -= sg->length;
 504         }
 505
 506  out:
 507         return retval;
 508 }
 509
 510
 511 /**
 512  * zfcp_sg_list_free - free memory of a scatter-gather list
 513  * @sg_list: structure describing a scatter-gather list
 514  *
 515  * Memory for each element in the scatter-gather list is freed.
 516  * Finally sg_list->sg is freed itself and sg_list->count is reset.
 517  */
 518 static inline void
 519 zfcp_sg_list_free(struct zfcp_sg_list *sg_list)
 520 {
 521         struct scatterlist *sg;
 522         unsigned int i;
 523
 524         BUG_ON(sg_list == NULL);
 525
 526         for (i = 0, sg = sg_list->sg; i < sg_list->count; i++, sg++)
 527                 free_page((unsigned long) zfcp_sg_to_address(sg));
 528
 529         sg_list->count = 0;
 530         kfree(sg_list->sg);
 531 }
 532
 533 /**
 534  * zfcp_sg_size - determine size of a scatter-gather list
 535  * @sg: array of (struct scatterlist)
 536  * @sg_count: elements in array
 537  * Return: size of entire scatter-gather list
 538  */
 539 size_t
 540 zfcp_sg_size(struct scatterlist *sg, unsigned int sg_count)
 541 {
 542         unsigned int i;
 543         struct scatterlist *p;
 544         size_t size;
 545
 546         size = 0;
 547         for (i = 0, p = sg; i < sg_count; i++, p++) {
 548                 BUG_ON(p == NULL);
 549                 size += p->length;
 550         }
 551
 552         return size;
 553 }
 554
 555
 556 /**
 557  * zfcp_sg_list_copy_from_user -copy data from user space to scatter-gather list
 558  * @sg_list: structure describing a scatter-gather list
 559  * @user_buffer: pointer to buffer in user space
 560  * @size: number of bytes to be copied
 561  * Return: 0 on success, -EFAULT if copy_from_user fails.
 562  */
 563 static inline int
 564 zfcp_sg_list_copy_from_user(struct zfcp_sg_list *sg_list,
 565                             void __user *user_buffer,
 566                             size_t size)
 567 {
 568         struct scatterlist *sg;
 569         unsigned int length;
 570         void *zfcp_buffer;
 571         int retval = 0;
 572
 573         BUG_ON(sg_list == NULL);
 574
 575         if (zfcp_sg_size(sg_list->sg, sg_list->count) < size)
 576                 return -EFAULT;
 577
 578         for (sg = sg_list->sg; size > 0; sg++) {
 579                 length = min((unsigned int)size, sg->length);
 580                 zfcp_buffer = zfcp_sg_to_address(sg);
 581                 if (copy_from_user(zfcp_buffer, user_buffer, length)) {
 582                         retval = -EFAULT;
 583                         goto out;
 584                 }
 585                 user_buffer += length;
 586                 size -= length;
 587         }
 588
 589  out:
 590         return retval;
 591 }
 592
 593
 594 /**
 595  * zfcp_sg_list_copy_to_user - copy data from scatter-gather list to user space
 596  * @user_buffer: pointer to buffer in user space
 597  * @sg_list: structure describing a scatter-gather list
 598  * @size: number of bytes to be copied
 599  * Return: 0 on success, -EFAULT if copy_to_user fails
 600  */
 601 static inline int
 602 zfcp_sg_list_copy_to_user(void __user  *user_buffer,
 603                           struct zfcp_sg_list *sg_list,
 604                           size_t size)
 605 {
 606         struct scatterlist *sg;
 607         unsigned int length;
 608         void *zfcp_buffer;
 609         int retval = 0;
 610
 611         BUG_ON(sg_list == NULL);
 612
 613         if (zfcp_sg_size(sg_list->sg, sg_list->count) < size)
 614                 return -EFAULT;
 615
 616         for (sg = sg_list->sg; size > 0; sg++) {
 617                 length = min((unsigned int) size, sg->length);
 618                 zfcp_buffer = zfcp_sg_to_address(sg);
 619                 if (copy_to_user(user_buffer, zfcp_buffer, length)) {
 620                         retval = -EFAULT;
 621                         goto out;
 622                 }
 623                 user_buffer += length;
 624                 size -= length;
 625         }
 626
 627  out:
 628         return retval;
 629 }
 630
 631
 632 #undef ZFCP_LOG_AREA
 633
 634 /****************************************************************/
 635 /****** Functions for configuration/set-up of structures ********/
 636 /****************************************************************/
 637
 638 #define ZFCP_LOG_AREA                   ZFCP_LOG_AREA_CONFIG
 639
 640 /**
 641  * zfcp_get_unit_by_lun - find unit in unit list of port by FCP LUN
 642  * @port: pointer to port to search for unit
 643  * @fcp_lun: FCP LUN to search for
 644  * Traverse list of all units of a port and return pointer to a unit
 645  * with the given FCP LUN.
 646  */
 647 struct zfcp_unit *
 648 zfcp_get_unit_by_lun(struct zfcp_port *port, fcp_lun_t fcp_lun)
 649 {
 650         struct zfcp_unit *unit;
 651         int found = 0;
 652
 653         list_for_each_entry(unit, &port->unit_list_head, list) {
 654                 if ((unit->fcp_lun == fcp_lun) &&
 655                     !atomic_test_mask(ZFCP_STATUS_COMMON_REMOVE, &unit->status))
 656                 {
 657                         found = 1;
 658                         break;
 659                 }
 660         }
 661         return found ? unit : NULL;
 662 }
 663
 664 /**
 665  * zfcp_get_port_by_wwpn - find port in port list of adapter by wwpn
 666  * @adapter: pointer to adapter to search for port
 667  * @wwpn: wwpn to search for
 668  * Traverse list of all ports of an adapter and return pointer to a port
 669  * with the given wwpn.
 670  */
 671 struct zfcp_port *
 672 zfcp_get_port_by_wwpn(struct zfcp_adapter *adapter, wwn_t wwpn)
 673 {
 674         struct zfcp_port *port;
 675         int found = 0;
 676
 677         list_for_each_entry(port, &adapter->port_list_head, list) {
 678                 if ((port->wwpn == wwpn) &&
 679                     !(atomic_read(&port->status) &
 680                       (ZFCP_STATUS_PORT_NO_WWPN | ZFCP_STATUS_COMMON_REMOVE))) {
 681                         found = 1;
 682                         break;
 683                 }
 684         }
 685         return found ? port : NULL;
 686 }
 687
 688 /**
 689  * zfcp_get_port_by_did - find port in port list of adapter by d_id
 690  * @adapter: pointer to adapter to search for port
 691  * @d_id: d_id to search for
 692  * Traverse list of all ports of an adapter and return pointer to a port
 693  * with the given d_id.
 694  */
 695 struct zfcp_port *
 696 zfcp_get_port_by_did(struct zfcp_adapter *adapter, u32 d_id)
 697 {
 698         struct zfcp_port *port;
 699         int found = 0;
 700
 701         list_for_each_entry(port, &adapter->port_list_head, list) {
 702                 if ((port->d_id == d_id) &&
 703                     !atomic_test_mask(ZFCP_STATUS_COMMON_REMOVE, &port->status))
 704                 {
 705                         found = 1;
 706                         break;
 707                 }
 708         }
 709         return found ? port : NULL;
 710 }
 711
 712 /**
 713  * zfcp_get_adapter_by_busid - find adpater in adapter list by bus_id
 714  * @bus_id: bus_id to search for
 715  * Traverse list of all adapters and return pointer to an adapter
 716  * with the given bus_id.
 717  */
 718 struct zfcp_adapter *
 719 zfcp_get_adapter_by_busid(char *bus_id)
 720 {
 721         struct zfcp_adapter *adapter;
 722         int found = 0;
 723
 724         list_for_each_entry(adapter, &zfcp_data.adapter_list_head, list) {
 725                 if ((strncmp(bus_id, zfcp_get_busid_by_adapter(adapter),
 726                              BUS_ID_SIZE) == 0) &&
 727                     !atomic_test_mask(ZFCP_STATUS_COMMON_REMOVE,
 728                                       &adapter->status)){
 729                         found = 1;
 730                         break;
 731                 }
 732         }
 733         return found ? adapter : NULL;
 734 }
 735
 736 /**
 737  * zfcp_unit_enqueue - enqueue unit to unit list of a port.
 738  * @port: pointer to port where unit is added
 739  * @fcp_lun: FCP LUN of unit to be enqueued
 740  * Return: pointer to enqueued unit on success, NULL on error
 741  * Locks: config_sema must be held to serialize changes to the unit list
 742  *
 743  * Sets up some unit internal structures and creates sysfs entry.
 744  */
 745 struct zfcp_unit *
 746 zfcp_unit_enqueue(struct zfcp_port *port, fcp_lun_t fcp_lun)
 747 {
 748         struct zfcp_unit *unit, *tmp_unit;
 749         scsi_lun_t scsi_lun;
 750         int found;
 751
 752         /*
 753          * check that there is no unit with this FCP_LUN already in list
 754          * and enqueue it.
 755          * Note: Unlike for the adapter and the port, this is an error
 756          */
 757         read_lock_irq(&zfcp_data.config_lock);
 758         unit = zfcp_get_unit_by_lun(port, fcp_lun);
 759         read_unlock_irq(&zfcp_data.config_lock);
 760         if (unit)
 761                 return NULL;
 762
 763         unit = kmalloc(sizeof (struct zfcp_unit), GFP_KERNEL);
 764         if (!unit)
 765                 return NULL;
 766         memset(unit, 0, sizeof (struct zfcp_unit));
 767
 768         /* initialise reference count stuff */
 769         atomic_set(&unit->refcount, 0);
 770         init_waitqueue_head(&unit->remove_wq);
 771
 772         unit->port = port;
 773         unit->fcp_lun = fcp_lun;
 774
 775         /* setup for sysfs registration */
 776         snprintf(unit->sysfs_device.bus_id, BUS_ID_SIZE, "0x%016llx", fcp_lun);
 777         unit->sysfs_device.parent = &port->sysfs_device;
 778         unit->sysfs_device.release = zfcp_sysfs_unit_release;
 779         dev_set_drvdata(&unit->sysfs_device, unit);
 780
 781         /* mark unit unusable as long as sysfs registration is not complete */
 782         atomic_set_mask(ZFCP_STATUS_COMMON_REMOVE, &unit->status);
 783
 784         if (device_register(&unit->sysfs_device)) {
 785                 kfree(unit);
 786                 return NULL;
 787         }
 788
 789         if (zfcp_sysfs_unit_create_files(&unit->sysfs_device)) {
 790                 device_unregister(&unit->sysfs_device);
 791                 return NULL;
 792         }
 793
 794         zfcp_unit_get(unit);
 795
 796         scsi_lun = 0;
 797         found = 0;
 798         write_lock_irq(&zfcp_data.config_lock);
 799         list_for_each_entry(tmp_unit, &port->unit_list_head, list) {
 800                 if (tmp_unit->scsi_lun != scsi_lun) {
 801                         found = 1;
 802                         break;
 803                 }
 804                 scsi_lun++;
 805         }
 806         unit->scsi_lun = scsi_lun;
 807         if (found)
 808                 list_add_tail(&unit->list, &tmp_unit->list);
 809         else
 810                 list_add_tail(&unit->list, &port->unit_list_head);
 811         atomic_clear_mask(ZFCP_STATUS_COMMON_REMOVE, &unit->status);
 812         atomic_set_mask(ZFCP_STATUS_COMMON_RUNNING, &unit->status);
 813         write_unlock_irq(&zfcp_data.config_lock);
 814
 815         port->units++;
 816         zfcp_port_get(port);
 817
 818         return unit;
 819 }
 820
 821 void
 822 zfcp_unit_dequeue(struct zfcp_unit *unit)
 823 {
 824         zfcp_unit_wait(unit);
 825         write_lock_irq(&zfcp_data.config_lock);
 826         list_del(&unit->list);
 827         write_unlock_irq(&zfcp_data.config_lock);
 828         unit->port->units--;
 829         zfcp_port_put(unit->port);
 830         zfcp_sysfs_unit_remove_files(&unit->sysfs_device);
 831         device_unregister(&unit->sysfs_device);
 832 }
 833
 834 static void *
 835 zfcp_mempool_alloc(gfp_t gfp_mask, void *size)
 836 {
 837         return kmalloc((size_t) size, gfp_mask);
 838 }
 839
 840 static void
 841 zfcp_mempool_free(void *element, void *size)
 842 {
 843         kfree(element);
 844 }
 845
 846 /*
 847  * Allocates a combined QTCB/fsf_req buffer for erp actions and fcp/SCSI
 848  * commands.
 849  * It also genrates fcp-nameserver request/response buffer and unsolicited
 850  * status read fsf_req buffers.
 851  *
 852  * locks:       must only be called with zfcp_data.config_sema taken
 853  */
 854 static int
 855 zfcp_allocate_low_mem_buffers(struct zfcp_adapter *adapter)
 856 {
 857         adapter->pool.fsf_req_erp =
 858                 mempool_create(ZFCP_POOL_FSF_REQ_ERP_NR,
 859                                zfcp_mempool_alloc, zfcp_mempool_free, (void *)
 860                                sizeof(struct zfcp_fsf_req_pool_element));
 861
 862         if (NULL == adapter->pool.fsf_req_erp)
 863                 return -ENOMEM;
 864
 865         adapter->pool.fsf_req_scsi =
 866                 mempool_create(ZFCP_POOL_FSF_REQ_SCSI_NR,
 867                                zfcp_mempool_alloc, zfcp_mempool_free, (void *)
 868                                sizeof(struct zfcp_fsf_req_pool_element));
 869
 870         if (NULL == adapter->pool.fsf_req_scsi)
 871                 return -ENOMEM;
 872
 873         adapter->pool.fsf_req_abort =
 874                 mempool_create(ZFCP_POOL_FSF_REQ_ABORT_NR,
 875                                zfcp_mempool_alloc, zfcp_mempool_free, (void *)
 876                                sizeof(struct zfcp_fsf_req_pool_element));
 877
 878         if (NULL == adapter->pool.fsf_req_abort)
 879                 return -ENOMEM;
 880
 881         adapter->pool.fsf_req_status_read =
 882                 mempool_create(ZFCP_POOL_STATUS_READ_NR,
 883                                zfcp_mempool_alloc, zfcp_mempool_free,
 884                                (void *) sizeof(struct zfcp_fsf_req));
 885
 886         if (NULL == adapter->pool.fsf_req_status_read)
 887                 return -ENOMEM;
 888
 889         adapter->pool.data_status_read =
 890                 mempool_create(ZFCP_POOL_STATUS_READ_NR,
 891                                zfcp_mempool_alloc, zfcp_mempool_free,
 892                                (void *) sizeof(struct fsf_status_read_buffer));
 893
 894         if (NULL == adapter->pool.data_status_read)
 895                 return -ENOMEM;
 896
 897         adapter->pool.data_gid_pn =
 898                 mempool_create(ZFCP_POOL_DATA_GID_PN_NR,
 899                                zfcp_mempool_alloc, zfcp_mempool_free, (void *)
 900                                sizeof(struct zfcp_gid_pn_data));
 901
 902         if (NULL == adapter->pool.data_gid_pn)
 903                 return -ENOMEM;
 904
 905         return 0;
 906 }
 907
 908 /**
 909  * zfcp_free_low_mem_buffers - free memory pools of an adapter
 910  * @adapter: pointer to zfcp_adapter for which memory pools should be freed
 911  * locking:  zfcp_data.config_sema must be held
 912  */
 913 static void
 914 zfcp_free_low_mem_buffers(struct zfcp_adapter *adapter)
 915 {
 916         if (adapter->pool.fsf_req_erp)
 917                 mempool_destroy(adapter->pool.fsf_req_erp);
 918         if (adapter->pool.fsf_req_scsi)
 919                 mempool_destroy(adapter->pool.fsf_req_scsi);
 920         if (adapter->pool.fsf_req_abort)
 921                 mempool_destroy(adapter->pool.fsf_req_abort);
 922         if (adapter->pool.fsf_req_status_read)
 923                 mempool_destroy(adapter->pool.fsf_req_status_read);
 924         if (adapter->pool.data_status_read)
 925                 mempool_destroy(adapter->pool.data_status_read);
 926         if (adapter->pool.data_gid_pn)
 927                 mempool_destroy(adapter->pool.data_gid_pn);
 928 }
 929
 930 void
 931 zfcp_dummy_release(struct device *dev)
 932 {
 933         return;
 934 }
 935
 936 /*
 937  * Enqueues an adapter at the end of the adapter list in the driver data.
 938  * All adapter internal structures are set up.
 939  * Proc-fs entries are also created.
 940  *
 941  * returns:     0             if a new adapter was successfully enqueued
 942  *              ZFCP_KNOWN    if an adapter with this devno was already present
 943  *              -ENOMEM       if alloc failed
 944  * locks:       config_sema must be held to serialise changes to the adapter list
 945  */
 946 struct zfcp_adapter *
 947 zfcp_adapter_enqueue(struct ccw_device *ccw_device)
 948 {
 949         int retval = 0;
 950         struct zfcp_adapter *adapter;
 951
 952         /*
 953          * Note: It is safe to release the list_lock, as any list changes
 954          * are protected by the config_sema, which must be held to get here
 955          */
 956
 957         /* try to allocate new adapter data structure (zeroed) */
 958         adapter = kmalloc(sizeof (struct zfcp_adapter), GFP_KERNEL);
 959         if (!adapter) {
 960                 ZFCP_LOG_INFO("error: allocation of base adapter "
 961                               "structure failed\n");
 962                 goto out;
 963         }
 964         memset(adapter, 0, sizeof (struct zfcp_adapter));
 965
 966         ccw_device->handler = NULL;
 967
 968         /* save ccw_device pointer */
 969         adapter->ccw_device = ccw_device;
 970
 971         retval = zfcp_qdio_allocate_queues(adapter);
 972         if (retval)
 973                 goto queues_alloc_failed;
 974
 975         retval = zfcp_qdio_allocate(adapter);
 976         if (retval)
 977                 goto qdio_allocate_failed;
 978
 979         retval = zfcp_allocate_low_mem_buffers(adapter);
 980         if (retval) {
 981                 ZFCP_LOG_INFO("error: pool allocation failed\n");
 982                 goto failed_low_mem_buffers;
 983         }
 984
 985         /* initialise reference count stuff */
 986         atomic_set(&adapter->refcount, 0);
 987         init_waitqueue_head(&adapter->remove_wq);
 988
 989         /* initialise list of ports */
 990         INIT_LIST_HEAD(&adapter->port_list_head);
 991
 992         /* initialise list of ports to be removed */
 993         INIT_LIST_HEAD(&adapter->port_remove_lh);
 994
 995         /* initialize list of fsf requests */
 996         spin_lock_init(&adapter->fsf_req_list_lock);
 997         INIT_LIST_HEAD(&adapter->fsf_req_list_head);
 998
 999         /* initialize abort lock */
1000         rwlock_init(&adapter->abort_lock);
1001
1002         /* initialise some erp stuff */
1003         init_waitqueue_head(&adapter->erp_thread_wqh);
1004         init_waitqueue_head(&adapter->erp_done_wqh);
1005
1006         /* initialize lock of associated request queue */
1007         rwlock_init(&adapter->request_queue.queue_lock);
1008
1009         /* intitialise SCSI ER timer */
1010         init_timer(&adapter->scsi_er_timer);
1011
1012         /* set FC service class used per default */
1013         adapter->fc_service_class = ZFCP_FC_SERVICE_CLASS_DEFAULT;
1014
1015         sprintf(adapter->name, "%s", zfcp_get_busid_by_adapter(adapter));
1016         ASCEBC(adapter->name, strlen(adapter->name));
1017
1018         /* mark adapter unusable as long as sysfs registration is not complete */
1019         atomic_set_mask(ZFCP_STATUS_COMMON_REMOVE, &adapter->status);
1020
1021         adapter->ccw_device = ccw_device;
1022         dev_set_drvdata(&ccw_device->dev, adapter);
1023
1024         if (zfcp_sysfs_adapter_create_files(&ccw_device->dev))
1025                 goto sysfs_failed;
1026
1027         adapter->generic_services.parent = &adapter->ccw_device->dev;
1028         adapter->generic_services.release = zfcp_dummy_release;
1029         snprintf(adapter->generic_services.bus_id, BUS_ID_SIZE,
1030                  "generic_services");
1031
1032         if (device_register(&adapter->generic_services))
1033                 goto generic_services_failed;
1034
1035         /* put allocated adapter at list tail */
1036         write_lock_irq(&zfcp_data.config_lock);
1037         atomic_clear_mask(ZFCP_STATUS_COMMON_REMOVE, &adapter->status);
1038         list_add_tail(&adapter->list, &zfcp_data.adapter_list_head);
1039         write_unlock_irq(&zfcp_data.config_lock);
1040
1041         zfcp_data.adapters++;
1042
1043         goto out;
1044
1045  generic_services_failed:
1046         zfcp_sysfs_adapter_remove_files(&adapter->ccw_device->dev);
1047  sysfs_failed:
1048         dev_set_drvdata(&ccw_device->dev, NULL);
1049  failed_low_mem_buffers:
1050         zfcp_free_low_mem_buffers(adapter);
1051         if (qdio_free(ccw_device) != 0)
1052                 ZFCP_LOG_NORMAL("bug: qdio_free for adapter %s failed\n",
1053                                 zfcp_get_busid_by_adapter(adapter));
1054  qdio_allocate_failed:
1055         zfcp_qdio_free_queues(adapter);
1056  queues_alloc_failed:
1057         kfree(adapter);
1058         adapter = NULL;
1059  out:
1060         return adapter;
1061 }
1062
1063 /*
1064  * returns:     0 - struct zfcp_adapter  data structure successfully removed
1065  *              !0 - struct zfcp_adapter  data structure could not be removed
1066  *                      (e.g. still used)
1067  * locks:       adapter list write lock is assumed to be held by caller
1068  *              adapter->fsf_req_list_lock is taken and released within this
1069  *              function and must not be held on entry
1070  */
1071 void
1072 zfcp_adapter_dequeue(struct zfcp_adapter *adapter)
1073 {
1074         int retval = 0;
1075         unsigned long flags;
1076
1077         device_unregister(&adapter->generic_services);
1078         zfcp_sysfs_adapter_remove_files(&adapter->ccw_device->dev);
1079         dev_set_drvdata(&adapter->ccw_device->dev, NULL);
1080         /* sanity check: no pending FSF requests */
1081         spin_lock_irqsave(&adapter->fsf_req_list_lock, flags);
1082         retval = !list_empty(&adapter->fsf_req_list_head);
1083         spin_unlock_irqrestore(&adapter->fsf_req_list_lock, flags);
1084         if (retval) {
1085                 ZFCP_LOG_NORMAL("bug: adapter %s (%p) still in use, "
1086                                 "%i requests outstanding\n",
1087                                 zfcp_get_busid_by_adapter(adapter), adapter,
1088                                 atomic_read(&adapter->fsf_reqs_active));
1089                 retval = -EBUSY;
1090                 goto out;
1091         }
1092
1093         /* remove specified adapter data structure from list */
1094         write_lock_irq(&zfcp_data.config_lock);
1095         list_del(&adapter->list);
1096         write_unlock_irq(&zfcp_data.config_lock);
1097
1098         /* decrease number of adapters in list */
1099         zfcp_data.adapters--;
1100
1101         ZFCP_LOG_TRACE("adapter %s (%p) removed from list, "
1102                        "%i adapters still in list\n",
1103                        zfcp_get_busid_by_adapter(adapter),
1104                        adapter, zfcp_data.adapters);
1105
1106         retval = qdio_free(adapter->ccw_device);
1107         if (retval)
1108                 ZFCP_LOG_NORMAL("bug: qdio_free for adapter %s failed\n",
1109                                 zfcp_get_busid_by_adapter(adapter));
1110
1111         zfcp_free_low_mem_buffers(adapter);
1112         /* free memory of adapter data structure and queues */
1113         zfcp_qdio_free_queues(adapter);
1114         ZFCP_LOG_TRACE("freeing adapter structure\n");
1115         kfree(adapter);
1116  out:
1117         return;
1118 }
1119
1120 /**
1121  * zfcp_port_enqueue - enqueue port to port list of adapter
1122  * @adapter: adapter where remote port is added
1123  * @wwpn: WWPN of the remote port to be enqueued
1124  * @status: initial status for the port
1125  * @d_id: destination id of the remote port to be enqueued
1126  * Return: pointer to enqueued port on success, NULL on error
1127  * Locks: config_sema must be held to serialize changes to the port list
1128  *
1129  * All port internal structures are set up and the sysfs entry is generated.
1130  * d_id is used to enqueue ports with a well known address like the Directory
1131  * Service for nameserver lookup.
1132  */
1133 struct zfcp_port *
1134 zfcp_port_enqueue(struct zfcp_adapter *adapter, wwn_t wwpn, u32 status,
1135                   u32 d_id)
1136 {
1137         struct zfcp_port *port;
1138         int check_wwpn;
1139
1140         check_wwpn = !(status & ZFCP_STATUS_PORT_NO_WWPN);
1141         /*
1142          * check that there is no port with this WWPN already in list
1143          */
1144         if (check_wwpn) {
1145                 read_lock_irq(&zfcp_data.config_lock);
1146                 port = zfcp_get_port_by_wwpn(adapter, wwpn);
1147                 read_unlock_irq(&zfcp_data.config_lock);
1148                 if (port)
1149                         return NULL;
1150         }
1151
1152         port = kmalloc(sizeof (struct zfcp_port), GFP_KERNEL);
1153         if (!port)
1154                 return NULL;
1155         memset(port, 0, sizeof (struct zfcp_port));
1156
1157         /* initialise reference count stuff */
1158         atomic_set(&port->refcount, 0);
1159         init_waitqueue_head(&port->remove_wq);
1160
1161         INIT_LIST_HEAD(&port->unit_list_head);
1162         INIT_LIST_HEAD(&port->unit_remove_lh);
1163
1164         port->adapter = adapter;
1165
1166         if (check_wwpn)
1167                 port->wwpn = wwpn;
1168
1169         atomic_set_mask(status, &port->status);
1170
1171         /* setup for sysfs registration */
1172         if (status & ZFCP_STATUS_PORT_WKA) {
1173                 switch (d_id) {
1174                 case ZFCP_DID_DIRECTORY_SERVICE:
1175                         snprintf(port->sysfs_device.bus_id, BUS_ID_SIZE,
1176                                  "directory");
1177                         break;
1178                 case ZFCP_DID_MANAGEMENT_SERVICE:
1179                         snprintf(port->sysfs_device.bus_id, BUS_ID_SIZE,
1180                                  "management");
1181                         break;
1182                 case ZFCP_DID_KEY_DISTRIBUTION_SERVICE:
1183                         snprintf(port->sysfs_device.bus_id, BUS_ID_SIZE,
1184                                  "key_distribution");
1185                         break;
1186                 case ZFCP_DID_ALIAS_SERVICE:
1187                         snprintf(port->sysfs_device.bus_id, BUS_ID_SIZE,
1188                                  "alias");
1189                         break;
1190                 case ZFCP_DID_TIME_SERVICE:
1191                         snprintf(port->sysfs_device.bus_id, BUS_ID_SIZE,
1192                                  "time");
1193                         break;
1194                 default:
1195                         kfree(port);
1196                         return NULL;
1197                 }
1198                 port->d_id = d_id;
1199                 port->sysfs_device.parent = &adapter->generic_services;
1200         } else {
1201                 snprintf(port->sysfs_device.bus_id,
1202                          BUS_ID_SIZE, "0x%016llx", wwpn);
1203                 port->sysfs_device.parent = &adapter->ccw_device->dev;
1204         }
1205         port->sysfs_device.release = zfcp_sysfs_port_release;
1206         dev_set_drvdata(&port->sysfs_device, port);
1207
1208         /* mark port unusable as long as sysfs registration is not complete */
1209         atomic_set_mask(ZFCP_STATUS_COMMON_REMOVE, &port->status);
1210
1211         if (device_register(&port->sysfs_device)) {
1212                 kfree(port);
1213                 return NULL;
1214         }
1215
1216         if (zfcp_sysfs_port_create_files(&port->sysfs_device, status)) {
1217                 device_unregister(&port->sysfs_device);
1218                 return NULL;
1219         }
1220
1221         zfcp_port_get(port);
1222
1223         write_lock_irq(&zfcp_data.config_lock);
1224         list_add_tail(&port->list, &adapter->port_list_head);
1225         atomic_clear_mask(ZFCP_STATUS_COMMON_REMOVE, &port->status);
1226         atomic_set_mask(ZFCP_STATUS_COMMON_RUNNING, &port->status);
1227         if (d_id == ZFCP_DID_DIRECTORY_SERVICE)
1228                 if (!adapter->nameserver_port)
1229                         adapter->nameserver_port = port;
1230         adapter->ports++;
1231         write_unlock_irq(&zfcp_data.config_lock);
1232
1233         zfcp_adapter_get(adapter);
1234
1235         return port;
1236 }
1237
1238 void
1239 zfcp_port_dequeue(struct zfcp_port *port)
1240 {
1241         zfcp_port_wait(port);
1242         write_lock_irq(&zfcp_data.config_lock);
1243         list_del(&port->list);
1244         port->adapter->ports--;
1245         write_unlock_irq(&zfcp_data.config_lock);
1246         if (port->rport)
1247                 fc_remote_port_delete(port->rport);
1248         port->rport = NULL;
1249         zfcp_adapter_put(port->adapter);
1250         zfcp_sysfs_port_remove_files(&port->sysfs_device,
1251                                      atomic_read(&port->status));
1252         device_unregister(&port->sysfs_device);
1253 }
1254
1255 /* Enqueues a nameserver port */
1256 int
1257 zfcp_nameserver_enqueue(struct zfcp_adapter *adapter)
1258 {
1259         struct zfcp_port *port;
1260
1261         port = zfcp_port_enqueue(adapter, 0, ZFCP_STATUS_PORT_WKA,
1262                                  ZFCP_DID_DIRECTORY_SERVICE);
1263         if (!port) {
1264                 ZFCP_LOG_INFO("error: enqueue of nameserver port for "
1265                               "adapter %s failed\n",
1266                               zfcp_get_busid_by_adapter(adapter));
1267                 return -ENXIO;
1268         }
1269         zfcp_port_put(port);
1270
1271         return 0;
1272 }
1273
1274 #undef ZFCP_LOG_AREA
1275
1276 /****************************************************************/
1277 /******* Fibre Channel Standard related Functions  **************/
1278 /****************************************************************/
1279
1280 #define ZFCP_LOG_AREA                   ZFCP_LOG_AREA_FC
1281
1282 void
1283 zfcp_fsf_incoming_els_rscn(struct zfcp_adapter *adapter,
1284                            struct fsf_status_read_buffer *status_buffer)
1285 {
1286         struct fcp_rscn_head *fcp_rscn_head;
1287         struct fcp_rscn_element *fcp_rscn_element;
1288         struct zfcp_port *port;
1289         u16 i;
1290         u16 no_entries;
1291         u32 range_mask;
1292         unsigned long flags;
1293
1294         fcp_rscn_head = (struct fcp_rscn_head *) status_buffer->payload;
1295         fcp_rscn_element = (struct fcp_rscn_element *) status_buffer->payload;
1296
1297         /* see FC-FS */
1298         no_entries = (fcp_rscn_head->payload_len / 4);
1299
1300         for (i = 1; i < no_entries; i++) {
1301                 /* skip head and start with 1st element */
1302                 fcp_rscn_element++;
1303                 switch (fcp_rscn_element->addr_format) {
1304                 case ZFCP_PORT_ADDRESS:
1305                         range_mask = ZFCP_PORTS_RANGE_PORT;
1306                         break;
1307                 case ZFCP_AREA_ADDRESS:
1308                         range_mask = ZFCP_PORTS_RANGE_AREA;
1309                         break;
1310                 case ZFCP_DOMAIN_ADDRESS:
1311                         range_mask = ZFCP_PORTS_RANGE_DOMAIN;
1312                         break;
1313                 case ZFCP_FABRIC_ADDRESS:
1314                         range_mask = ZFCP_PORTS_RANGE_FABRIC;
1315                         break;
1316                 default:
1317                         ZFCP_LOG_INFO("incoming RSCN with unknown "
1318                                       "address format\n");
1319                         continue;
1320                 }
1321                 read_lock_irqsave(&zfcp_data.config_lock, flags);
1322                 list_for_each_entry(port, &adapter->port_list_head, list) {
1323                         if (atomic_test_mask
1324                             (ZFCP_STATUS_PORT_WKA, &port->status))
1325                                 continue;
1326                         /* Do we know this port? If not skip it. */
1327                         if (!atomic_test_mask
1328                             (ZFCP_STATUS_PORT_DID_DID, &port->status)) {
1329                                 ZFCP_LOG_INFO("incoming RSCN, trying to open "
1330                                               "port 0x%016Lx\n", port->wwpn);
1331                                 zfcp_erp_port_reopen(port,
1332                                                      ZFCP_STATUS_COMMON_ERP_FAILED);
1333                                 continue;
1334                         }
1335
1336                         /*
1337                          * FIXME: race: d_id might being invalidated
1338                          * (...DID_DID reset)
1339                          */
1340                         if ((port->d_id & range_mask)
1341                             == (fcp_rscn_element->nport_did & range_mask)) {
1342                                 ZFCP_LOG_TRACE("reopen did 0x%08x\n",
1343                                                fcp_rscn_element->nport_did);
1344                                 /*
1345                                  * Unfortunately, an RSCN does not specify the
1346                                  * type of change a target underwent. We assume
1347                                  * that it makes sense to reopen the link.
1348                                  * FIXME: Shall we try to find out more about
1349                                  * the target and link state before closing it?
1350                                  * How to accomplish this? (nameserver?)
1351                                  * Where would such code be put in?
1352                                  * (inside or outside erp)
1353                                  */
1354                                 ZFCP_LOG_INFO("incoming RSCN, trying to open "
1355                                               "port 0x%016Lx\n", port->wwpn);
1356                                 zfcp_test_link(port);
1357                         }
1358                 }
1359                 read_unlock_irqrestore(&zfcp_data.config_lock, flags);
1360         }
1361 }
1362
1363 static void
1364 zfcp_fsf_incoming_els_plogi(struct zfcp_adapter *adapter,
1365                             struct fsf_status_read_buffer *status_buffer)
1366 {
1367         logi *els_logi = (logi *) status_buffer->payload;
1368         struct zfcp_port *port;
1369         unsigned long flags;
1370
1371         read_lock_irqsave(&zfcp_data.config_lock, flags);
1372         list_for_each_entry(port, &adapter->port_list_head, list) {
1373                 if (port->wwpn == (*(wwn_t *) & els_logi->nport_wwn))
1374                         break;
1375         }
1376         read_unlock_irqrestore(&zfcp_data.config_lock, flags);
1377
1378         if (!port || (port->wwpn != (*(wwn_t *) & els_logi->nport_wwn))) {
1379                 ZFCP_LOG_DEBUG("ignored incoming PLOGI for nonexisting port "
1380                                "with d_id 0x%08x on adapter %s\n",
1381                                status_buffer->d_id,
1382                                zfcp_get_busid_by_adapter(adapter));
1383         } else {
1384                 zfcp_erp_port_forced_reopen(port, 0);
1385         }
1386 }
1387
1388 static void
1389 zfcp_fsf_incoming_els_logo(struct zfcp_adapter *adapter,
1390                            struct fsf_status_read_buffer *status_buffer)
1391 {
1392         struct fcp_logo *els_logo = (struct fcp_logo *) status_buffer->payload;
1393         struct zfcp_port *port;
1394         unsigned long flags;
1395
1396         read_lock_irqsave(&zfcp_data.config_lock, flags);
1397         list_for_each_entry(port, &adapter->port_list_head, list) {
1398                 if (port->wwpn == els_logo->nport_wwpn)
1399                         break;
1400         }
1401         read_unlock_irqrestore(&zfcp_data.config_lock, flags);
1402
1403         if (!port || (port->wwpn != els_logo->nport_wwpn)) {
1404                 ZFCP_LOG_DEBUG("ignored incoming LOGO for nonexisting port "
1405                                "with d_id 0x%08x on adapter %s\n",
1406                                status_buffer->d_id,
1407                                zfcp_get_busid_by_adapter(adapter));
1408         } else {
1409                 zfcp_erp_port_forced_reopen(port, 0);
1410         }
1411 }
1412
1413 static void
1414 zfcp_fsf_incoming_els_unknown(struct zfcp_adapter *adapter,
1415                               struct fsf_status_read_buffer *status_buffer)
1416 {
1417         ZFCP_LOG_NORMAL("warning: unknown incoming ELS 0x%08x "
1418                         "for adapter %s\n", *(u32 *) (status_buffer->payload),
1419                         zfcp_get_busid_by_adapter(adapter));
1420
1421 }
1422
1423 void
1424 zfcp_fsf_incoming_els(struct zfcp_fsf_req *fsf_req)
1425 {
1426         struct fsf_status_read_buffer *status_buffer;
1427         u32 els_type;
1428         struct zfcp_adapter *adapter;
1429
1430         status_buffer = (struct fsf_status_read_buffer *) fsf_req->data;
1431         els_type = *(u32 *) (status_buffer->payload);
1432         adapter = fsf_req->adapter;
1433
1434         zfcp_san_dbf_event_incoming_els(fsf_req);
1435         if (els_type == LS_PLOGI)
1436                 zfcp_fsf_incoming_els_plogi(adapter, status_buffer);
1437         else if (els_type == LS_LOGO)
1438                 zfcp_fsf_incoming_els_logo(adapter, status_buffer);
1439         else if ((els_type & 0xffff0000) == LS_RSCN)
1440                 /* we are only concerned with the command, not the length */
1441                 zfcp_fsf_incoming_els_rscn(adapter, status_buffer);
1442         else
1443                 zfcp_fsf_incoming_els_unknown(adapter, status_buffer);
1444 }
1445
1446
1447 /**
1448  * zfcp_gid_pn_buffers_alloc - allocate buffers for GID_PN nameserver request
1449  * @gid_pn: pointer to return pointer to struct zfcp_gid_pn_data
1450  * @pool: pointer to mempool_t if non-null memory pool is used for allocation
1451  */
1452 static int
1453 zfcp_gid_pn_buffers_alloc(struct zfcp_gid_pn_data **gid_pn, mempool_t *pool)
1454 {
1455         struct zfcp_gid_pn_data *data;
1456
1457         if (pool != NULL) {
1458                 data = mempool_alloc(pool, GFP_ATOMIC);
1459                 if (likely(data != NULL)) {
1460                         data->ct.pool = pool;
1461                 }
1462         } else {
1463                 data = kmalloc(sizeof(struct zfcp_gid_pn_data), GFP_ATOMIC);
1464         }
1465
1466         if (NULL == data)
1467                 return -ENOMEM;
1468
1469         memset(data, 0, sizeof(*data));
1470         data->ct.req = &data->req;
1471         data->ct.resp = &data->resp;
1472         data->ct.req_count = data->ct.resp_count = 1;
1473         zfcp_address_to_sg(&data->ct_iu_req, &data->req);
1474         zfcp_address_to_sg(&data->ct_iu_resp, &data->resp);
1475         data->req.length = sizeof(struct ct_iu_gid_pn_req);
1476         data->resp.length = sizeof(struct ct_iu_gid_pn_resp);
1477
1478         *gid_pn = data;
1479         return 0;
1480 }
1481
1482 /**
1483  * zfcp_gid_pn_buffers_free - free buffers for GID_PN nameserver request
1484  * @gid_pn: pointer to struct zfcp_gid_pn_data which has to be freed
1485  */
1486 static void
1487 zfcp_gid_pn_buffers_free(struct zfcp_gid_pn_data *gid_pn)
1488 {
1489         if ((gid_pn->ct.pool != 0))
1490                 mempool_free(gid_pn, gid_pn->ct.pool);
1491         else
1492                 kfree(gid_pn);
1493
1494         return;
1495 }
1496
1497 /**
1498  * zfcp_ns_gid_pn_request - initiate GID_PN nameserver request
1499  * @erp_action: pointer to zfcp_erp_action where GID_PN request is needed
1500  */
1501 int
1502 zfcp_ns_gid_pn_request(struct zfcp_erp_action *erp_action)
1503 {
1504         int ret;
1505         struct ct_iu_gid_pn_req *ct_iu_req;
1506         struct zfcp_gid_pn_data *gid_pn;
1507         struct zfcp_adapter *adapter = erp_action->adapter;
1508
1509         ret = zfcp_gid_pn_buffers_alloc(&gid_pn, adapter->pool.data_gid_pn);
1510         if (ret < 0) {
1511                 ZFCP_LOG_INFO("error: buffer allocation for gid_pn nameserver "
1512                               "request failed for adapter %s\n",
1513                               zfcp_get_busid_by_adapter(adapter));
1514                 goto out;
1515         }
1516
1517         /* setup nameserver request */
1518         ct_iu_req = zfcp_sg_to_address(gid_pn->ct.req);
1519         ct_iu_req->header.revision = ZFCP_CT_REVISION;
1520         ct_iu_req->header.gs_type = ZFCP_CT_DIRECTORY_SERVICE;
1521         ct_iu_req->header.gs_subtype = ZFCP_CT_NAME_SERVER;
1522         ct_iu_req->header.options = ZFCP_CT_SYNCHRONOUS;
1523         ct_iu_req->header.cmd_rsp_code = ZFCP_CT_GID_PN;
1524         ct_iu_req->header.max_res_size = ZFCP_CT_MAX_SIZE;
1525         ct_iu_req->wwpn = erp_action->port->wwpn;
1526
1527         /* setup parameters for send generic command */
1528         gid_pn->ct.port = adapter->nameserver_port;
1529         gid_pn->ct.handler = zfcp_ns_gid_pn_handler;
1530         gid_pn->ct.handler_data = (unsigned long) gid_pn;
1531         gid_pn->ct.timeout = ZFCP_NS_GID_PN_TIMEOUT;
1532         gid_pn->ct.timer = &erp_action->timer;
1533         gid_pn->port = erp_action->port;
1534
1535         ret = zfcp_fsf_send_ct(&gid_pn->ct, adapter->pool.fsf_req_erp,
1536                                erp_action);
1537         if (ret) {
1538                 ZFCP_LOG_INFO("error: initiation of gid_pn nameserver request "
1539                               "failed for adapter %s\n",
1540                               zfcp_get_busid_by_adapter(adapter));
1541
1542                 zfcp_gid_pn_buffers_free(gid_pn);
1543         }
1544
1545  out:
1546         return ret;
1547 }
1548
1549 /**
1550  * zfcp_ns_gid_pn_handler - handler for GID_PN nameserver request
1551  * @data: unsigned long, contains pointer to struct zfcp_gid_pn_data
1552  */
1553 static void zfcp_ns_gid_pn_handler(unsigned long data)
1554 {
1555         struct zfcp_port *port;
1556         struct zfcp_send_ct *ct;
1557         struct ct_iu_gid_pn_req *ct_iu_req;
1558         struct ct_iu_gid_pn_resp *ct_iu_resp;
1559         struct zfcp_gid_pn_data *gid_pn;
1560
1561
1562         gid_pn = (struct zfcp_gid_pn_data *) data;
1563         port = gid_pn->port;
1564         ct = &gid_pn->ct;
1565         ct_iu_req = zfcp_sg_to_address(ct->req);
1566         ct_iu_resp = zfcp_sg_to_address(ct->resp);
1567
1568         if (ct->status != 0)
1569                 goto failed;
1570
1571         if (zfcp_check_ct_response(&ct_iu_resp->header)) {
1572                 /* FIXME: do we need some specific erp entry points */
1573                 atomic_set_mask(ZFCP_STATUS_PORT_INVALID_WWPN, &port->status);
1574                 goto failed;
1575         }
1576         /* paranoia */
1577         if (ct_iu_req->wwpn != port->wwpn) {
1578                 ZFCP_LOG_NORMAL("bug: wwpn 0x%016Lx returned by nameserver "
1579                                 "lookup does not match expected wwpn 0x%016Lx "
1580                                 "for adapter %s\n", ct_iu_req->wwpn, port->wwpn,
1581                                 zfcp_get_busid_by_port(port));
1582                 goto mismatch;
1583         }
1584
1585         /* looks like a valid d_id */
1586         port->d_id = ct_iu_resp->d_id & ZFCP_DID_MASK;
1587         atomic_set_mask(ZFCP_STATUS_PORT_DID_DID, &port->status);
1588         ZFCP_LOG_DEBUG("adapter %s:  wwpn=0x%016Lx ---> d_id=0x%08x\n",
1589                        zfcp_get_busid_by_port(port), port->wwpn, port->d_id);
1590         goto out;
1591
1592  mismatch:
1593         ZFCP_LOG_DEBUG("CT IUs do not match:\n");
1594         ZFCP_HEX_DUMP(ZFCP_LOG_LEVEL_DEBUG, (char *) ct_iu_req,
1595                       sizeof(struct ct_iu_gid_pn_req));
1596         ZFCP_HEX_DUMP(ZFCP_LOG_LEVEL_DEBUG, (char *) ct_iu_resp,
1597                       sizeof(struct ct_iu_gid_pn_resp));
1598
1599  failed:
1600         ZFCP_LOG_NORMAL("warning: failed gid_pn nameserver request for wwpn "
1601                         "0x%016Lx for adapter %s\n",
1602                         port->wwpn, zfcp_get_busid_by_port(port));
1603  out:
1604         zfcp_gid_pn_buffers_free(gid_pn);
1605         return;
1606 }
1607
1608 /* reject CT_IU reason codes acc. to FC-GS-4 */
1609 static const struct zfcp_rc_entry zfcp_ct_rc[] = {
1610         {0x01, "invalid command code"},
1611         {0x02, "invalid version level"},
1612         {0x03, "logical error"},
1613         {0x04, "invalid CT_IU size"},
1614         {0x05, "logical busy"},
1615         {0x07, "protocol error"},
1616         {0x09, "unable to perform command request"},
1617         {0x0b, "command not supported"},
1618         {0x0d, "server not available"},
1619         {0x0e, "session could not be established"},
1620         {0xff, "vendor specific error"},
1621         {0, NULL},
1622 };
1623
1624 /* LS_RJT reason codes acc. to FC-FS */
1625 static const struct zfcp_rc_entry zfcp_ls_rjt_rc[] = {
1626         {0x01, "invalid LS_Command code"},
1627         {0x03, "logical error"},
1628         {0x05, "logical busy"},
1629         {0x07, "protocol error"},
1630         {0x09, "unable to perform command request"},
1631         {0x0b, "command not supported"},
1632         {0x0e, "command already in progress"},
1633         {0xff, "vendor specific error"},
1634         {0, NULL},
1635 };
1636
1637 /* reject reason codes according to FC-PH/FC-FS */
1638 static const struct zfcp_rc_entry zfcp_p_rjt_rc[] = {
1639         {0x01, "invalid D_ID"},
1640         {0x02, "invalid S_ID"},
1641         {0x03, "Nx_Port not available, temporary"},
1642         {0x04, "Nx_Port not available, permament"},
1643         {0x05, "class not supported"},
1644         {0x06, "delimiter usage error"},
1645         {0x07, "TYPE not supported"},
1646         {0x08, "invalid Link_Control"},
1647         {0x09, "invalid R_CTL field"},
1648         {0x0a, "invalid F_CTL field"},
1649         {0x0b, "invalid OX_ID"},
1650         {0x0c, "invalid RX_ID"},
1651         {0x0d, "invalid SEQ_ID"},
1652         {0x0e, "invalid DF_CTL"},
1653         {0x0f, "invalid SEQ_CNT"},
1654         {0x10, "invalid parameter field"},
1655         {0x11, "exchange error"},
1656         {0x12, "protocol error"},
1657         {0x13, "incorrect length"},
1658         {0x14, "unsupported ACK"},
1659         {0x15, "class of service not supported by entity at FFFFFE"},
1660         {0x16, "login required"},
1661         {0x17, "excessive sequences attempted"},
1662         {0x18, "unable to establish exchange"},
1663         {0x1a, "fabric path not available"},
1664         {0x1b, "invalid VC_ID (class 4)"},
1665         {0x1c, "invalid CS_CTL field"},
1666         {0x1d, "insufficient resources for VC (class 4)"},
1667         {0x1f, "invalid class of service"},
1668         {0x20, "preemption request rejected"},
1669         {0x21, "preemption not enabled"},
1670         {0x22, "multicast error"},
1671         {0x23, "multicast error terminate"},
1672         {0x24, "process login required"},
1673         {0xff, "vendor specific reject"},
1674         {0, NULL},
1675 };
1676
1677 /**
1678  * zfcp_rc_description - return description for given reaon code
1679  * @code: reason code
1680  * @rc_table: table of reason codes and descriptions
1681  */
1682 static inline const char *
1683 zfcp_rc_description(u8 code, const struct zfcp_rc_entry *rc_table)
1684 {
1685         const char *descr = "unknown reason code";
1686
1687         do {
1688                 if (code == rc_table->code) {
1689                         descr = rc_table->description;
1690                         break;
1691                 }
1692                 rc_table++;
1693         } while (rc_table->code && rc_table->description);
1694
1695         return descr;
1696 }
1697
1698 /**
1699  * zfcp_check_ct_response - evaluate reason code for CT_IU
1700  * @rjt: response payload to an CT_IU request
1701  * Return: 0 for accept CT_IU, 1 for reject CT_IU or invlid response code
1702  */
1703 int
1704 zfcp_check_ct_response(struct ct_hdr *rjt)
1705 {
1706         if (rjt->cmd_rsp_code == ZFCP_CT_ACCEPT)
1707                 return 0;
1708
1709         if (rjt->cmd_rsp_code != ZFCP_CT_REJECT) {
1710                 ZFCP_LOG_NORMAL("error: invalid Generic Service command/"
1711                                 "response code (0x%04hx)\n",
1712                                 rjt->cmd_rsp_code);
1713                 return 1;
1714         }
1715
1716         ZFCP_LOG_INFO("Generic Service command rejected\n");
1717         ZFCP_LOG_INFO("%s (0x%02x, 0x%02x, 0x%02x)\n",
1718                       zfcp_rc_description(rjt->reason_code, zfcp_ct_rc),
1719                       (u32) rjt->reason_code, (u32) rjt->reason_code_expl,
1720                       (u32) rjt->vendor_unique);
1721
1722         return 1;
1723 }
1724
1725 /**
1726  * zfcp_print_els_rjt - print reject parameter and description for ELS reject
1727  * @rjt_par: reject parameter acc. to FC-PH/FC-FS
1728  * @rc_table: table of reason codes and descriptions
1729  */
1730 static inline void
1731 zfcp_print_els_rjt(struct zfcp_ls_rjt_par *rjt_par,
1732                    const struct zfcp_rc_entry *rc_table)
1733 {
1734         ZFCP_LOG_INFO("%s (%02x %02x %02x %02x)\n",
1735                       zfcp_rc_description(rjt_par->reason_code, rc_table),
1736                       (u32) rjt_par->action, (u32) rjt_par->reason_code,
1737                       (u32) rjt_par->reason_expl, (u32) rjt_par->vendor_unique);
1738 }
1739
1740 /**
1741  * zfcp_fsf_handle_els_rjt - evaluate status qualifier/reason code on ELS reject
1742  * @sq: status qualifier word
1743  * @rjt_par: reject parameter as described in FC-PH and FC-FS
1744  * Return: -EROMTEIO for LS_RJT, -EREMCHG for invalid D_ID, -EIO else
1745  */
1746 int
1747 zfcp_handle_els_rjt(u32 sq, struct zfcp_ls_rjt_par *rjt_par)
1748 {
1749         int ret = -EIO;
1750
1751         if (sq == FSF_IOSTAT_NPORT_RJT) {
1752                 ZFCP_LOG_INFO("ELS rejected (P_RJT)\n");
1753                 zfcp_print_els_rjt(rjt_par, zfcp_p_rjt_rc);
1754                 /* invalid d_id */
1755                 if (rjt_par->reason_code == 0x01)
1756                         ret = -EREMCHG;
1757         } else if (sq == FSF_IOSTAT_FABRIC_RJT) {
1758                 ZFCP_LOG_INFO("ELS rejected (F_RJT)\n");
1759                 zfcp_print_els_rjt(rjt_par, zfcp_p_rjt_rc);
1760                 /* invalid d_id */
1761                 if (rjt_par->reason_code == 0x01)
1762                         ret = -EREMCHG;
1763         } else if (sq == FSF_IOSTAT_LS_RJT) {
1764                 ZFCP_LOG_INFO("ELS rejected (LS_RJT)\n");
1765                 zfcp_print_els_rjt(rjt_par, zfcp_ls_rjt_rc);
1766                 ret = -EREMOTEIO;
1767         } else
1768                 ZFCP_LOG_INFO("unexpected SQ: 0x%02x\n", sq);
1769
1770         return ret;
1771 }
1772
1773 #undef ZFCP_LOG_AREA