target-s390: Convert SCKC, STCKC
[qemu/agraf.git] / module.c
blob7acc33d076a613f103aba23dbb889be154a2f4d2
1 /*
2 * QEMU Module Infrastructure
4 * Copyright IBM, Corp. 2009
6 * Authors:
7 * Anthony Liguori <aliguori@us.ibm.com>
9 * This work is licensed under the terms of the GNU GPL, version 2. See
10 * the COPYING file in the top-level directory.
12 * Contributions after 2012-01-13 are licensed under the terms of the
13 * GNU GPL, version 2 or (at your option) any later version.
16 #include "qemu-common.h"
17 #include "qemu/queue.h"
18 #include "qemu/module.h"
20 typedef struct ModuleEntry
22 void (*init)(void);
23 QTAILQ_ENTRY(ModuleEntry) node;
24 } ModuleEntry;
26 typedef QTAILQ_HEAD(, ModuleEntry) ModuleTypeList;
28 static ModuleTypeList init_type_list[MODULE_INIT_MAX];
30 static void init_types(void)
32 static int inited;
33 int i;
35 if (inited) {
36 return;
39 for (i = 0; i < MODULE_INIT_MAX; i++) {
40 QTAILQ_INIT(&init_type_list[i]);
43 inited = 1;
47 static ModuleTypeList *find_type(module_init_type type)
49 ModuleTypeList *l;
51 init_types();
53 l = &init_type_list[type];
55 return l;
58 void register_module_init(void (*fn)(void), module_init_type type)
60 ModuleEntry *e;
61 ModuleTypeList *l;
63 e = g_malloc0(sizeof(*e));
64 e->init = fn;
66 l = find_type(type);
68 QTAILQ_INSERT_TAIL(l, e, node);
71 void module_call_init(module_init_type type)
73 ModuleTypeList *l;
74 ModuleEntry *e;
76 l = find_type(type);
78 QTAILQ_FOREACH(e, l, node) {
79 e->init();