X-Git-Url: http://v3vee.org/palacios/gitweb/gitweb.cgi?p=palacios.git;a=blobdiff_plain;f=geekos%2Fscripts%2Fgenerate_vmcs_serialization.pl;fp=geekos%2Fscripts%2Fgenerate_vmcs_serialization.pl;h=747e2c64a6748d6482d3921e9718a024355214e0;hp=0000000000000000000000000000000000000000;hb=ddc16b0737cf58f7aa90a69c6652cdf4090aec51;hpb=626595465a2c6987606a6bc697df65130ad8c2d3

diff --git a/geekos/scripts/generate_vmcs_serialization.pl b/geekos/scripts/generate_vmcs_serialization.pl
new file mode 100755
index 0000000..747e2c6
--- /dev/null
+++ b/geekos/scripts/generate_vmcs_serialization.pl
@@ -0,0 +1,63 @@
+#!/usr/bin/perl
+
+$#ARGV==0 or die "gimme a filename\n";
+
+$file=shift;
+
+@list=();
+
+open(HEADER,">$file.h");
+open(SOURCE,">$file.c");
+
+print HEADER "#ifndef $file\n";
+print HEADER "#define $file\n";
+print HEADER "#include <geekos/vmcs.h>\n";
+
+print SOURCE "#include <geekos/$file.h>\n";
+
+while (<STDIN>) {
+  if (/\#define\s+(\S+)\s+/) {
+    push @list, $1;
+    GenSerUnserCode($1);
+  }
+}
+
+GenPrintAllCode(@list);
+
+print HEADER "#endif\n";
+
+sub GenSerUnserCode {
+  my $name=shift;
+
+  print SOURCE <<END
+
+void    Set_$name(uint_t val) { VMCS_WRITE($name,val); }
+uint_t  Get_$name() { uint_t rc; VMCS_READ($name,&rc); return rc; }
+
+void    Print_$name() { PrintTrace("$name = %x\\n", Get_$name()); }
+
+END
+
+;
+  print HEADER <<END2
+
+void    Set_$name(uint_t val);
+uint_t  Get_$name();
+
+void    Print_$name();
+
+END2
+
+;
+
+}
+
+
+sub GenPrintAllCode  {
+  print SOURCE "void PrintTrace_VMCS_ALL() {\n";
+  while (my $name=shift) { 
+    print SOURCE "  PrintTrace_$name();\n";
+  }
+  print SOURCE "}\n";
+  print HEADER "void PrintTrace_VMCS_ALL();\n";
+}