// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
// Copyright (C) INRIA
//
// This file must be used under the terms of the CeCILL.
// This source file is licensed as described in the file COPYING, which
// you should have received as part of this distribution.  The terms
// are also available at
// http://www.cecill.info/licences/Licence_CeCILL_V2.1-en.txt
function str=%ce_string(c)
    str=[];
    ll=lines()
    val=c.entries
    dims=double(c.dims);
    if type(val)==15 then // Whole cell array display
        for k=1:length(val)
            tp=typeof(val(k))
            if tp=="st" then
                str(k)="{"+strcat(string(double(val(k).dims)),"x")+" struct}"
                //str(k)=%st_string(val(k))
            else
                sz=size(val(k))
                if prod(sz)==0 then
                    str(k)="{}"
                else
                    tmp=sci2exp(val(k),ll(1))
                    if size(tmp,"*")==1 then
                        str(k)=tmp
                    else
                        str(k)="{"+strcat(string(sz),"x")+" "+tp+"}"
                    end
                end
            end
        end
    else // cell display
        tp=typeof(val)
        dims=[1 1]
        if tp=="st" then
            str="{"+strcat(string(double(val.dims)),"x")+" struct}"
        else
            sz=size(val)
            if prod(sz)==0 then
                str="{}"
            else
                tmp=sci2exp(val,ll(1))
                if size(tmp,"*")==1 then
                    str=tmp
                else
                    str="{"+strcat(string(sz),"x")+" "+tp+"}"
                end
            end
        end
    end

    if size(dims,"*")>2 then
        str=hypermat(dims,str)
    else
        str=matrix(str,dims(1),-1)
    end
endfunction