Gathered common functions into new source files

svn-id: r15743

1 files changed, 30 insertions, 0 deletions

diff --git a/backends/PalmOS/Src/init_mathlib.cpp b/backends/PalmOS/Src/init_mathlib.cpp
new file mode 100644
index 0000000000..6fd4931236
--- /dev/null
+++ b/backends/PalmOS/Src/init_mathlib.cpp
@@ -0,0 +1,30 @@
+#include <PalmOS.h>
+#include "enginersc.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