home *** CD-ROM | disk | FTP | other *** search
/ ARM Club 3 / TheARMClub_PDCD3.iso / hensa / programming / perl / perl_1 / Perl5001 / !Perl / riscos / pm / RiscosLib < prev   
Encoding:
Text File  |  1996-02-19  |  409 b   |  26 lines
  1. package RiscosLib;
  2.  
  3. require Exporter;
  4. @ISA = Exporter;
  5. @EXPORT = qw(regmask SWINumberFromString);
  6.  
  7. for $i (0..7) { $in[$i] = 1<<$i; $out[$i] = 1<<(31-$i); }
  8.  
  9. sub regmask {
  10.     my $ir = shift;
  11.     my $or = shift;
  12.     my $mask = 0;
  13.     while (@$ir) { $mask |= $in[ shift(@$ir) ]; };
  14.     while (@$or) { $mask |= $out[ shift(@$or) ]; };
  15.     $mask;
  16. }
  17.  
  18. sub SWINumberFromString {
  19.     my $str = shift()."\n";
  20.     syscall(57,2,$str);
  21. }
  22.  
  23.  
  24. 1;
  25.  
  26.