ets:i/0
在输出端上打印显示所有 ETS 表的信息
用法:
1 | i() -> `ok` |
内部实现:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 | %% Print info about all tabs on the tty -spec i() -> 'ok' . i() -> hform( 'id' , 'name' , 'type' , 'size' , 'mem' , 'owner' ), io:format ( " -------------------------------------" "---------------------------------------\n" ), lists:foreach ( fun prinfo/1, tabs()), ok. prinfo( Tab ) -> case catch prinfo2( Tab ) of { 'EXIT' , _} -> io:format ( "~-10s ... unreadable \n" , [to_string( Tab )]); ok -> ok end . prinfo2( Tab ) -> Name = ets:info ( Tab , name), Type = ets:info ( Tab , type), Size = ets:info ( Tab , size), Mem = ets:info ( Tab , memory), Owner = ets:info ( Tab , owner), hform( Tab , Name , Type , Size , Mem , is_reg( Owner )). |
在输出端上打印显示所有 ETS 表的信息。
1 | ets:i (). |