modpol.lua 3.1 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104
  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 modules
  49. modpol.modules = modpol.modules or {}
  50. -- TKTK need to specify modules to include
  51. -- ===================================================================
  52. -- Modpol core features
  53. dofile (topdir .. "/api.lua")
  54. -- ===================================================================
  55. -- Final checks
  56. -- sets org metatable on load
  57. if (modpol.orgs.array) then
  58. for id, org in ipairs(modpol.orgs.array) do
  59. if type(org) == 'table' then
  60. setmetatable(org, modpol.orgs)
  61. -- sets process metatable on load
  62. for id, process in ipairs(org.processes) do
  63. if type(process) == 'table' then
  64. setmetatable(process, modpol.modules[process.type])
  65. end
  66. end
  67. end
  68. end
  69. end
  70. -- create instance if not present
  71. modpol.instance = modpol.orgs.array[1] or modpol.orgs.init_instance()
  72. modpol.ocutil.log ("modpol loaded")
  73. -- ===================================================================
  74. -- End of file.