home *** CD-ROM | disk | FTP | other *** search
/ Acorn User 10 / AU_CD10.iso / Updates / Perl / Non-RPC / !Perl / scripts / PrettyPrint < prev    next >
Text File  |  1998-07-14  |  566b  |  25 lines
  1. #!perl -lw
  2. # Version 0.01
  3. use RISCOS::Text::PrettyPrint ':DEFAULT', '@default_dict';
  4.  
  5. foreach $entry (0 .. $#default_dict)
  6. {
  7.     print prettyprint_expand (sprintf ("%2d: \c[%c", $entry, $entry),
  8.                   '<Special string>');
  9. }
  10.  
  11. # Now, I don't know what the kernel dictionary is. But it's not the same
  12.  
  13. @kernel_dict =
  14.   eval {read_riscosdict ('Resources:$.Resources.Kernel.Dictionary')};
  15.  
  16. exit if $@;
  17.  
  18. print '';
  19.  
  20. foreach $entry (0 .. $#kernel_dict)
  21. {
  22.     print prettyprint_expand (sprintf ("%2d: \c[%c", $entry, $entry),
  23.                   '<Special string>', @kernel_dict);
  24. }
  25.