/usr/share/octave/packages/io-2.4.5/odsclose.m is in octave-io 2.4.5-1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
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 | ## Copyright (C) 2009-2016 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 3 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, see <http://www.gnu.org/licenses/>.
## -*- texinfo -*-
## @deftypefn {Function File} [@var{ods}] = odsclose (@var{ods})
## @deftypefnx {Function File} [@var{ods}] = odsclose (@var{ods}, @var{filename})
## @deftypefnx {Function File} [@var{ods}] = odsclose (@var{ods}, "FORCE")
## Close the OpenOffice_org Calc / Gnumeric spreadsheet pointed to in struct
## @var{ods}, if needed write the file to disk.
##
## odsclose will determine if the file must be written to disk based on
## information contained in @var{ods}.
## An empty pointer struct will be returned if no errors occurred.
## Optional argument @var{filename} can be used to write changed spreadsheet
## files to an other file than opened by odsopen().
## Optional string argument "FORCE" can be specified to force resetting the
## file pointer struct. However, in case of UNO, a hidden OOo invocation
## may linger on in memory then, preventing proper closing of Octave.
##
## @var{ods} must be a valid pointer struct made by odsopen() in the same
## octave session.
##
## Examples:
##
## @example
## ods1 = odsclose (ods1);
## (Close spreadsheet file pointed to in pointer struct ods1; ods1 is reset)
## @end example
##
## @seealso {odsopen, odsread, odswrite, ods2oct, oct2ods, odsfinfo, chk_spreadsheet_support}
##
## @end deftypefn
## Author: Philip Nienhuis <prnienhuis at users.sf.net>
## Created: 2009-12-13
function [ ods ] = odsclose (ods, varargs)
## If needed warn that dangling spreadsheet pointers may be left
if (nargout < 1)
warning ("odsclose.m: return argument missing - ods invocation not reset.\n");
endif
force = 0;
if (isempty (ods))
warning ("odsclose: file pointer struct is empty; was it already closed?\n")';
return
endif
if (nargin > 1)
for ii=2:nargin
if (strcmpi(varargin{ii}, "force"))
## Close .ods anyway even if write errors occur
force = 1;
elseif (! isempty (strfind (tolower (varargin{ii}), ".")))
## Apparently a file name. First some checks....
if (ods.changed == 0 || ods.changed > 2)
warning ("odsclose.m: file %s wasn't changed, new filename ignored.\n", ods.filename);
elseif (! strcmp (xls.xtype, "UNO") && ...
isempty (strfind ( lower (filename), ".ods")))
## UNO will write any file type, all other interfaces only .ods
error ("odsclose.m: .ods suffix lacking in filename %s\n", filename);
else
## Preprocessing / -checking ready.
## Assign filename arg to file ptr struct
ods.nfilename = filename;
endif
endif
endfor
endif
if (strcmp (ods.xtype, "OTK"))
## Java & ODF toolkit
ods = __OTK_spsh_close__ (ods, force);
elseif (strcmp (ods.xtype, "JOD"))
## Java & jOpenDocument
ods = __JOD_spsh_close__ (ods);
elseif (strcmp (ods.xtype, "UNO"))
## Java & UNO bridge
ods = __UNO_spsh_close__ (ods, force);
elseif (strcmp (ods.xtype, "OCT"))
## Native Octave
ods = __OCT_spsh_close__ (ods);
##elseif ---- < Other interfaces here >
else
error (sprintf ("ods2close: unknown OpenOffice.org .ods interface - %s.\n",...
ods.xtype));
endif
if (ods.changed && ods.changed < 3)
error (sprintf ("odsclose.m: could not save file %s - read-only or in use elsewhere?\n",...
ods.filename));
if (force)
ods = [];
else
printf ("(File pointer preserved)\n");
endif
else
## Reset file pointer
ods = [];
endif
endfunction
|