( Msgmacs.MUF                                     by Ginger@FurToonia )
(                                                                     )
( Lists [by name, not content] MPI macros on #0.                      )
lvar count
: sort_out_list
  "" "" ""
   count @ 2 strcut swap pop " " explode
    begin dup 0 >= while 3 -
     swap "                       " strcat 23 strcut pop
      rot "                       " strcat 23 strcut pop strcat
    rot strcat
  me @ swap notify
 repeat
exit
;
: main
 " " count !
   me @ "Listing of MPI globals currently set on #0...." notify
   0 dbref "_msgmacs/" nextprop begin
     dup "" stringcmp 0 = not while
      9 strcut swap pop dup "{" swap strcat "}" strcat
     count @ swap " " swap strcat strcat count !
   0 dbref swap "_msgmacs/" swap strcat nextprop repeat
 sort_out_list
me @ "Done.                                     (5/25/95 by Ginger)" notify
exit
;