/usr/share/octave/packages/io-2.4.10/object2json.m is in octave-io 2.4.10-3.
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 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 | %% Copyright (C) 2010-2017 Torre Herrera, Daniel de
%%
%% 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/>.
%% Returns a valid json string that will describe object; the string will
%% be in a compact form (no spaces or line breaks).
%%
%% It will map simple octave values this way:
%% function handles: string with the name of the function
%% double (numbers): depends:
%% If it's real it will map to a string representing that number
%% If it's complex it will map to an object with the next properties:
%% real: real part of the number
%% imag: imaginary part of the number
%% char: A string enclosed by double quotes representing that character
%% logical: text sring "true" or "false" (w/o double quotes)
%% And will map more complex octave values this other way:
%% struct: an object with properties equal to the struct's field names
%% and value equal to the json counterpart of that field
%% cell: it will be mapped depending on the value of the cell (for
%% example {i} will be mapped to an object with real=0 and imag=1)
%% vectors or cell arrays: it will map them to a corresponding js
%% array (same size) with the values transformed to their json
%% counterpart (Note: that in javascript all arrays are like octave's
%% cells ,i.e. they can store different type and size variables)
%% strings or char vectors: they will be mapped to the same string
%% enclosed by double quotes
%% Other octave values will be mapped to a string enclosed by double
%% quotes with the value that the class() function returns
%% It can handle escape sequences and special chars automatically.
%% If they're valid in JSON it will keep them if not they'll be
%% escaped so they can become valid
%% object2json.m
%% Created: 2010-12-06
%% Updates:
%% 2011-01-23 Added support for especial chars and escaped sequences
%% 2011-04-01 Fixed error: Column vectors not working correctly
%% 2011-09-08 (Philip Nienhuis) layout & style changes cf. Octave coding style
%% 2011-08-13 (Keith Sheppard) Added logical types to object2json (bug #39429)
function json = object2json (object)
s = size (object);
if (all (s==1))
% It's not a vector so we must check how to map it
% Depending on the class of the object we must do one or another thing
switch (class (object))
case 'function_handle'
% For a function handle we will only print the name
fun = functions (object);
json = [ '"', fun.function, '"' ];
case 'struct'
fields = fieldnames (object);
results = cellfun (@object2json, struct2cell (object), "UniformOutput", false);
json = '{';
if (numel (fields) > 1)
sep = ',';
else
sep = '';
endif
for (tmp = 1:numel (fields))
json = [ json, '"', fields{tmp}, '":', results{tmp}, sep ];
if(tmp >= numel (fields)-1)
sep = '';
endif
endfor
json(end+1) = '}';
case 'cell'
% We dereference the cell and use it as a new value
json = object2json (object{1});
case 'double'
if (isreal (object))
json = num2str (object);
else
if (iscomplex (object))
json = [ '{"real":', num2str(real(object)), ',"imag":' , num2str(imag(object)), '}' ];
endif
endif
case 'char'
% Here we handle a single char
% JSON only admits the next escape sequences:
% \", \\, \/, \b, \f, \n, \r, \t and \u four-hex-digits
% so we must be sure that every other sequence gets replaced
object = replace_non_JSON_escapes (object);
json = [ '"', object, '"' ];
case 'logical'
if object
json = 'true';
else
json = 'false';
endif
otherwise
% We don't know what is it so we'll put the class name
json = [ '"', class(object), '"' ];
endswitch
else
% It's a vector so it maps to an array
sep = '';
if (numel (s) > 2)
json = '[';
for (tmp=1:s(1))
json = [ json, sep, object2json(reshape(object(tmp, :), s(2:end))) ];
sep = ',';
endfor
json(end+1) = ']';
else
% We can have three cases here:
% Object is a row -> array with all the elements
% Object is a column -> each element is an array in it's own
% Object is a 2D matrix -> separate each row
if (s(1) == 1)
% Object is a row
if (ischar (object))
% If it's a row of chars we will take it as a string
% JSON only admits the next escape sequences:
% \", \\, \/, \b, \f, \n, \r, \t and \u four-hex-digits
% so we must be sure that every other sequence gets replaced
object = replace_non_JSON_escapes (object);
json = [ '"', object, '"'];
else
json = '[';
for (tmp=1:s(2))
json = [ json, sep, object2json(object(1, tmp)) ];
sep = ',';
endfor
json(end+1) = ']';
endif
elseif (s(2) == 1)
% Object is a column
json = '[';
for (tmp=1:s(1))
json = [ json, sep, '[', object2json(object(tmp, 1)), ']' ];
sep = ',';
endfor
json(end+1) = ']';
else
% Object is a 2D matrix
json = '[';
for (tmp=1:s(1))
json = [ json, sep, object2json(object(tmp, :)) ];
sep = ',';
endfor
json(end+1) = ']';
endif
endif
endif
endfunction
% JSON only admits the next escape sequences:
% \", \\, \/, \b, \f, \n, \r, \t and \u four-hex-digits
% This function replace every escaped sequence that isn't on that list
% with a compatible version
% Note that this function uses typeinfo so it may need to be updated
% with each octave release
function object = replace_non_JSON_escapes (object)
if (strcmp (typeinfo (object), 'string'))
% It's a double quoted string so newlines and other chars need
% to be converted back into escape sequences before anything
object = undo_string_escapes (object);
endif
% This first regex handles double quotes and slashes that are not
% after a backslash and thus aren't escaped
object = regexprep (object, '(?<!\\)(["/])', "\\$1");
% This regex handle double quotes and slashes that are after an even
% number of backslashes and thus aren't escaped
object = regexprep (object, '(?<!\\)(\\\\)*(["/])', "$1\\$2");
% This last one regexp handle any other valid JSON escape sequence
object = regexprep (object, '(?<!\\)\\(?=(\\\\)*(?!([\"\\\/bfnrt]|([u][0-9A-Fa-f]{4}))+?))', "\\\\");
endfunction
%!test
%! assert(object2json([logical(1), logical(0)]), '[true,false]');
%!test
%! car.name = 'Mzd R8';
%! car.speedsamples = [98, 33, 50; 56, 120, 102; 77, 82, 93];
%! car.toofast = car.speedsamples >= 90;
%! car.leased = logical(1);
%! car.european = logical(0);
%! assert(object2json(car), '{"name":"Mzd R8","speedsamples":[[98,33,50],[56,120,102],[77,82,93]],"toofast":[[true,false,false],[false,true,true],[false,false,true]],"leased":true,"european":false}');
|