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
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
|
// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
// Copyright (C) DIGITEO - 2010-2011 - Allan CORNET
//
// This file must be used under the terms of the CeCILL.
// This source file is licensed as described in the file COPYING, which
// you should have received as part of this distribution. The terms
// are also available at
// http://www.cecill.info/licences/Licence_CeCILL_V2.1-en.txt
//=============================================================================
function dllinfolist = dlwDllInfo(dllname, options)
//=============================================================================
function symbolslist = dllinfoimports(dllname)
symbolslist = list();
[result,bOK] = dos("dumpbin /IMPORTS """ + dllname +"""");
if bOK == %T then
// cleaning output
result = stripblanks(result);
result(5) = "";
result(result == "") = [];
result(grep(result, "Import Address")) = [];
result(grep(result, "Import Name")) = [];
result(grep(result, "Index of first")) = [];
result(grep(result, "time date stamp")) = [];
dllext = grep(result, getdynlibext());
result(1:dllext(1) - 1) = [];
data_index = grep(result, ".data");
result(data_index(1) - 1 : $) = [];
indicedotdll = grep(result, getdynlibext())
if (indicedotdll <> []) then
dlllist = result(indicedotdll);
for i = 1:size(dlllist, "*")
symbolsdll = [];
if (i == size(dlllist,"*")) then
symbolsdllstr = result(indicedotdll(i) + 1:$);
else
symbolsdllstr = result(indicedotdll(i) + 1:indicedotdll(i + 1) - 1);
end
for j = 1: size(symbolsdllstr, "*")
tok = tokens(symbolsdllstr(j), " ");
if size(tok, "*") >= 2 then
symbolsdll(j) = tok(2);
end
end
symbolslist(i)= list(dlllist(i), symbolsdll);
end
end
end
endfunction
//=============================================================================
function symbolslist = dllinfoexports(dllname)
symbolslist = list();
symbolsdll = [];
[result, bOK] = dos("dumpbin /EXPORTS """ + dllname +"""");
if bOK == %T then
result(result == "") = [];
ilastcomment = grep(result, "ordinal hint RVA");
if ilastcomment <> [] then
result(1:ilastcomment) = [];
data_index = grep(result, ".data");
result(data_index(1) - 1 : $) = [];
for i = 1:size(result, "*")
tok = tokens(result(i), " ");
if size(tok,"*") >=4 then
symbolsdll = [symbolsdll; tok(4)];
end
end
[pat, nam, ext] = fileparts(dllname);
symbolslist = list(nam + ext, symbolsdll);
end
end
endfunction
//=============================================================================
function dllinfolist = dllinfomachine(dllname)
dllinfolist = list();
machine = "";
[result,bOK] = dos("dumpbin /HEADERS """ + dllname +"""");
if bOK == %T then
iMachine = grep(result, "machine (");
if iMachine <> [] then
infomachinestr = result(iMachine(1));
tok = tokens(infomachinestr, " ");
if size(tok, "*") == 3 then
machine = strsubst(tok(3), ")", "");
machine = strsubst(machine, "(", "");
end
[pat, nam, ext] = fileparts(dllname);
dllinfolist = list(nam + ext, machine);
end
end
endfunction
//=============================================================================
[lhs,rhs]=argn(0);
if rhs == 1 then
options = "exports";
end
if type(dllname) <> 10 | size(dllname) <> 1 then
error(msprintf(gettext("%s: Wrong type for input argument #%d: A string expected.\n"), "dllinfo", 1));
end
if fileinfo(dllname) == [] then
error(msprintf(gettext("%s: The file %s does not exist.\n"), "dllinfo", dllname));
end
fext = fileext(dllname);
if ~(strcmpi(fext, ".exe") == 0 | strcmpi(fext, ".dll")== 0) then
error(msprintf(gettext("%s: Cannot open file %s.\n"), "dllinfo", dllname));
end
if type(options) <> 10 | size(options) <> 1 then
error(msprintf(gettext("%s: Wrong type for input argument #%d: A string expected.\n"), "dllinfo", 2));
end
if ~(strcmpi(options, "imports")== 0 | strcmpi(options, "exports")== 0 | strcmpi(options, "machine")== 0) then
error(msprintf(gettext("%s: Wrong value for input argument #%d: Must be in the set {%s}.\n"), "dllinfo", 2, "''imports'', ''exports'', ''machine''"));
end
dllinfolist = list();
if findmsvccompiler() <> "unknown" then
if strcmpi(options, "imports")== 0 then
dllinfolist = dllinfoimports(dllname);
end
if strcmpi(options, "exports")== 0 then
dllinfolist = dllinfoexports(dllname);
end
if strcmpi(options, "machine")== 0 then
dllinfolist = dllinfomachine(dllname);
end
else
warning(msprintf(gettext("%s: This feature required Microsoft visual studio C compiler.\n"), "dllinfo"));
end
endfunction
//=============================================================================
|
