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
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
|
## Copyright (C) 2009,2010,2011,2012,2013,2014 Philip Nienhuis
##
## 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 Octave; see the file COPYING. If not, see
## <http://www.gnu.org/licenses/>.
## -*- texinfo -*-
## @deftypefn {Function File} @var{odsinterfaces} = getodsinterfaces (@var{odsinterfaces})
## Get supported OpenOffice.org .ods file read/write interfaces from
## the system.
## Each interface for which the corresponding field is set to empty
## will be checked. So by manipulating the fields of input argument
## @var{odsinterfaces} it is possible to specify which
## interface(s) should be checked.
##
## Currently implemented interfaces comprise:
## - Java & ODFtoolkit (www.apache.org)
## - Java & jOpenDocument (www.jopendocument.org)
## - Java & UNO bridge (OpenOffice.org)
##
## Examples:
##
## @example
## odsinterfaces = getodsinterfaces (odsinterfaces);
## @end example
## Author: Philip Nienhuis <prnienhuis at users.sf.net>
## Created: 2009-12-27
## Updates:
## 2010-01-14 (yeah what was it...>
## 2010-01-17 Make sure proper dimensions are checked in parsed javaclasspath
## 2010-04-11 Introduced check on odfdom.jar version - only 0.7.5 works properly
## 2010-06-02 Moved in check on JOD version
## 2010-06-05 Experimental odfdom 0.8.5 support
## 2010-06-## dropped 0.8.5, too buggy
## 2010-08-22 Experimental odfdom 0.8.6 support
## 2010-08-23 Added odfvsn (odfdom version string) to output struct argument
## '' Bugfix: moved JOD version check to main function (it can't work here)
## '' Finalized odfdom 0.8.6 support (even prefered version now)
## 2010-09-11 Somewhat clarified messages about missing java classes
## '' Rearranged code a bit; fixed typos in OTK detection code (odfdvsn -> odfvsn)
## 2010-09-27 More code cleanup
## 2010-11-12 Warning added about waning support for odfdom v. 0.7.5
## 2011-05-06 Fixed wrong strfind tests
## '' Experimental UNO support added
## 2011-05-18 Forgot to initialize odsinterfaces.UNO
## 2011-06-06 Fix for javaclasspath format in *nix w. java-1.2.8 pkg
## '' Implemented more rigid Java check
## '' Tamed down verbosity
## 2011-09-03 Fixed order of odsinterfaces.<member> statement in Java detection try-catch
## '' Reset tmp1 (always allow interface rediscovery) for empty odsinterfaces arg
## 2011-09-18 Added temporary warning about UNO interface
## 2012-03-22 Improved Java checks (analogous to xlsopen)
## 2012-06-06 Again improved & simplified Java-based interface checking support
## 2012-06-08 Support for odfdom-0.8.8 (-incubator)
## 2012-10-07 Moved common classpath entry code to ./private function
## 2012-10-07 Moved into ./private
## 2012-10-24 Style fixes
## 2013-03-01 active -> default interface
## '' Moved check for Java support to separate file in private/
## '' Fixed javaclasspath info resync in case of requested interfaces
## 2013-08-13 Tested odfdom 0.8.9 (odfdom-0.6-incubator); found it doesn't work :-(
## 2013-09-09 Native Octave interface ("OCT")for reading
## 2013-09-11 Check Java again when requesting a specific Java interface
## 2013-09-29 Treat OCT as any other interface
## 2013-12-06 Updated copyright strings; style fixes
## 2013-12-20 java_invoke -> javaMethod
## 2014-04-24 Skip all Java checks if Octave was built w/o Java support
function [odsinterfaces] = getodsinterfaces (odsinterfaces)
## tmp1 = [] (not initialized), 0 (No Java detected), or 1 (Working Java found)
persistent tmp1 = [];
persistent jcp={}; ## Java class path
persistent has_java = []; ## Built-in Java support
persistent uno_1st_time = 0;
if (isempty (has_java))
has_java = octave_config_info.features.JAVA;
endif
if (isempty (odsinterfaces.OTK) && isempty (odsinterfaces.JOD) ...
&& isempty (odsinterfaces.UNO))
## Assume no interface detection has happened yet
printf ("Detected ODS interfaces: ");
tmp1 = [];
elseif (isempty (odsinterfaces.OTK) || isempty (odsinterfaces.JOD) ...
|| isempty (odsinterfaces.UNO))
## Can't be first call. Here one of the Java interfaces is requested
if (tmp1)
# Check Java support again
tmp1 = [];
elseif (has_java)
## Renew jcp (javaclasspath) as it may have been updated since last call
jcp = javaclasspath ("-all"); ## For java pkg >= 1.2.8
if (isempty (jcp)) ## & Octave >= 3.7.2
jcp = javaclasspath;
endif ## For java pkg < 1.2.8
if (isunix && ! iscell (jcp));
jcp = strsplit (char (jcp), pathsep ());
endif
endif
endif
deflt = 0;
if (has_java)
if (isempty (tmp1))
## Check Java support
[tmp1, jcp] = __chk_java_sprt__ ();
if (! tmp1)
## No Java support found
if (isempty (odsinterfaces.OTK) || isempty (odsinterfaces.JOD) ...
|| isempty (odsinterfaces.UNO))
## Some or all Java-based interface explicitly requested; but no Java support
warning ...
(" No Java support found (no Java JRE or JDK?)\n");
endif
## Set Java-based interfaces to 0 anyway as there's no Java support
odsinterfaces.OTK = 0;
odsinterfaces.JOD = 0;
odsinterfaces.UNO = 0;
printf ("\n");
## No more need to try any Java interface
return;
endif
endif
## Try Java & ODF toolkit
if (isempty (odsinterfaces.OTK))
odsinterfaces.OTK = 0;
entries = {"odfdom", "xercesImpl"};
## Only under *nix we might use brute force: e.g., strfind(classpath, classname);
## under Windows we need the following more subtle, platform-independent approach:
if (chk_jar_entries (jcp, entries) >= numel (entries))
## Apparently all requested classes present.
## Only now we can check for proper odfdom version (only 0.7.5 & 0.8.6-0.8.8 work OK).
## The odfdom team deemed it necessary to change the version call so we need this:
odfvsn = " ";
try
## New in 0.8.6
odfvsn = ...
javaMethod ("getOdfdomVersion", "org.odftoolkit.odfdom.JarManifest");
catch
odfvsn = ...
javaMethod ("getApplicationVersion", "org.odftoolkit.odfdom.Version");
end_try_catch
## For odfdom-incubator (= 0.8.8+), strip extra info
odfvsn = regexp (odfvsn, '\d\.\d\.\d', "match"){1};
if (! (strcmp (odfvsn, "0.7.5") || strcmp (odfvsn, "0.8.6") ...
|| strcmp (odfvsn, "0.8.7") || strfind (odfvsn, "0.8.8")))
warning ("\nodfdom version %s is not supported - use v. 0.8.6, 0.8.7 or 0.8.8\n", odfvsn);
else
if (strcmp (odfvsn, "0.7.5"))
warning (["odfdom v. 0.7.5 support won't be maintained " ...
"- please upgrade to 0.8.8"]);
endif
odsinterfaces.OTK = 1;
printf ("OTK");
if (deflt)
printf ("; ");
else
printf ("*; ");
deflt = 1;
endif
endif
odsinterfaces.odfvsn = odfvsn;
else
warning ("\nNot all required classes (.jar) in classpath for OTK");
endif
endif
## Try Java & jOpenDocument
if (isempty (odsinterfaces.JOD))
odsinterfaces.JOD = 0;
entries = {"jOpenDocument"};
if (chk_jar_entries (jcp, entries) >= numel (entries))
odsinterfaces.JOD = 1;
printf ("JOD");
if (deflt)
printf ("; ");
else
printf ("*; ");
deflt = 1;
endif
else
warning ("\nNot all required classes (.jar) in classpath for JOD");
endif
endif
## Try Java & UNO
if (isempty (odsinterfaces.UNO))
odsinterfaces.UNO = 0;
## entries(1) = not a jar but a directory (<OOo_install_dir/program/>)
entries = {"program", "unoil", "jurt", "juh", "unoloader", "ridl"};
if (chk_jar_entries (jcp, entries) >= numel (entries))
odsinterfaces.UNO = 1;
printf ("UNO");
if (deflt)
printf ("; ");
else
printf ("*; ");
deflt = 1;
uno_1st_time = min (++uno_1st_time, 2);
endif
else
warning ("\nOne or more UNO classes (.jar) missing in javaclasspath");
endif
endif
else
## Set Java-based interfaces to 0 anyway as there's no Java support
odsinterfaces.OTK = 0;
odsinterfaces.JOD = 0;
odsinterfaces.UNO = 0;
## End of has_java block
endif
## Native Octave (OCT)
if (isempty (odsinterfaces.OCT))
## Nothing to check, always supported
odsinterfaces.OCT = 1;
printf ("OCT");
if (deflt)
printf ("; ");
else
printf ("*; ");
deflt = 1;
endif
endif
## ---- Other interfaces here, similar to the ones above
if (deflt)
printf ("(* = default interface)\n");
endif
## FIXME the below stanza should be dropped once UNO is stable.
## Echo a suitable warning about experimental status:
if (uno_1st_time == 1)
++uno_1st_time;
printf ("\nPLEASE NOTE: UNO (=OpenOffice.org-behind-the-scenes) is EXPERIMENTAL\n");
printf ("After you've opened a spreadsheet file using the UNO interface,\n");
printf ("odsclose on that file will kill ALL OpenOffice.org invocations,\n");
printf ("also those that were started outside and/or before Octave!\n");
printf ("Trying to quit Octave w/o invoking odsclose will only hang Octave.\n\n");
endif
endfunction
|
