slitaz-dev-tools annotate qemu-box/qemu-box @ rev 260
tazu: check auth file for missing users in DB
| author | Christophe Lincoln <pankso@slitaz.org> |
|---|---|
| date | Mon Dec 12 19:03:48 2016 +0100 (2016-12-12) |
| parents | |
| children |
| rev | line source |
|---|---|
| pankso@178 | 1 #!/bin/sh |
| pankso@178 | 2 # |
| pankso@178 | 3 # Small Qemu front end powered by Yad/GTK. |
| pankso@178 | 4 # |
| pankso@178 | 5 # Copyright (C) 2012 SliTaz GNU/Linux - BSD License |
| pankso@178 | 6 # |
| pankso@178 | 7 # Author: Christophe Lincoln <pankso@slitaz.org> |
| pankso@178 | 8 # |
| pankso@178 | 9 |
| pankso@178 | 10 # TODO: Handle vdisk image and kernel. Store virtual machine in $config |
| pankso@178 | 11 #config=$HOME/.config/qemu-box |
| pankso@178 | 12 |
| pankso@178 | 13 # Common boxes options. |
| pankso@178 | 14 opts=" --height=240 --width=500 --image=computer --image-on-top" |
| pankso@178 | 15 title="Qemu Box" |
| pankso@178 | 16 |
| pankso@178 | 17 # Main GUI box function with pure Yad spec |
| pankso@178 | 18 qemubox_main() { |
| pankso@178 | 19 yad --form $opts --window-icon=computer \ |
| pankso@178 | 20 --text="<b>$title</b> - A Small Qemulator Helper" \ |
| pankso@178 | 21 --title="$title" \ |
| pankso@178 | 22 --field="$(gettext "ISO Image:")":FL \ |
| pankso@178 | 23 --field="$(gettext "Memory:")":NUM \ |
| pankso@178 | 24 --field="$(gettext "Options:")" \ |
| pankso@178 | 25 --button="Emulate":0 \ |
| pankso@178 | 26 --button="gtk-close":1 \ |
| pankso@178 | 27 " " "512" "" |
| pankso@178 | 28 } |
| pankso@178 | 29 |
| pankso@178 | 30 # Main function |
| pankso@178 | 31 qemubox() { |
| pankso@178 | 32 # Store box results |
| pankso@178 | 33 main=$(qemubox_main) |
| pankso@178 | 34 |
| pankso@178 | 35 # Deal with --button values |
| pankso@178 | 36 case $? in |
| pankso@178 | 37 0) continue ;; |
| pankso@178 | 38 *) exit 0 ;; |
| pankso@178 | 39 esac |
| pankso@178 | 40 |
| pankso@178 | 41 # Deal with $main values. File can be: .iso or vdisk .img |
| pankso@178 | 42 file=$(echo $main | cut -d "|" -f 1) |
| pankso@178 | 43 mem=$(echo $main | cut -d "|" -f 2 | cut -d "," -f 1) |
| pankso@178 | 44 opts=$(echo $main | cut -d "|" -f 3) |
| pankso@178 | 45 |
| pankso@178 | 46 case $file in |
| pankso@178 | 47 *.iso) exec qemu -m $mem $opts -cdrom $file & ;; |
| pankso@178 | 48 *.img) echo "TODO" ;; |
| pankso@178 | 49 *) yad $opts --title="$title Error" \ |
| pankso@178 | 50 --text "<b>$title Error</b> $file" ;; |
| pankso@178 | 51 esac |
| pankso@178 | 52 } |
| pankso@178 | 53 |
| pankso@178 | 54 # |
| pankso@178 | 55 # Script commands |
| pankso@178 | 56 # |
| pankso@178 | 57 |
| pankso@178 | 58 case "$1" in |
| pankso@178 | 59 usage) |
| pankso@178 | 60 echo "Usage: $(basename $0) [command]" ;; |
| pankso@178 | 61 *) |
| pankso@178 | 62 qemubox ;; |
| pankso@178 | 63 esac |
| pankso@178 | 64 |
| pankso@178 | 65 exit 0 |
| pankso@178 | 66 |