public CharStringLiteralWord(CharString charString, Environment env)
: base("s\"", charString.CharAddress,
e => { e.DataStack.Push(charString.CharAddress); e.DataStack.Push(charString.Length); })
{
Value = env.Memory.FetchCharString(charString);
}
public PrintStringLiteralWord(CharString charString, Environment env)
: base(".\"", charString.CharAddress,
e => Console.Write(e.Memory.FetchCharString(charString)))
{
Value = env.Memory.FetchCharString(charString);
}
public string FetchCharString(CharString charString)
{
char[] chars = (from b in FetchBytes(charString.CharAddress, charString.Length) select (char)b).ToArray();
return new string(chars);
}
