pluto-src 0.1.1+0.10.4

Sources of Pluto (Lua 5.4 dialect) and logic to build it.
Documentation 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96

#include "SharedLibrary.hpp"

#include "Exception.hpp"

NAMESPACE_SOUP
{
	SharedLibrary::SharedLibrary(const std::string& path)
	{
		load(path);
	}

	SharedLibrary::SharedLibrary(const char* path)
	{
		load(path);
	}

	SharedLibrary::SharedLibrary(SharedLibrary&& b)
		: handle(b.handle)
	{
		b.forget();
	}

	SharedLibrary::~SharedLibrary()
	{
		unload();
	}

	void SharedLibrary::operator=(SharedLibrary&& b)
	{
		unload();
		handle = b.handle;
		b.forget();
	}

	bool SharedLibrary::isLoaded() const noexcept
	{
		return handle != nullptr;
	}

	bool SharedLibrary::load(const std::string& path)
	{
		return load(path.c_str());
	}

	bool SharedLibrary::load(const char* path)
	{
#if SOUP_WINDOWS
		handle = LoadLibraryA(path);
#else
		handle = dlopen(path, RTLD_LAZY);
#endif
		return isLoaded();
	}

	void SharedLibrary::unload()
	{
		if (isLoaded())
		{
#if SOUP_WINDOWS
			FreeLibrary(handle);
#else
			dlclose(handle);
#endif
			forget();
		}
	}

	void SharedLibrary::forget()
	{
		handle = nullptr;
	}

	void* SharedLibrary::getAddress(const char* name) const noexcept
	{
		SOUP_IF_UNLIKELY (!isLoaded())
		{
			return nullptr;
		}
#if SOUP_WINDOWS
		return (void*)GetProcAddress(handle, name);
#else
		return dlsym(handle, name);
#endif
	}

	void* SharedLibrary::getAddressMandatory(const char* name) const
	{
		SOUP_IF_LIKELY (auto addr = getAddress(name))
		{
			return addr;
		}
		std::string msg = "Failed to find mandatory symbol: ";
		msg.append(name);
		SOUP_THROW(Exception(std::move(msg)));
	}
}