home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Acorn User 10
/
AU_CD10.iso
/
Updates
/
Perl
/
RPC
/
!Perl
/
scripts
/
PrettyPrint
< prev
next >
Wrap
Text File
|
1998-07-14
|
566b
|
25 lines
#!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);
}