lua实现一个打印函数，打印table

　　lua实现一个打印函数，打印table
　　格式化多行输出
　　localfunctiondumptable（aobj）
　　localgetIndent，quoteStr，wrapKey，wrapVal，dumpObj
　　getIndentfunction（level）
　　returnstring。rep（，level）
　　end
　　quoteStrfunction（str）
　　return。。string。gsub（str，，）。。
　　end
　　wrapKeyfunction（val）
　　iftype（val）numberthen
　　return〔。。val。。〕
　　elseiftype（val）stringthen
　　return〔。。quoteStr（val）。。〕
　　else
　　return〔。。tostring（val）。。〕
　　end
　　end
　　wrapValfunction（val，level）
　　iftype（val）tablethen
　　returndumpObj（val，level）
　　elseiftype（val）numberthen
　　returnval
　　elseiftype（val）stringthen
　　returnquoteStr（val）
　　else
　　returntostring（val）
　　end
　　end
　　dumpObjfunction（obj，level）
　　iftype（obj）tablethen
　　returnwrapVal（obj）
　　end
　　levellevel1
　　localtokens｛｝
　　tokens〔tokens1〕｛
　　fork，vinpairs（obj）do
　　tokens〔tokens1〕
　　getIndent（level）。。
　　wrapKey（k）。。。。wrapVal（v，level）。。，
　　end
　　tokens〔tokens1〕getIndent（level1）。。｝
　　returntable。concat（tokens，）
　　end
　　returndumpObj（aobj，0）
　　end
　　使用demo
　　localtb｛
　　a1，
　　baaa，
　　c｛
　　c12，
　　c2c222
　　｝
　　｝
　　print（tb：，dumptable（tb））
　　输出效果
　　tb：｛
　　〔a〕1，
　　〔c〕｛
　　〔c1〕2，
　　〔c2〕c222，
　　｝，
　　〔b〕aaa，
　　｝
　　单行输出
　　localfunctiondump（aobj）
　　localgetIndent，quoteStr，wrapKey，wrapVal，dumpObj
　　getIndentfunction（level）
　　returnstring。rep（，level）
　　returnstring。rep（，level）
　　end
　　quoteStrfunction（str）
　　return。。string。gsub（str，，）。。
　　end
　　wrapKeyfunction（val）
　　iftype（val）numberthen
　　return〔。。val。。〕
　　elseiftype（val）stringthen
　　return〔。。quoteStr（val）。。〕
　　else
　　return〔。。tostring（val）。。〕
　　end
　　end
　　wrapValfunction（val，level）
　　iftype（val）tablethen
　　returndumpObj（val，level）
　　elseiftype（val）numberthen
　　returnval
　　elseiftype（val）stringthen
　　returnquoteStr（val）
　　else
　　returntostring（val）
　　end
　　end
　　dumpObjfunction（obj，level）
　　iftype（obj）tablethen
　　returnwrapVal（obj）
　　end
　　levellevel1
　　localtokens｛｝
　　tokens〔tokens1〕｛
　　fork，vinpairs（obj）do
　　tokens〔tokens1〕
　　getIndent（level）。。
　　wrapKey（k）。。。。wrapVal（v，level）。。，
　　end
　　tokens〔tokens1〕getIndent（level1）。。｝
　　returntable。concat（tokens，）
　　returntable。concat（tokens，）
　　end
　　returndumpObj（aobj，0）
　　end
　　demo
　　localtb｛
　　a1，
　　baaa，
　　c｛
　　c12，
　　c2c222
　　｝
　　｝
　　print（testdump（tb）：，dump（tb））
　　运行效果
　　testdump（tb）：｛〔a〕1，〔c〕｛〔c1〕2，〔c2〕c222，｝，〔b〕aaa，｝