1 files changed, 164 insertions, 0 deletions
diff --git a/sc4pd/headers/lang/SC_LanguageClient.h b/sc4pd/headers/lang/SC_LanguageClient.h
new file mode 100644
index 0000000..b7a499c
--- /dev/null
+++ b/sc4pd/headers/lang/SC_LanguageClient.h
@@ -0,0 +1,164 @@
+// emacs:		-*- c++ -*-
+// file:		SC_LanguageClient.h
+// copyright:	2003 stefan kersten <steve@k-hornz.de>
+// cvs:			$Id: SC_LanguageClient.h,v 1.1.1.1 2004-07-14 16:21:17 timblech Exp $
+
+// This program is free software; you can redistribute it and/or
+// modify it under the terms of the GNU General Public License as
+// published by the Free Software Foundation; either version 2 of the
+// License, or (at your option) any later version.
+//
+// This program is distributed in the hope that it will be useful, but
+// WITHOUT ANY WARRANTY; without even the implied warranty of
+// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
+// General Public License for more details.
+//
+// You should have received a copy of the GNU General Public License
+// along with this program; if not, write to the Free Software
+// Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307
+// USA
+
+#ifndef SC_LANGUAGECLIENT_H_INCLUDED
+#define SC_LANGUAGECLIENT_H_INCLUDED
+
+#include "SC_StringBuffer.h"
+#include <pthread.h>
+#include <stdarg.h>
+#include <stdio.h>
+
+// =====================================================================
+// SC_LanguageClient - abstract sclang client.
+// =====================================================================
+
+struct PyrSymbol;
+struct VMGlobals;
+
+extern long compiledOK;
+extern pthread_mutex_t gLangMutex;
+extern VMGlobals* gMainVMGlobals;
+
+class SC_LanguageClient
+{
+public:
+	struct Options
+	{
+		Options()
+			: mMemSpace(2*1024*1024),
+			  mMemGrow(256*1024),
+			  mPort(57120),
+			  mRuntimeDir(0)
+		{ }
+
+		int				mMemSpace;				// memory space in bytes
+		int				mMemGrow;				// memory growth in bytes
+		int				mPort;					// network port number
+		char*			mRuntimeDir;			// runtime directory
+	};
+
+public:
+	// create singleton instance
+	SC_LanguageClient(const char* name);
+	virtual ~SC_LanguageClient();
+
+	// return the singleton instance
+	static SC_LanguageClient* instance() { return gInstance; }
+
+	// initialize language runtime
+	void initRuntime(const Options& opt=Options());
+
+	// return application name
+	const char* getName() const { return mName; }
+
+	// library startup/shutdown
+	bool readLibraryConfig(const char* filePath, const char* fileName=0);
+	bool readDefaultLibraryConfig();
+	bool isLibraryCompiled() { return compiledOK; }
+	void compileLibrary();
+	void shutdownLibrary();
+	void recompileLibrary();
+
+	// interpreter access
+	void lock() { pthread_mutex_lock(&gLangMutex); }
+	bool trylock() { return pthread_mutex_trylock(&gLangMutex) == 0; }
+	void unlock() { pthread_mutex_unlock(&gLangMutex); }
+
+	VMGlobals* getVMGlobals() { return gMainVMGlobals; }
+
+	void setCmdLine(const char* buf, size_t size);
+	void setCmdLine(const char* str);
+	void setCmdLine(const SC_StringBuffer& strBuf);
+	void setCmdLinef(const char* fmt, ...);
+	void runLibrary(PyrSymbol* pyrSymbol);
+	void runLibrary(const char* methodName);
+	void interpretCmdLine() { runLibrary(s_interpretCmdLine); }
+	void interpretPrintCmdLine() { runLibrary(s_interpretPrintCmdLine); }
+	void executeFile(const char* fileName);
+	void runMain() { runLibrary(s_run); }
+	void stopMain() { runLibrary(s_stop); }
+
+	// post file access
+	FILE* getPostFile() { return mPostFile; }
+	void setPostFile(FILE* file) { mPostFile = file; }
+
+	// post buffer output (subclass responsibility)
+	//     these routines should be thread-save.
+	virtual void post(const char *fmt, va_list ap, bool error) = 0;
+	virtual void post(char c) = 0;
+	virtual void post(const char* str, size_t len) = 0;
+	virtual void flush() = 0;
+
+	// common symbols
+	//     only valid after the library has been compiled.
+	static PyrSymbol* s_interpretCmdLine;
+	static PyrSymbol* s_interpretPrintCmdLine;
+	static PyrSymbol* s_run;
+	static PyrSymbol* s_stop;
+
+	// command line argument handling utilities
+	static void snprintMemArg(char* dst, size_t size, int arg);
+	static bool parseMemArg(const char* arg, int* res);
+	static bool parsePortArg(const char* arg, int* res);
+
+protected:
+	// AppClock driver
+	//    to be called from client mainloop.
+	void tick();
+
+	// language notifications, subclasses can override
+
+	// called after language runtime has been initialized
+	virtual void onInitRuntime();
+	// called after the library has been compiled
+	virtual void onLibraryStartup();
+	// called before the library is shut down
+	virtual void onLibraryShutdown();
+	// called after the interpreter has been started
+	virtual void onInterpStartup();
+
+private:
+	friend void closeAllGUIScreens();
+	friend void initGUIPrimitives();
+	friend void initGUI();
+
+private:
+	char*						mName;
+	FILE*						mPostFile;
+	SC_StringBuffer				mScratch;
+	bool						mRunning;
+	static SC_LanguageClient*	gInstance;
+};
+
+// =====================================================================
+// library functions
+// =====================================================================
+
+extern void setPostFile(FILE* file);
+extern "C" int vpost(const char *fmt, va_list vargs);
+extern void post(const char *fmt, ...);
+extern void postfl(const char *fmt, ...);
+extern void postText(const char *text, long length);
+extern void postChar(char c);
+extern void error(const char *fmt, ...);
+extern void flushPostBuf();
+
+#endif // SC_LANGUAGECLIENT_H_INCLUDED