modpol.lua 2.6 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687
  1. -- ===================================================================
  2. -- /modpol.lua
  3. -- Modular Politics (modpol) core
  4. -- ===================================================================
  5. -- Basic tables
  6. -- Main API table
  7. if not modpol then modpol = {} end
  8. -- Record of every state change should appear here
  9. modpol.ledger = {
  10. }
  11. -- ===================================================================
  12. -- Locate framework top-level directory.
  13. -- This function is intended for use under Linux and/or UNIX only.
  14. -- It
  15. -- returns a relative or absolute path for the framework top-level
  16. -- directory without a trailing slash.
  17. -- if your application has a different method of getting the script directory,
  18. -- then feel free to overwrite this in an init.lua or other such file by first
  19. -- defining the modpol table and then defining the get_script_dir() function
  20. local get_script_dir = modpol.get_script_dir or function()
  21. local str = debug.getinfo (2, "S").source:sub (2)
  22. str = str:match ("(.*/)") or "."
  23. str = str:gsub ("/$", "", 1)
  24. return str
  25. end
  26. -- Absolute or relative path to script directory.
  27. local topdir = get_script_dir()
  28. modpol.topdir = topdir
  29. print (topdir)
  30. -- ===================================================================
  31. -- Load dependencies
  32. -- OldCoder utilities
  33. dofile (topdir .. "/util/ocutil/ocutil.lua")
  34. -- ===================================================================
  35. -- Persistent storage
  36. -- must implement modpol.load_storage() and modpol.store_data()
  37. -- Select a storage method
  38. -- -- preferably, declare this in the init.lua that calls modpol.lua This is the default.
  39. -- Works with CLI:
  40. modpol.storage_file_path = modpol.storage_file_path or topdir .. "/storage/storage-local.lua"
  41. -- Works with Minetest 5:
  42. --modpol.storage_file_path = modpol.storage_file_path or topdir .. "/storage/storage-mod_storage.lua")
  43. --execute the storage file
  44. dofile (modpol.storage_file_path)
  45. -- If available, load persistent storage into active tables
  46. modpol.load_storage()
  47. -- ===================================================================
  48. -- ModPol core features
  49. dofile (topdir .. "/api.lua")
  50. -- ===================================================================
  51. -- Final checks
  52. for id, org in ipairs(modpol.orgs.array) do
  53. if type(org) == 'table' then
  54. setmetatable(org, modpol.orgs)
  55. end
  56. end
  57. -- create instance if not present
  58. modpol.instance = modpol.orgs.array[1] or modpol.orgs.init_instance()
  59. modpol.ocutil.log ("modpol loaded")
  60. -- ===================================================================
  61. -- End of file.