--------------------------------------------------------------------------
-- Lmod License
--------------------------------------------------------------------------
--
--  Lmod is licensed under the terms of the MIT license reproduced below.
--  This means that Lmod is free software and can be used for both academic
--  and commercial purposes at absolutely no cost.
--
--  ----------------------------------------------------------------------
--
--  Copyright (C) 2008-2018 Robert McLay
--
--  Permission is hereby granted, free of charge, to any person obtaining
--  a copy of this software and associated documentation files (the
--  "Software"), to deal in the Software without restriction, including
--  without limitation the rights to use, copy, modify, merge, publish,
--  distribute, sublicense, and/or sell copies of the Software, and to
--  permit persons to whom the Software is furnished to do so, subject
--  to the following conditions:
--
--  The above copyright notice and this permission notice shall be
--  included in all copies or substantial portions of the Software.
--
--  THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
--  EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES
--  OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
--  NONINFRINGEMENT.  IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS
--  BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN
--  ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN
--  CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN
--  THE SOFTWARE.
--
--------------------------------------------------------------------------

--------------------------------------------------------------------------
-- Json(): This is a derived class from BaseShell.  It outputs the lua table
--         as a json object

require("strict")

if ( _VERSION ~= "Lua 5.1" ) then
   require("declare")
   declare("loadstring")
   loadstring = load
end
local js        = require("json")

local BaseShell = require("BaseShell")
local Json      = inheritsFrom(BaseShell)
local dbg       = require("Dbg"):dbg()
local Var       = require("Var")
local concatTbl = table.concat
local stdout    = io.stdout
Json.my_name    = "json"
Json.myType     = Json.my_name
Json.js         = ""

function Json.initialize(self)
   -- Empty the json script so that it can be used in individual --
   self.js = js.encode({alias={}, shellFunc={}, env={}, unset={}})
end

function Json.set_alias(self, k, t)
   local tbl = js.decode(self.js)
   tbl["alias"][k] = t.vstr
   self.js = js.encode(tbl)
end

function Json.set_shell_function(self, k, t)
   local tbl = js.decode(self.js)
   tbl["shellFunc"][k] = t.vstr
   self.js = js.encode(tbl)
end


function Json.expandVar(self, k, v)
   local tbl = js.decode(self.js)
   tbl["env"][k] = v
   self.js = js.encode(tbl)
end

function Json.unset(self, k)
   local tbl = js.decode(self.js)
   tbl["unset"][#tbl["unset"]+1] = k
   self.js = js.encode(tbl)
end

function Json.echo(self,...)
   self:_echo(...)
end

function Json.report_failure(self)
   local js_txt = js.encode({_mlstatus=false})
   stdout:write(js_txt)
   dbg.print{   js_txt}
end

function Json.report_success(self)
   local report = js.decode(self.js)
   report["_mlstatus"] = true
   stdout:write(js.encode(report))
   dbg.print{self.js}
end

return Json
