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

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