perl/lib/Nasm/Regs/Format/YAML.pm

   1 =head1 NAME
   2
   3 Nasm::Regs::Format::YAML
   4
   5 =cut
   6
   7 package Nasm::Regs::Format::YAML;
   8 use strict;
   9 use warnings;
  10
  11 use YAML::XS;
  12
  13 sub _format{
  14   my($regs) = @_;
  15
  16   my @names = $regs->RegisterNames;
  17   my %data;
  18
  19   my $count = 1;
  20   for my $name (@names){
  21     my $reg = $regs->Register($name);
  22     $data{$name} = {
  23       AssemblerClass      => $reg->AssemblerClass,
  24       DisassemblerClasses => [$reg->DisassemblerClasses],
  25       x86RegisterNumber   => $reg->x86RegisterNumber,
  26       Index               => $count++
  27     }
  28   }
  29
  30   Dump \%data
  31 }
  32 1;