modpol.lua 2.8 KB

1234567891011121314151617181920212223242526272829303132333435363738394041424344454647484950515253545556575859606162636465666768697071727374757677787980818283848586878889909192939495
  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. -- sets org metatable on load
  53. if (modpol.orgs.array) then
  54. for id, org in ipairs(modpol.orgs.array) do
  55. if type(org) == 'table' then
  56. setmetatable(org, modpol.orgs)
  57. end
  58. -- sets process metatable on load
  59. for id, process in ipairs(org.processes) do
  60. setmetatable(process, org.modules[process.type])
  61. end
  62. end
  63. end
  64. -- create instance if not present
  65. modpol.instance = modpol.orgs.array[1] or modpol.orgs.init_instance()
  66. modpol.ocutil.log ("modpol loaded")
  67. -- ===================================================================
  68. -- End of file.