1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
|
/* vim: set sw=8: -*- Mode: C; tab-width: 8; indent-tabs-mode: t; c-basic-offset: 8 -*- */
/*
* xlcall32_emulation.c: callback module required by (genuine) Excel plugins (also known as XLLs).
*
* Author:
* Peter Jaeckel (peter.jaeckel@gmail.com)
*
* This program is free software; you can redistribute it and/or modify
* it under the terms of the GNU General Public License as published by
* the Free Software Foundation; either version 2 of the License, or
* (at your option) any later version.
*
* This program is distributed in the hope that it will be useful,
* but WITHOUT ANY WARRANTY; without even the implied warranty of
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
* GNU General Public License for more details.
*
* You should have received a copy of the GNU General Public License
* along with this program; if not, write to the Free Software
* Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
*/
/* For quick manual building, use something like
*
* gcc -fPIC -shared -I/usr/include/glib-2.0 -I/usr/lib/glib-2.0/include xlcall32_emulation.c -Wl,-soname -Wl,xlcall32.so -o .libs/xlcall32.so
* or
* i586-mingw32msvc-gcc -shared -I/usr/include/glib-2.0 -I/usr/lib/glib-2.0/include xlcall32_emulation.c -Wl,-soname -Wl,xlcall32.dll -o .libs/xlcall32.dll
*/
#include <gmodule.h>
#if defined( WIN32 ) || defined( WIN64 )
#include <windef.h>
#else
#include "win32replacements.h"
#endif
G_MODULE_EXPORT void register_actual_excel4v(void*p);
G_MODULE_EXPORT int far _cdecl Excel4(int xlfn, void* operRes, int count, ...);
G_MODULE_EXPORT int far pascal Excel4v(int xlfn, void* operRes, int count, void** opers);
G_MODULE_EXPORT int far pascal XLCallVer(void);
typedef int (*Excel4vFunc)(int xlfn, void* /* XLOper * operRes */, int /*count*/, void** /* XLOper ** opers */ );
static Excel4vFunc actual_excel4v = NULL;
G_MODULE_EXPORT void register_actual_excel4v(void*p){
actual_excel4v = (Excel4vFunc)p;
}
G_MODULE_EXPORT int far pascal Excel4v(int xlfn, void* operRes, int count, void** opers) {
if (NULL!=actual_excel4v)
return actual_excel4v(xlfn,operRes,count,opers);
return -1;
}
G_MODULE_EXPORT int far _cdecl Excel4(int xlfn, void* operRes, int count, ...) {
void **opers=(void**)alloca(count*sizeof(void*));
va_list arg_list;
int i;
va_start(arg_list,count);
for (i=0;i<count;++i)
opers[i]=va_arg(arg_list,void*);
va_end(arg_list);
return Excel4v(xlfn,operRes,count,(void**)opers);
}
int far pascal XLCallVer(void){
/*
* From http://msdn.microsoft.com/en-us/library/bb687851.aspx
*
* "You can call this function from any XLL command or function and is thread safe.
*
* In Excel 97 through Excel 2003, XLCallVer returns 1280 = 0x0500 hex = 5 x 256, which indicates Excel version
* 5. In Excel 2007, it returns 3072 = 0x0c00 hex = 12 x 256, which similarly indicates version 12."
*
*/
return 1280;
}
#ifdef WIN32
asm (".section .drectve");
asm (".ascii \"-export:Excel4v=Excel4v@16,XLCallVer=XLCallVer@0\"");
#endif
|
