Moving remaining platform/backends code, as previously threatened

svn-id: r23380

1 files changed, 29 insertions, 0 deletions

diff --git a/backends/platform/PalmOS/Src/init_mathlib.cpp b/backends/platform/PalmOS/Src/init_mathlib.cpp
new file mode 100644
index 0000000000..88cf8a21f2
--- /dev/null
+++ b/backends/platform/PalmOS/Src/init_mathlib.cpp
@@ -0,0 +1,29 @@
+#include <PalmOS.h>
+
+#include "globals.h"
+#include "init_mathlib.h"
+#include "mathlib.h"
+
+Err MathlibInit() {
+	Err e;
+
+	if ((e = SysLibFind(MathLibName, &MathLibRef)))
+		if (e == sysErrLibNotFound)									// couldn't find lib
+			e = SysLibLoad(LibType, MathLibCreator, &MathLibRef);
+
+	if (e) return sysErrLibNotFound;
+
+	e = MathLibOpen(MathLibRef, MathLibVersion);
+	return e;
+}
+
+void MathlibRelease() {
+	UInt16 useCount;
+
+	if (MathLibRef != sysInvalidRefNum) {
+		MathLibClose(MathLibRef, &useCount);
+
+		if (!useCount)
+			SysLibRemove(MathLibRef);
+	}
+}
\ No newline at end of file