Attachment 127064 Details for Bug 97611 – build: Generate wrapper functions on the fly

[patch] build: Generate wrapper functions on the fly

build-Generate-wrapper-functions-on-the-fly.patch (text/plain), 69.05 KB, created by Daiki Ueno on 2016-10-06 13:40:50 UTC

(hide)

Description:

Filename:

MIME Type:

Creator: Daiki Ueno

Created: 2016-10-06 13:40:50 UTC

Size: 69.05 KB

patch

obsolete

>From c390bdda30e98ed94851998816f8d0202fa77bf2 Mon Sep 17 00:00:00 2001
>From: Daiki Ueno <dueno@redhat.com>
>Date: Fri, 26 Aug 2016 17:20:06 +0200
>Subject: [PATCH] build: Generate wrapper functions on the fly
>
>Generate wrapper functions in p11-kit/virtual.c from the
>definitions in common/pkcs11.h and common/pkcs11i.h, rather than
>hard-coding them.
>
>https://bugs.freedesktop.org/show_bug.cgi?id=97611
>---
> configure.ac           |    2 +
> p11-kit/Makefile.am    |   21 +
> p11-kit/gen-wrapper.py |  306 +++++++++
> p11-kit/virtual.c      | 1683 +-----------------------------------------------
> 4 files changed, 331 insertions(+), 1681 deletions(-)
> create mode 100644 p11-kit/gen-wrapper.py
>
>diff --git a/configure.ac b/configure.ac
>index 64f0b5a..fcd162f 100644
>--- a/configure.ac
>+++ b/configure.ac
>@@ -43,6 +43,8 @@ if test "$enable_static" = "yes"; then
> 	AC_MSG_ERROR([p11-kit cannot be used as a static library])
> fi
> 
>+AM_PATH_PYTHON([3.5], , [:])
>+
> AC_MSG_CHECKING([for win32])
> case "$host" in
> 	*-*-mingw*)
>diff --git a/p11-kit/Makefile.am b/p11-kit/Makefile.am
>index 14ec4d6..6b68773 100644
>--- a/p11-kit/Makefile.am
>+++ b/p11-kit/Makefile.am
>@@ -8,6 +8,25 @@ inc_HEADERS += \
> 	p11-kit/uri.h \
> 	$(NULL)
> 
>+closure_sources = \
>+	p11-kit/virtual-base.c \
>+	p11-kit/virtual-stack.c \
>+	$(NULL)
>+
>+BUILT_SOURCES = $(closure_sources)
>+
>+p11-kit/virtual-base.c: common/pkcs11.h common/pkcs11i.h p11-kit/gen-wrapper.py
>+	$(AM_V_GEN) { echo '/* DO NOT EDIT! GENERATED AUTOMATICALLY! */'; \
>+		$(PYTHON) $(srcdir)/p11-kit/gen-wrapper.py base \
>+		$(srcdir)/common/pkcs11.h $(srcdir)/common/pkcs11i.h; \
>+		} > $@-t && mv $@-t $@
>+
>+p11-kit/virtual-stack.c: common/pkcs11.h common/pkcs11i.h p11-kit/gen-wrapper.py
>+	$(AM_V_GEN) { echo '/* DO NOT EDIT! GENERATED AUTOMATICALLY! */'; \
>+		$(PYTHON) $(srcdir)/p11-kit/gen-wrapper.py stack \
>+		$(srcdir)/common/pkcs11.h $(srcdir)/common/pkcs11i.h; \
>+		} > $@-t && mv $@-t $@
>+
> MODULE_SRCS = \
> 	p11-kit/util.c \
> 	p11-kit/conf.c p11-kit/conf.h \
>@@ -102,6 +121,8 @@ EXTRA_DIST += \
> 	p11-kit/p11-kit-1.pc.in \
> 	p11-kit/pkcs11.conf.example.in \
> 	p11-kit/docs.h \
>+	p11-kit/gen-wrapper.py \
>+	$(closure_sources) \
> 	$(NULL)
> 
> bin_PROGRAMS += p11-kit/p11-kit
>diff --git a/p11-kit/gen-wrapper.py b/p11-kit/gen-wrapper.py
>new file mode 100644
>index 0000000..eeae806
>--- /dev/null
>+++ b/p11-kit/gen-wrapper.py
>@@ -0,0 +1,306 @@
>+#!/usr/bin/python3
>+
>+import re
>+import string
>+import typing
>+
>+# Parsing
>+
>+P11_FUNCTION_RE = re.compile(r'\A_CK_DECLARE_FUNCTION\s*$C_(\w+), \((.*)$\);')
>+P11_ARGUMENT_RE = re.compile(r'\s*([^,]+\s+\**)([^, ]+)')
>+P11_FUNCTION_LIST_MEMBER_RE = re.compile(r'\A\s*CK_C_(\S+)\s+.*;')
>+
>+P11_X_FUNCTION_RE = re.compile(r'\Atypedef CK_RV $\* CK_X_(\w+)$\s*$(.*)$;')
>+P11_X_ARGUMENT_RE = re.compile(r'\s*([^,]+)')
>+P11_X_FUNCTION_LIST_MEMBER_RE = re.compile(r'\A\s*CK_X_(\S+)\s+.*;')
>+
>+Argument = typing.NamedTuple('Argument',
>+                             [('name', str),
>+                              ('type', str)])
>+Function = typing.NamedTuple('Function',
>+                             [('name', str),
>+                              ('args', [Argument])])
>+
>+class Parser(object):
>+    def __init__(self):
>+        self.__function_lines = list()
>+        self.__x_function_lines = list()
>+        self.__function_names = list()
>+        self.__x_function_names = list()
>+        self.__args = dict()
>+        self.__x_args = dict()
>+        self.functions = list()
>+        self.x_functions = list()
>+
>+    def __read_pkcs11_h(self, infile):
>+        reading_list = False
>+        while True:
>+            l = infile.readline()
>+            if not l:
>+                break
>+            if l.startswith('_CK_DECLARE_FUNCTION'):
>+                line = l.strip()
>+                while not line.endswith(';'):
>+                    l = infile.readline()
>+                    if not l:
>+                        break
>+                    line += ' ' + l.strip()
>+                self.__function_lines.append(line)
>+                continue
>+            elif l.startswith('struct ck_function_list'):
>+                if not l.endswith(';'):
>+                    reading_list = True
>+                continue
>+            elif reading_list:
>+                match = P11_FUNCTION_LIST_MEMBER_RE.match(l)
>+                if match:
>+                    self.__function_names.append(match.group(1))
>+                continue
>+            else:
>+                continue
>+            break
>+
>+    def __read_pkcs11i_h(self, infile):
>+        reading_list = False
>+        while True:
>+            l = infile.readline()
>+            if not l:
>+                break
>+            if l.startswith('typedef CK_RV (* CK_X_'):
>+                line = l.strip()
>+                while not line.endswith(';'):
>+                    l = infile.readline()
>+                    if not l:
>+                        break
>+                    line += ' ' + l.strip()
>+                self.__x_function_lines.append(line)
>+                continue
>+            elif l.startswith('struct _CK_X_FUNCTION_LIST'):
>+                if not l.endswith(';'):
>+                    reading_list = True
>+                continue
>+            elif reading_list:
>+                match = P11_X_FUNCTION_LIST_MEMBER_RE.match(l)
>+                if match:
>+                    self.__x_function_names.append(match.group(1))
>+                continue
>+            else:
>+                continue
>+            break
>+
>+    def __parse_function_line(self, line):
>+        match = P11_FUNCTION_RE.match(line)
>+        (name, args) = (match.group(1), match.group(2))
>+        args = [Argument(arg.group(2), arg.group(1).strip())
>+                for arg in P11_ARGUMENT_RE.finditer(args)]
>+        return Function(name, args)
>+
>+    def __parse_function_lines(self):
>+        for line in self.__function_lines:
>+            function = self.__parse_function_line(line)
>+            self.__args[function.name] = function.args
>+            self.functions.append(function)
>+        self.functions.sort(key=lambda x: self.__function_names.index(x.name))
>+
>+    def __parse_x_function_line(self, line):
>+        match = P11_X_FUNCTION_RE.match(line)
>+        (name, args) = (match.group(1), match.group(2))
>+        args = [Argument('', arg.group(1).strip())
>+                         for arg in P11_X_ARGUMENT_RE.finditer(args)]
>+        return Function(name, args)
>+
>+    def __parse_x_function_lines(self):
>+        for line in self.__x_function_lines:
>+            function = self.__parse_x_function_line(line)
>+            self.__x_args[function.name] = function.args
>+            self.x_functions.append(function)
>+        self.x_functions.sort(key=lambda x: self.__x_function_names.index(x.name))
>+
>+    def parse(self, pkcs11_h, pkcs11i_h):
>+        self.__read_pkcs11_h(pkcs11_h)
>+        self.__read_pkcs11i_h(pkcs11i_h)
>+        self.__parse_function_lines()
>+        self.__parse_x_function_lines()
>+        for function in self.functions:
>+            args = self.__x_args.get(function.name)
>+            if args:
>+                for index, arg in enumerate(args[1:]):
>+                    old = function.args[index]
>+                    function.args[index] = Argument(old.name, arg.type)
>+        for function in self.x_functions:
>+            old = function.args[0]
>+            function.args[0] = Argument('self', old.type)
>+            args = self.__args.get(function.name)
>+            if args:
>+                for index, arg in enumerate(args):
>+                    old = function.args[index+1]
>+                    function.args[index+1] = Argument(arg.name, old.type)
>+
>+# Code generation
>+
>+P11_INDENT_RE = re.compile(r' {8}')
>+
>+Config = typing.NamedTuple('Config',
>+                           [('parser', Parser),
>+                            ('exclude', [str])])
>+
>+def format_type(type):
>+    if not type.endswith('*') and not type.endswith(' '):
>+        return type + ' '
>+    return type
>+
>+class Template(object):
>+    def __init__(self, template):
>+        self.__template = string.Template(template)
>+
>+    def __getitem__(self, name):
>+        if hasattr(self, name):
>+            return getattr(self, name)
>+
>+    def substitute(self, **kwargs):
>+        self.substitute_kwargs = kwargs
>+        return self.__template.substitute(self, **kwargs)
>+
>+class FunctionTemplate(Template):
>+    @property
>+    def function_name(self):
>+        function = self.substitute_kwargs['function']
>+        return function.name
>+
>+    def get_arglist(self):
>+        function = self.substitute_kwargs['function']
>+        wrapper_function_name = self.substitute_kwargs['wrapper_function_name']
>+        indent = P11_INDENT_RE.sub('\t', (len(wrapper_function_name + ' (') * ' '))
>+        return ['{indent}{type}{name}'.format(indent=indent,
>+                                              type=format_type(arg.type),
>+                                              name=arg.name)
>+                for arg in function.args]
>+
>+    @property
>+    def arglist(self):
>+        function = self.substitute_kwargs['function']
>+        wrapper_function_name = self.substitute_kwargs['wrapper_function_name']
>+        indent = P11_INDENT_RE.sub('\t', (len(wrapper_function_name + ' (') * ' '))
>+        return ',\n'.join(self.get_arglist()).strip()
>+
>+    def get_args(self):
>+        function = self.substitute_kwargs['function']
>+        return [arg.name for arg in function.args]
>+
>+    @property
>+    def args(self):
>+        function = self.substitute_kwargs['function']
>+        return ', '.join(self.get_args())
>+
>+    @property
>+    def args2(self):
>+        return ', '.join(self.get_args()[1:])
>+
>+class FileTemplate(Template):
>+    def __init__(self, template, function_template, config):
>+        self.function_template = function_template
>+        self.config = config
>+        super(FileTemplate, self).__init__(template)
>+
>+    @property
>+    def function_list(self):
>+        result = list()
>+        for function in self.config.parser.x_functions:
>+            if function.name in self.config.exclude:
>+                continue
>+            result.append(self.function_template.substitute(function=function,
>+                                                            wrapper_function_name=self.wrapper_function_name(function)))
>+        return '\n'.join(result)
>+
>+    @property
>+    def initializer_list(self):
>+        result = list()
>+        for function in self.config.parser.x_functions:
>+            if function.name not in self.config.exclude:
>+                result.append('\t' + self.wrapper_function_name(function))
>+            else:
>+                result.append('\tNULL')
>+        return ',\n'.join(result)
>+
>+class BaseFunctionTemplate(FunctionTemplate):
>+    def __init__(self):
>+        super(BaseFunctionTemplate, self).__init__('''\
>+static CK_RV
>+${wrapper_function_name} (${arglist})
>+{
>+	p11_virtual *virt = (p11_virtual *)self;
>+	CK_FUNCTION_LIST *funcs = virt->lower_module;
>+	return funcs->C_${function_name} (${args2});
>+}
>+''')
>+
>+class BaseFileTemplate(FileTemplate):
>+    def __init__(self, config):
>+        super(BaseFileTemplate, self).__init__('''\
>+${function_list}
>+
>+CK_X_FUNCTION_LIST p11_virtual_base = {
>+	{ CRYPTOKI_VERSION_MAJOR, CRYPTOKI_VERSION_MINOR },  /* version */
>+${initializer_list}
>+};
>+''',
>+        BaseFunctionTemplate(),
>+        config)
>+
>+    def wrapper_function_name(self, function):
>+        return 'base_C_{function}'.format(function=function.name)
>+
>+class StackFunctionTemplate(FunctionTemplate):
>+    def __init__(self):
>+        super(StackFunctionTemplate, self).__init__('''\
>+static CK_RV
>+${wrapper_function_name} (${arglist})
>+{
>+	p11_virtual *virt = (p11_virtual *)self;
>+	CK_X_FUNCTION_LIST *funcs = virt->lower_module;
>+	return funcs->C_${function_name} (funcs, ${args2});
>+}
>+''')
>+
>+class StackFileTemplate(FileTemplate):
>+    def __init__(self, config):
>+        super(StackFileTemplate, self).__init__('''\
>+${function_list}
>+
>+CK_X_FUNCTION_LIST p11_virtual_stack = {
>+	{ CRYPTOKI_VERSION_MAJOR, CRYPTOKI_VERSION_MINOR },  /* version */
>+${initializer_list}
>+};
>+''',
>+        StackFunctionTemplate(),
>+        config)
>+
>+    def wrapper_function_name(self, function):
>+        return 'stack_C_{function}'.format(function=function.name)
>+
>+P11_TEMPLATE = {
>+    'base': BaseFileTemplate,
>+    'stack': StackFileTemplate
>+}
>+
>+if __name__ == '__main__':
>+    import sys
>+    import argparse
>+
>+    parser = argparse.ArgumentParser(description='gen-wrapper')
>+    parser.add_argument('template', choices=['base', 'stack'],
>+                        help='name of the template')
>+    parser.add_argument('pkcs11', type=argparse.FileType('r'),
>+                        help='the pkcs11.h header file')
>+    parser.add_argument('pkcs11i', type=argparse.FileType('r'),
>+                        help='the pkcs11i.h header file')
>+    parser.add_argument('-x', '--exclude', action='append', type=str,
>+                        default=[],
>+                        help='exclude functions')
>+    args = parser.parse_args()
>+
>+    parser = Parser()
>+    parser.parse(args.pkcs11, args.pkcs11i)
>+    template = P11_TEMPLATE[args.template]
>+    config = Config(parser, args.exclude)
>+    print(template(config).substitute())
>diff --git a/p11-kit/virtual.c b/p11-kit/virtual.c
>index bb0d845..d6d6c8d 100644
>--- a/p11-kit/virtual.c
>+++ b/p11-kit/virtual.c
>@@ -932,1549 +932,8 @@ binding_C_GenerateRandom (ffi_cif *cif,
> 
> #endif /* WITH_FFI */
> 
>-static CK_RV
>-stack_C_Initialize (CK_X_FUNCTION_LIST *self,
>-                    CK_VOID_PTR init_args)
>-{
>-	p11_virtual *virt = (p11_virtual *)self;
>-	CK_X_FUNCTION_LIST *funcs = virt->lower_module;
>-	return funcs->C_Initialize (funcs, init_args);
>-}
>-
>-static CK_RV
>-stack_C_Finalize (CK_X_FUNCTION_LIST *self,
>-                  CK_VOID_PTR reserved)
>-{
>-	p11_virtual *virt = (p11_virtual *)self;
>-	CK_X_FUNCTION_LIST *funcs = virt->lower_module;
>-	return funcs->C_Finalize (funcs, reserved);
>-}
>-
>-static CK_RV
>-stack_C_GetInfo (CK_X_FUNCTION_LIST *self,
>-                 CK_INFO_PTR info)
>-{
>-	p11_virtual *virt = (p11_virtual *)self;
>-	CK_X_FUNCTION_LIST *funcs = virt->lower_module;
>-	return funcs->C_GetInfo (funcs, info);
>-}
>-
>-static CK_RV
>-stack_C_GetSlotList (CK_X_FUNCTION_LIST *self,
>-                     CK_BBOOL token_present,
>-                     CK_SLOT_ID_PTR slot_list,
>-                     CK_ULONG_PTR count)
>-{
>-	p11_virtual *virt = (p11_virtual *)self;
>-	CK_X_FUNCTION_LIST *funcs = virt->lower_module;
>-	return funcs->C_GetSlotList (funcs, token_present, slot_list, count);
>-}
>-
>-static CK_RV
>-stack_C_GetSlotInfo (CK_X_FUNCTION_LIST *self,
>-                     CK_SLOT_ID slot_id,
>-                     CK_SLOT_INFO_PTR info)
>-{
>-	p11_virtual *virt = (p11_virtual *)self;
>-	CK_X_FUNCTION_LIST *funcs = virt->lower_module;
>-	return funcs->C_GetSlotInfo (funcs, slot_id, info);
>-}
>-
>-static CK_RV
>-stack_C_GetTokenInfo (CK_X_FUNCTION_LIST *self,
>-                      CK_SLOT_ID slot_id,
>-                      CK_TOKEN_INFO_PTR info)
>-{
>-	p11_virtual *virt = (p11_virtual *)self;
>-	CK_X_FUNCTION_LIST *funcs = virt->lower_module;
>-	return funcs->C_GetTokenInfo (funcs, slot_id, info);
>-}
>-
>-static CK_RV
>-stack_C_GetMechanismList (CK_X_FUNCTION_LIST *self,
>-                          CK_SLOT_ID slot_id,
>-                          CK_MECHANISM_TYPE_PTR mechanism_list,
>-                          CK_ULONG_PTR count)
>-{
>-	p11_virtual *virt = (p11_virtual *)self;
>-	CK_X_FUNCTION_LIST *funcs = virt->lower_module;
>-	return funcs->C_GetMechanismList (funcs, slot_id, mechanism_list, count);
>-}
>-
>-static CK_RV
>-stack_C_GetMechanismInfo (CK_X_FUNCTION_LIST *self,
>-                          CK_SLOT_ID slot_id,
>-                          CK_MECHANISM_TYPE type,
>-                          CK_MECHANISM_INFO_PTR info)
>-{
>-	p11_virtual *virt = (p11_virtual *)self;
>-	CK_X_FUNCTION_LIST *funcs = virt->lower_module;
>-	return funcs->C_GetMechanismInfo (funcs, slot_id, type, info);
>-}
>-
>-static CK_RV
>-stack_C_InitToken (CK_X_FUNCTION_LIST *self,
>-                   CK_SLOT_ID slot_id,
>-                   CK_UTF8CHAR_PTR pin,
>-                   CK_ULONG pin_len,
>-                   CK_UTF8CHAR_PTR label)
>-{
>-	p11_virtual *virt = (p11_virtual *)self;
>-	CK_X_FUNCTION_LIST *funcs = virt->lower_module;
>-	return funcs->C_InitToken (funcs, slot_id, pin, pin_len, label);
>-}
>-
>-static CK_RV
>-stack_C_OpenSession (CK_X_FUNCTION_LIST *self,
>-                     CK_SLOT_ID slot_id,
>-                     CK_FLAGS flags,
>-                     CK_VOID_PTR application,
>-                     CK_NOTIFY notify,
>-                     CK_SESSION_HANDLE_PTR session)
>-{
>-	p11_virtual *virt = (p11_virtual *)self;
>-	CK_X_FUNCTION_LIST *funcs = virt->lower_module;
>-	return funcs->C_OpenSession (funcs, slot_id, flags, application, notify, session);
>-}
>-
>-static CK_RV
>-stack_C_CloseSession (CK_X_FUNCTION_LIST *self,
>-                      CK_SESSION_HANDLE session)
>-{
>-	p11_virtual *virt = (p11_virtual *)self;
>-	CK_X_FUNCTION_LIST *funcs = virt->lower_module;
>-	return funcs->C_CloseSession (funcs, session);
>-}
>-
>-static CK_RV
>-stack_C_CloseAllSessions (CK_X_FUNCTION_LIST *self,
>-                          CK_SLOT_ID slot_id)
>-{
>-	p11_virtual *virt = (p11_virtual *)self;
>-	CK_X_FUNCTION_LIST *funcs = virt->lower_module;
>-	return funcs->C_CloseAllSessions (funcs, slot_id);
>-}
>-
>-static CK_RV
>-stack_C_GetSessionInfo (CK_X_FUNCTION_LIST *self,
>-                        CK_SESSION_HANDLE session,
>-                        CK_SESSION_INFO_PTR info)
>-{
>-	p11_virtual *virt = (p11_virtual *)self;
>-	CK_X_FUNCTION_LIST *funcs = virt->lower_module;
>-	return funcs->C_GetSessionInfo (funcs, session, info);
>-}
>-
>-static CK_RV
>-stack_C_InitPIN (CK_X_FUNCTION_LIST *self,
>-                 CK_SESSION_HANDLE session,
>-                 CK_UTF8CHAR_PTR pin,
>-                 CK_ULONG pin_len)
>-{
>-	p11_virtual *virt = (p11_virtual *)self;
>-	CK_X_FUNCTION_LIST *funcs = virt->lower_module;
>-	return funcs->C_InitPIN (funcs, session, pin, pin_len);
>-}
>-
>-static CK_RV
>-stack_C_SetPIN (CK_X_FUNCTION_LIST *self,
>-                CK_SESSION_HANDLE session,
>-                CK_UTF8CHAR_PTR old_pin,
>-                CK_ULONG old_len,
>-                CK_UTF8CHAR_PTR new_pin,
>-                CK_ULONG new_len)
>-{
>-	p11_virtual *virt = (p11_virtual *)self;
>-	CK_X_FUNCTION_LIST *funcs = virt->lower_module;
>-	return funcs->C_SetPIN (funcs, session, old_pin, old_len, new_pin, new_len);
>-}
>-
>-static CK_RV
>-stack_C_GetOperationState (CK_X_FUNCTION_LIST *self,
>-                           CK_SESSION_HANDLE session,
>-                           CK_BYTE_PTR operation_state,
>-                           CK_ULONG_PTR operation_state_len)
>-{
>-	p11_virtual *virt = (p11_virtual *)self;
>-	CK_X_FUNCTION_LIST *funcs = virt->lower_module;
>-	return funcs->C_GetOperationState (funcs, session, operation_state, operation_state_len);
>-}
>-
>-static CK_RV
>-stack_C_SetOperationState (CK_X_FUNCTION_LIST *self,
>-                           CK_SESSION_HANDLE session,
>-                           CK_BYTE_PTR operation_state,
>-                           CK_ULONG operation_state_len,
>-                           CK_OBJECT_HANDLE encryption_key,
>-                           CK_OBJECT_HANDLE authentication_key)
>-{
>-	p11_virtual *virt = (p11_virtual *)self;
>-	CK_X_FUNCTION_LIST *funcs = virt->lower_module;
>-	return funcs->C_SetOperationState (funcs, session, operation_state, operation_state_len,
>-	                                   encryption_key, authentication_key);
>-}
>-
>-static CK_RV
>-stack_C_Login (CK_X_FUNCTION_LIST *self,
>-               CK_SESSION_HANDLE session,
>-               CK_USER_TYPE user_type,
>-               CK_UTF8CHAR_PTR pin,
>-               CK_ULONG pin_len)
>-{
>-	p11_virtual *virt = (p11_virtual *)self;
>-	CK_X_FUNCTION_LIST *funcs = virt->lower_module;
>-	return funcs->C_Login (funcs, session, user_type, pin, pin_len);
>-}
>-
>-static CK_RV
>-stack_C_Logout (CK_X_FUNCTION_LIST *self,
>-                CK_SESSION_HANDLE session)
>-{
>-	p11_virtual *virt = (p11_virtual *)self;
>-	CK_X_FUNCTION_LIST *funcs = virt->lower_module;
>-	return funcs->C_Logout (funcs, session);
>-}
>-
>-static CK_RV
>-stack_C_CreateObject (CK_X_FUNCTION_LIST *self,
>-                      CK_SESSION_HANDLE session,
>-                      CK_ATTRIBUTE_PTR template,
>-                      CK_ULONG count,
>-                      CK_OBJECT_HANDLE_PTR object)
>-{
>-	p11_virtual *virt = (p11_virtual *)self;
>-	CK_X_FUNCTION_LIST *funcs = virt->lower_module;
>-	return funcs->C_CreateObject (funcs, session, template, count, object);
>-}
>-
>-static CK_RV
>-stack_C_CopyObject (CK_X_FUNCTION_LIST *self,
>-                    CK_SESSION_HANDLE session,
>-                    CK_OBJECT_HANDLE object,
>-                    CK_ATTRIBUTE_PTR template,
>-                    CK_ULONG count,
>-                    CK_OBJECT_HANDLE_PTR new_object)
>-{
>-	p11_virtual *virt = (p11_virtual *)self;
>-	CK_X_FUNCTION_LIST *funcs = virt->lower_module;
>-	return funcs->C_CopyObject (funcs, session, object, template, count, new_object);
>-}
>-
>-
>-static CK_RV
>-stack_C_DestroyObject (CK_X_FUNCTION_LIST *self,
>-                       CK_SESSION_HANDLE session,
>-                       CK_OBJECT_HANDLE object)
>-{
>-	p11_virtual *virt = (p11_virtual *)self;
>-	CK_X_FUNCTION_LIST *funcs = virt->lower_module;
>-	return funcs->C_DestroyObject (funcs, session, object);
>-}
>-
>-static CK_RV
>-stack_C_GetObjectSize (CK_X_FUNCTION_LIST *self,
>-                       CK_SESSION_HANDLE session,
>-                       CK_OBJECT_HANDLE object,
>-                       CK_ULONG_PTR size)
>-{
>-	p11_virtual *virt = (p11_virtual *)self;
>-	CK_X_FUNCTION_LIST *funcs = virt->lower_module;
>-	return funcs->C_GetObjectSize (funcs, session, object, size);
>-}
>-
>-static CK_RV
>-stack_C_GetAttributeValue (CK_X_FUNCTION_LIST *self,
>-                           CK_SESSION_HANDLE session,
>-                           CK_OBJECT_HANDLE object,
>-                           CK_ATTRIBUTE_PTR template,
>-                           CK_ULONG count)
>-{
>-	p11_virtual *virt = (p11_virtual *)self;
>-	CK_X_FUNCTION_LIST *funcs = virt->lower_module;
>-	return funcs->C_GetAttributeValue (funcs, session, object, template, count);
>-}
>-
>-static CK_RV
>-stack_C_SetAttributeValue (CK_X_FUNCTION_LIST *self,
>-                           CK_SESSION_HANDLE session,
>-                           CK_OBJECT_HANDLE object,
>-                           CK_ATTRIBUTE_PTR template,
>-                           CK_ULONG count)
>-{
>-	p11_virtual *virt = (p11_virtual *)self;
>-	CK_X_FUNCTION_LIST *funcs = virt->lower_module;
>-	return funcs->C_SetAttributeValue (funcs, session, object, template, count);
>-}
>-
>-static CK_RV
>-stack_C_FindObjectsInit (CK_X_FUNCTION_LIST *self,
>-                         CK_SESSION_HANDLE session,
>-                         CK_ATTRIBUTE_PTR template,
>-                         CK_ULONG count)
>-{
>-	p11_virtual *virt = (p11_virtual *)self;
>-	CK_X_FUNCTION_LIST *funcs = virt->lower_module;
>-	return funcs->C_FindObjectsInit (funcs, session, template, count);
>-}
>-
>-static CK_RV
>-stack_C_FindObjects (CK_X_FUNCTION_LIST *self,
>-                       CK_SESSION_HANDLE session,
>-                       CK_OBJECT_HANDLE_PTR object,
>-                       CK_ULONG max_object_count,
>-                       CK_ULONG_PTR object_count)
>-{
>-	p11_virtual *virt = (p11_virtual *)self;
>-	CK_X_FUNCTION_LIST *funcs = virt->lower_module;
>-	return funcs->C_FindObjects (funcs, session, object, max_object_count, object_count);
>-}
>-
>-static CK_RV
>-stack_C_FindObjectsFinal (CK_X_FUNCTION_LIST *self,
>-                            CK_SESSION_HANDLE session)
>-{
>-	p11_virtual *virt = (p11_virtual *)self;
>-	CK_X_FUNCTION_LIST *funcs = virt->lower_module;
>-	return funcs->C_FindObjectsFinal (funcs, session);
>-}
>-
>-static CK_RV
>-stack_C_EncryptInit (CK_X_FUNCTION_LIST *self,
>-                       CK_SESSION_HANDLE session,
>-                       CK_MECHANISM_PTR mechanism,
>-                       CK_OBJECT_HANDLE key)
>-{
>-	p11_virtual *virt = (p11_virtual *)self;
>-	CK_X_FUNCTION_LIST *funcs = virt->lower_module;
>-	return funcs->C_EncryptInit (funcs, session, mechanism, key);
>-}
>-
>-static CK_RV
>-stack_C_Encrypt (CK_X_FUNCTION_LIST *self,
>-                   CK_SESSION_HANDLE session,
>-                   CK_BYTE_PTR input,
>-                   CK_ULONG input_len,
>-                   CK_BYTE_PTR encrypted_data,
>-                   CK_ULONG_PTR encrypted_data_len)
>-{
>-	p11_virtual *virt = (p11_virtual *)self;
>-	CK_X_FUNCTION_LIST *funcs = virt->lower_module;
>-	return funcs->C_Encrypt (funcs, session, input, input_len,
>-	                         encrypted_data, encrypted_data_len);
>-}
>-
>-static CK_RV
>-stack_C_EncryptUpdate (CK_X_FUNCTION_LIST *self,
>-                       CK_SESSION_HANDLE session,
>-                       CK_BYTE_PTR part,
>-                       CK_ULONG part_len,
>-                       CK_BYTE_PTR encrypted_part,
>-                       CK_ULONG_PTR encrypted_part_len)
>-{
>-	p11_virtual *virt = (p11_virtual *)self;
>-	CK_X_FUNCTION_LIST *funcs = virt->lower_module;
>-	return funcs->C_EncryptUpdate (funcs, session, part, part_len,
>-	                               encrypted_part, encrypted_part_len);
>-}
>-
>-static CK_RV
>-stack_C_EncryptFinal (CK_X_FUNCTION_LIST *self,
>-                      CK_SESSION_HANDLE session,
>-                      CK_BYTE_PTR last_encrypted_part,
>-                      CK_ULONG_PTR last_encrypted_part_len)
>-{
>-	p11_virtual *virt = (p11_virtual *)self;
>-	CK_X_FUNCTION_LIST *funcs = virt->lower_module;
>-	return funcs->C_EncryptFinal (funcs, session, last_encrypted_part,
>-	                              last_encrypted_part_len);
>-}
>-
>-static CK_RV
>-stack_C_DecryptInit (CK_X_FUNCTION_LIST *self,
>-                     CK_SESSION_HANDLE session,
>-                     CK_MECHANISM_PTR mechanism,
>-                     CK_OBJECT_HANDLE key)
>-{
>-	p11_virtual *virt = (p11_virtual *)self;
>-	CK_X_FUNCTION_LIST *funcs = virt->lower_module;
>-	return funcs->C_DecryptInit (funcs, session, mechanism, key);
>-}
>-
>-static CK_RV
>-stack_C_Decrypt (CK_X_FUNCTION_LIST *self,
>-                 CK_SESSION_HANDLE session,
>-                 CK_BYTE_PTR encrypted_data,
>-                 CK_ULONG encrypted_data_len,
>-                 CK_BYTE_PTR output,
>-                 CK_ULONG_PTR output_len)
>-{
>-	p11_virtual *virt = (p11_virtual *)self;
>-	CK_X_FUNCTION_LIST *funcs = virt->lower_module;
>-	return funcs->C_Decrypt (funcs, session, encrypted_data, encrypted_data_len,
>-	                         output, output_len);
>-}
>-
>-static CK_RV
>-stack_C_DecryptUpdate (CK_X_FUNCTION_LIST *self,
>-                       CK_SESSION_HANDLE session,
>-                       CK_BYTE_PTR encrypted_part,
>-                       CK_ULONG encrypted_part_len,
>-                       CK_BYTE_PTR part,
>-                       CK_ULONG_PTR part_len)
>-{
>-	p11_virtual *virt = (p11_virtual *)self;
>-	CK_X_FUNCTION_LIST *funcs = virt->lower_module;
>-	return funcs->C_DecryptUpdate (funcs, session, encrypted_part, encrypted_part_len,
>-	                               part, part_len);
>-}
>-
>-static CK_RV
>-stack_C_DecryptFinal (CK_X_FUNCTION_LIST *self,
>-                      CK_SESSION_HANDLE session,
>-                      CK_BYTE_PTR last_part,
>-                      CK_ULONG_PTR last_part_len)
>-{
>-	p11_virtual *virt = (p11_virtual *)self;
>-	CK_X_FUNCTION_LIST *funcs = virt->lower_module;
>-	return funcs->C_DecryptFinal (funcs, session, last_part, last_part_len);
>-}
>-
>-static CK_RV
>-stack_C_DigestInit (CK_X_FUNCTION_LIST *self,
>-                    CK_SESSION_HANDLE session,
>-                    CK_MECHANISM_PTR mechanism)
>-{
>-	p11_virtual *virt = (p11_virtual *)self;
>-	CK_X_FUNCTION_LIST *funcs = virt->lower_module;
>-	return funcs->C_DigestInit (funcs, session, mechanism);
>-}
>-
>-static CK_RV
>-stack_C_Digest (CK_X_FUNCTION_LIST *self,
>-                CK_SESSION_HANDLE session,
>-                CK_BYTE_PTR input,
>-                CK_ULONG input_len,
>-                CK_BYTE_PTR digest,
>-                CK_ULONG_PTR digest_len)
>-{
>-	p11_virtual *virt = (p11_virtual *)self;
>-	CK_X_FUNCTION_LIST *funcs = virt->lower_module;
>-	return funcs->C_Digest (funcs, session, input, input_len, digest, digest_len);
>-}
>-
>-static CK_RV
>-stack_C_DigestUpdate (CK_X_FUNCTION_LIST *self,
>-                      CK_SESSION_HANDLE session,
>-                      CK_BYTE_PTR part,
>-                      CK_ULONG part_len)
>-{
>-	p11_virtual *virt = (p11_virtual *)self;
>-	CK_X_FUNCTION_LIST *funcs = virt->lower_module;
>-	return funcs->C_DigestUpdate (funcs, session, part, part_len);
>-}
>-
>-static CK_RV
>-stack_C_DigestKey (CK_X_FUNCTION_LIST *self,
>-                   CK_SESSION_HANDLE session,
>-                   CK_OBJECT_HANDLE key)
>-{
>-	p11_virtual *virt = (p11_virtual *)self;
>-	CK_X_FUNCTION_LIST *funcs = virt->lower_module;
>-	return funcs->C_DigestKey (funcs, session, key);
>-}
>-
>-static CK_RV
>-stack_C_DigestFinal (CK_X_FUNCTION_LIST *self,
>-                     CK_SESSION_HANDLE session,
>-                     CK_BYTE_PTR digest,
>-                     CK_ULONG_PTR digest_len)
>-{
>-	p11_virtual *virt = (p11_virtual *)self;
>-	CK_X_FUNCTION_LIST *funcs = virt->lower_module;
>-	return funcs->C_DigestFinal (funcs, session, digest, digest_len);
>-}
>-
>-static CK_RV
>-stack_C_SignInit (CK_X_FUNCTION_LIST *self,
>-                  CK_SESSION_HANDLE session,
>-                  CK_MECHANISM_PTR mechanism,
>-                  CK_OBJECT_HANDLE key)
>-{
>-	p11_virtual *virt = (p11_virtual *)self;
>-	CK_X_FUNCTION_LIST *funcs = virt->lower_module;
>-	return funcs->C_SignInit (funcs, session, mechanism, key);
>-}
>-
>-static CK_RV
>-stack_C_Sign (CK_X_FUNCTION_LIST *self,
>-              CK_SESSION_HANDLE session,
>-              CK_BYTE_PTR input,
>-              CK_ULONG input_len,
>-              CK_BYTE_PTR signature,
>-              CK_ULONG_PTR signature_len)
>-{
>-	p11_virtual *virt = (p11_virtual *)self;
>-	CK_X_FUNCTION_LIST *funcs = virt->lower_module;
>-	return funcs->C_Sign (funcs, session, input, input_len,
>-	                      signature, signature_len);
>-}
>-
>-static CK_RV
>-stack_C_SignUpdate (CK_X_FUNCTION_LIST *self,
>-                    CK_SESSION_HANDLE session,
>-                    CK_BYTE_PTR part,
>-                    CK_ULONG part_len)
>-{
>-	p11_virtual *virt = (p11_virtual *)self;
>-	CK_X_FUNCTION_LIST *funcs = virt->lower_module;
>-	return funcs->C_SignUpdate (funcs, session, part, part_len);
>-}
>-
>-static CK_RV
>-stack_C_SignFinal (CK_X_FUNCTION_LIST *self,
>-                   CK_SESSION_HANDLE session,
>-                   CK_BYTE_PTR signature,
>-                   CK_ULONG_PTR signature_len)
>-{
>-	p11_virtual *virt = (p11_virtual *)self;
>-	CK_X_FUNCTION_LIST *funcs = virt->lower_module;
>-	return funcs->C_SignFinal (funcs, session, signature, signature_len);
>-}
>-
>-static CK_RV
>-stack_C_SignRecoverInit (CK_X_FUNCTION_LIST *self,
>-                         CK_SESSION_HANDLE session,
>-                         CK_MECHANISM_PTR mechanism,
>-                         CK_OBJECT_HANDLE key)
>-{
>-	p11_virtual *virt = (p11_virtual *)self;
>-	CK_X_FUNCTION_LIST *funcs = virt->lower_module;
>-	return funcs->C_SignRecoverInit (funcs, session, mechanism, key);
>-}
>-
>-static CK_RV
>-stack_C_SignRecover (CK_X_FUNCTION_LIST *self,
>-                     CK_SESSION_HANDLE session,
>-                     CK_BYTE_PTR input,
>-                     CK_ULONG input_len,
>-                     CK_BYTE_PTR signature,
>-                     CK_ULONG_PTR signature_len)
>-{
>-	p11_virtual *virt = (p11_virtual *)self;
>-	CK_X_FUNCTION_LIST *funcs = virt->lower_module;
>-	return funcs->C_SignRecover (funcs, session, input, input_len,
>-	                             signature, signature_len);
>-}
>-
>-static CK_RV
>-stack_C_VerifyInit (CK_X_FUNCTION_LIST *self,
>-                    CK_SESSION_HANDLE session,
>-                    CK_MECHANISM_PTR mechanism,
>-                    CK_OBJECT_HANDLE key)
>-{
>-	p11_virtual *virt = (p11_virtual *)self;
>-	CK_X_FUNCTION_LIST *funcs = virt->lower_module;
>-	return funcs->C_VerifyInit (funcs, session, mechanism, key);
>-}
>-
>-static CK_RV
>-stack_C_Verify (CK_X_FUNCTION_LIST *self,
>-                CK_SESSION_HANDLE session,
>-                CK_BYTE_PTR input,
>-                CK_ULONG input_len,
>-                CK_BYTE_PTR signature,
>-                CK_ULONG signature_len)
>-{
>-	p11_virtual *virt = (p11_virtual *)self;
>-	CK_X_FUNCTION_LIST *funcs = virt->lower_module;
>-	return funcs->C_Verify (funcs, session, input, input_len,
>-	                        signature, signature_len);
>-}
>-
>-static CK_RV
>-stack_C_VerifyUpdate (CK_X_FUNCTION_LIST *self,
>-                      CK_SESSION_HANDLE session,
>-                      CK_BYTE_PTR part,
>-                      CK_ULONG part_len)
>-{
>-	p11_virtual *virt = (p11_virtual *)self;
>-	CK_X_FUNCTION_LIST *funcs = virt->lower_module;
>-	return funcs->C_VerifyUpdate (funcs, session, part, part_len);
>-}
>-
>-static CK_RV
>-stack_C_VerifyFinal (CK_X_FUNCTION_LIST *self,
>-                     CK_SESSION_HANDLE session,
>-                     CK_BYTE_PTR signature,
>-                     CK_ULONG signature_len)
>-{
>-	p11_virtual *virt = (p11_virtual *)self;
>-	CK_X_FUNCTION_LIST *funcs = virt->lower_module;
>-	return funcs->C_VerifyFinal (funcs, session, signature, signature_len);
>-}
>-
>-static CK_RV
>-stack_C_VerifyRecoverInit (CK_X_FUNCTION_LIST *self,
>-                           CK_SESSION_HANDLE session,
>-                           CK_MECHANISM_PTR mechanism,
>-                           CK_OBJECT_HANDLE key)
>-{
>-	p11_virtual *virt = (p11_virtual *)self;
>-	CK_X_FUNCTION_LIST *funcs = virt->lower_module;
>-	return funcs->C_VerifyRecoverInit (funcs, session, mechanism, key);
>-}
>-
>-static CK_RV
>-stack_C_VerifyRecover (CK_X_FUNCTION_LIST *self,
>-                       CK_SESSION_HANDLE session,
>-                       CK_BYTE_PTR signature,
>-                       CK_ULONG signature_len,
>-                       CK_BYTE_PTR input,
>-                       CK_ULONG_PTR input_len)
>-{
>-	p11_virtual *virt = (p11_virtual *)self;
>-	CK_X_FUNCTION_LIST *funcs = virt->lower_module;
>-	return funcs->C_VerifyRecover (funcs, session, signature, signature_len,
>-	                               input, input_len);
>-}
>-
>-static CK_RV
>-stack_C_DigestEncryptUpdate (CK_X_FUNCTION_LIST *self,
>-                             CK_SESSION_HANDLE session,
>-                             CK_BYTE_PTR part,
>-                             CK_ULONG part_len,
>-                             CK_BYTE_PTR encrypted_part,
>-                             CK_ULONG_PTR encrypted_part_len)
>-{
>-	p11_virtual *virt = (p11_virtual *)self;
>-	CK_X_FUNCTION_LIST *funcs = virt->lower_module;
>-	return funcs->C_DigestEncryptUpdate (funcs, session, part, part_len,
>-	                                     encrypted_part, encrypted_part_len);
>-}
>-
>-static CK_RV
>-stack_C_DecryptDigestUpdate (CK_X_FUNCTION_LIST *self,
>-                             CK_SESSION_HANDLE session,
>-                             CK_BYTE_PTR encrypted_part,
>-                             CK_ULONG encrypted_part_len,
>-                             CK_BYTE_PTR part,
>-                             CK_ULONG_PTR part_len)
>-{
>-	p11_virtual *virt = (p11_virtual *)self;
>-	CK_X_FUNCTION_LIST *funcs = virt->lower_module;
>-	return funcs->C_DecryptDigestUpdate (funcs, session, encrypted_part, encrypted_part_len,
>-	                                          part, part_len);
>-}
>-
>-static CK_RV
>-stack_C_SignEncryptUpdate (CK_X_FUNCTION_LIST *self,
>-                           CK_SESSION_HANDLE session,
>-                           CK_BYTE_PTR part,
>-                           CK_ULONG part_len,
>-                           CK_BYTE_PTR encrypted_part,
>-                           CK_ULONG_PTR encrypted_part_len)
>-{
>-	p11_virtual *virt = (p11_virtual *)self;
>-	CK_X_FUNCTION_LIST *funcs = virt->lower_module;
>-	return funcs->C_SignEncryptUpdate (funcs, session, part, part_len,
>-	                                   encrypted_part, encrypted_part_len);
>-}
>-
>-static CK_RV
>-stack_C_DecryptVerifyUpdate (CK_X_FUNCTION_LIST *self,
>-                             CK_SESSION_HANDLE session,
>-                             CK_BYTE_PTR encrypted_part,
>-                             CK_ULONG encrypted_part_len,
>-                             CK_BYTE_PTR part,
>-                             CK_ULONG_PTR part_len)
>-{
>-	p11_virtual *virt = (p11_virtual *)self;
>-	CK_X_FUNCTION_LIST *funcs = virt->lower_module;
>-	return funcs->C_DecryptVerifyUpdate (funcs, session, encrypted_part, encrypted_part_len,
>-	                                     part, part_len);
>-}
>-
>-static CK_RV
>-stack_C_GenerateKey (CK_X_FUNCTION_LIST *self,
>-                     CK_SESSION_HANDLE session,
>-                     CK_MECHANISM_PTR mechanism,
>-                     CK_ATTRIBUTE_PTR template,
>-                     CK_ULONG count,
>-                     CK_OBJECT_HANDLE_PTR key)
>-{
>-	p11_virtual *virt = (p11_virtual *)self;
>-	CK_X_FUNCTION_LIST *funcs = virt->lower_module;
>-	return funcs->C_GenerateKey (funcs, session, mechanism, template, count, key);
>-}
>-
>-static CK_RV
>-stack_C_GenerateKeyPair (CK_X_FUNCTION_LIST *self,
>-                         CK_SESSION_HANDLE session,
>-                         CK_MECHANISM_PTR mechanism,
>-                         CK_ATTRIBUTE_PTR public_key_template,
>-                         CK_ULONG public_key_count,
>-                         CK_ATTRIBUTE_PTR private_key_template,
>-                         CK_ULONG private_key_count,
>-                         CK_OBJECT_HANDLE_PTR public_key,
>-                         CK_OBJECT_HANDLE_PTR private_key)
>-{
>-	p11_virtual *virt = (p11_virtual *)self;
>-	CK_X_FUNCTION_LIST *funcs = virt->lower_module;
>-	return funcs->C_GenerateKeyPair (funcs, session, mechanism, public_key_template,
>-	                                 public_key_count, private_key_template,
>-	                                 private_key_count, public_key, private_key);
>-}
>-
>-static CK_RV
>-stack_C_WrapKey (CK_X_FUNCTION_LIST *self,
>-                 CK_SESSION_HANDLE session,
>-                 CK_MECHANISM_PTR mechanism,
>-                 CK_OBJECT_HANDLE wrapping_key,
>-                 CK_OBJECT_HANDLE key,
>-                 CK_BYTE_PTR wrapped_key,
>-                 CK_ULONG_PTR wrapped_key_len)
>-{
>-	p11_virtual *virt = (p11_virtual *)self;
>-	CK_X_FUNCTION_LIST *funcs = virt->lower_module;
>-	return funcs->C_WrapKey (funcs, session, mechanism, wrapping_key, key,
>-	                         wrapped_key, wrapped_key_len);
>-}
>-
>-static CK_RV
>-stack_C_UnwrapKey (CK_X_FUNCTION_LIST *self,
>-                   CK_SESSION_HANDLE session,
>-                   CK_MECHANISM_PTR mechanism,
>-                   CK_OBJECT_HANDLE unwrapping_key,
>-                   CK_BYTE_PTR wrapped_key,
>-                   CK_ULONG wrapped_key_len,
>-                   CK_ATTRIBUTE_PTR template,
>-                   CK_ULONG count,
>-                   CK_OBJECT_HANDLE_PTR key)
>-{
>-	p11_virtual *virt = (p11_virtual *)self;
>-	CK_X_FUNCTION_LIST *funcs = virt->lower_module;
>-	return funcs->C_UnwrapKey (funcs, session, mechanism, unwrapping_key, wrapped_key,
>-	                           wrapped_key_len, template, count, key);
>-}
>-
>-static CK_RV
>-stack_C_DeriveKey (CK_X_FUNCTION_LIST *self,
>-                   CK_SESSION_HANDLE session,
>-                   CK_MECHANISM_PTR mechanism,
>-                   CK_OBJECT_HANDLE base_key,
>-                   CK_ATTRIBUTE_PTR template,
>-                   CK_ULONG count,
>-                   CK_OBJECT_HANDLE_PTR key)
>-{
>-	p11_virtual *virt = (p11_virtual *)self;
>-	CK_X_FUNCTION_LIST *funcs = virt->lower_module;
>-	return funcs->C_DeriveKey (funcs, session, mechanism, base_key, template, count, key);
>-}
>-
>-static CK_RV
>-stack_C_SeedRandom (CK_X_FUNCTION_LIST *self,
>-                    CK_SESSION_HANDLE session,
>-                    CK_BYTE_PTR seed,
>-                    CK_ULONG seed_len)
>-{
>-	p11_virtual *virt = (p11_virtual *)self;
>-	CK_X_FUNCTION_LIST *funcs = virt->lower_module;
>-	return funcs->C_SeedRandom (funcs, session, seed, seed_len);
>-}
>-
>-static CK_RV
>-stack_C_GenerateRandom (CK_X_FUNCTION_LIST *self,
>-                        CK_SESSION_HANDLE session,
>-                        CK_BYTE_PTR random_data,
>-                        CK_ULONG random_len)
>-{
>-	p11_virtual *virt = (p11_virtual *)self;
>-	CK_X_FUNCTION_LIST *funcs = virt->lower_module;
>-	return funcs->C_GenerateRandom (funcs, session, random_data, random_len);
>-}
>-
>-static CK_RV
>-stack_C_WaitForSlotEvent (CK_X_FUNCTION_LIST *self,
>-                          CK_FLAGS flags,
>-                          CK_SLOT_ID_PTR slot_id,
>-                          CK_VOID_PTR reserved)
>-{
>-	p11_virtual *virt = (p11_virtual *)self;
>-	CK_X_FUNCTION_LIST *funcs = virt->lower_module;
>-	return funcs->C_WaitForSlotEvent (funcs, flags, slot_id, reserved);
>-}
>-
>-static CK_RV
>-base_C_Initialize (CK_X_FUNCTION_LIST *self,
>-                   CK_VOID_PTR init_args)
>-{
>-	p11_virtual *virt = (p11_virtual *)self;
>-	CK_FUNCTION_LIST *funcs = virt->lower_module;
>-	return funcs->C_Initialize (init_args);
>-}
>-
>-static CK_RV
>-base_C_Finalize (CK_X_FUNCTION_LIST *self,
>-                 CK_VOID_PTR reserved)
>-{
>-	p11_virtual *virt = (p11_virtual *)self;
>-	CK_FUNCTION_LIST *funcs = virt->lower_module;
>-	return funcs->C_Finalize (reserved);
>-}
>-
>-static CK_RV
>-base_C_GetInfo (CK_X_FUNCTION_LIST *self,
>-                CK_INFO_PTR info)
>-{
>-	p11_virtual *virt = (p11_virtual *)self;
>-	CK_FUNCTION_LIST *funcs = virt->lower_module;
>-	return funcs->C_GetInfo (info);
>-}
>-
>-static CK_RV
>-base_C_GetSlotList (CK_X_FUNCTION_LIST *self,
>-                    CK_BBOOL token_present,
>-                    CK_SLOT_ID_PTR slot_list,
>-                    CK_ULONG_PTR count)
>-{
>-	p11_virtual *virt = (p11_virtual *)self;
>-	CK_FUNCTION_LIST *funcs = virt->lower_module;
>-	return funcs->C_GetSlotList (token_present, slot_list, count);
>-}
>-
>-static CK_RV
>-base_C_GetSlotInfo (CK_X_FUNCTION_LIST *self,
>-                    CK_SLOT_ID slot_id,
>-                    CK_SLOT_INFO_PTR info)
>-{
>-	p11_virtual *virt = (p11_virtual *)self;
>-	CK_FUNCTION_LIST *funcs = virt->lower_module;
>-	return funcs->C_GetSlotInfo (slot_id, info);
>-}
>-
>-static CK_RV
>-base_C_GetTokenInfo (CK_X_FUNCTION_LIST *self,
>-                     CK_SLOT_ID slot_id,
>-                     CK_TOKEN_INFO_PTR info)
>-{
>-	p11_virtual *virt = (p11_virtual *)self;
>-	CK_FUNCTION_LIST *funcs = virt->lower_module;
>-	return funcs->C_GetTokenInfo (slot_id, info);
>-}
>-
>-static CK_RV
>-base_C_GetMechanismList (CK_X_FUNCTION_LIST *self,
>-                         CK_SLOT_ID slot_id,
>-                         CK_MECHANISM_TYPE_PTR mechanism_list,
>-                         CK_ULONG_PTR count)
>-{
>-	p11_virtual *virt = (p11_virtual *)self;
>-	CK_FUNCTION_LIST *funcs = virt->lower_module;
>-	return funcs->C_GetMechanismList (slot_id, mechanism_list, count);
>-}
>-
>-static CK_RV
>-base_C_GetMechanismInfo (CK_X_FUNCTION_LIST *self,
>-                         CK_SLOT_ID slot_id,
>-                         CK_MECHANISM_TYPE type,
>-                         CK_MECHANISM_INFO_PTR info)
>-{
>-	p11_virtual *virt = (p11_virtual *)self;
>-	CK_FUNCTION_LIST *funcs = virt->lower_module;
>-	return funcs->C_GetMechanismInfo (slot_id, type, info);
>-}
>-
>-static CK_RV
>-base_C_InitToken (CK_X_FUNCTION_LIST *self,
>-                  CK_SLOT_ID slot_id,
>-                  CK_UTF8CHAR_PTR pin,
>-                  CK_ULONG pin_len,
>-                  CK_UTF8CHAR_PTR label)
>-{
>-	p11_virtual *virt = (p11_virtual *)self;
>-	CK_FUNCTION_LIST *funcs = virt->lower_module;
>-	return funcs->C_InitToken (slot_id, pin, pin_len, label);
>-}
>-
>-static CK_RV
>-base_C_OpenSession (CK_X_FUNCTION_LIST *self,
>-                    CK_SLOT_ID slot_id,
>-                    CK_FLAGS flags,
>-                    CK_VOID_PTR application,
>-                    CK_NOTIFY notify,
>-                    CK_SESSION_HANDLE_PTR session)
>-{
>-	p11_virtual *virt = (p11_virtual *)self;
>-	CK_FUNCTION_LIST *funcs = virt->lower_module;
>-	return funcs->C_OpenSession (slot_id, flags, application, notify, session);
>-}
>-
>-static CK_RV
>-base_C_CloseSession (CK_X_FUNCTION_LIST *self,
>-                     CK_SESSION_HANDLE session)
>-{
>-	p11_virtual *virt = (p11_virtual *)self;
>-	CK_FUNCTION_LIST *funcs = virt->lower_module;
>-	return funcs->C_CloseSession (session);
>-}
>-
>-static CK_RV
>-base_C_CloseAllSessions (CK_X_FUNCTION_LIST *self,
>-                         CK_SLOT_ID slot_id)
>-{
>-	p11_virtual *virt = (p11_virtual *)self;
>-	CK_FUNCTION_LIST *funcs = virt->lower_module;
>-	return funcs->C_CloseAllSessions (slot_id);
>-}
>-
>-static CK_RV
>-base_C_GetSessionInfo (CK_X_FUNCTION_LIST *self,
>-                       CK_SESSION_HANDLE session,
>-                       CK_SESSION_INFO_PTR info)
>-{
>-	p11_virtual *virt = (p11_virtual *)self;
>-	CK_FUNCTION_LIST *funcs = virt->lower_module;
>-	return funcs->C_GetSessionInfo (session, info);
>-}
>-
>-static CK_RV
>-base_C_InitPIN (CK_X_FUNCTION_LIST *self,
>-                CK_SESSION_HANDLE session,
>-                CK_UTF8CHAR_PTR pin,
>-                CK_ULONG pin_len)
>-{
>-	p11_virtual *virt = (p11_virtual *)self;
>-	CK_FUNCTION_LIST *funcs = virt->lower_module;
>-	return funcs->C_InitPIN (session, pin, pin_len);
>-}
>-
>-static CK_RV
>-base_C_SetPIN (CK_X_FUNCTION_LIST *self,
>-               CK_SESSION_HANDLE session,
>-               CK_UTF8CHAR_PTR old_pin,
>-               CK_ULONG old_len,
>-               CK_UTF8CHAR_PTR new_pin,
>-               CK_ULONG new_len)
>-{
>-	p11_virtual *virt = (p11_virtual *)self;
>-	CK_FUNCTION_LIST *funcs = virt->lower_module;
>-	return funcs->C_SetPIN (session, old_pin, old_len, new_pin, new_len);
>-}
>-
>-static CK_RV
>-base_C_GetOperationState (CK_X_FUNCTION_LIST *self,
>-                          CK_SESSION_HANDLE session,
>-                          CK_BYTE_PTR operation_state,
>-                          CK_ULONG_PTR operation_state_len)
>-{
>-	p11_virtual *virt = (p11_virtual *)self;
>-	CK_FUNCTION_LIST *funcs = virt->lower_module;
>-	return funcs->C_GetOperationState (session, operation_state, operation_state_len);
>-}
>-
>-static CK_RV
>-base_C_SetOperationState (CK_X_FUNCTION_LIST *self,
>-                          CK_SESSION_HANDLE session,
>-                          CK_BYTE_PTR operation_state,
>-                          CK_ULONG operation_state_len,
>-                          CK_OBJECT_HANDLE encryption_key,
>-                          CK_OBJECT_HANDLE authentication_key)
>-{
>-	p11_virtual *virt = (p11_virtual *)self;
>-	CK_FUNCTION_LIST *funcs = virt->lower_module;
>-	return funcs->C_SetOperationState (session, operation_state, operation_state_len,
>-	                                   encryption_key, authentication_key);
>-}
>-
>-static CK_RV
>-base_C_Login (CK_X_FUNCTION_LIST *self,
>-              CK_SESSION_HANDLE session,
>-              CK_USER_TYPE user_type,
>-              CK_UTF8CHAR_PTR pin,
>-              CK_ULONG pin_len)
>-{
>-	p11_virtual *virt = (p11_virtual *)self;
>-	CK_FUNCTION_LIST *funcs = virt->lower_module;
>-	return funcs->C_Login (session, user_type, pin, pin_len);
>-}
>-
>-static CK_RV
>-base_C_Logout (CK_X_FUNCTION_LIST *self,
>-               CK_SESSION_HANDLE session)
>-{
>-	p11_virtual *virt = (p11_virtual *)self;
>-	CK_FUNCTION_LIST *funcs = virt->lower_module;
>-	return funcs->C_Logout (session);
>-}
>-
>-static CK_RV
>-base_C_CreateObject (CK_X_FUNCTION_LIST *self,
>-                     CK_SESSION_HANDLE session,
>-                     CK_ATTRIBUTE_PTR template,
>-                     CK_ULONG count,
>-                     CK_OBJECT_HANDLE_PTR object)
>-{
>-	p11_virtual *virt = (p11_virtual *)self;
>-	CK_FUNCTION_LIST *funcs = virt->lower_module;
>-	return funcs->C_CreateObject (session, template, count, object);
>-}
>-
>-static CK_RV
>-base_C_CopyObject (CK_X_FUNCTION_LIST *self,
>-                   CK_SESSION_HANDLE session,
>-                   CK_OBJECT_HANDLE object,
>-                   CK_ATTRIBUTE_PTR template,
>-                   CK_ULONG count,
>-                   CK_OBJECT_HANDLE_PTR new_object)
>-{
>-	p11_virtual *virt = (p11_virtual *)self;
>-	CK_FUNCTION_LIST *funcs = virt->lower_module;
>-	return funcs->C_CopyObject (session, object, template, count, new_object);
>-}
>-
>-
>-static CK_RV
>-base_C_DestroyObject (CK_X_FUNCTION_LIST *self,
>-                      CK_SESSION_HANDLE session,
>-                      CK_OBJECT_HANDLE object)
>-{
>-	p11_virtual *virt = (p11_virtual *)self;
>-	CK_FUNCTION_LIST *funcs = virt->lower_module;
>-	return funcs->C_DestroyObject (session, object);
>-}
>-
>-static CK_RV
>-base_C_GetObjectSize (CK_X_FUNCTION_LIST *self,
>-                      CK_SESSION_HANDLE session,
>-                      CK_OBJECT_HANDLE object,
>-                      CK_ULONG_PTR size)
>-{
>-	p11_virtual *virt = (p11_virtual *)self;
>-	CK_FUNCTION_LIST *funcs = virt->lower_module;
>-	return funcs->C_GetObjectSize (session, object, size);
>-}
>-
>-static CK_RV
>-base_C_GetAttributeValue (CK_X_FUNCTION_LIST *self,
>-                          CK_SESSION_HANDLE session,
>-                          CK_OBJECT_HANDLE object,
>-                          CK_ATTRIBUTE_PTR template,
>-                          CK_ULONG count)
>-{
>-	p11_virtual *virt = (p11_virtual *)self;
>-	CK_FUNCTION_LIST *funcs = virt->lower_module;
>-	return funcs->C_GetAttributeValue (session, object, template, count);
>-}
>-
>-static CK_RV
>-base_C_SetAttributeValue (CK_X_FUNCTION_LIST *self,
>-                          CK_SESSION_HANDLE session,
>-                          CK_OBJECT_HANDLE object,
>-                          CK_ATTRIBUTE_PTR template,
>-                          CK_ULONG count)
>-{
>-	p11_virtual *virt = (p11_virtual *)self;
>-	CK_FUNCTION_LIST *funcs = virt->lower_module;
>-	return funcs->C_SetAttributeValue (session, object, template, count);
>-}
>-
>-static CK_RV
>-base_C_FindObjectsInit (CK_X_FUNCTION_LIST *self,
>-                        CK_SESSION_HANDLE session,
>-                        CK_ATTRIBUTE_PTR template,
>-                        CK_ULONG count)
>-{
>-	p11_virtual *virt = (p11_virtual *)self;
>-	CK_FUNCTION_LIST *funcs = virt->lower_module;
>-	return funcs->C_FindObjectsInit (session, template, count);
>-}
>-
>-static CK_RV
>-base_C_FindObjects (CK_X_FUNCTION_LIST *self,
>-                    CK_SESSION_HANDLE session,
>-                    CK_OBJECT_HANDLE_PTR object,
>-                    CK_ULONG max_object_count,
>-                    CK_ULONG_PTR object_count)
>-{
>-	p11_virtual *virt = (p11_virtual *)self;
>-	CK_FUNCTION_LIST *funcs = virt->lower_module;
>-	return funcs->C_FindObjects (session, object, max_object_count, object_count);
>-}
>-
>-static CK_RV
>-base_C_FindObjectsFinal (CK_X_FUNCTION_LIST *self,
>-                         CK_SESSION_HANDLE session)
>-{
>-	p11_virtual *virt = (p11_virtual *)self;
>-	CK_FUNCTION_LIST *funcs = virt->lower_module;
>-	return funcs->C_FindObjectsFinal (session);
>-}
>-
>-static CK_RV
>-base_C_EncryptInit (CK_X_FUNCTION_LIST *self,
>-                    CK_SESSION_HANDLE session,
>-                    CK_MECHANISM_PTR mechanism,
>-                    CK_OBJECT_HANDLE key)
>-{
>-	p11_virtual *virt = (p11_virtual *)self;
>-	CK_FUNCTION_LIST *funcs = virt->lower_module;
>-	return funcs->C_EncryptInit (session, mechanism, key);
>-}
>-
>-static CK_RV
>-base_C_Encrypt (CK_X_FUNCTION_LIST *self,
>-                CK_SESSION_HANDLE session,
>-                CK_BYTE_PTR input,
>-                CK_ULONG input_len,
>-                CK_BYTE_PTR encrypted_data,
>-                CK_ULONG_PTR encrypted_data_len)
>-{
>-	p11_virtual *virt = (p11_virtual *)self;
>-	CK_FUNCTION_LIST *funcs = virt->lower_module;
>-	return funcs->C_Encrypt (session, input, input_len,
>-	                              encrypted_data, encrypted_data_len);
>-}
>-
>-static CK_RV
>-base_C_EncryptUpdate (CK_X_FUNCTION_LIST *self,
>-                      CK_SESSION_HANDLE session,
>-                      CK_BYTE_PTR part,
>-                      CK_ULONG part_len,
>-                      CK_BYTE_PTR encrypted_part,
>-                      CK_ULONG_PTR encrypted_part_len)
>-{
>-	p11_virtual *virt = (p11_virtual *)self;
>-	CK_FUNCTION_LIST *funcs = virt->lower_module;
>-	return funcs->C_EncryptUpdate (session, part, part_len,
>-	                               encrypted_part, encrypted_part_len);
>-}
>-
>-static CK_RV
>-base_C_EncryptFinal (CK_X_FUNCTION_LIST *self,
>-                     CK_SESSION_HANDLE session,
>-                     CK_BYTE_PTR last_encrypted_part,
>-                     CK_ULONG_PTR last_encrypted_part_len)
>-{
>-	p11_virtual *virt = (p11_virtual *)self;
>-	CK_FUNCTION_LIST *funcs = virt->lower_module;
>-	return funcs->C_EncryptFinal (session, last_encrypted_part,
>-	                              last_encrypted_part_len);
>-}
>-
>-static CK_RV
>-base_C_DecryptInit (CK_X_FUNCTION_LIST *self,
>-                    CK_SESSION_HANDLE session,
>-                    CK_MECHANISM_PTR mechanism,
>-                    CK_OBJECT_HANDLE key)
>-{
>-	p11_virtual *virt = (p11_virtual *)self;
>-	CK_FUNCTION_LIST *funcs = virt->lower_module;
>-	return funcs->C_DecryptInit (session, mechanism, key);
>-}
>-
>-static CK_RV
>-base_C_Decrypt (CK_X_FUNCTION_LIST *self,
>-                CK_SESSION_HANDLE session,
>-                CK_BYTE_PTR encrypted_data,
>-                CK_ULONG encrypted_data_len,
>-                CK_BYTE_PTR output,
>-                CK_ULONG_PTR output_len)
>-{
>-	p11_virtual *virt = (p11_virtual *)self;
>-	CK_FUNCTION_LIST *funcs = virt->lower_module;
>-	return funcs->C_Decrypt (session, encrypted_data, encrypted_data_len,
>-	                         output, output_len);
>-}
>-
>-static CK_RV
>-base_C_DecryptUpdate (CK_X_FUNCTION_LIST *self,
>-                      CK_SESSION_HANDLE session,
>-                      CK_BYTE_PTR encrypted_part,
>-                      CK_ULONG encrypted_part_len,
>-                      CK_BYTE_PTR part,
>-                      CK_ULONG_PTR part_len)
>-{
>-	p11_virtual *virt = (p11_virtual *)self;
>-	CK_FUNCTION_LIST *funcs = virt->lower_module;
>-	return funcs->C_DecryptUpdate (session, encrypted_part, encrypted_part_len,
>-	                               part, part_len);
>-}
>-
>-static CK_RV
>-base_C_DecryptFinal (CK_X_FUNCTION_LIST *self,
>-                     CK_SESSION_HANDLE session,
>-                     CK_BYTE_PTR last_part,
>-                     CK_ULONG_PTR last_part_len)
>-{
>-	p11_virtual *virt = (p11_virtual *)self;
>-	CK_FUNCTION_LIST *funcs = virt->lower_module;
>-	return funcs->C_DecryptFinal (session, last_part, last_part_len);
>-}
>-
>-static CK_RV
>-base_C_DigestInit (CK_X_FUNCTION_LIST *self,
>-                   CK_SESSION_HANDLE session,
>-                   CK_MECHANISM_PTR mechanism)
>-{
>-	p11_virtual *virt = (p11_virtual *)self;
>-	CK_FUNCTION_LIST *funcs = virt->lower_module;
>-	return funcs->C_DigestInit (session, mechanism);
>-}
>-
>-static CK_RV
>-base_C_Digest (CK_X_FUNCTION_LIST *self,
>-               CK_SESSION_HANDLE session,
>-               CK_BYTE_PTR input,
>-               CK_ULONG input_len,
>-               CK_BYTE_PTR digest,
>-               CK_ULONG_PTR digest_len)
>-{
>-	p11_virtual *virt = (p11_virtual *)self;
>-	CK_FUNCTION_LIST *funcs = virt->lower_module;
>-	return funcs->C_Digest (session, input, input_len, digest, digest_len);
>-}
>-
>-static CK_RV
>-base_C_DigestUpdate (CK_X_FUNCTION_LIST *self,
>-                     CK_SESSION_HANDLE session,
>-                     CK_BYTE_PTR part,
>-                     CK_ULONG part_len)
>-{
>-	p11_virtual *virt = (p11_virtual *)self;
>-	CK_FUNCTION_LIST *funcs = virt->lower_module;
>-	return funcs->C_DigestUpdate (session, part, part_len);
>-}
>-
>-static CK_RV
>-base_C_DigestKey (CK_X_FUNCTION_LIST *self,
>-                  CK_SESSION_HANDLE session,
>-                  CK_OBJECT_HANDLE key)
>-{
>-	p11_virtual *virt = (p11_virtual *)self;
>-	CK_FUNCTION_LIST *funcs = virt->lower_module;
>-	return funcs->C_DigestKey (session, key);
>-}
>-
>-static CK_RV
>-base_C_DigestFinal (CK_X_FUNCTION_LIST *self,
>-                    CK_SESSION_HANDLE session,
>-                    CK_BYTE_PTR digest,
>-                    CK_ULONG_PTR digest_len)
>-{
>-	p11_virtual *virt = (p11_virtual *)self;
>-	CK_FUNCTION_LIST *funcs = virt->lower_module;
>-	return funcs->C_DigestFinal (session, digest, digest_len);
>-}
>-
>-static CK_RV
>-base_C_SignInit (CK_X_FUNCTION_LIST *self,
>-                 CK_SESSION_HANDLE session,
>-                 CK_MECHANISM_PTR mechanism,
>-                 CK_OBJECT_HANDLE key)
>-{
>-	p11_virtual *virt = (p11_virtual *)self;
>-	CK_FUNCTION_LIST *funcs = virt->lower_module;
>-	return funcs->C_SignInit (session, mechanism, key);
>-}
>-
>-static CK_RV
>-base_C_Sign (CK_X_FUNCTION_LIST *self,
>-             CK_SESSION_HANDLE session,
>-             CK_BYTE_PTR input,
>-             CK_ULONG input_len,
>-             CK_BYTE_PTR signature,
>-             CK_ULONG_PTR signature_len)
>-{
>-	p11_virtual *virt = (p11_virtual *)self;
>-	CK_FUNCTION_LIST *funcs = virt->lower_module;
>-	return funcs->C_Sign (session, input, input_len,
>-	                      signature, signature_len);
>-}
>-
>-static CK_RV
>-base_C_SignUpdate (CK_X_FUNCTION_LIST *self,
>-                   CK_SESSION_HANDLE session,
>-                   CK_BYTE_PTR part,
>-                   CK_ULONG part_len)
>-{
>-	p11_virtual *virt = (p11_virtual *)self;
>-	CK_FUNCTION_LIST *funcs = virt->lower_module;
>-	return funcs->C_SignUpdate (session, part, part_len);
>-}
>-
>-static CK_RV
>-base_C_SignFinal (CK_X_FUNCTION_LIST *self,
>-                  CK_SESSION_HANDLE session,
>-                  CK_BYTE_PTR signature,
>-                  CK_ULONG_PTR signature_len)
>-{
>-	p11_virtual *virt = (p11_virtual *)self;
>-	CK_FUNCTION_LIST *funcs = virt->lower_module;
>-	return funcs->C_SignFinal (session, signature, signature_len);
>-}
>-
>-static CK_RV
>-base_C_SignRecoverInit (CK_X_FUNCTION_LIST *self,
>-                        CK_SESSION_HANDLE session,
>-                        CK_MECHANISM_PTR mechanism,
>-                        CK_OBJECT_HANDLE key)
>-{
>-	p11_virtual *virt = (p11_virtual *)self;
>-	CK_FUNCTION_LIST *funcs = virt->lower_module;
>-	return funcs->C_SignRecoverInit (session, mechanism, key);
>-}
>-
>-static CK_RV
>-base_C_SignRecover (CK_X_FUNCTION_LIST *self,
>-                    CK_SESSION_HANDLE session,
>-                    CK_BYTE_PTR input,
>-                    CK_ULONG input_len,
>-                    CK_BYTE_PTR signature,
>-                    CK_ULONG_PTR signature_len)
>-{
>-	p11_virtual *virt = (p11_virtual *)self;
>-	CK_FUNCTION_LIST *funcs = virt->lower_module;
>-	return funcs->C_SignRecover (session, input, input_len,
>-	                             signature, signature_len);
>-}
>-
>-static CK_RV
>-base_C_VerifyInit (CK_X_FUNCTION_LIST *self,
>-                   CK_SESSION_HANDLE session,
>-                   CK_MECHANISM_PTR mechanism,
>-                   CK_OBJECT_HANDLE key)
>-{
>-	p11_virtual *virt = (p11_virtual *)self;
>-	CK_FUNCTION_LIST *funcs = virt->lower_module;
>-	return funcs->C_VerifyInit (session, mechanism, key);
>-}
>-
>-static CK_RV
>-base_C_Verify (CK_X_FUNCTION_LIST *self,
>-               CK_SESSION_HANDLE session,
>-               CK_BYTE_PTR input,
>-               CK_ULONG input_len,
>-               CK_BYTE_PTR signature,
>-               CK_ULONG signature_len)
>-{
>-	p11_virtual *virt = (p11_virtual *)self;
>-	CK_FUNCTION_LIST *funcs = virt->lower_module;
>-	return funcs->C_Verify (session, input, input_len,
>-	                        signature, signature_len);
>-}
>-
>-static CK_RV
>-base_C_VerifyUpdate (CK_X_FUNCTION_LIST *self,
>-                     CK_SESSION_HANDLE session,
>-                     CK_BYTE_PTR part,
>-                     CK_ULONG part_len)
>-{
>-	p11_virtual *virt = (p11_virtual *)self;
>-	CK_FUNCTION_LIST *funcs = virt->lower_module;
>-	return funcs->C_VerifyUpdate (session, part, part_len);
>-}
>-
>-static CK_RV
>-base_C_VerifyFinal (CK_X_FUNCTION_LIST *self,
>-                    CK_SESSION_HANDLE session,
>-                    CK_BYTE_PTR signature,
>-                    CK_ULONG signature_len)
>-{
>-	p11_virtual *virt = (p11_virtual *)self;
>-	CK_FUNCTION_LIST *funcs = virt->lower_module;
>-	return funcs->C_VerifyFinal (session, signature, signature_len);
>-}
>-
>-static CK_RV
>-base_C_VerifyRecoverInit (CK_X_FUNCTION_LIST *self,
>-                          CK_SESSION_HANDLE session,
>-                          CK_MECHANISM_PTR mechanism,
>-                          CK_OBJECT_HANDLE key)
>-{
>-	p11_virtual *virt = (p11_virtual *)self;
>-	CK_FUNCTION_LIST *funcs = virt->lower_module;
>-	return funcs->C_VerifyRecoverInit (session, mechanism, key);
>-}
>-
>-static CK_RV
>-base_C_VerifyRecover (CK_X_FUNCTION_LIST *self,
>-                      CK_SESSION_HANDLE session,
>-                      CK_BYTE_PTR signature,
>-                      CK_ULONG signature_len,
>-                      CK_BYTE_PTR input,
>-                      CK_ULONG_PTR input_len)
>-{
>-	p11_virtual *virt = (p11_virtual *)self;
>-	CK_FUNCTION_LIST *funcs = virt->lower_module;
>-	return funcs->C_VerifyRecover (session, signature, signature_len,
>-	                               input, input_len);
>-}
>-
>-static CK_RV
>-base_C_DigestEncryptUpdate (CK_X_FUNCTION_LIST *self,
>-                            CK_SESSION_HANDLE session,
>-                            CK_BYTE_PTR part,
>-                            CK_ULONG part_len,
>-                            CK_BYTE_PTR encrypted_part,
>-                            CK_ULONG_PTR encrypted_part_len)
>-{
>-	p11_virtual *virt = (p11_virtual *)self;
>-	CK_FUNCTION_LIST *funcs = virt->lower_module;
>-	return funcs->C_DigestEncryptUpdate (session, part, part_len,
>-	                                     encrypted_part, encrypted_part_len);
>-}
>-
>-static CK_RV
>-base_C_DecryptDigestUpdate (CK_X_FUNCTION_LIST *self,
>-                            CK_SESSION_HANDLE session,
>-                            CK_BYTE_PTR encrypted_part,
>-                            CK_ULONG encrypted_part_len,
>-                            CK_BYTE_PTR part,
>-                            CK_ULONG_PTR part_len)
>-{
>-	p11_virtual *virt = (p11_virtual *)self;
>-	CK_FUNCTION_LIST *funcs = virt->lower_module;
>-	return funcs->C_DecryptDigestUpdate (session, encrypted_part, encrypted_part_len,
>-	                                     part, part_len);
>-}
>-
>-static CK_RV
>-base_C_SignEncryptUpdate (CK_X_FUNCTION_LIST *self,
>-                          CK_SESSION_HANDLE session,
>-                          CK_BYTE_PTR part,
>-                          CK_ULONG part_len,
>-                          CK_BYTE_PTR encrypted_part,
>-                          CK_ULONG_PTR encrypted_part_len)
>-{
>-	p11_virtual *virt = (p11_virtual *)self;
>-	CK_FUNCTION_LIST *funcs = virt->lower_module;
>-	return funcs->C_SignEncryptUpdate (session, part, part_len,
>-	                                   encrypted_part, encrypted_part_len);
>-}
>-
>-static CK_RV
>-base_C_DecryptVerifyUpdate (CK_X_FUNCTION_LIST *self,
>-                            CK_SESSION_HANDLE session,
>-                            CK_BYTE_PTR encrypted_part,
>-                            CK_ULONG encrypted_part_len,
>-                            CK_BYTE_PTR part,
>-                            CK_ULONG_PTR part_len)
>-{
>-	p11_virtual *virt = (p11_virtual *)self;
>-	CK_FUNCTION_LIST *funcs = virt->lower_module;
>-	return funcs->C_DecryptVerifyUpdate (session, encrypted_part, encrypted_part_len,
>-	                                     part, part_len);
>-}
>-
>-static CK_RV
>-base_C_GenerateKey (CK_X_FUNCTION_LIST *self,
>-                    CK_SESSION_HANDLE session,
>-                    CK_MECHANISM_PTR mechanism,
>-                    CK_ATTRIBUTE_PTR template,
>-                    CK_ULONG count,
>-                    CK_OBJECT_HANDLE_PTR key)
>-{
>-	p11_virtual *virt = (p11_virtual *)self;
>-	CK_FUNCTION_LIST *funcs = virt->lower_module;
>-	return funcs->C_GenerateKey (session, mechanism, template, count, key);
>-}
>-
>-static CK_RV
>-base_C_GenerateKeyPair (CK_X_FUNCTION_LIST *self,
>-                        CK_SESSION_HANDLE session,
>-                        CK_MECHANISM_PTR mechanism,
>-                        CK_ATTRIBUTE_PTR public_key_template,
>-                        CK_ULONG public_key_count,
>-                        CK_ATTRIBUTE_PTR private_key_template,
>-                        CK_ULONG private_key_count,
>-                        CK_OBJECT_HANDLE_PTR public_key,
>-                        CK_OBJECT_HANDLE_PTR private_key)
>-{
>-	p11_virtual *virt = (p11_virtual *)self;
>-	CK_FUNCTION_LIST *funcs = virt->lower_module;
>-	return funcs->C_GenerateKeyPair (session, mechanism, public_key_template,
>-	                                 public_key_count, private_key_template,
>-	                                 private_key_count, public_key, private_key);
>-}
>-
>-static CK_RV
>-base_C_WrapKey (CK_X_FUNCTION_LIST *self,
>-                CK_SESSION_HANDLE session,
>-                CK_MECHANISM_PTR mechanism,
>-                CK_OBJECT_HANDLE wrapping_key,
>-                CK_OBJECT_HANDLE key,
>-                CK_BYTE_PTR wrapped_key,
>-                CK_ULONG_PTR wrapped_key_len)
>-{
>-	p11_virtual *virt = (p11_virtual *)self;
>-	CK_FUNCTION_LIST *funcs = virt->lower_module;
>-	return funcs->C_WrapKey (session, mechanism, wrapping_key, key,
>-	                         wrapped_key, wrapped_key_len);
>-}
>-
>-static CK_RV
>-base_C_UnwrapKey (CK_X_FUNCTION_LIST *self,
>-                  CK_SESSION_HANDLE session,
>-                  CK_MECHANISM_PTR mechanism,
>-                  CK_OBJECT_HANDLE unwrapping_key,
>-                  CK_BYTE_PTR wrapped_key,
>-                  CK_ULONG wrapped_key_len,
>-                  CK_ATTRIBUTE_PTR template,
>-                  CK_ULONG count,
>-                  CK_OBJECT_HANDLE_PTR key)
>-{
>-	p11_virtual *virt = (p11_virtual *)self;
>-	CK_FUNCTION_LIST *funcs = virt->lower_module;
>-	return funcs->C_UnwrapKey (session, mechanism, unwrapping_key, wrapped_key,
>-	                           wrapped_key_len, template, count, key);
>-}
>-
>-static CK_RV
>-base_C_DeriveKey (CK_X_FUNCTION_LIST *self,
>-                  CK_SESSION_HANDLE session,
>-                  CK_MECHANISM_PTR mechanism,
>-                  CK_OBJECT_HANDLE base_key,
>-                  CK_ATTRIBUTE_PTR template,
>-                  CK_ULONG count,
>-                  CK_OBJECT_HANDLE_PTR key)
>-{
>-	p11_virtual *virt = (p11_virtual *)self;
>-	CK_FUNCTION_LIST *funcs = virt->lower_module;
>-	return funcs->C_DeriveKey (session, mechanism, base_key, template, count, key);
>-}
>-
>-static CK_RV
>-base_C_SeedRandom (CK_X_FUNCTION_LIST *self,
>-                   CK_SESSION_HANDLE session,
>-                   CK_BYTE_PTR seed,
>-                   CK_ULONG seed_len)
>-{
>-	p11_virtual *virt = (p11_virtual *)self;
>-	CK_FUNCTION_LIST *funcs = virt->lower_module;
>-	return funcs->C_SeedRandom (session, seed, seed_len);
>-}
>-
>-static CK_RV
>-base_C_GenerateRandom (CK_X_FUNCTION_LIST *self,
>-                       CK_SESSION_HANDLE session,
>-                       CK_BYTE_PTR random_data,
>-                       CK_ULONG random_len)
>-{
>-	p11_virtual *virt = (p11_virtual *)self;
>-	CK_FUNCTION_LIST *funcs = virt->lower_module;
>-	return funcs->C_GenerateRandom (session, random_data, random_len);
>-}
>-
>-static CK_RV
>-base_C_WaitForSlotEvent (CK_X_FUNCTION_LIST *self,
>-                         CK_FLAGS flags,
>-                         CK_SLOT_ID_PTR slot_id,
>-                         CK_VOID_PTR reserved)
>-{
>-	p11_virtual *virt = (p11_virtual *)self;
>-	CK_FUNCTION_LIST *funcs = virt->lower_module;
>-	return funcs->C_WaitForSlotEvent (flags, slot_id, reserved);
>-}
>+#include "p11-kit/virtual-stack.c"
>+#include "p11-kit/virtual-base.c"
> 
> void
> p11_virtual_init (p11_virtual *virt,
>@@ -2835,141 +1294,3 @@ p11_virtual_unwrap (CK_FUNCTION_LIST_PTR module)
> }
> 
> #endif /* !WITH_FFI */
>-
>-CK_X_FUNCTION_LIST p11_virtual_stack = {
>-	{ CRYPTOKI_VERSION_MAJOR, CRYPTOKI_VERSION_MINOR },  /* version */
>-	stack_C_Initialize,
>-	stack_C_Finalize,
>-	stack_C_GetInfo,
>-	stack_C_GetSlotList,
>-	stack_C_GetSlotInfo,
>-	stack_C_GetTokenInfo,
>-	stack_C_GetMechanismList,
>-	stack_C_GetMechanismInfo,
>-	stack_C_InitToken,
>-	stack_C_InitPIN,
>-	stack_C_SetPIN,
>-	stack_C_OpenSession,
>-	stack_C_CloseSession,
>-	stack_C_CloseAllSessions,
>-	stack_C_GetSessionInfo,
>-	stack_C_GetOperationState,
>-	stack_C_SetOperationState,
>-	stack_C_Login,
>-	stack_C_Logout,
>-	stack_C_CreateObject,
>-	stack_C_CopyObject,
>-	stack_C_DestroyObject,
>-	stack_C_GetObjectSize,
>-	stack_C_GetAttributeValue,
>-	stack_C_SetAttributeValue,
>-	stack_C_FindObjectsInit,
>-	stack_C_FindObjects,
>-	stack_C_FindObjectsFinal,
>-	stack_C_EncryptInit,
>-	stack_C_Encrypt,
>-	stack_C_EncryptUpdate,
>-	stack_C_EncryptFinal,
>-	stack_C_DecryptInit,
>-	stack_C_Decrypt,
>-	stack_C_DecryptUpdate,
>-	stack_C_DecryptFinal,
>-	stack_C_DigestInit,
>-	stack_C_Digest,
>-	stack_C_DigestUpdate,
>-	stack_C_DigestKey,
>-	stack_C_DigestFinal,
>-	stack_C_SignInit,
>-	stack_C_Sign,
>-	stack_C_SignUpdate,
>-	stack_C_SignFinal,
>-	stack_C_SignRecoverInit,
>-	stack_C_SignRecover,
>-	stack_C_VerifyInit,
>-	stack_C_Verify,
>-	stack_C_VerifyUpdate,
>-	stack_C_VerifyFinal,
>-	stack_C_VerifyRecoverInit,
>-	stack_C_VerifyRecover,
>-	stack_C_DigestEncryptUpdate,
>-	stack_C_DecryptDigestUpdate,
>-	stack_C_SignEncryptUpdate,
>-	stack_C_DecryptVerifyUpdate,
>-	stack_C_GenerateKey,
>-	stack_C_GenerateKeyPair,
>-	stack_C_WrapKey,
>-	stack_C_UnwrapKey,
>-	stack_C_DeriveKey,
>-	stack_C_SeedRandom,
>-	stack_C_GenerateRandom,
>-	stack_C_WaitForSlotEvent
>-};
>-
>-CK_X_FUNCTION_LIST p11_virtual_base = {
>-	{ CRYPTOKI_VERSION_MAJOR, CRYPTOKI_VERSION_MINOR },  /* version */
>-	base_C_Initialize,
>-	base_C_Finalize,
>-	base_C_GetInfo,
>-	base_C_GetSlotList,
>-	base_C_GetSlotInfo,
>-	base_C_GetTokenInfo,
>-	base_C_GetMechanismList,
>-	base_C_GetMechanismInfo,
>-	base_C_InitToken,
>-	base_C_InitPIN,
>-	base_C_SetPIN,
>-	base_C_OpenSession,
>-	base_C_CloseSession,
>-	base_C_CloseAllSessions,
>-	base_C_GetSessionInfo,
>-	base_C_GetOperationState,
>-	base_C_SetOperationState,
>-	base_C_Login,
>-	base_C_Logout,
>-	base_C_CreateObject,
>-	base_C_CopyObject,
>-	base_C_DestroyObject,
>-	base_C_GetObjectSize,
>-	base_C_GetAttributeValue,
>-	base_C_SetAttributeValue,
>-	base_C_FindObjectsInit,
>-	base_C_FindObjects,
>-	base_C_FindObjectsFinal,
>-	base_C_EncryptInit,
>-	base_C_Encrypt,
>-	base_C_EncryptUpdate,
>-	base_C_EncryptFinal,
>-	base_C_DecryptInit,
>-	base_C_Decrypt,
>-	base_C_DecryptUpdate,
>-	base_C_DecryptFinal,
>-	base_C_DigestInit,
>-	base_C_Digest,
>-	base_C_DigestUpdate,
>-	base_C_DigestKey,
>-	base_C_DigestFinal,
>-	base_C_SignInit,
>-	base_C_Sign,
>-	base_C_SignUpdate,
>-	base_C_SignFinal,
>-	base_C_SignRecoverInit,
>-	base_C_SignRecover,
>-	base_C_VerifyInit,
>-	base_C_Verify,
>-	base_C_VerifyUpdate,
>-	base_C_VerifyFinal,
>-	base_C_VerifyRecoverInit,
>-	base_C_VerifyRecover,
>-	base_C_DigestEncryptUpdate,
>-	base_C_DecryptDigestUpdate,
>-	base_C_SignEncryptUpdate,
>-	base_C_DecryptVerifyUpdate,
>-	base_C_GenerateKey,
>-	base_C_GenerateKeyPair,
>-	base_C_WrapKey,
>-	base_C_UnwrapKey,
>-	base_C_DeriveKey,
>-	base_C_SeedRandom,
>-	base_C_GenerateRandom,
>-	base_C_WaitForSlotEvent
>-};
>-- 
>2.7.4

Actions: View | Splinter Review

Attachments on bug 97611: 126241 | 126242 | 127064 | 127065

Use of freedesktop.org services, including Bugzilla, is subject to our Code of Conduct. How we collect and use information is described in our Privacy Policy.