version 2 for print_r

print_r2.lua

function print_r2(data, depth)                                                                                                                                                                                 
    local depth = depth or 3                                                                                                                                                                                     
    local cstring = "";                                                                                                                                                                                          
    local top_flag = true                                                                                                                                                                                        
                                                                                                                                                                                                                 
    local function table_len(t)                                                                                                                                                                                  
        local i = 0                                                                                                                                                                                              
        for k, v in pairs(t) do                                                                                                                                                                                  
                i = i + 1                                                                                                                                                                                        
        end                                                                                                                                                                                                      
        return i                                                                                                                                                                                                 
    end                                                                                                                                                                                                          
                                                                                                                                                                                                                 
    local function tableprint(data,cstring, local_depth)                                                                                                                                                         
        if data == nil then                                                                                                                                                                                      
            local_print("core.print data is nil");                                                                                                                                                               
        end                                                                                                                                                                                                      
                                                                                                                                                                                                                 
        local cs = cstring .. "    ";                                                                                                                                                                            
        if top_flag then                                                                                                                                                                                         
                local_print(cstring .."{");                                                                                                                                                                      
                top_flag = false                                                                                                                                                                                 
        end                                                                                                                                                                                                      
        if(type(data)=="table") then                                                                                                                                                                             
            for k, v in pairs(data) do                                                                                                                                                                           
                if type(v) ~= "table" then                                                                                                                                                                       
                        --if type(v) == "function" then                                                                                                                                                          
                                --local_print(cs..tostring(k).." = Funtion:");                                                                                                                                   
                        --else                                                                                                                                                                                   
                                local_print(cs..tostring(k).." = "..tostring(v));                                                                                                                                
                        --end                                                                                                                                                                                    
                elseif table_len(v) == 0 then                                                                                                                                                                    
                        local_print(cs..tostring(k).." = ".."{}")                                                                                                                                                
                elseif local_depth < depth then                                                                                                                                                                  
                        local_print(cs..tostring(k).." = {");                                                                                                                                                    
                        tableprint(v,cs,local_depth+1);                                                                                                                                                          
                else                                                                                                                                                                                             
                        local_print(cs..tostring(k).." = ".."{*}")                                                                                                                                               
                end                                                                                                                                                                                              
            end                                                                                                                                                                                                  
        else                                                                                                                                                                                                     
            local_print(cs..tostring(data));                                                                                                                                                                     
        end                                                                                                                                                                                                      
        local_print(cstring .."}");                                                                                                                                                                              
    end                                                                                                                                                                                                          
                                                                                                                                                                                                                 
    tableprint(data,cstring,0);                                                                                                                                                                                  
end