]>
Commit | Line | Data |
---|---|---|
7c673cae FG |
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 |