/usr/share/octave/packages/3.2/io-1.0.14/object2json.m is in octave-io 1.0.14-2.
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 | %% Copyright (C) 2010 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 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/>.
%% object2json.m
%% Ultima modificacion: 2010-12-06
function json=object2json(object)
% function json=object2json(object)
% This function returns a valid json string that will describe object
% The string will be in a compact form (i.e. 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
% 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
% quuotes with the value that the class() function returns
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=['"',object,'"'];
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=['"',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,'[',object2json(object(tmp,1)),']'];
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
|