perl/lib/Nasm/Utils.pm

   1 =head1 NAME
   2
   3 Nasm::Regs::Register
   4
   5 =cut
   6
   7 package Nasm::Utils;
   8 use strict;
   9 use warnings;
  10
  11 use base 'Exporter';
  12
  13 our @EXPORT_OK = qw{
  14   str2hex
  15   addprefix
  16 };
  17
  18
  19 # Turn a numeric list into a hex string
  20 sub str2hex{
  21   my @return = map {sprintf("%02X", $_)} @_;
  22
  23   return @return if wantarray;
  24   return join '', @return;
  25 }
  26
  27 sub addprefix{
  28   my ($prefix, @list) = @_;
  29   my @return = map {
  30       sprintf("%s%02X", $prefix, $_)
  31   } @list;
  32
  33   return @return if wantarray;
  34   die "Don't know what to do in scalar context.";
  35 }
  36
  37 1;