home *** CD-ROM | disk | FTP | other *** search
- #!perl -lw
- # Version 0.01
- use RISCOS::Text::PrettyPrint ':DEFAULT', '@default_dict';
-
- foreach $entry (0 .. $#default_dict)
- {
- print prettyprint_expand (sprintf ("%2d: \c[%c", $entry, $entry),
- '<Special string>');
- }
-
- # Now, I don't know what the kernel dictionary is. But it's not the same
-
- @kernel_dict =
- eval {read_riscosdict ('Resources:$.Resources.Kernel.Dictionary')};
-
- exit if $@;
-
- print '';
-
- foreach $entry (0 .. $#kernel_dict)
- {
- print prettyprint_expand (sprintf ("%2d: \c[%c", $entry, $entry),
- '<Special string>', @kernel_dict);
- }
-