foundryvtt-wh4-lang-fr-fr/tools/detect_missing_strings.lua

package.path = package.path .. ";luajson/?.lua"
local JSON = require"json"

local enjsonf = "../../WFRP4e-FoundryVTT/lang/en.json"
local frjsonf = "../fr.json"

local fp = io.open(enjsonf, "r")
local entags = JSON.decode( fp:read("*a") )
fp:close()

fp = io.open(frjsonf, "r")
local frtags = JSON.decode( fp:read("*a") )
fp:close()

local todisplay  = {}
for tag, value in pairs(entags) do
  if not frtags[tag] then 
    todisplay[#todisplay+1] = { tag=tag, value=value }
  end
end

table.sort(todisplay, function (a, b) 
    return a.tag < b.tag 
  end
)
for _, tagDef in pairs(todisplay) do
  print('"'.. tagDef.tag ..'":"'.. tagDef.value..'",')
end