1*b30d1939SAndy Fiddaman /***********************************************************************
2*b30d1939SAndy Fiddaman * *
3*b30d1939SAndy Fiddaman * This software is part of the ast package *
4*b30d1939SAndy Fiddaman * Copyright (c) 1997-2012 AT&T Intellectual Property *
5*b30d1939SAndy Fiddaman * and is licensed under the *
6*b30d1939SAndy Fiddaman * Eclipse Public License, Version 1.0 *
7*b30d1939SAndy Fiddaman * by AT&T Intellectual Property *
8*b30d1939SAndy Fiddaman * *
9*b30d1939SAndy Fiddaman * A copy of the License is available at *
10*b30d1939SAndy Fiddaman * http://www.eclipse.org/org/documents/epl-v10.html *
11*b30d1939SAndy Fiddaman * (with md5 checksum b35adb5213ca9657e911e9befb180842) *
12*b30d1939SAndy Fiddaman * *
13*b30d1939SAndy Fiddaman * Information and Software Systems Research *
14*b30d1939SAndy Fiddaman * AT&T Research *
15*b30d1939SAndy Fiddaman * Florham Park NJ *
16*b30d1939SAndy Fiddaman * *
17*b30d1939SAndy Fiddaman * Glenn Fowler <gsf@research.att.com> *
18*b30d1939SAndy Fiddaman * *
19*b30d1939SAndy Fiddaman ***********************************************************************/
20*b30d1939SAndy Fiddaman #pragma prototyped
21*b30d1939SAndy Fiddaman /*
22*b30d1939SAndy Fiddaman * Glenn Fowler
23*b30d1939SAndy Fiddaman * AT&T Research
24*b30d1939SAndy Fiddaman */
25*b30d1939SAndy Fiddaman
26*b30d1939SAndy Fiddaman #include "dlllib.h"
27*b30d1939SAndy Fiddaman
28*b30d1939SAndy Fiddaman /*
29*b30d1939SAndy Fiddaman * return plugin version for dll
30*b30d1939SAndy Fiddaman * 0 if there is none
31*b30d1939SAndy Fiddaman * path!=0 enables library level diagnostics
32*b30d1939SAndy Fiddaman */
33*b30d1939SAndy Fiddaman
34*b30d1939SAndy Fiddaman extern unsigned long
dllversion(void * dll,const char * path)35*b30d1939SAndy Fiddaman dllversion(void* dll, const char* path)
36*b30d1939SAndy Fiddaman {
37*b30d1939SAndy Fiddaman Dll_plugin_version_f pvf;
38*b30d1939SAndy Fiddaman
39*b30d1939SAndy Fiddaman if (pvf = (Dll_plugin_version_f)dlllook(dll, "plugin_version"))
40*b30d1939SAndy Fiddaman return (*pvf)();
41*b30d1939SAndy Fiddaman if (path)
42*b30d1939SAndy Fiddaman {
43*b30d1939SAndy Fiddaman state.error = 1;
44*b30d1939SAndy Fiddaman sfsprintf(state.errorbuf, sizeof(state.errorbuf), "plugin_version() not found");
45*b30d1939SAndy Fiddaman errorf("dll", NiL, 1, "dllversion: %s: %s", path, state.errorbuf);
46*b30d1939SAndy Fiddaman }
47*b30d1939SAndy Fiddaman return 0;
48*b30d1939SAndy Fiddaman }
49*b30d1939SAndy Fiddaman
50*b30d1939SAndy Fiddaman /*
51*b30d1939SAndy Fiddaman * check if dll on path has plugin version >= ver
52*b30d1939SAndy Fiddaman * 1 returned on success, 0 on failure
53*b30d1939SAndy Fiddaman * path!=0 enables library level diagnostics
54*b30d1939SAndy Fiddaman * cur!=0 gets actual version
55*b30d1939SAndy Fiddaman */
56*b30d1939SAndy Fiddaman
57*b30d1939SAndy Fiddaman extern int
dllcheck(void * dll,const char * path,unsigned long ver,unsigned long * cur)58*b30d1939SAndy Fiddaman dllcheck(void* dll, const char* path, unsigned long ver, unsigned long* cur)
59*b30d1939SAndy Fiddaman {
60*b30d1939SAndy Fiddaman unsigned long v;
61*b30d1939SAndy Fiddaman
62*b30d1939SAndy Fiddaman state.error = 0;
63*b30d1939SAndy Fiddaman if (ver || cur)
64*b30d1939SAndy Fiddaman {
65*b30d1939SAndy Fiddaman v = dllversion(dll, path);
66*b30d1939SAndy Fiddaman if (cur)
67*b30d1939SAndy Fiddaman *cur = v;
68*b30d1939SAndy Fiddaman }
69*b30d1939SAndy Fiddaman if (!ver)
70*b30d1939SAndy Fiddaman return 1;
71*b30d1939SAndy Fiddaman if (!v)
72*b30d1939SAndy Fiddaman return 0;
73*b30d1939SAndy Fiddaman if (v < ver)
74*b30d1939SAndy Fiddaman {
75*b30d1939SAndy Fiddaman if (path)
76*b30d1939SAndy Fiddaman {
77*b30d1939SAndy Fiddaman state.error = 1;
78*b30d1939SAndy Fiddaman sfsprintf(state.errorbuf, sizeof(state.errorbuf), "plugin version %lu older than caller %lu", v, ver);
79*b30d1939SAndy Fiddaman errorf("dll", NiL, 1, "dllcheck: %s: %s", path, state.errorbuf);
80*b30d1939SAndy Fiddaman }
81*b30d1939SAndy Fiddaman return 0;
82*b30d1939SAndy Fiddaman }
83*b30d1939SAndy Fiddaman errorf("dll", NiL, -1, "dllversion: %s: %lu >= %lu", path, v, ver);
84*b30d1939SAndy Fiddaman return 1;
85*b30d1939SAndy Fiddaman }
86