src/ceph/src/push_to_qemu.pl

   1 #!/usr/bin/perl
   2
   3 use strict;
   4
   5 my $usage = "./push_to_qemu.pl <path_to_qemu>\n";
   6
   7 my $qemu = shift @ARGV || die $usage;
   8 die $usage unless -d $qemu;
   9
  10 die "not in a git tree" unless `cd $qemu && git rev-parse HEAD`;
  11
  12 my $dir = '.';
  13 until (-d "$dir/.git") {
  14     $dir .= "/..";
  15 }
  16
  17 print "pushing changed shared files from $dir to $qemu...\n";
  18 system "cat $dir/src/include/rbd_types.h | sed 's/__u32/uint32_t/g; s/__u8/uint8_t/g; s/__.*16/uint16_t/g; s/__.*32/uint32_t/g; s/__.*64/uint64_t/g; s/_FS_CEPH_RBD/QEMU_BLOCK_RBD_TYPES_H/g; s/^\t/    /g' | expand | grep -v \"linux/types.h\" > $qemu/block/rbd_types.h";
  19
  20 print "done.\n";
  21