2 * IUCV base infrastructure.
4 * Copyright IBM Corp. 2001, 2009
8 * Alan Altmark (Alan_Altmark@us.ibm.com) Sept. 2000
9 * Xenia Tkatschow (xenia@us.ibm.com)
10 * 2Gb awareness and general cleanup:
11 * Fritz Elfert (elfert@de.ibm.com, felfert@millenux.com)
12 * Rewritten for af_iucv:
13 * Martin Schwidefsky <schwidefsky@de.ibm.com>
15 * Ursula Braun (ursula.braun@de.ibm.com)
19 * CP Programming Service, IBM document # SC24-5760
21 * This program is free software; you can redistribute it and/or modify
22 * it under the terms of the GNU General Public License as published by
23 * the Free Software Foundation; either version 2, or (at your option)
26 * This program is distributed in the hope that it will be useful,
27 * but WITHOUT ANY WARRANTY; without even the implied warranty of
28 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
29 * GNU General Public License for more details.
31 * You should have received a copy of the GNU General Public License
32 * along with this program; if not, write to the Free Software
33 * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
36 #define KMSG_COMPONENT "iucv"
37 #define pr_fmt(fmt) KMSG_COMPONENT ": " fmt
39 #include <linux/kernel_stat.h>
40 #include <linux/module.h>
41 #include <linux/moduleparam.h>
42 #include <linux/spinlock.h>
43 #include <linux/kernel.h>
44 #include <linux/slab.h>
45 #include <linux/init.h>
46 #include <linux/interrupt.h>
47 #include <linux/list.h>
48 #include <linux/errno.h>
49 #include <linux/err.h>
50 #include <linux/device.h>
51 #include <linux/cpu.h>
52 #include <linux/reboot.h>
53 #include <net/iucv/iucv.h>
54 #include <linux/atomic.h>
55 #include <asm/ebcdic.h>
62 * All flags are defined in the field IPFLAGS1 of each function
63 * and can be found in CP Programming Services.
64 * IPSRCCLS - Indicates you have specified a source class.
65 * IPTRGCLS - Indicates you have specified a target class.
66 * IPFGPID - Indicates you have specified a pathid.
67 * IPFGMID - Indicates you have specified a message ID.
68 * IPNORPY - Indicates a one-way message. No reply expected.
69 * IPALL - Indicates that all paths are affected.
71 #define IUCV_IPSRCCLS 0x01
72 #define IUCV_IPTRGCLS 0x01
73 #define IUCV_IPFGPID 0x02
74 #define IUCV_IPFGMID 0x04
75 #define IUCV_IPNORPY 0x10
76 #define IUCV_IPALL 0x80
78 static int iucv_bus_match(struct device
*dev
, struct device_driver
*drv
)
87 IUCV_PM_RESTORING
= 3,
89 static enum iucv_pm_states iucv_pm_state
;
91 static int iucv_pm_prepare(struct device
*);
92 static void iucv_pm_complete(struct device
*);
93 static int iucv_pm_freeze(struct device
*);
94 static int iucv_pm_thaw(struct device
*);
95 static int iucv_pm_restore(struct device
*);
97 static const struct dev_pm_ops iucv_pm_ops
= {
98 .prepare
= iucv_pm_prepare
,
99 .complete
= iucv_pm_complete
,
100 .freeze
= iucv_pm_freeze
,
101 .thaw
= iucv_pm_thaw
,
102 .restore
= iucv_pm_restore
,
105 struct bus_type iucv_bus
= {
107 .match
= iucv_bus_match
,
110 EXPORT_SYMBOL(iucv_bus
);
112 struct device
*iucv_root
;
113 EXPORT_SYMBOL(iucv_root
);
115 static int iucv_available
;
117 /* General IUCV interrupt structure */
118 struct iucv_irq_data
{
125 struct iucv_irq_list
{
126 struct list_head list
;
127 struct iucv_irq_data data
;
130 static struct iucv_irq_data
*iucv_irq_data
[NR_CPUS
];
131 static cpumask_t iucv_buffer_cpumask
= { CPU_BITS_NONE
};
132 static cpumask_t iucv_irq_cpumask
= { CPU_BITS_NONE
};
135 * Queue of interrupt buffers lock for delivery via the tasklet
136 * (fast but can't call smp_call_function).
138 static LIST_HEAD(iucv_task_queue
);
141 * The tasklet for fast delivery of iucv interrupts.
143 static void iucv_tasklet_fn(unsigned long);
144 static DECLARE_TASKLET(iucv_tasklet
, iucv_tasklet_fn
,0);
147 * Queue of interrupt buffers for delivery via a work queue
148 * (slower but can call smp_call_function).
150 static LIST_HEAD(iucv_work_queue
);
153 * The work element to deliver path pending interrupts.
155 static void iucv_work_fn(struct work_struct
*work
);
156 static DECLARE_WORK(iucv_work
, iucv_work_fn
);
159 * Spinlock protecting task and work queue.
161 static DEFINE_SPINLOCK(iucv_queue_lock
);
163 enum iucv_command_codes
{
165 IUCV_RETRIEVE_BUFFER
= 2,
173 IUCV_DECLARE_BUFFER
= 12,
178 IUCV_SETCONTROLMASK
= 17,
182 * Error messages that are used with the iucv_sever function. They get
183 * converted to EBCDIC.
185 static char iucv_error_no_listener
[16] = "NO LISTENER";
186 static char iucv_error_no_memory
[16] = "NO MEMORY";
187 static char iucv_error_pathid
[16] = "INVALID PATHID";
190 * iucv_handler_list: List of registered handlers.
192 static LIST_HEAD(iucv_handler_list
);
195 * iucv_path_table: an array of iucv_path structures.
197 static struct iucv_path
**iucv_path_table
;
198 static unsigned long iucv_max_pathid
;
201 * iucv_lock: spinlock protecting iucv_handler_list and iucv_pathid_table
203 static DEFINE_SPINLOCK(iucv_table_lock
);
206 * iucv_active_cpu: contains the number of the cpu executing the tasklet
207 * or the work handler. Needed for iucv_path_sever called from tasklet.
209 static int iucv_active_cpu
= -1;
212 * Mutex and wait queue for iucv_register/iucv_unregister.
214 static DEFINE_MUTEX(iucv_register_mutex
);
217 * Counter for number of non-smp capable handlers.
219 static int iucv_nonsmp_handler
;
222 * IUCV control data structure. Used by iucv_path_accept, iucv_path_connect,
223 * iucv_path_quiesce and iucv_path_sever.
225 struct iucv_cmd_control
{
234 } __attribute__ ((packed
,aligned(8)));
237 * Data in parameter list iucv structure. Used by iucv_message_send,
238 * iucv_message_send2way and iucv_message_reply.
240 struct iucv_cmd_dpl
{
252 } __attribute__ ((packed
,aligned(8)));
255 * Data in buffer iucv structure. Used by iucv_message_receive,
256 * iucv_message_reject, iucv_message_send, iucv_message_send2way
257 * and iucv_declare_cpu.
272 } __attribute__ ((packed
,aligned(8)));
275 * Purge message iucv structure. Used by iucv_message_purge.
277 struct iucv_cmd_purge
{
288 } __attribute__ ((packed
,aligned(8)));
291 * Set mask iucv structure. Used by iucv_enable_cpu.
293 struct iucv_cmd_set_mask
{
298 } __attribute__ ((packed
,aligned(8)));
301 struct iucv_cmd_control ctrl
;
302 struct iucv_cmd_dpl dpl
;
303 struct iucv_cmd_db db
;
304 struct iucv_cmd_purge purge
;
305 struct iucv_cmd_set_mask set_mask
;
309 * Anchor for per-cpu IUCV command parameter block.
311 static union iucv_param
*iucv_param
[NR_CPUS
];
312 static union iucv_param
*iucv_param_irq
[NR_CPUS
];
316 * @code: identifier of IUCV call to CP.
317 * @parm: pointer to a struct iucv_parm block
319 * Calls CP to execute IUCV commands.
321 * Returns the result of the CP IUCV call.
323 static inline int iucv_call_b2f0(int command
, union iucv_param
*parm
)
325 register unsigned long reg0
asm ("0");
326 register unsigned long reg1
asm ("1");
330 reg1
= virt_to_phys(parm
);
332 " .long 0xb2f01000\n"
335 : "=d" (ccode
), "=m" (*parm
), "+d" (reg0
), "+a" (reg1
)
336 : "m" (*parm
) : "cc");
337 return (ccode
== 1) ? parm
->ctrl
.iprcode
: ccode
;
343 * Determines the maximum number of connections that may be established.
345 * Returns the maximum number of connections or -EPERM is IUCV is not
348 static int iucv_query_maxconn(void)
350 register unsigned long reg0
asm ("0");
351 register unsigned long reg1
asm ("1");
355 param
= kzalloc(sizeof(union iucv_param
), GFP_KERNEL
|GFP_DMA
);
359 reg1
= (unsigned long) param
;
361 " .long 0xb2f01000\n"
364 : "=d" (ccode
), "+d" (reg0
), "+d" (reg1
) : : "cc");
366 iucv_max_pathid
= reg1
;
368 return ccode
? -EPERM
: 0;
375 * Allow iucv interrupts on this cpu.
377 static void iucv_allow_cpu(void *data
)
379 int cpu
= smp_processor_id();
380 union iucv_param
*parm
;
383 * Enable all iucv interrupts.
384 * ipmask contains bits for the different interrupts
385 * 0x80 - Flag to allow nonpriority message pending interrupts
386 * 0x40 - Flag to allow priority message pending interrupts
387 * 0x20 - Flag to allow nonpriority message completion interrupts
388 * 0x10 - Flag to allow priority message completion interrupts
389 * 0x08 - Flag to allow IUCV control interrupts
391 parm
= iucv_param_irq
[cpu
];
392 memset(parm
, 0, sizeof(union iucv_param
));
393 parm
->set_mask
.ipmask
= 0xf8;
394 iucv_call_b2f0(IUCV_SETMASK
, parm
);
397 * Enable all iucv control interrupts.
398 * ipmask contains bits for the different interrupts
399 * 0x80 - Flag to allow pending connections interrupts
400 * 0x40 - Flag to allow connection complete interrupts
401 * 0x20 - Flag to allow connection severed interrupts
402 * 0x10 - Flag to allow connection quiesced interrupts
403 * 0x08 - Flag to allow connection resumed interrupts
405 memset(parm
, 0, sizeof(union iucv_param
));
406 parm
->set_mask
.ipmask
= 0xf8;
407 iucv_call_b2f0(IUCV_SETCONTROLMASK
, parm
);
408 /* Set indication that iucv interrupts are allowed for this cpu. */
409 cpumask_set_cpu(cpu
, &iucv_irq_cpumask
);
416 * Block iucv interrupts on this cpu.
418 static void iucv_block_cpu(void *data
)
420 int cpu
= smp_processor_id();
421 union iucv_param
*parm
;
423 /* Disable all iucv interrupts. */
424 parm
= iucv_param_irq
[cpu
];
425 memset(parm
, 0, sizeof(union iucv_param
));
426 iucv_call_b2f0(IUCV_SETMASK
, parm
);
428 /* Clear indication that iucv interrupts are allowed for this cpu. */
429 cpumask_clear_cpu(cpu
, &iucv_irq_cpumask
);
433 * iucv_block_cpu_almost
436 * Allow connection-severed interrupts only on this cpu.
438 static void iucv_block_cpu_almost(void *data
)
440 int cpu
= smp_processor_id();
441 union iucv_param
*parm
;
443 /* Allow iucv control interrupts only */
444 parm
= iucv_param_irq
[cpu
];
445 memset(parm
, 0, sizeof(union iucv_param
));
446 parm
->set_mask
.ipmask
= 0x08;
447 iucv_call_b2f0(IUCV_SETMASK
, parm
);
448 /* Allow iucv-severed interrupt only */
449 memset(parm
, 0, sizeof(union iucv_param
));
450 parm
->set_mask
.ipmask
= 0x20;
451 iucv_call_b2f0(IUCV_SETCONTROLMASK
, parm
);
453 /* Clear indication that iucv interrupts are allowed for this cpu. */
454 cpumask_clear_cpu(cpu
, &iucv_irq_cpumask
);
461 * Declare a interrupt buffer on this cpu.
463 static void iucv_declare_cpu(void *data
)
465 int cpu
= smp_processor_id();
466 union iucv_param
*parm
;
469 if (cpumask_test_cpu(cpu
, &iucv_buffer_cpumask
))
472 /* Declare interrupt buffer. */
473 parm
= iucv_param_irq
[cpu
];
474 memset(parm
, 0, sizeof(union iucv_param
));
475 parm
->db
.ipbfadr1
= virt_to_phys(iucv_irq_data
[cpu
]);
476 rc
= iucv_call_b2f0(IUCV_DECLARE_BUFFER
, parm
);
478 char *err
= "Unknown";
481 err
= "Directory error";
484 err
= "Invalid length";
487 err
= "Buffer already exists";
490 err
= "Buffer overlap";
493 err
= "Paging or storage error";
496 pr_warning("Defining an interrupt buffer on CPU %i"
497 " failed with 0x%02x (%s)\n", cpu
, rc
, err
);
501 /* Set indication that an iucv buffer exists for this cpu. */
502 cpumask_set_cpu(cpu
, &iucv_buffer_cpumask
);
504 if (iucv_nonsmp_handler
== 0 || cpumask_empty(&iucv_irq_cpumask
))
505 /* Enable iucv interrupts on this cpu. */
506 iucv_allow_cpu(NULL
);
508 /* Disable iucv interrupts on this cpu. */
509 iucv_block_cpu(NULL
);
516 * Retrieve interrupt buffer on this cpu.
518 static void iucv_retrieve_cpu(void *data
)
520 int cpu
= smp_processor_id();
521 union iucv_param
*parm
;
523 if (!cpumask_test_cpu(cpu
, &iucv_buffer_cpumask
))
526 /* Block iucv interrupts. */
527 iucv_block_cpu(NULL
);
529 /* Retrieve interrupt buffer. */
530 parm
= iucv_param_irq
[cpu
];
531 iucv_call_b2f0(IUCV_RETRIEVE_BUFFER
, parm
);
533 /* Clear indication that an iucv buffer exists for this cpu. */
534 cpumask_clear_cpu(cpu
, &iucv_buffer_cpumask
);
540 * Allow iucv interrupts on all cpus.
542 static void iucv_setmask_mp(void)
547 for_each_online_cpu(cpu
)
548 /* Enable all cpus with a declared buffer. */
549 if (cpumask_test_cpu(cpu
, &iucv_buffer_cpumask
) &&
550 !cpumask_test_cpu(cpu
, &iucv_irq_cpumask
))
551 smp_call_function_single(cpu
, iucv_allow_cpu
,
559 * Allow iucv interrupts on a single cpu.
561 static void iucv_setmask_up(void)
566 /* Disable all cpu but the first in cpu_irq_cpumask. */
567 cpumask_copy(&cpumask
, &iucv_irq_cpumask
);
568 cpumask_clear_cpu(cpumask_first(&iucv_irq_cpumask
), &cpumask
);
569 for_each_cpu(cpu
, &cpumask
)
570 smp_call_function_single(cpu
, iucv_block_cpu
, NULL
, 1);
576 * This function makes iucv ready for use. It allocates the pathid
577 * table, declares an iucv interrupt buffer and enables the iucv
578 * interrupts. Called when the first user has registered an iucv
581 static int iucv_enable(void)
588 alloc_size
= iucv_max_pathid
* sizeof(struct iucv_path
);
589 iucv_path_table
= kzalloc(alloc_size
, GFP_KERNEL
);
590 if (!iucv_path_table
)
592 /* Declare per cpu buffers. */
594 for_each_online_cpu(cpu
)
595 smp_call_function_single(cpu
, iucv_declare_cpu
, NULL
, 1);
596 if (cpumask_empty(&iucv_buffer_cpumask
))
597 /* No cpu could declare an iucv buffer. */
602 kfree(iucv_path_table
);
603 iucv_path_table
= NULL
;
611 * This function shuts down iucv. It disables iucv interrupts, retrieves
612 * the iucv interrupt buffer and frees the pathid table. Called after the
613 * last user unregister its iucv handler.
615 static void iucv_disable(void)
618 on_each_cpu(iucv_retrieve_cpu
, NULL
, 1);
619 kfree(iucv_path_table
);
620 iucv_path_table
= NULL
;
624 static void free_iucv_data(int cpu
)
626 kfree(iucv_param_irq
[cpu
]);
627 iucv_param_irq
[cpu
] = NULL
;
628 kfree(iucv_param
[cpu
]);
629 iucv_param
[cpu
] = NULL
;
630 kfree(iucv_irq_data
[cpu
]);
631 iucv_irq_data
[cpu
] = NULL
;
634 static int alloc_iucv_data(int cpu
)
636 /* Note: GFP_DMA used to get memory below 2G */
637 iucv_irq_data
[cpu
] = kmalloc_node(sizeof(struct iucv_irq_data
),
638 GFP_KERNEL
|GFP_DMA
, cpu_to_node(cpu
));
639 if (!iucv_irq_data
[cpu
])
642 /* Allocate parameter blocks. */
643 iucv_param
[cpu
] = kmalloc_node(sizeof(union iucv_param
),
644 GFP_KERNEL
|GFP_DMA
, cpu_to_node(cpu
));
645 if (!iucv_param
[cpu
])
648 iucv_param_irq
[cpu
] = kmalloc_node(sizeof(union iucv_param
),
649 GFP_KERNEL
|GFP_DMA
, cpu_to_node(cpu
));
650 if (!iucv_param_irq
[cpu
])
660 static int iucv_cpu_notify(struct notifier_block
*self
,
661 unsigned long action
, void *hcpu
)
664 long cpu
= (long) hcpu
;
668 case CPU_UP_PREPARE_FROZEN
:
669 if (alloc_iucv_data(cpu
))
670 return notifier_from_errno(-ENOMEM
);
672 case CPU_UP_CANCELED
:
673 case CPU_UP_CANCELED_FROZEN
:
675 case CPU_DEAD_FROZEN
:
679 case CPU_ONLINE_FROZEN
:
680 case CPU_DOWN_FAILED
:
681 case CPU_DOWN_FAILED_FROZEN
:
682 if (!iucv_path_table
)
684 smp_call_function_single(cpu
, iucv_declare_cpu
, NULL
, 1);
686 case CPU_DOWN_PREPARE
:
687 case CPU_DOWN_PREPARE_FROZEN
:
688 if (!iucv_path_table
)
690 cpumask_copy(&cpumask
, &iucv_buffer_cpumask
);
691 cpumask_clear_cpu(cpu
, &cpumask
);
692 if (cpumask_empty(&cpumask
))
693 /* Can't offline last IUCV enabled cpu. */
694 return notifier_from_errno(-EINVAL
);
695 smp_call_function_single(cpu
, iucv_retrieve_cpu
, NULL
, 1);
696 if (cpumask_empty(&iucv_irq_cpumask
))
697 smp_call_function_single(
698 cpumask_first(&iucv_buffer_cpumask
),
699 iucv_allow_cpu
, NULL
, 1);
705 static struct notifier_block __refdata iucv_cpu_notifier
= {
706 .notifier_call
= iucv_cpu_notify
,
711 * @pathid: path identification number.
712 * @userdata: 16-bytes of user data.
714 * Sever an iucv path to free up the pathid. Used internally.
716 static int iucv_sever_pathid(u16 pathid
, u8 userdata
[16])
718 union iucv_param
*parm
;
720 parm
= iucv_param_irq
[smp_processor_id()];
721 memset(parm
, 0, sizeof(union iucv_param
));
723 memcpy(parm
->ctrl
.ipuser
, userdata
, sizeof(parm
->ctrl
.ipuser
));
724 parm
->ctrl
.ippathid
= pathid
;
725 return iucv_call_b2f0(IUCV_SEVER
, parm
);
729 * __iucv_cleanup_queue
730 * @dummy: unused dummy argument
732 * Nop function called via smp_call_function to force work items from
733 * pending external iucv interrupts to the work queue.
735 static void __iucv_cleanup_queue(void *dummy
)
742 * Function called after a path has been severed to find all remaining
743 * work items for the now stale pathid. The caller needs to hold the
746 static void iucv_cleanup_queue(void)
748 struct iucv_irq_list
*p
, *n
;
751 * When a path is severed, the pathid can be reused immediately
752 * on a iucv connect or a connection pending interrupt. Remove
753 * all entries from the task queue that refer to a stale pathid
754 * (iucv_path_table[ix] == NULL). Only then do the iucv connect
755 * or deliver the connection pending interrupt. To get all the
756 * pending interrupts force them to the work queue by calling
757 * an empty function on all cpus.
759 smp_call_function(__iucv_cleanup_queue
, NULL
, 1);
760 spin_lock_irq(&iucv_queue_lock
);
761 list_for_each_entry_safe(p
, n
, &iucv_task_queue
, list
) {
762 /* Remove stale work items from the task queue. */
763 if (iucv_path_table
[p
->data
.ippathid
] == NULL
) {
768 spin_unlock_irq(&iucv_queue_lock
);
773 * @handler: address of iucv handler structure
774 * @smp: != 0 indicates that the handler can deal with out of order messages
776 * Registers a driver with IUCV.
778 * Returns 0 on success, -ENOMEM if the memory allocation for the pathid
779 * table failed, or -EIO if IUCV_DECLARE_BUFFER failed on all cpus.
781 int iucv_register(struct iucv_handler
*handler
, int smp
)
787 mutex_lock(&iucv_register_mutex
);
789 iucv_nonsmp_handler
++;
790 if (list_empty(&iucv_handler_list
)) {
794 } else if (!smp
&& iucv_nonsmp_handler
== 1)
796 INIT_LIST_HEAD(&handler
->paths
);
798 spin_lock_bh(&iucv_table_lock
);
799 list_add_tail(&handler
->list
, &iucv_handler_list
);
800 spin_unlock_bh(&iucv_table_lock
);
803 mutex_unlock(&iucv_register_mutex
);
806 EXPORT_SYMBOL(iucv_register
);
810 * @handler: address of iucv handler structure
811 * @smp: != 0 indicates that the handler can deal with out of order messages
813 * Unregister driver from IUCV.
815 void iucv_unregister(struct iucv_handler
*handler
, int smp
)
817 struct iucv_path
*p
, *n
;
819 mutex_lock(&iucv_register_mutex
);
820 spin_lock_bh(&iucv_table_lock
);
821 /* Remove handler from the iucv_handler_list. */
822 list_del_init(&handler
->list
);
823 /* Sever all pathids still referring to the handler. */
824 list_for_each_entry_safe(p
, n
, &handler
->paths
, list
) {
825 iucv_sever_pathid(p
->pathid
, NULL
);
826 iucv_path_table
[p
->pathid
] = NULL
;
830 spin_unlock_bh(&iucv_table_lock
);
832 iucv_nonsmp_handler
--;
833 if (list_empty(&iucv_handler_list
))
835 else if (!smp
&& iucv_nonsmp_handler
== 0)
837 mutex_unlock(&iucv_register_mutex
);
839 EXPORT_SYMBOL(iucv_unregister
);
841 static int iucv_reboot_event(struct notifier_block
*this,
842 unsigned long event
, void *ptr
)
846 if (cpumask_empty(&iucv_irq_cpumask
))
850 on_each_cpu_mask(&iucv_irq_cpumask
, iucv_block_cpu
, NULL
, 1);
852 for (i
= 0; i
< iucv_max_pathid
; i
++) {
853 if (iucv_path_table
[i
])
854 iucv_sever_pathid(i
, NULL
);
862 static struct notifier_block iucv_reboot_notifier
= {
863 .notifier_call
= iucv_reboot_event
,
868 * @path: address of iucv path structure
869 * @handler: address of iucv handler structure
870 * @userdata: 16 bytes of data reflected to the communication partner
871 * @private: private data passed to interrupt handlers for this path
873 * This function is issued after the user received a connection pending
874 * external interrupt and now wishes to complete the IUCV communication path.
876 * Returns the result of the CP IUCV call.
878 int iucv_path_accept(struct iucv_path
*path
, struct iucv_handler
*handler
,
879 u8 userdata
[16], void *private)
881 union iucv_param
*parm
;
885 if (cpumask_empty(&iucv_buffer_cpumask
)) {
889 /* Prepare parameter block. */
890 parm
= iucv_param
[smp_processor_id()];
891 memset(parm
, 0, sizeof(union iucv_param
));
892 parm
->ctrl
.ippathid
= path
->pathid
;
893 parm
->ctrl
.ipmsglim
= path
->msglim
;
895 memcpy(parm
->ctrl
.ipuser
, userdata
, sizeof(parm
->ctrl
.ipuser
));
896 parm
->ctrl
.ipflags1
= path
->flags
;
898 rc
= iucv_call_b2f0(IUCV_ACCEPT
, parm
);
900 path
->private = private;
901 path
->msglim
= parm
->ctrl
.ipmsglim
;
902 path
->flags
= parm
->ctrl
.ipflags1
;
908 EXPORT_SYMBOL(iucv_path_accept
);
912 * @path: address of iucv path structure
913 * @handler: address of iucv handler structure
914 * @userid: 8-byte user identification
915 * @system: 8-byte target system identification
916 * @userdata: 16 bytes of data reflected to the communication partner
917 * @private: private data passed to interrupt handlers for this path
919 * This function establishes an IUCV path. Although the connect may complete
920 * successfully, you are not able to use the path until you receive an IUCV
921 * Connection Complete external interrupt.
923 * Returns the result of the CP IUCV call.
925 int iucv_path_connect(struct iucv_path
*path
, struct iucv_handler
*handler
,
926 u8 userid
[8], u8 system
[8], u8 userdata
[16],
929 union iucv_param
*parm
;
932 spin_lock_bh(&iucv_table_lock
);
933 iucv_cleanup_queue();
934 if (cpumask_empty(&iucv_buffer_cpumask
)) {
938 parm
= iucv_param
[smp_processor_id()];
939 memset(parm
, 0, sizeof(union iucv_param
));
940 parm
->ctrl
.ipmsglim
= path
->msglim
;
941 parm
->ctrl
.ipflags1
= path
->flags
;
943 memcpy(parm
->ctrl
.ipvmid
, userid
, sizeof(parm
->ctrl
.ipvmid
));
944 ASCEBC(parm
->ctrl
.ipvmid
, sizeof(parm
->ctrl
.ipvmid
));
945 EBC_TOUPPER(parm
->ctrl
.ipvmid
, sizeof(parm
->ctrl
.ipvmid
));
948 memcpy(parm
->ctrl
.iptarget
, system
,
949 sizeof(parm
->ctrl
.iptarget
));
950 ASCEBC(parm
->ctrl
.iptarget
, sizeof(parm
->ctrl
.iptarget
));
951 EBC_TOUPPER(parm
->ctrl
.iptarget
, sizeof(parm
->ctrl
.iptarget
));
954 memcpy(parm
->ctrl
.ipuser
, userdata
, sizeof(parm
->ctrl
.ipuser
));
956 rc
= iucv_call_b2f0(IUCV_CONNECT
, parm
);
958 if (parm
->ctrl
.ippathid
< iucv_max_pathid
) {
959 path
->pathid
= parm
->ctrl
.ippathid
;
960 path
->msglim
= parm
->ctrl
.ipmsglim
;
961 path
->flags
= parm
->ctrl
.ipflags1
;
962 path
->handler
= handler
;
963 path
->private = private;
964 list_add_tail(&path
->list
, &handler
->paths
);
965 iucv_path_table
[path
->pathid
] = path
;
967 iucv_sever_pathid(parm
->ctrl
.ippathid
,
973 spin_unlock_bh(&iucv_table_lock
);
976 EXPORT_SYMBOL(iucv_path_connect
);
980 * @path: address of iucv path structure
981 * @userdata: 16 bytes of data reflected to the communication partner
983 * This function temporarily suspends incoming messages on an IUCV path.
984 * You can later reactivate the path by invoking the iucv_resume function.
986 * Returns the result from the CP IUCV call.
988 int iucv_path_quiesce(struct iucv_path
*path
, u8 userdata
[16])
990 union iucv_param
*parm
;
994 if (cpumask_empty(&iucv_buffer_cpumask
)) {
998 parm
= iucv_param
[smp_processor_id()];
999 memset(parm
, 0, sizeof(union iucv_param
));
1001 memcpy(parm
->ctrl
.ipuser
, userdata
, sizeof(parm
->ctrl
.ipuser
));
1002 parm
->ctrl
.ippathid
= path
->pathid
;
1003 rc
= iucv_call_b2f0(IUCV_QUIESCE
, parm
);
1008 EXPORT_SYMBOL(iucv_path_quiesce
);
1012 * @path: address of iucv path structure
1013 * @userdata: 16 bytes of data reflected to the communication partner
1015 * This function resumes incoming messages on an IUCV path that has
1016 * been stopped with iucv_path_quiesce.
1018 * Returns the result from the CP IUCV call.
1020 int iucv_path_resume(struct iucv_path
*path
, u8 userdata
[16])
1022 union iucv_param
*parm
;
1026 if (cpumask_empty(&iucv_buffer_cpumask
)) {
1030 parm
= iucv_param
[smp_processor_id()];
1031 memset(parm
, 0, sizeof(union iucv_param
));
1033 memcpy(parm
->ctrl
.ipuser
, userdata
, sizeof(parm
->ctrl
.ipuser
));
1034 parm
->ctrl
.ippathid
= path
->pathid
;
1035 rc
= iucv_call_b2f0(IUCV_RESUME
, parm
);
1043 * @path: address of iucv path structure
1044 * @userdata: 16 bytes of data reflected to the communication partner
1046 * This function terminates an IUCV path.
1048 * Returns the result from the CP IUCV call.
1050 int iucv_path_sever(struct iucv_path
*path
, u8 userdata
[16])
1055 if (cpumask_empty(&iucv_buffer_cpumask
)) {
1059 if (iucv_active_cpu
!= smp_processor_id())
1060 spin_lock_bh(&iucv_table_lock
);
1061 rc
= iucv_sever_pathid(path
->pathid
, userdata
);
1062 iucv_path_table
[path
->pathid
] = NULL
;
1063 list_del_init(&path
->list
);
1064 if (iucv_active_cpu
!= smp_processor_id())
1065 spin_unlock_bh(&iucv_table_lock
);
1070 EXPORT_SYMBOL(iucv_path_sever
);
1073 * iucv_message_purge
1074 * @path: address of iucv path structure
1075 * @msg: address of iucv msg structure
1076 * @srccls: source class of message
1078 * Cancels a message you have sent.
1080 * Returns the result from the CP IUCV call.
1082 int iucv_message_purge(struct iucv_path
*path
, struct iucv_message
*msg
,
1085 union iucv_param
*parm
;
1089 if (cpumask_empty(&iucv_buffer_cpumask
)) {
1093 parm
= iucv_param
[smp_processor_id()];
1094 memset(parm
, 0, sizeof(union iucv_param
));
1095 parm
->purge
.ippathid
= path
->pathid
;
1096 parm
->purge
.ipmsgid
= msg
->id
;
1097 parm
->purge
.ipsrccls
= srccls
;
1098 parm
->purge
.ipflags1
= IUCV_IPSRCCLS
| IUCV_IPFGMID
| IUCV_IPFGPID
;
1099 rc
= iucv_call_b2f0(IUCV_PURGE
, parm
);
1101 msg
->audit
= (*(u32
*) &parm
->purge
.ipaudit
) >> 8;
1102 msg
->tag
= parm
->purge
.ipmsgtag
;
1108 EXPORT_SYMBOL(iucv_message_purge
);
1111 * iucv_message_receive_iprmdata
1112 * @path: address of iucv path structure
1113 * @msg: address of iucv msg structure
1114 * @flags: how the message is received (IUCV_IPBUFLST)
1115 * @buffer: address of data buffer or address of struct iucv_array
1116 * @size: length of data buffer
1119 * Internal function used by iucv_message_receive and __iucv_message_receive
1120 * to receive RMDATA data stored in struct iucv_message.
1122 static int iucv_message_receive_iprmdata(struct iucv_path
*path
,
1123 struct iucv_message
*msg
,
1124 u8 flags
, void *buffer
,
1125 size_t size
, size_t *residual
)
1127 struct iucv_array
*array
;
1132 * Message is 8 bytes long and has been stored to the
1133 * message descriptor itself.
1136 *residual
= abs(size
- 8);
1138 if (flags
& IUCV_IPBUFLST
) {
1139 /* Copy to struct iucv_array. */
1140 size
= (size
< 8) ? size
: 8;
1141 for (array
= buffer
; size
> 0; array
++) {
1142 copy
= min_t(size_t, size
, array
->length
);
1143 memcpy((u8
*)(addr_t
) array
->address
,
1149 /* Copy to direct buffer. */
1150 memcpy(buffer
, rmmsg
, min_t(size_t, size
, 8));
1156 * __iucv_message_receive
1157 * @path: address of iucv path structure
1158 * @msg: address of iucv msg structure
1159 * @flags: how the message is received (IUCV_IPBUFLST)
1160 * @buffer: address of data buffer or address of struct iucv_array
1161 * @size: length of data buffer
1164 * This function receives messages that are being sent to you over
1165 * established paths. This function will deal with RMDATA messages
1166 * embedded in struct iucv_message as well.
1168 * Locking: no locking
1170 * Returns the result from the CP IUCV call.
1172 int __iucv_message_receive(struct iucv_path
*path
, struct iucv_message
*msg
,
1173 u8 flags
, void *buffer
, size_t size
, size_t *residual
)
1175 union iucv_param
*parm
;
1178 if (msg
->flags
& IUCV_IPRMDATA
)
1179 return iucv_message_receive_iprmdata(path
, msg
, flags
,
1180 buffer
, size
, residual
);
1181 if (cpumask_empty(&iucv_buffer_cpumask
)) {
1185 parm
= iucv_param
[smp_processor_id()];
1186 memset(parm
, 0, sizeof(union iucv_param
));
1187 parm
->db
.ipbfadr1
= (u32
)(addr_t
) buffer
;
1188 parm
->db
.ipbfln1f
= (u32
) size
;
1189 parm
->db
.ipmsgid
= msg
->id
;
1190 parm
->db
.ippathid
= path
->pathid
;
1191 parm
->db
.iptrgcls
= msg
->class;
1192 parm
->db
.ipflags1
= (flags
| IUCV_IPFGPID
|
1193 IUCV_IPFGMID
| IUCV_IPTRGCLS
);
1194 rc
= iucv_call_b2f0(IUCV_RECEIVE
, parm
);
1195 if (!rc
|| rc
== 5) {
1196 msg
->flags
= parm
->db
.ipflags1
;
1198 *residual
= parm
->db
.ipbfln1f
;
1203 EXPORT_SYMBOL(__iucv_message_receive
);
1206 * iucv_message_receive
1207 * @path: address of iucv path structure
1208 * @msg: address of iucv msg structure
1209 * @flags: how the message is received (IUCV_IPBUFLST)
1210 * @buffer: address of data buffer or address of struct iucv_array
1211 * @size: length of data buffer
1214 * This function receives messages that are being sent to you over
1215 * established paths. This function will deal with RMDATA messages
1216 * embedded in struct iucv_message as well.
1218 * Locking: local_bh_enable/local_bh_disable
1220 * Returns the result from the CP IUCV call.
1222 int iucv_message_receive(struct iucv_path
*path
, struct iucv_message
*msg
,
1223 u8 flags
, void *buffer
, size_t size
, size_t *residual
)
1227 if (msg
->flags
& IUCV_IPRMDATA
)
1228 return iucv_message_receive_iprmdata(path
, msg
, flags
,
1229 buffer
, size
, residual
);
1231 rc
= __iucv_message_receive(path
, msg
, flags
, buffer
, size
, residual
);
1235 EXPORT_SYMBOL(iucv_message_receive
);
1238 * iucv_message_reject
1239 * @path: address of iucv path structure
1240 * @msg: address of iucv msg structure
1242 * The reject function refuses a specified message. Between the time you
1243 * are notified of a message and the time that you complete the message,
1244 * the message may be rejected.
1246 * Returns the result from the CP IUCV call.
1248 int iucv_message_reject(struct iucv_path
*path
, struct iucv_message
*msg
)
1250 union iucv_param
*parm
;
1254 if (cpumask_empty(&iucv_buffer_cpumask
)) {
1258 parm
= iucv_param
[smp_processor_id()];
1259 memset(parm
, 0, sizeof(union iucv_param
));
1260 parm
->db
.ippathid
= path
->pathid
;
1261 parm
->db
.ipmsgid
= msg
->id
;
1262 parm
->db
.iptrgcls
= msg
->class;
1263 parm
->db
.ipflags1
= (IUCV_IPTRGCLS
| IUCV_IPFGMID
| IUCV_IPFGPID
);
1264 rc
= iucv_call_b2f0(IUCV_REJECT
, parm
);
1269 EXPORT_SYMBOL(iucv_message_reject
);
1272 * iucv_message_reply
1273 * @path: address of iucv path structure
1274 * @msg: address of iucv msg structure
1275 * @flags: how the reply is sent (IUCV_IPRMDATA, IUCV_IPPRTY, IUCV_IPBUFLST)
1276 * @reply: address of reply data buffer or address of struct iucv_array
1277 * @size: length of reply data buffer
1279 * This function responds to the two-way messages that you receive. You
1280 * must identify completely the message to which you wish to reply. ie,
1281 * pathid, msgid, and trgcls. Prmmsg signifies the data is moved into
1282 * the parameter list.
1284 * Returns the result from the CP IUCV call.
1286 int iucv_message_reply(struct iucv_path
*path
, struct iucv_message
*msg
,
1287 u8 flags
, void *reply
, size_t size
)
1289 union iucv_param
*parm
;
1293 if (cpumask_empty(&iucv_buffer_cpumask
)) {
1297 parm
= iucv_param
[smp_processor_id()];
1298 memset(parm
, 0, sizeof(union iucv_param
));
1299 if (flags
& IUCV_IPRMDATA
) {
1300 parm
->dpl
.ippathid
= path
->pathid
;
1301 parm
->dpl
.ipflags1
= flags
;
1302 parm
->dpl
.ipmsgid
= msg
->id
;
1303 parm
->dpl
.iptrgcls
= msg
->class;
1304 memcpy(parm
->dpl
.iprmmsg
, reply
, min_t(size_t, size
, 8));
1306 parm
->db
.ipbfadr1
= (u32
)(addr_t
) reply
;
1307 parm
->db
.ipbfln1f
= (u32
) size
;
1308 parm
->db
.ippathid
= path
->pathid
;
1309 parm
->db
.ipflags1
= flags
;
1310 parm
->db
.ipmsgid
= msg
->id
;
1311 parm
->db
.iptrgcls
= msg
->class;
1313 rc
= iucv_call_b2f0(IUCV_REPLY
, parm
);
1318 EXPORT_SYMBOL(iucv_message_reply
);
1321 * __iucv_message_send
1322 * @path: address of iucv path structure
1323 * @msg: address of iucv msg structure
1324 * @flags: how the message is sent (IUCV_IPRMDATA, IUCV_IPPRTY, IUCV_IPBUFLST)
1325 * @srccls: source class of message
1326 * @buffer: address of send buffer or address of struct iucv_array
1327 * @size: length of send buffer
1329 * This function transmits data to another application. Data to be
1330 * transmitted is in a buffer and this is a one-way message and the
1331 * receiver will not reply to the message.
1333 * Locking: no locking
1335 * Returns the result from the CP IUCV call.
1337 int __iucv_message_send(struct iucv_path
*path
, struct iucv_message
*msg
,
1338 u8 flags
, u32 srccls
, void *buffer
, size_t size
)
1340 union iucv_param
*parm
;
1343 if (cpumask_empty(&iucv_buffer_cpumask
)) {
1347 parm
= iucv_param
[smp_processor_id()];
1348 memset(parm
, 0, sizeof(union iucv_param
));
1349 if (flags
& IUCV_IPRMDATA
) {
1350 /* Message of 8 bytes can be placed into the parameter list. */
1351 parm
->dpl
.ippathid
= path
->pathid
;
1352 parm
->dpl
.ipflags1
= flags
| IUCV_IPNORPY
;
1353 parm
->dpl
.iptrgcls
= msg
->class;
1354 parm
->dpl
.ipsrccls
= srccls
;
1355 parm
->dpl
.ipmsgtag
= msg
->tag
;
1356 memcpy(parm
->dpl
.iprmmsg
, buffer
, 8);
1358 parm
->db
.ipbfadr1
= (u32
)(addr_t
) buffer
;
1359 parm
->db
.ipbfln1f
= (u32
) size
;
1360 parm
->db
.ippathid
= path
->pathid
;
1361 parm
->db
.ipflags1
= flags
| IUCV_IPNORPY
;
1362 parm
->db
.iptrgcls
= msg
->class;
1363 parm
->db
.ipsrccls
= srccls
;
1364 parm
->db
.ipmsgtag
= msg
->tag
;
1366 rc
= iucv_call_b2f0(IUCV_SEND
, parm
);
1368 msg
->id
= parm
->db
.ipmsgid
;
1372 EXPORT_SYMBOL(__iucv_message_send
);
1376 * @path: address of iucv path structure
1377 * @msg: address of iucv msg structure
1378 * @flags: how the message is sent (IUCV_IPRMDATA, IUCV_IPPRTY, IUCV_IPBUFLST)
1379 * @srccls: source class of message
1380 * @buffer: address of send buffer or address of struct iucv_array
1381 * @size: length of send buffer
1383 * This function transmits data to another application. Data to be
1384 * transmitted is in a buffer and this is a one-way message and the
1385 * receiver will not reply to the message.
1387 * Locking: local_bh_enable/local_bh_disable
1389 * Returns the result from the CP IUCV call.
1391 int iucv_message_send(struct iucv_path
*path
, struct iucv_message
*msg
,
1392 u8 flags
, u32 srccls
, void *buffer
, size_t size
)
1397 rc
= __iucv_message_send(path
, msg
, flags
, srccls
, buffer
, size
);
1401 EXPORT_SYMBOL(iucv_message_send
);
1404 * iucv_message_send2way
1405 * @path: address of iucv path structure
1406 * @msg: address of iucv msg structure
1407 * @flags: how the message is sent and the reply is received
1408 * (IUCV_IPRMDATA, IUCV_IPBUFLST, IUCV_IPPRTY, IUCV_ANSLST)
1409 * @srccls: source class of message
1410 * @buffer: address of send buffer or address of struct iucv_array
1411 * @size: length of send buffer
1412 * @ansbuf: address of answer buffer or address of struct iucv_array
1413 * @asize: size of reply buffer
1415 * This function transmits data to another application. Data to be
1416 * transmitted is in a buffer. The receiver of the send is expected to
1417 * reply to the message and a buffer is provided into which IUCV moves
1418 * the reply to this message.
1420 * Returns the result from the CP IUCV call.
1422 int iucv_message_send2way(struct iucv_path
*path
, struct iucv_message
*msg
,
1423 u8 flags
, u32 srccls
, void *buffer
, size_t size
,
1424 void *answer
, size_t asize
, size_t *residual
)
1426 union iucv_param
*parm
;
1430 if (cpumask_empty(&iucv_buffer_cpumask
)) {
1434 parm
= iucv_param
[smp_processor_id()];
1435 memset(parm
, 0, sizeof(union iucv_param
));
1436 if (flags
& IUCV_IPRMDATA
) {
1437 parm
->dpl
.ippathid
= path
->pathid
;
1438 parm
->dpl
.ipflags1
= path
->flags
; /* priority message */
1439 parm
->dpl
.iptrgcls
= msg
->class;
1440 parm
->dpl
.ipsrccls
= srccls
;
1441 parm
->dpl
.ipmsgtag
= msg
->tag
;
1442 parm
->dpl
.ipbfadr2
= (u32
)(addr_t
) answer
;
1443 parm
->dpl
.ipbfln2f
= (u32
) asize
;
1444 memcpy(parm
->dpl
.iprmmsg
, buffer
, 8);
1446 parm
->db
.ippathid
= path
->pathid
;
1447 parm
->db
.ipflags1
= path
->flags
; /* priority message */
1448 parm
->db
.iptrgcls
= msg
->class;
1449 parm
->db
.ipsrccls
= srccls
;
1450 parm
->db
.ipmsgtag
= msg
->tag
;
1451 parm
->db
.ipbfadr1
= (u32
)(addr_t
) buffer
;
1452 parm
->db
.ipbfln1f
= (u32
) size
;
1453 parm
->db
.ipbfadr2
= (u32
)(addr_t
) answer
;
1454 parm
->db
.ipbfln2f
= (u32
) asize
;
1456 rc
= iucv_call_b2f0(IUCV_SEND
, parm
);
1458 msg
->id
= parm
->db
.ipmsgid
;
1463 EXPORT_SYMBOL(iucv_message_send2way
);
1467 * @data: Pointer to external interrupt buffer
1469 * Process connection pending work item. Called from tasklet while holding
1472 struct iucv_path_pending
{
1485 static void iucv_path_pending(struct iucv_irq_data
*data
)
1487 struct iucv_path_pending
*ipp
= (void *) data
;
1488 struct iucv_handler
*handler
;
1489 struct iucv_path
*path
;
1492 BUG_ON(iucv_path_table
[ipp
->ippathid
]);
1493 /* New pathid, handler found. Create a new path struct. */
1494 error
= iucv_error_no_memory
;
1495 path
= iucv_path_alloc(ipp
->ipmsglim
, ipp
->ipflags1
, GFP_ATOMIC
);
1498 path
->pathid
= ipp
->ippathid
;
1499 iucv_path_table
[path
->pathid
] = path
;
1500 EBCASC(ipp
->ipvmid
, 8);
1502 /* Call registered handler until one is found that wants the path. */
1503 list_for_each_entry(handler
, &iucv_handler_list
, list
) {
1504 if (!handler
->path_pending
)
1507 * Add path to handler to allow a call to iucv_path_sever
1508 * inside the path_pending function. If the handler returns
1509 * an error remove the path from the handler again.
1511 list_add(&path
->list
, &handler
->paths
);
1512 path
->handler
= handler
;
1513 if (!handler
->path_pending(path
, ipp
->ipvmid
, ipp
->ipuser
))
1515 list_del(&path
->list
);
1516 path
->handler
= NULL
;
1518 /* No handler wanted the path. */
1519 iucv_path_table
[path
->pathid
] = NULL
;
1520 iucv_path_free(path
);
1521 error
= iucv_error_no_listener
;
1523 iucv_sever_pathid(ipp
->ippathid
, error
);
1527 * iucv_path_complete
1528 * @data: Pointer to external interrupt buffer
1530 * Process connection complete work item. Called from tasklet while holding
1533 struct iucv_path_complete
{
1546 static void iucv_path_complete(struct iucv_irq_data
*data
)
1548 struct iucv_path_complete
*ipc
= (void *) data
;
1549 struct iucv_path
*path
= iucv_path_table
[ipc
->ippathid
];
1552 path
->flags
= ipc
->ipflags1
;
1553 if (path
&& path
->handler
&& path
->handler
->path_complete
)
1554 path
->handler
->path_complete(path
, ipc
->ipuser
);
1559 * @data: Pointer to external interrupt buffer
1561 * Process connection severed work item. Called from tasklet while holding
1564 struct iucv_path_severed
{
1576 static void iucv_path_severed(struct iucv_irq_data
*data
)
1578 struct iucv_path_severed
*ips
= (void *) data
;
1579 struct iucv_path
*path
= iucv_path_table
[ips
->ippathid
];
1581 if (!path
|| !path
->handler
) /* Already severed */
1583 if (path
->handler
->path_severed
)
1584 path
->handler
->path_severed(path
, ips
->ipuser
);
1586 iucv_sever_pathid(path
->pathid
, NULL
);
1587 iucv_path_table
[path
->pathid
] = NULL
;
1588 list_del(&path
->list
);
1589 iucv_path_free(path
);
1594 * iucv_path_quiesced
1595 * @data: Pointer to external interrupt buffer
1597 * Process connection quiesced work item. Called from tasklet while holding
1600 struct iucv_path_quiesced
{
1612 static void iucv_path_quiesced(struct iucv_irq_data
*data
)
1614 struct iucv_path_quiesced
*ipq
= (void *) data
;
1615 struct iucv_path
*path
= iucv_path_table
[ipq
->ippathid
];
1617 if (path
&& path
->handler
&& path
->handler
->path_quiesced
)
1618 path
->handler
->path_quiesced(path
, ipq
->ipuser
);
1623 * @data: Pointer to external interrupt buffer
1625 * Process connection resumed work item. Called from tasklet while holding
1628 struct iucv_path_resumed
{
1640 static void iucv_path_resumed(struct iucv_irq_data
*data
)
1642 struct iucv_path_resumed
*ipr
= (void *) data
;
1643 struct iucv_path
*path
= iucv_path_table
[ipr
->ippathid
];
1645 if (path
&& path
->handler
&& path
->handler
->path_resumed
)
1646 path
->handler
->path_resumed(path
, ipr
->ipuser
);
1650 * iucv_message_complete
1651 * @data: Pointer to external interrupt buffer
1653 * Process message complete work item. Called from tasklet while holding
1656 struct iucv_message_complete
{
1671 static void iucv_message_complete(struct iucv_irq_data
*data
)
1673 struct iucv_message_complete
*imc
= (void *) data
;
1674 struct iucv_path
*path
= iucv_path_table
[imc
->ippathid
];
1675 struct iucv_message msg
;
1677 if (path
&& path
->handler
&& path
->handler
->message_complete
) {
1678 msg
.flags
= imc
->ipflags1
;
1679 msg
.id
= imc
->ipmsgid
;
1680 msg
.audit
= imc
->ipaudit
;
1681 memcpy(msg
.rmmsg
, imc
->iprmmsg
, 8);
1682 msg
.class = imc
->ipsrccls
;
1683 msg
.tag
= imc
->ipmsgtag
;
1684 msg
.length
= imc
->ipbfln2f
;
1685 path
->handler
->message_complete(path
, &msg
);
1690 * iucv_message_pending
1691 * @data: Pointer to external interrupt buffer
1693 * Process message pending work item. Called from tasklet while holding
1696 struct iucv_message_pending
{
1716 static void iucv_message_pending(struct iucv_irq_data
*data
)
1718 struct iucv_message_pending
*imp
= (void *) data
;
1719 struct iucv_path
*path
= iucv_path_table
[imp
->ippathid
];
1720 struct iucv_message msg
;
1722 if (path
&& path
->handler
&& path
->handler
->message_pending
) {
1723 msg
.flags
= imp
->ipflags1
;
1724 msg
.id
= imp
->ipmsgid
;
1725 msg
.class = imp
->iptrgcls
;
1726 if (imp
->ipflags1
& IUCV_IPRMDATA
) {
1727 memcpy(msg
.rmmsg
, imp
->ln1msg1
.iprmmsg1
, 8);
1730 msg
.length
= imp
->ln1msg2
.ipbfln1f
;
1731 msg
.reply_size
= imp
->ipbfln2f
;
1732 path
->handler
->message_pending(path
, &msg
);
1739 * This tasklet loops over the queue of irq buffers created by
1740 * iucv_external_interrupt, calls the appropriate action handler
1741 * and then frees the buffer.
1743 static void iucv_tasklet_fn(unsigned long ignored
)
1745 typedef void iucv_irq_fn(struct iucv_irq_data
*);
1746 static iucv_irq_fn
*irq_fn
[] = {
1747 [0x02] = iucv_path_complete
,
1748 [0x03] = iucv_path_severed
,
1749 [0x04] = iucv_path_quiesced
,
1750 [0x05] = iucv_path_resumed
,
1751 [0x06] = iucv_message_complete
,
1752 [0x07] = iucv_message_complete
,
1753 [0x08] = iucv_message_pending
,
1754 [0x09] = iucv_message_pending
,
1756 LIST_HEAD(task_queue
);
1757 struct iucv_irq_list
*p
, *n
;
1759 /* Serialize tasklet, iucv_path_sever and iucv_path_connect. */
1760 if (!spin_trylock(&iucv_table_lock
)) {
1761 tasklet_schedule(&iucv_tasklet
);
1764 iucv_active_cpu
= smp_processor_id();
1766 spin_lock_irq(&iucv_queue_lock
);
1767 list_splice_init(&iucv_task_queue
, &task_queue
);
1768 spin_unlock_irq(&iucv_queue_lock
);
1770 list_for_each_entry_safe(p
, n
, &task_queue
, list
) {
1771 list_del_init(&p
->list
);
1772 irq_fn
[p
->data
.iptype
](&p
->data
);
1776 iucv_active_cpu
= -1;
1777 spin_unlock(&iucv_table_lock
);
1783 * This work function loops over the queue of path pending irq blocks
1784 * created by iucv_external_interrupt, calls the appropriate action
1785 * handler and then frees the buffer.
1787 static void iucv_work_fn(struct work_struct
*work
)
1789 LIST_HEAD(work_queue
);
1790 struct iucv_irq_list
*p
, *n
;
1792 /* Serialize tasklet, iucv_path_sever and iucv_path_connect. */
1793 spin_lock_bh(&iucv_table_lock
);
1794 iucv_active_cpu
= smp_processor_id();
1796 spin_lock_irq(&iucv_queue_lock
);
1797 list_splice_init(&iucv_work_queue
, &work_queue
);
1798 spin_unlock_irq(&iucv_queue_lock
);
1800 iucv_cleanup_queue();
1801 list_for_each_entry_safe(p
, n
, &work_queue
, list
) {
1802 list_del_init(&p
->list
);
1803 iucv_path_pending(&p
->data
);
1807 iucv_active_cpu
= -1;
1808 spin_unlock_bh(&iucv_table_lock
);
1812 * iucv_external_interrupt
1815 * Handles external interrupts coming in from CP.
1816 * Places the interrupt buffer on a queue and schedules iucv_tasklet_fn().
1818 static void iucv_external_interrupt(struct ext_code ext_code
,
1819 unsigned int param32
, unsigned long param64
)
1821 struct iucv_irq_data
*p
;
1822 struct iucv_irq_list
*work
;
1824 inc_irq_stat(IRQEXT_IUC
);
1825 p
= iucv_irq_data
[smp_processor_id()];
1826 if (p
->ippathid
>= iucv_max_pathid
) {
1827 WARN_ON(p
->ippathid
>= iucv_max_pathid
);
1828 iucv_sever_pathid(p
->ippathid
, iucv_error_no_listener
);
1831 BUG_ON(p
->iptype
< 0x01 || p
->iptype
> 0x09);
1832 work
= kmalloc(sizeof(struct iucv_irq_list
), GFP_ATOMIC
);
1834 pr_warning("iucv_external_interrupt: out of memory\n");
1837 memcpy(&work
->data
, p
, sizeof(work
->data
));
1838 spin_lock(&iucv_queue_lock
);
1839 if (p
->iptype
== 0x01) {
1840 /* Path pending interrupt. */
1841 list_add_tail(&work
->list
, &iucv_work_queue
);
1842 schedule_work(&iucv_work
);
1844 /* The other interrupts. */
1845 list_add_tail(&work
->list
, &iucv_task_queue
);
1846 tasklet_schedule(&iucv_tasklet
);
1848 spin_unlock(&iucv_queue_lock
);
1851 static int iucv_pm_prepare(struct device
*dev
)
1855 #ifdef CONFIG_PM_DEBUG
1856 printk(KERN_INFO
"iucv_pm_prepare\n");
1858 if (dev
->driver
&& dev
->driver
->pm
&& dev
->driver
->pm
->prepare
)
1859 rc
= dev
->driver
->pm
->prepare(dev
);
1863 static void iucv_pm_complete(struct device
*dev
)
1865 #ifdef CONFIG_PM_DEBUG
1866 printk(KERN_INFO
"iucv_pm_complete\n");
1868 if (dev
->driver
&& dev
->driver
->pm
&& dev
->driver
->pm
->complete
)
1869 dev
->driver
->pm
->complete(dev
);
1873 * iucv_path_table_empty() - determine if iucv path table is empty
1875 * Returns 0 if there are still iucv pathes defined
1876 * 1 if there are no iucv pathes defined
1878 int iucv_path_table_empty(void)
1882 for (i
= 0; i
< iucv_max_pathid
; i
++) {
1883 if (iucv_path_table
[i
])
1890 * iucv_pm_freeze() - Freeze PM callback
1891 * @dev: iucv-based device
1893 * disable iucv interrupts
1894 * invoke callback function of the iucv-based driver
1895 * shut down iucv, if no iucv-pathes are established anymore
1897 static int iucv_pm_freeze(struct device
*dev
)
1900 struct iucv_irq_list
*p
, *n
;
1903 #ifdef CONFIG_PM_DEBUG
1904 printk(KERN_WARNING
"iucv_pm_freeze\n");
1906 if (iucv_pm_state
!= IUCV_PM_FREEZING
) {
1907 for_each_cpu(cpu
, &iucv_irq_cpumask
)
1908 smp_call_function_single(cpu
, iucv_block_cpu_almost
,
1910 cancel_work_sync(&iucv_work
);
1911 list_for_each_entry_safe(p
, n
, &iucv_work_queue
, list
) {
1912 list_del_init(&p
->list
);
1913 iucv_sever_pathid(p
->data
.ippathid
,
1914 iucv_error_no_listener
);
1918 iucv_pm_state
= IUCV_PM_FREEZING
;
1919 if (dev
->driver
&& dev
->driver
->pm
&& dev
->driver
->pm
->freeze
)
1920 rc
= dev
->driver
->pm
->freeze(dev
);
1921 if (iucv_path_table_empty())
1927 * iucv_pm_thaw() - Thaw PM callback
1928 * @dev: iucv-based device
1930 * make iucv ready for use again: allocate path table, declare interrupt buffers
1931 * and enable iucv interrupts
1932 * invoke callback function of the iucv-based driver
1934 static int iucv_pm_thaw(struct device
*dev
)
1938 #ifdef CONFIG_PM_DEBUG
1939 printk(KERN_WARNING
"iucv_pm_thaw\n");
1941 iucv_pm_state
= IUCV_PM_THAWING
;
1942 if (!iucv_path_table
) {
1947 if (cpumask_empty(&iucv_irq_cpumask
)) {
1948 if (iucv_nonsmp_handler
)
1949 /* enable interrupts on one cpu */
1950 iucv_allow_cpu(NULL
);
1952 /* enable interrupts on all cpus */
1955 if (dev
->driver
&& dev
->driver
->pm
&& dev
->driver
->pm
->thaw
)
1956 rc
= dev
->driver
->pm
->thaw(dev
);
1962 * iucv_pm_restore() - Restore PM callback
1963 * @dev: iucv-based device
1965 * make iucv ready for use again: allocate path table, declare interrupt buffers
1966 * and enable iucv interrupts
1967 * invoke callback function of the iucv-based driver
1969 static int iucv_pm_restore(struct device
*dev
)
1973 #ifdef CONFIG_PM_DEBUG
1974 printk(KERN_WARNING
"iucv_pm_restore %p\n", iucv_path_table
);
1976 if ((iucv_pm_state
!= IUCV_PM_RESTORING
) && iucv_path_table
)
1977 pr_warning("Suspending Linux did not completely close all IUCV "
1979 iucv_pm_state
= IUCV_PM_RESTORING
;
1980 if (cpumask_empty(&iucv_irq_cpumask
)) {
1981 rc
= iucv_query_maxconn();
1986 if (dev
->driver
&& dev
->driver
->pm
&& dev
->driver
->pm
->restore
)
1987 rc
= dev
->driver
->pm
->restore(dev
);
1992 struct iucv_interface iucv_if
= {
1993 .message_receive
= iucv_message_receive
,
1994 .__message_receive
= __iucv_message_receive
,
1995 .message_reply
= iucv_message_reply
,
1996 .message_reject
= iucv_message_reject
,
1997 .message_send
= iucv_message_send
,
1998 .__message_send
= __iucv_message_send
,
1999 .message_send2way
= iucv_message_send2way
,
2000 .message_purge
= iucv_message_purge
,
2001 .path_accept
= iucv_path_accept
,
2002 .path_connect
= iucv_path_connect
,
2003 .path_quiesce
= iucv_path_quiesce
,
2004 .path_resume
= iucv_path_resume
,
2005 .path_sever
= iucv_path_sever
,
2006 .iucv_register
= iucv_register
,
2007 .iucv_unregister
= iucv_unregister
,
2011 EXPORT_SYMBOL(iucv_if
);
2016 * Allocates and initializes various data structures.
2018 static int __init
iucv_init(void)
2023 if (!MACHINE_IS_VM
) {
2024 rc
= -EPROTONOSUPPORT
;
2028 rc
= iucv_query_maxconn();
2031 rc
= register_external_irq(EXT_IRQ_IUCV
, iucv_external_interrupt
);
2034 iucv_root
= root_device_register("iucv");
2035 if (IS_ERR(iucv_root
)) {
2036 rc
= PTR_ERR(iucv_root
);
2040 cpu_notifier_register_begin();
2042 for_each_online_cpu(cpu
) {
2043 if (alloc_iucv_data(cpu
)) {
2048 rc
= __register_hotcpu_notifier(&iucv_cpu_notifier
);
2052 cpu_notifier_register_done();
2054 rc
= register_reboot_notifier(&iucv_reboot_notifier
);
2057 ASCEBC(iucv_error_no_listener
, 16);
2058 ASCEBC(iucv_error_no_memory
, 16);
2059 ASCEBC(iucv_error_pathid
, 16);
2061 rc
= bus_register(&iucv_bus
);
2064 iucv_if
.root
= iucv_root
;
2065 iucv_if
.bus
= &iucv_bus
;
2069 unregister_reboot_notifier(&iucv_reboot_notifier
);
2071 cpu_notifier_register_begin();
2072 __unregister_hotcpu_notifier(&iucv_cpu_notifier
);
2074 for_each_possible_cpu(cpu
)
2075 free_iucv_data(cpu
);
2077 cpu_notifier_register_done();
2079 root_device_unregister(iucv_root
);
2081 unregister_external_irq(EXT_IRQ_IUCV
, iucv_external_interrupt
);
2083 ctl_clear_bit(0, 1);
2091 * Frees everything allocated from iucv_init.
2093 static void __exit
iucv_exit(void)
2095 struct iucv_irq_list
*p
, *n
;
2098 spin_lock_irq(&iucv_queue_lock
);
2099 list_for_each_entry_safe(p
, n
, &iucv_task_queue
, list
)
2101 list_for_each_entry_safe(p
, n
, &iucv_work_queue
, list
)
2103 spin_unlock_irq(&iucv_queue_lock
);
2104 unregister_reboot_notifier(&iucv_reboot_notifier
);
2105 cpu_notifier_register_begin();
2106 __unregister_hotcpu_notifier(&iucv_cpu_notifier
);
2107 for_each_possible_cpu(cpu
)
2108 free_iucv_data(cpu
);
2109 cpu_notifier_register_done();
2110 root_device_unregister(iucv_root
);
2111 bus_unregister(&iucv_bus
);
2112 unregister_external_irq(EXT_IRQ_IUCV
, iucv_external_interrupt
);
2115 subsys_initcall(iucv_init
);
2116 module_exit(iucv_exit
);
2118 MODULE_AUTHOR("(C) 2001 IBM Corp. by Fritz Elfert (felfert@millenux.com)");
2119 MODULE_DESCRIPTION("Linux for S/390 IUCV lowlevel driver");
2120 MODULE_LICENSE("GPL");