public async Task DefineExpansion()
{
var programText = "$def stripspaces strip\n: getprepend (playerdbref -- string)\n \"_whisp/prepend\" getpropstr dup not if\n me @ \"_whisp/prepend\" \"W>>>\" setprop \n else stripspaces \" \" strcat\n then\n;";
var prep = await ForthPreprocessor.Preprocess(Dbref.NOT_FOUND, null, programText, CancellationToken.None);
Assert.IsTrue(prep.IsSuccessful);
Assert.NotNull(prep.ProcessedProgram);
Assert.IsFalse(prep.ProcessedProgram !.Contains(" strip ", System.StringComparison.OrdinalIgnoreCase));
}
public async Task KeepVars()
{
const string programText = ": parse_args[ dict:opts str:args int:ignore -- arr:opts 0 | 1 ]\n 1 var! firstopt\n begin\n args @ striplead \" \" split args !\n dup while\n \n dup \"{#|#by}\" smatch if pop show_usage 1 exit then\n \n firstopt @ if\n 0 firstopt !\n ignore @ if\n dup \"#help\" swap stringpfx if pop continue then\n dup \"#default\" swap 3 stringminpfx if pop continue then\n dup \"#reset\" swap stringpfx if pop continue then\n$iflib $adultlock\n dup \"#adult\" swap stringpfx if pop continue then\n dup \"#prude\" swap stringpfx if pop continue then\n$endif\n dup \"#never\" swap stringpfx over strlen 2 > and if pop continue then\n dup \"#always\" swap stringpfx if pop continue then\n dup \"#whereis\" swap stringpfx if pop continue then\n dup \"#set\" swap stringpfx if pop continue then\n dup \"#setdir\" swap stringpfx if pop continue then\n else\n dup \"#help\" swap stringpfx if pop show_usage_long 1 exit then\n dup \"#default\" swap 3 stringminpfx if pop args @ set_default 1 exit then\n dup \"#reset\" swap stringpfx if pop \"\" set_default 1 exit then\n$iflib $adultlock\n compare-my-age if\n dup \"#adult\" swap stringpfx if pop 1 set_adult 1 exit then\n dup \"#prude\" swap stringpfx if pop 0 set_adult 1 exit then\n then\n$endif\n dup \"#never\" swap stringpfx over strlen 2 > and if pop set_never 1 exit then\n dup \"#always\" swap stringpfx if pop set_always 1 exit then\n dup \"#whereis\" swap stringpfx if pop set_whereis 1 exit then\n dup \"#set\" swap stringpfx if pop args @ set_wa_prop 1 exit then\n dup \"#setdir\" swap stringpfx if pop args @ set_wadir_prop 1 exit then\n then\n then\n \n dup \"#names\" swap stringpfx if pop \"names\" opts @ \"optcol\" ->[] opts ! continue then\n dup \"#comments\" swap stringpfx if pop \"#notes\" then\n dup \"#notes\" swap stringpfx if pop \"notes\" opts @ \"optcol\" ->[] opts ! continue then\n dup \"#wfnames\" swap stringpfx if pop \"wfnames\" opts @ \"optcol\" ->[] opts ! continue then\n dup \"#directions\" swap stringpfx if pop \"dir\" opts @ \"optcol\" ->[] opts ! continue then\n \n dup \"#bycount\" swap stringpfx if pop \"cnt\" opts @ \"sortcol\" ->[] opts ! continue then\n dup \"#byactive\" swap stringpfx if pop \"act\" opts @ \"sortcol\" ->[] opts ! continue then\n dup \"#bywfl\" swap stringpfx if pop \"#bywatchfor\" then\n dup \"#bywatchfor\" swap stringpfx if pop \"wfl\" opts @ \"sortcol\" ->[] opts ! 1 opts @ \"mincnt\" ->[] opts ! continue then\n dup \"#byroom\" swap stringpfx if pop \"locname\" opts @ \"sortcol\" ->[] 1 swap \"ascend\" ->[] opts ! continue then\n \n dup \"#old\" swap stringpfx if pop \"old\" opts @ \"style\" ->[] \"2ln\" swap \"format\" ->[] opts ! continue then\n dup \"#new\" swap stringpfx if pop \"new\" opts @ \"style\" ->[] \"col\" swap \"format\" ->[] opts ! continue then\n \n dup \"#columnar\" swap stringpfx if pop \"col\" opts @ \"format\" ->[] opts ! continue then\n dup \"#twoline\" swap stringpfx if pop \"2ln\" opts @ \"format\" ->[] opts ! continue then\n dup \"#oneline\" swap stringpfx if pop \"1ln\" opts @ \"format\" ->[] opts ! continue then\n \n dup \"#quell\" swap stringpfx if pop \"yes\" opts @ \"quell\" ->[] opts ! continue then\n dup \"#all\" swap stringpfx if pop 1 opts @ \"showall\" ->[] opts ! continue then\n dup \"#reversed\" swap stringpfx if pop opts @ \"ascend\" [] not opts @ \"ascend\" ->[] opts ! continue then\n \n dup number? if atoi opts @ \"mincnt\" ->[] opts ! continue then\n ignore @ not if\n pop show_usage 1 exit\n then\n repeat pop\n opts @ 0\n;";
var preproc = await ForthPreprocessor.Preprocess(Dbref.NOT_FOUND, null, programText, CancellationToken.None);
Assert.NotNull(preproc.ProcessedProgram);
var result = await ForthTokenizer.Tokenzie(null, preproc.ProcessedProgram !, new System.Collections.Generic.Dictionary <string, ForthVariable>());
Assert.NotNull(result);
}
public async Task NestedIfDefs2()
{
var script = new Script
{
programText = "$def FLAG\r\n$ifdef FLAG\r\n$ifdef FLAG2\r\n2 2\r\n$else\r\n3 3\r\r$endif\r\n$else\r\n4 4\r\n$endif"
};
var prep = await ForthPreprocessor.Preprocess(Dbref.NOT_FOUND, script, script.programText, CancellationToken.None);
Assert.IsTrue(prep.IsSuccessful);
Assert.AreEqual("3 3", prep.ProcessedProgram?.TrimEnd(new char[] { '\r', '\n' }));
}
public async Task NestedIfDefs()
{
var script = new Script
{
programText = "$ifdef __version>Muck2.2fb3.5\n $def envprop .envprop\n $endif\n $define ploc\n $ifdef proplocs\n .proploc\n $else\n owner\n $endif\n $enddef"
};
var prep = await ForthPreprocessor.Preprocess(Dbref.NOT_FOUND, script, script.programText, CancellationToken.None);
Assert.IsTrue(prep.IsSuccessful);
Assert.AreEqual("", prep.ProcessedProgram);
}
public async Task SimpleDefIfndefElseTest()
{
var script = new Script
{
programText = "$def FLAG\n$ifndef FLAG\n3 3\n$else\n2 2\n$enddef"
};
var prep = await ForthPreprocessor.Preprocess(Dbref.NOT_FOUND, script, script.programText, CancellationToken.None);
Assert.IsTrue(prep.IsSuccessful);
Assert.AreEqual("2 2\r\n", prep.ProcessedProgram);
}
public async Task SimpleDefReplacement()
{
var script = new Script
{
programText = "$def VARIAB 3\nVARIAB push"
};
var prep = await ForthPreprocessor.Preprocess(Dbref.NOT_FOUND, script, script.programText, CancellationToken.None);
Assert.IsTrue(prep.IsSuccessful);
Assert.AreEqual("3 push\r\n", prep.ProcessedProgram);
}
public async Task SimpleIfndef()
{
var script = new Script
{
programText = "$ifndef FOO<3\nBAR\n$enddef"
};
var prep = await ForthPreprocessor.Preprocess(Dbref.NOT_FOUND, script, script.programText, CancellationToken.None);
Assert.IsTrue(prep.IsSuccessful);
Assert.AreEqual("BAR\r\n", prep.ProcessedProgram);
}
public async Task ParseQuotedStrings()
{
var programText = $": get-playerdbrefs (playersstr -- dbref_range unrecstr)\n 0 \" \" \"\" 4 rotate\n begin\n dup while\n \" \" split swap\n dup not if pop continue then\n dup \"(\" 1 strncmp not if\n \" \" strcat swap strcat\n \")\" split swap pop strip\n continue\n then\n dup \"#\" 1 strncmp not if\n dup 1 strcut swap pop\n dup number? if\n atoi dbref dup ok? if\n dup player? if\n swap pop 5 rotate 1 +\n -5 rotate -5 rotate\n continue\n else pop\n then\n else pop\n then\n else pop\n then\n then\n dup \"*\" 1 strncmp not if\n 1 strcut swap pop\n 4 pick \" \" 3 pick over tolower strcat strcat instr if\n pop continue\n then\n 4 rotate over tolower strcat \" \" strcat -4 rotate\n dup me @ get-alias dup not if\n pop \"\\\" *\" swap strcat\n \"\\\" \" strcat rot\n swap strcat swap continue\n then\n swap pop \" \" strcat\n swap strcat single-space\n continue\n then\n dup player-match? dup -1 = if\n pop pop pop pop\n strip exit\n then\n 0 > if\n swap pop 5 rotate\n 1 + -5 rotate -5 rotate\n else\n dup me @ get-alias dup if\n tolower\n 5 pick \" \" 4 pick over strcat strcat instr if\n pop pop continue\n then\n 5 rotate rot strcat \" \" strcat -4 rotate\n \" \" strcat swap strcat single-space\n else pop\n \n dup partial-match\n \n if\n swap pop 5 rotate 1 +\n -5 rotate -5 rotate\n else\n \"\\\"\" swap strcat\n \"\\\" \" strcat rot\n swap strcat swap\n then\n then\n then\n repeat pop swap pop sort-stringwords\n;";
var preproc = await ForthPreprocessor.Preprocess(Dbref.NOT_FOUND, null, programText, CancellationToken.None);
Assert.IsTrue(preproc.IsSuccessful);
Assert.NotNull(preproc.ProcessedProgram);
var result = await ForthTokenizer.Tokenzie(null, preproc.ProcessedProgram !, new System.Collections.Generic.Dictionary <string, ForthVariable>());
Assert.NotNull(result);
Assert.NotNull(result.Words);
Assert.AreEqual(1, result.Words.Count);
var word = result.Words[0];
Assert.NotNull(word);
Assert.NotNull(word.programData);
}
public async Task ParseQuotedStringQuotedQuote()
{
var programText = $": w\n\"\\\"\";"; // "\""
var preproc = await ForthPreprocessor.Preprocess(Dbref.NOT_FOUND, null, programText, CancellationToken.None);
Assert.IsTrue(preproc.IsSuccessful);
var result = await ForthTokenizer.Tokenzie(null, preproc.ProcessedProgram !, new System.Collections.Generic.Dictionary <string, ForthVariable>());
Assert.NotNull(result);
Assert.NotNull(result.Words);
Assert.AreEqual(1, result.Words.Count);
var word = result.Words[0];
Assert.NotNull(word);
Assert.NotNull(word.programData);
Assert.AreEqual(1, word.programData.Count);
Assert.AreEqual(ForthDatum.DatumType.String, word.programData[0].Type);
Assert.AreEqual("\\\"", word.programData[0].Value);
}
