Holy fucking shit I don't want to work on this. Sibly, you son of a ...
This commit is contained in:
Michael Fabain Dirks
+177
-171
@@ -17,13 +17,13 @@ Environ *runtimeEnviron;
|
||||
vector<string> keyWords;
|
||||
vector<UserFunc> userFuncs;
|
||||
|
||||
static HMODULE linkerHMOD,runtimeHMOD;
|
||||
static HMODULE linkerHMOD, runtimeHMOD;
|
||||
|
||||
static Type *typeof( int c ){
|
||||
switch( c ){
|
||||
case '%':return Type::int_type;
|
||||
case '#':return Type::float_type;
|
||||
case '$':return Type::string_type;
|
||||
static Type *typeof(int c) {
|
||||
switch (c) {
|
||||
case '%':return Type::int_type;
|
||||
case '#':return Type::float_type;
|
||||
case '$':return Type::string_type;
|
||||
}
|
||||
return Type::void_type;
|
||||
}
|
||||
@@ -31,255 +31,261 @@ static Type *typeof( int c ){
|
||||
static int curr;
|
||||
static string text;
|
||||
|
||||
static int next( istream &in ){
|
||||
static int next(istream &in) {
|
||||
|
||||
text="";
|
||||
text = "";
|
||||
|
||||
int t=0;
|
||||
int t = 0;
|
||||
|
||||
for(;;){
|
||||
while( isspace( in.peek() ) ) in.get();
|
||||
if( in.eof() ) return curr=0;
|
||||
t=in.get();if( t!=';' ) break;
|
||||
while( !in.eof() && in.get()!='\n' ){}
|
||||
for (;;) {
|
||||
while (isspace(in.peek())) in.get();
|
||||
if (in.eof()) return curr = 0;
|
||||
t = in.get(); if (t != ';') break;
|
||||
while (!in.eof() && in.get() != '\n') {}
|
||||
}
|
||||
|
||||
if( isalpha(t) ){
|
||||
text+=(char)t;
|
||||
while( isalnum( in.peek() ) || in.peek()=='_' ) text+=(char)in.get();
|
||||
return curr=-1;
|
||||
if (isalpha(t)) {
|
||||
text += (char)t;
|
||||
while (isalnum(in.peek()) || in.peek() == '_') text += (char)in.get();
|
||||
return curr = -1;
|
||||
}
|
||||
if( t=='\"' ){
|
||||
while( in.peek()!='\"' ) text=text+(char)in.get();
|
||||
if (t == '\"') {
|
||||
while (in.peek() != '\"') text = text + (char)in.get();
|
||||
in.get();
|
||||
return curr=-2;
|
||||
return curr = -2;
|
||||
}
|
||||
|
||||
return curr=t;
|
||||
return curr = t;
|
||||
}
|
||||
|
||||
static const char *linkRuntime(){
|
||||
static const char *linkRuntime() {
|
||||
|
||||
while( const char *sym=runtimeLib->nextSym() ){
|
||||
while (const char *sym = runtimeLib->nextSym()) {
|
||||
|
||||
string s( sym );
|
||||
string s(sym);
|
||||
|
||||
int pc=runtimeLib->symValue(sym);
|
||||
int pc = runtimeLib->symValue(sym);
|
||||
|
||||
//internal?
|
||||
if( s[0]=='_' ){
|
||||
runtimeModule->addSymbol( ("_"+s).c_str(),pc );
|
||||
if (s[0] == '_') {
|
||||
runtimeModule->addSymbol(("_" + s).c_str(), pc);
|
||||
continue;
|
||||
}
|
||||
|
||||
bool cfunc=false;
|
||||
bool cfunc = false;
|
||||
|
||||
if( s[0]=='!' ){
|
||||
cfunc=true;
|
||||
s=s.substr(1);
|
||||
if (s[0] == '!') {
|
||||
cfunc = true;
|
||||
s = s.substr(1);
|
||||
}
|
||||
|
||||
keyWords.push_back( s );
|
||||
keyWords.push_back(s);
|
||||
|
||||
//global!
|
||||
int start=0,end;
|
||||
Type *t=Type::void_type;
|
||||
if( !isalpha( s[0] ) ){ start=1;t=typeof( s[0] ); }
|
||||
for( int k=1;k<s.size();++k ){
|
||||
if( !isalnum( s[k] ) && s[k]!='_' ) break;
|
||||
int start = 0, end, k;
|
||||
Type *t = Type::void_type;
|
||||
if (!isalpha(s[0])) { start = 1; t = typeof(s[0]); }
|
||||
for (k = 1; k < s.size(); ++k, end = k) {
|
||||
if (!isalnum(s[k]) && s[k] != '_') break;
|
||||
}
|
||||
end=k;
|
||||
DeclSeq *params=d_new DeclSeq();
|
||||
string n=s.substr( start,end-start );
|
||||
while( k<s.size() ){
|
||||
Type *t=typeof(s[k++]);
|
||||
int from=k;
|
||||
for( ;isalnum(s[k])||s[k]=='_';++k ){}
|
||||
string str=s.substr( from,k-from );
|
||||
ConstType *defType=0;
|
||||
if( s[k]=='=' ){
|
||||
int from=++k;
|
||||
if( s[k]=='\"' ){
|
||||
for( ++k;s[k]!='\"';++k ){}
|
||||
string t=s.substr( from+1,k-from-1 );
|
||||
defType=d_new ConstType( t );++k;
|
||||
}else{
|
||||
if( s[k]=='-' ) ++k;
|
||||
for( ;isdigit( s[k] );++k ){}
|
||||
if( t==Type::int_type ){
|
||||
int n=atoi( s.substr( from,k-from ) );
|
||||
defType=d_new ConstType( n );
|
||||
}else{
|
||||
float n=atof( s.substr( from,k-from ) );
|
||||
defType=d_new ConstType( n );
|
||||
DeclSeq *params = d_new DeclSeq();
|
||||
string n = s.substr(start, end - start);
|
||||
while (k < s.size()) {
|
||||
Type *t = typeof(s[k++]);
|
||||
int from = k;
|
||||
for (; isalnum(s[k]) || s[k] == '_'; ++k) {}
|
||||
string str = s.substr(from, k - from);
|
||||
ConstType *defType = 0;
|
||||
if (s[k] == '=') {
|
||||
int from = ++k;
|
||||
if (s[k] == '\"') {
|
||||
for (++k; s[k] != '\"'; ++k) {}
|
||||
string t = s.substr(from + 1, k - from - 1);
|
||||
defType = d_new ConstType(t); ++k;
|
||||
} else {
|
||||
if (s[k] == '-') ++k;
|
||||
for (; isdigit(s[k]); ++k) {}
|
||||
if (t == Type::int_type) {
|
||||
int n = atoi(s.substr(from, k - from));
|
||||
defType = d_new ConstType(n);
|
||||
} else {
|
||||
float n = atof(s.substr(from, k - from));
|
||||
defType = d_new ConstType(n);
|
||||
}
|
||||
}
|
||||
}
|
||||
Decl *d=params->insertDecl( str,t,DECL_PARAM,defType );
|
||||
Decl *d = params->insertDecl(str, t, DECL_PARAM, defType);
|
||||
}
|
||||
|
||||
FuncType *f=d_new FuncType( t,params,false,cfunc );
|
||||
n=tolower(n);
|
||||
runtimeEnviron->funcDecls->insertDecl( n,f,DECL_FUNC );
|
||||
runtimeModule->addSymbol( ("_f"+n).c_str(),pc );
|
||||
FuncType *f = d_new FuncType(t, params, false, cfunc);
|
||||
n = tolower(n);
|
||||
runtimeEnviron->funcDecls->insertDecl(n, f, DECL_FUNC);
|
||||
runtimeModule->addSymbol(("_f" + n).c_str(), pc);
|
||||
}
|
||||
return 0;
|
||||
}
|
||||
|
||||
static set<string> _ulibkws;
|
||||
|
||||
static const char *loadUserLib( const string &userlib ){
|
||||
static const char *loadUserLib(const string &userlib) {
|
||||
|
||||
string t=home+"/userlibs/"+userlib;
|
||||
string t = home + "/userlibs/" + userlib;
|
||||
|
||||
string lib="";
|
||||
string lib = "";
|
||||
ifstream in(t.c_str());
|
||||
|
||||
next(in);
|
||||
while( curr ){
|
||||
while (curr) {
|
||||
|
||||
if( curr=='.' ){
|
||||
if (curr == '.') {
|
||||
|
||||
if( next(in)!=-1 ) return "expecting identifier after '.'";
|
||||
if (next(in) != -1) return "expecting identifier after '.'";
|
||||
|
||||
if( text=="lib" ){
|
||||
if( next(in)!=-2 ) return "expecting string after lib directive";
|
||||
lib=text;
|
||||
if (text == "lib") {
|
||||
if (next(in) != -2) return "expecting string after lib directive";
|
||||
lib = text;
|
||||
|
||||
}else{
|
||||
} else {
|
||||
return "unknown decl directive";
|
||||
}
|
||||
next( in );
|
||||
|
||||
}else if( curr==-1 ){
|
||||
|
||||
if( !lib.size() ) return "function decl without lib directive";
|
||||
|
||||
string id=text;
|
||||
string lower_id=tolower(id);
|
||||
|
||||
if( _ulibkws.count( lower_id ) ) return "duplicate identifier";
|
||||
_ulibkws.insert( lower_id );
|
||||
|
||||
Type *ty=0;
|
||||
switch( next(in) ){
|
||||
case '%':ty=Type::int_type;break;
|
||||
case '#':ty=Type::float_type;break;
|
||||
case '$':ty=Type::string_type;break;
|
||||
}
|
||||
if( ty ) next(in);
|
||||
else ty=Type::void_type;
|
||||
|
||||
DeclSeq *params=d_new DeclSeq();
|
||||
|
||||
if( curr!='(' ) return "expecting '(' after function identifier";
|
||||
next(in);
|
||||
if( curr!=')' ){
|
||||
for(;;){
|
||||
if( curr!=-1 ) break;
|
||||
string arg=text;
|
||||
|
||||
Type *ty=0;
|
||||
switch( next(in) ){
|
||||
case '%':ty=Type::int_type;break;
|
||||
case '#':ty=Type::float_type;break;
|
||||
case '$':ty=Type::string_type;break;
|
||||
case '*':ty=Type::null_type;break;
|
||||
} else if (curr == -1) {
|
||||
|
||||
if (!lib.size()) return "function decl without lib directive";
|
||||
|
||||
string id = text;
|
||||
string lower_id = tolower(id);
|
||||
|
||||
if (_ulibkws.count(lower_id)) return "duplicate identifier";
|
||||
_ulibkws.insert(lower_id);
|
||||
|
||||
Type *ty = 0;
|
||||
switch (next(in)) {
|
||||
case '%':ty = Type::int_type; break;
|
||||
case '#':ty = Type::float_type; break;
|
||||
case '$':ty = Type::string_type; break;
|
||||
}
|
||||
if (ty) next(in);
|
||||
else ty = Type::void_type;
|
||||
|
||||
DeclSeq *params = d_new DeclSeq();
|
||||
|
||||
if (curr != '(') return "expecting '(' after function identifier";
|
||||
next(in);
|
||||
if (curr != ')') {
|
||||
for (;;) {
|
||||
if (curr != -1) break;
|
||||
string arg = text;
|
||||
|
||||
Type *ty = 0;
|
||||
switch (next(in)) {
|
||||
case '%':ty = Type::int_type; break;
|
||||
case '#':ty = Type::float_type; break;
|
||||
case '$':ty = Type::string_type; break;
|
||||
case '*':ty = Type::null_type; break;
|
||||
}
|
||||
if( ty ) next(in);
|
||||
else ty=Type::int_type;
|
||||
if (ty) next(in);
|
||||
else ty = Type::int_type;
|
||||
|
||||
ConstType *defType=0;
|
||||
ConstType *defType = 0;
|
||||
|
||||
Decl *d=params->insertDecl( arg,ty,DECL_PARAM,defType );
|
||||
Decl *d = params->insertDecl(arg, ty, DECL_PARAM, defType);
|
||||
|
||||
if( curr!=',' ) break;
|
||||
if (curr != ',') break;
|
||||
next(in);
|
||||
}
|
||||
}
|
||||
if( curr!=')' ) return "expecting ')' after function decl";
|
||||
if (curr != ')') return "expecting ')' after function decl";
|
||||
|
||||
keyWords.push_back( id );
|
||||
keyWords.push_back(id);
|
||||
|
||||
FuncType *fn=d_new FuncType( ty,params,true,true );
|
||||
FuncType *fn = d_new FuncType(ty, params, true, true);
|
||||
|
||||
runtimeEnviron->funcDecls->insertDecl( lower_id,fn,DECL_FUNC );
|
||||
runtimeEnviron->funcDecls->insertDecl(lower_id, fn, DECL_FUNC);
|
||||
|
||||
if( next(in)==':' ){ //real name?
|
||||
if (next(in) == ':') { //real name?
|
||||
next(in);
|
||||
if( curr!=-1 && curr!=-2 ) return "expecting identifier or string after alias";
|
||||
id=text;
|
||||
if (curr != -1 && curr != -2) return "expecting identifier or string after alias";
|
||||
id = text;
|
||||
next(in);
|
||||
}
|
||||
|
||||
userFuncs.push_back( UserFunc( lower_id,id,lib ) );
|
||||
userFuncs.push_back(UserFunc(lower_id, id, lib));
|
||||
}
|
||||
}
|
||||
return 0;
|
||||
}
|
||||
|
||||
static const char *linkUserLibs(){
|
||||
static const char *linkUserLibs() {
|
||||
|
||||
_ulibkws.clear();
|
||||
|
||||
WIN32_FIND_DATA fd;
|
||||
|
||||
HANDLE h=FindFirstFile( (home+"/userlibs/*.decls").c_str(),&fd );
|
||||
HANDLE h = FindFirstFile((home + "/userlibs/*.decls").c_str(), &fd);
|
||||
|
||||
if( h==INVALID_HANDLE_VALUE ) return 0;
|
||||
if (h == INVALID_HANDLE_VALUE) return 0;
|
||||
|
||||
const char *err=0;
|
||||
const char *err = 0;
|
||||
|
||||
do{
|
||||
if( err=loadUserLib( fd.cFileName ) ){
|
||||
do {
|
||||
if (err = loadUserLib(fd.cFileName)) {
|
||||
static char buf[64];
|
||||
sprintf( buf,"Error in userlib '%s' - %s",fd.cFileName,err );
|
||||
err=buf;break;
|
||||
sprintf(buf, "Error in userlib '%s' - %s", fd.cFileName, err);
|
||||
err = buf; break;
|
||||
}
|
||||
|
||||
}while( FindNextFile( h,&fd ) );
|
||||
} while (FindNextFile(h, &fd));
|
||||
|
||||
FindClose( h );
|
||||
FindClose(h);
|
||||
|
||||
_ulibkws.clear();
|
||||
|
||||
return err;
|
||||
}
|
||||
|
||||
const char *openLibs(){
|
||||
|
||||
char *p=getenv( "blitzpath" );
|
||||
if( !p ) return "Can't find blitzpath environment variable";
|
||||
home=string(p);
|
||||
const char *openLibs() {
|
||||
|
||||
linkerHMOD=LoadLibrary( (home+"/bin/linker.dll").c_str() );
|
||||
if( !linkerHMOD ) return "Unable to open linker.dll";
|
||||
/*char *p = getenv("blitzpath");
|
||||
if (!p) return "Can't find blitzpath environment variable";
|
||||
*/
|
||||
char* buf = new char[MAX_PATH];
|
||||
GetModuleFileName(NULL, buf, MAX_PATH);
|
||||
home = string(buf);
|
||||
delete buf;
|
||||
|
||||
string::size_type pos = home.find_last_of("\\/");
|
||||
home = home.substr(0, pos);
|
||||
|
||||
linkerHMOD = LoadLibrary((home + "\\linker.dll").c_str());
|
||||
if (!linkerHMOD) return "Unable to open linker.dll";
|
||||
|
||||
typedef Linker *(_cdecl*GetLinker)();
|
||||
GetLinker gl=(GetLinker)GetProcAddress( linkerHMOD,"linkerGetLinker" );
|
||||
if( !gl ) return "Error in linker.dll";
|
||||
linkerLib=gl();
|
||||
GetLinker gl = (GetLinker)GetProcAddress(linkerHMOD, "linkerGetLinker");
|
||||
if (!gl) return "Error in linker.dll";
|
||||
linkerLib = gl();
|
||||
|
||||
runtimeHMOD=LoadLibrary( (home+"/bin/runtime.dll").c_str() );
|
||||
if( !runtimeHMOD ) return "Unable to open runtime.dll";
|
||||
runtimeHMOD = LoadLibrary((home + "\\runtime.dll").c_str());
|
||||
if (!runtimeHMOD) return "Unable to open runtime.dll";
|
||||
|
||||
typedef Runtime *(_cdecl*GetRuntime)();
|
||||
GetRuntime gr=(GetRuntime)GetProcAddress( runtimeHMOD,"runtimeGetRuntime" );
|
||||
if( !gr ) return "Error in runtime.dll";
|
||||
runtimeLib=gr();
|
||||
GetRuntime gr = (GetRuntime)GetProcAddress(runtimeHMOD, "runtimeGetRuntime");
|
||||
if (!gr) return "Error in runtime.dll";
|
||||
runtimeLib = gr();
|
||||
|
||||
bcc_ver=VERSION;
|
||||
lnk_ver=linkerLib->version();
|
||||
run_ver=runtimeLib->version();
|
||||
bcc_ver = VERSION;
|
||||
lnk_ver = linkerLib->version();
|
||||
run_ver = runtimeLib->version();
|
||||
|
||||
if( (lnk_ver>>16)!=(bcc_ver>>16) ||
|
||||
(run_ver>>16)!=(bcc_ver>>16) ||
|
||||
(lnk_ver>>16)!=(bcc_ver>>16) ) return "Library version error";
|
||||
if ((lnk_ver >> 16) != (bcc_ver >> 16) ||
|
||||
(run_ver >> 16) != (bcc_ver >> 16) ||
|
||||
(lnk_ver >> 16) != (bcc_ver >> 16)) return "Library version error";
|
||||
|
||||
runtimeLib->startup( GetModuleHandle(0) );
|
||||
runtimeLib->startup(GetModuleHandle(0));
|
||||
|
||||
runtimeModule=linkerLib->createModule();
|
||||
runtimeEnviron=d_new Environ( "",Type::int_type,0,0 );
|
||||
runtimeModule = linkerLib->createModule();
|
||||
runtimeEnviron = d_new Environ("", Type::int_type, 0, 0);
|
||||
|
||||
keyWords.clear();
|
||||
userFuncs.clear();
|
||||
@@ -287,26 +293,26 @@ const char *openLibs(){
|
||||
return 0;
|
||||
}
|
||||
|
||||
const char *linkLibs(){
|
||||
const char *linkLibs() {
|
||||
|
||||
if( const char *p=linkRuntime() ) return p;
|
||||
if (const char *p = linkRuntime()) return p;
|
||||
|
||||
if( const char *p=linkUserLibs() ) return p;
|
||||
if (const char *p = linkUserLibs()) return p;
|
||||
|
||||
return 0;
|
||||
}
|
||||
|
||||
void closeLibs(){
|
||||
void closeLibs() {
|
||||
|
||||
delete runtimeEnviron;
|
||||
if( linkerLib ) linkerLib->deleteModule( runtimeModule );
|
||||
if( runtimeLib ) runtimeLib->shutdown();
|
||||
if( runtimeHMOD ) FreeLibrary( runtimeHMOD );
|
||||
if( linkerHMOD ) FreeLibrary( linkerHMOD );
|
||||
if (linkerLib) linkerLib->deleteModule(runtimeModule);
|
||||
if (runtimeLib) runtimeLib->shutdown();
|
||||
if (runtimeHMOD) FreeLibrary(runtimeHMOD);
|
||||
if (linkerHMOD) FreeLibrary(linkerHMOD);
|
||||
|
||||
runtimeEnviron=0;
|
||||
linkerLib=0;
|
||||
runtimeLib=0;
|
||||
runtimeHMOD=0;
|
||||
linkerHMOD=0;
|
||||
runtimeEnviron = 0;
|
||||
linkerLib = 0;
|
||||
runtimeLib = 0;
|
||||
runtimeHMOD = 0;
|
||||
linkerHMOD = 0;
|
||||
}
|
||||
|
||||
Reference in New Issue
Block a user