home *** CD-ROM | disk | FTP | other *** search
/ Acorn User 10 / AU_CD10.iso / Archived / Updates / Perl / RPC / perl_113_riscpc / !Perl / riscos / RiscosLib.pm < prev    next >
Encoding:
Perl POD Document  |  1998-07-12  |  529 b   |  28 lines
  1. package RiscosLib;
  2.  
  3. require Exporter;
  4. @ISA = qw(Exporter);
  5. @EXPORT = qw(regmask SWINumberFromString syscall);
  6.  
  7. use RISCOS::SWI;
  8. use Carp;
  9.  
  10. # Use this for compatability with Perl 5.001 port
  11. sub syscall { &swi; }
  12. # Use this for compatability with Perl 3 port
  13. #sub syscall
  14. #   {
  15. #     my (@temp)=@_;
  16. #     my $i = $#_;
  17. #     my $result = &kernelswi(@temp);
  18. #     while ($i--)
  19. #     {
  20. #         eval {$_[$i]=$temp[$i]};
  21. #     }
  22. #     return $result;
  23. #   }
  24.  
  25. carp 'RiscosLib is depreciated. Please use RISCOS::SWI instead' if $^W;
  26. 1;
  27.  
  28.