#! /bin/sh
### BEGIN INIT INFO
# Provides:          qemu-system-x86
# Required-Start:    mountkernfs
# Required-Stop:     
# Should-Start:      udev devfsd
# Should-Stop:       
# Default-Start:     S
# Default-Stop:      
# Short-Description: QEMU KVM module loading script
# Description:       This script loads the kernel modules needed by QEMU KVM
### END INIT INFO

global PATH := '/sbin:/bin:/usr/sbin:/usr/bin'

source /lib/lsb/init-functions

test -x /usr/share/qemu/init/qemu-kvm-init || exit 5

proc start {
    log_daemon_msg "Configuring kvm" "qemu-kvm"
    /usr/share/qemu/init/qemu-kvm-init start
    log_end_msg $Status
}

matchstr $1 {
  start|restart|force-reload {
    start
    }
  stop {
    }
  * {
    echo "Usage: $0 {start|stop|restart|force-reload}" > !2
    exit 3
    }
}

:
(CommandList
  children: [
    (Assignment
      keyword: Assign_None
      pairs: [
        (assign_pair
          lhs: (LhsName name:PATH)
          op: Equal
          rhs: {(/sbin) (Lit_Other ":") (/bin) (Lit_Other ":") (/usr/sbin) (Lit_Other ":") (/usr/bin)}
          spids: [37]
        )
      ]
      spids: [37]
    )
    (C {(.)} {(/lib/lsb/init-functions)})
    (AndOr
      children: [(C {(test)} {(-x)} {(/usr/share/qemu/init/qemu-kvm-init)}) (C {(exit)} {(5)})]
      op_id: Op_DPipe
    )
    (FuncDef
      name: start
      body: 
        (BraceGroup
          children: [
            (C {(log_daemon_msg)} {(DQ ("Configuring kvm"))} {(DQ (qemu-kvm))})
            (C {(/usr/share/qemu/init/qemu-kvm-init)} {(start)})
            (C {(log_end_msg)} {($ VSub_QMark "$?")})
          ]
          spids: [69]
        )
      spids: [65 68]
    )
    (Case
      to_match: {(DQ ($ VSub_Number "$1"))}
      arms: [
        (case_arm
          pat_list: [{(start)} {(restart)} {(force-reload)}]
          action: [(C {(start)})]
          spids: [104 109 115 -1]
        )
        (case_arm pat_list:[{(stop)}] spids:[118119122-1])
        (case_arm
          pat_list: [{(Lit_Other "*")}]
          action: [
            (SimpleCommand
              words: [
                {(echo)}
                {(DQ ("Usage: ") ($ VSub_Number "$0") (" {start|stop|restart|force-reload}"))}
              ]
              redirects: [(Redir op_id:Redir_GreatAnd fd:-1 arg_word:{(2)} spids:[137])]
            )
            (C {(exit)} {(3)})
          ]
          spids: [125 126 146 -1]
        )
      ]
      spids: [95 101 148]
    )
    (C {(Lit_Other ":")})
  ]
)