Acorn User 10/AU_CD10.iso/Updates/Perl/Non-RPC/!Perl/riscos/RiscosLib.pm

Text File | 1998-07-12 | 529b | 28 lines

package RiscosLib;

require Exporter;
@ISA = qw(Exporter);
@EXPORT = qw(regmask SWINumberFromString syscall);

use RISCOS::SWI;
use Carp;

# Use this for compatability with Perl 5.001 port
sub syscall { &swi; }
# Use this for compatability with Perl 3 port
#sub syscall
#   {
#     my (@temp)=@_;
#     my $i = $#_;
#     my $result = &kernelswi(@temp);
#     while ($i--)
#     {
#         eval {$_[$i]=$temp[$i]};
#     }
#     return $result;
#   }

carp 'RiscosLib is depreciated. Please use RISCOS::SWI instead' if $^W;
1;