#!/usr/bin/env luajit


local _ = require '_'


D('Starting from the top.')

local Help = [[
This is part of the blah blah blah...
]]



local args = {...}
if 0 ~= #args then
--    for i,a in pairs(args) do
--	print('Argument ' .. i .. ' = ' .. a)
--    end

    if     'start'        == args[1] then
    elseif 'stop'         == args[1] then
--[=[
	_.killEmAll{'qsynth'}
	__[[
a2j_control --stop
sleep 2
a2j_control --exit
sleep 2
]]:Do()
	_.killEmAll{'alsa_in', 'alsa_out', 'zita-a2j', 'zita-j2a',  'aseqjoy', 'jack-plumbing'}
	__[[
sleep 2
jack_control stop
sleep 2
jack_control exit
sleep 2
]]:Do()
	_.killEmAll{'jmcore', 'qjackctl'}
	-- Catia is python, and no easy way to kill it.
	-- Also it keeps jackdbus alive, no matter how hard you kill it.
	__"pkill -TERM -u $USER -f catia":Do()
	__"sleep 2":Do()
	_.killEmAll{'jackdbus', 'a2jmidid'}
]=]
	return(0)
    elseif 'JACK'         == args[1] then
    elseif 'restart'      == args[1] then args[1] = 'start'
    elseif 'force-reload' == args[1] then args[1] = 'start'
    elseif 'status'       == args[1] then
	return(0)
    elseif 'help'         == args[1] then
	print(Help)
	return(0)
    elseif '--help'       == args[1] then
	print(Help)
	return(0)
    else
	print("Usage: /etc/init.d/aataaj.lua {start|stop|restart|force-reload|status}")
	return(1)
    end
else
    print("Usage: /etc/init.d/aataaj.lua {help|start|stop|restart|force-reload|status|JACK}")
    return(1)
end



local GUI = 'qjackctl'
if _.runnable'catia' then GUI = 'catia' end

local speaker = 'espeak'
if _.runnable'espeak-ng' then speaker = 'espeak-ng' end



for i,l in ipairs(__'df -h':log():Do().lines) do
    print(l)
end
print('')

__'df -h':log():also'free -h':show():Do()
print('')

for i,l in ipairs(__'df -h\nfree -h':log():Do().lines) do
    print(l)
end
print('')

__[[
    df -h
    free -h
]]:log():show():Do()
print('')

for i,l in ipairs(__{'df -h', 'free -h'}:log():Do().lines) do
    print(l)
end
print('')

print('' .. GUI .. '  ' .. speaker)
print('')

print(__'true':log():show():Do().status)
print(__'false':log():show():Do().status)
print(__'exit 42':log():show():Do().status)
print(__'return 42':log():show():Do().status)
print(__'command NoSuchCommand':log():show():Do().status)

--__'qpdfview':forkOnce()
--__'qpdfview':forkOnce()


D('debug?')
I('info?')