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
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
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
|
