module econf.econf;

import std.stdio;
import std.conv : to;
import std.string;
import std.array;
import std.file : readText;
import std.uni : isNumber;
import std.conv : parse;
import econf.tokens;
import econf.extra;

class EConf {
	private string f;
	EToken[int] toks_asnum;
	private string[string] toks;
	private EToken[string] toks_at_string;
	private int currtok=0;

	private void addTok(string str) {
		this.toks_asnum[currtok]=new EToken(str);
		this.currtok+=1;
	}

	private void toksToObject() {
		int j=0;
		while(j<toks_asnum.length) {
		  if(!this.toks_asnum[[j].getString() in this.toks]) {
			this.toks[this.toks_asnum[j].getString()]=
				this.toks_asnum[j+1].getString();
			this.toks_at_string[this.toks_asnum[j].getString()]=
				this.toks_asnum[j+1];
		  }
		  j+=2;
		}
	}

	this(string f) {
		this.f=f;
		int i=0;
		while(i<this.f.length) {
			if(this.f[i]==' '||this.f[i]=='\t'||this.f[i]=='\n') {i+=1; continue;}
			else if(this.f[i]=='#') {
				if(this.f.indexOf("\n")==-1) {
					break;
				}
				else {
					i=to!int(this.f.indexOf("\n")+1);
					continue;
				}
			}
			else {
				if(this.f[i]=='\"') {
					// STRING
					string temp_str="\"";
					for(int j=i+1; j<this.f.length; j++) {
						if(this.f[j]=='\"') {
							temp_str~="\"";
							i=j+1;
							j=to!int(this.f.length+1);
						}
						else {
							temp_str~=this.f[j];
						}
					}
					addTok(temp_str.strip());
					temp_str="";
				}
				else {
					// FLOAT, INTEGER OR IDENTIFIER
					if(isNumber(this.f[i])) {
						// FLOAT OR INTEGER
						string temp_num=""~this.f[i];
						for(int j=i+1; j<this.f.length; j++) {
							if(this.f[j]==' '
							 ||this.f[j]=='\"'
							 ||this.f[j]=='['
							 ||this.f[j]==']'
                             ||this.f[j]=='{'
                             ||this.f[j]=='}'
							 ||this.f[j]=='\t'
							 ||this.f[j]=='\n') {
								i=j;
								j=to!int(this.f.length+1);
							}
							else {
								temp_num~=this.f[j];
								if(j+1==this.f.length) {
									i=j+1;
								}
							}
						}
						addTok(temp_num.strip());
						temp_num="";
					}
					else if(this.f[i]!='['&&this.f[i]!=']'
                         &&this.f[i]!='{'&&this.f[i]!='}'){
						// IDENTIFIER
						string temp_i="";
						for(int j=i; j<this.f.length; j++) {
							if(this.f[j]==' '
							 ||this.f[j]=='\"'
							 ||this.f[j]=='['
							 ||this.f[j]==']'
                             ||this.f[j]=='{'
                             ||this.f[j]=='}'
							 ||isNumber(this.f[j])
							 ||this.f[j]=='\t'
							 ||this.f[j]=='\n') {
								i=j;
								j=to!int(this.f.length+1);
							}
							else {
								temp_i~=this.f[j];
								if(j+1==this.f.length) {
									i=j+1;
								}
							}
						}
						if(temp_i.strip()!="") addTok(temp_i.strip());
						temp_i="";
					}
					else {
						// START_ARRAY or END_ARRAY or START_OBJECT or END_OBJECT
						addTok(""~this.f[i]);
						i+=1;
					}
				}
			}
		}
		this.toks_asnum=EConfInitArrays(this.toks_asnum);
        this.toks_asnum=EConfInitObjects(this.toks_asnum);
		toksToObject();
	}

	template get(string name) {
		string Str() {
			if(name in this.toks) {
				return this.toks[name][1..$-1];
			}
			else {
				throw new StringException("Error: undefined token \""~
				    name~"\"!");
			}
		}
		string[int] StrArr() {
			if(name in this.toks) {
				EToken[int] chs=this.toks_at_string[name].childs;
				string[int] arr;
				for(int i=0; i<chs.length; i++) {
					arr[i]=chs[i].getString()[1..$-1];
				}
				return arr;
			}
			else {
				throw new StringException("Error: undefined token \""~
				    name~"\"!");
			}
		}
		int Int() {
			if(name in this.toks) {
				return to!int(this.toks[name]);
			}
			else {
				throw new StringException("Error: undefined token \""~
				    name~"\"!");
			}
		}
		float Float() {
			if(name in this.toks) {
				return to!float(this.toks[name]);
			}
			else {
				throw new StringException("Error: undefined token \""~
				    name~"\"!");
			}
		}
        int[int] IntArr() {
            if(name in this.toks) {
				EToken[int] chs=this.toks_at_string[name].childs;
				int[int] arr;
				for(int i=0; i<chs.length; i++) {
					arr[i]=to!int(chs[i].getString());
				}
				return arr;
			}
			else {
				throw new StringException("Error: undefined token \""~
				    name~"\"!");
			}
        }
        float[int] FloatArr() {
            if(name in this.toks) {
				EToken[int] chs=this.toks_at_string[name].childs;
				float[int] arr;
				for(int i=0; i<chs.length; i++) {
					arr[i]=to!float(chs[i].getString());
				}
				return arr;
			}
			else {
				throw new StringException("Error: undefined token \""~
				    name~"\"!");
			}
        }
        int Hex() {
            if(name in this.toks) {
				return to!int(this.toks[name][2..$],16);
			}
			else {
				throw new StringException("Error: undefined token \""~
				    name~"\"!");
			}
        }
        int[int] HexArr() {
            if(name in this.toks) {
				EToken[int] chs=this.toks_at_string[name].childs;
				int[int] arr;
				for(int i=0; i<chs.length; i++) {
					arr[i]=to!int(chs[i].getString(),16);
				}
				return arr;
			}
			else {
				throw new StringException("Error: undefined token \""~
				    name~"\"!");
			}
        }
        EToken[string] Obj() {
            if(name in this.toks) {
				EToken[int] chs=this.toks_at_string[name].childs;
				EToken[string] arr;
				int i=0;
                while(i<chs.length) {
                    arr[chs[i].getString()]=chs[i+1];
                    i+=2;
                }
				return arr;
			}
			else {
				throw new StringException("Error: undefined token \""~
				    name~"\"!");
			}
        }
	}
	template put(T) {
		T put(string name, T value) {
			T a;
			string b;
			if(typeid(a)==typeid(b)) {
				this.toks[name]="\""~value~"\"";
			}
			else {
				this.toks[name]=to!string(value);
			}
		}
	}
	string toksToString() {
		string all_toks="";
		int j=0;
		while(j<this.toks_asnum.length) {
			all_toks~=this.toks_asnum[j].getString()
			~" "~this.toks_asnum[j+1].getString()~"\n";
			j+=2;
		}
		return all_toks.strip();
	}
}