Re: Octave json creator

[veryhappy]

Ok,here goes the fixed version. I'd added a little help describing how each
octave type will be mapped in the json string:

%% 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

-- 
View this message in context: 
http://octave.1599824.n4.nabble.com/Octave-json-creator-tp3072273p3075432.html
Sent from the Octave - General mailing list archive at Nabble.com.