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

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

package RiscosLib3;

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;