Diskuze: Do čeho kompilovat?
Neregistrovaný
Neregistrovaný
Kdosi:12.10.2013 21:30
import std.conv;
import std.file;
struct Variable
{
string parent, visibility, name, value;
}
struct CMD
{
string name;
string[] parameters;
}
void main(string[] args)
{
string[]
strings,
variables;
CMD[] commands = ParseCMDs(ParseQuote(RemoveComments(ParseQuote(readText(args[1]), &strings, '\'', '$')), &variables, '`', '&'));
Variable[][] variableAreas;
foreach(variable; variables)
{
int count = variableAreas.length;
++variableAreas.length;
variableAreas[count] = ParseVars(variable);
}
write("model.tu", "");
foreach(vars; variableAreas)
foreach(var; vars)
append("model.tu", var.name ~ "\n");
}
string ParseQuote(string source, string[]* specifics, int mark, char literal)
{
string
result = "",
specific = "",
demiliter = "",
potDemiliter = "";
string* target = &result;
foreach(letter; source)
switch(letter)
{
case mark:
if(target == &demiliter)
{
target = &specific;
break;
}
else if(target == &specific)
target = &potDemiliter;
else if(target == &potDemiliter)
{
if(demiliter == potDemiliter)
{
int count = (*specifics).length;
++(*specifics).length;
target = &result;
(*specifics)[count] = specific;
potDemiliter = demiliter = specific = "";
result ~= literal ~ to!string(count);
break;
}
else
{
target = &specific;
specific ~= potDemiliter;
potDemiliter = "";
}
}
else
target = &demiliter;
goto default;
case 10:
if(target == &specific)
specific ~= "\\n";
else
result ~= ' ';
break;
case 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31:
if(target == &specific)
specific ~= letter;
break;
default:
*target ~= letter;
break;
}
return result;
}
string RemoveComments(string source)
{
int
quote = 0,
potQuote = 0;
string result = "";
bool close = true;
foreach(letter; source)
if(close)
{
if(letter == '"')
quote++;
else if(quote > 0)
close = false;
else
result ~= letter;
}
else if(letter == '"')
potQuote++;
else if(quote == potQuote)
{
close = true;
quote = potQuote = 0;
}
else
potQuote = 0;
return result;
}
Variable[] ParseVars(string source)
{
string
visibility = "",
lastParent = "",
lastVisibility = "";
string[] target = [ "", "", "" ];
Variable[] result;
short whitespace = 0;
source ~= 32;
foreach(letter; source)
switch(letter)
{
case '=':
whitespace = 2;
break;
case '+', '-':
visibility ~= letter;
break;
case ';':
target[2] = "none";
case 32:
if(whitespace == 0 && target[0] != "")
whitespace = 1;
if(target[2] != "")
{
int count = result.length;
if(target[0] == ".")
{
target[0] = lastParent;
visibility ~= lastVisibility;
}
else if(target[1] == "")
{
target[1] = target[0];
target[0] = "";
}
++result.length;
lastParent = target[0];
lastVisibility = visibility;
result[count] = Variable(lastParent, visibility, target[1], target[2]);
target[] = visibility = "";
whitespace = 0;
}
break;
default:
target[whitespace] ~= letter;
break;
}
return result;
}
CMD[] ParseCMDs(string source)
{
string
value = "",
name = "";
string[] values;
string* target = &name;
bool
stay = false,
noSplit = true,
noIgnor = true;
CMD[] result;
foreach(letter; source)
switch(letter)
{
case '<':
int count = result.length;
++result.length;
result[count] = CMD("<", null);
break;
case '+', '-', '*', '/', '^', '~', '(', ')':
noSplit = false;
*target ~= letter;
break;
case ',':
stay = true;
case 32:
noIgnor = true;
break;
default:
if(noIgnor && noSplit)
{
if(value != "" || stay)
{
int count = values.length;
++values.length;
values[count] = value;
value = "";
if(stay)
stay = false;
else
{
count = result.length;
++result.length;
result[count] = CMD(name, values);
name = "";
values = [];
target = &name;
}
}
else if(name != "")
target = &value;
}
*target ~= letter;
noIgnor = false;
noSplit = true;
break;
}
return result;
}Trochu prasekódu nikdy neuškodí... 
Dalším objektem je pak
interpreter...
Co tedy říkáte na syntax?
Zobrazeno 22 zpráv z 72.