public override void visit(char_const _char_const)
{
//throw new NotImplementedException();
}
public char_const create_char_const(string text, SourceContext sc)
{
string char_text = new string(text.ToCharArray(1, text.Length - 2));
char_text = ReplaceSpecialSymbols(char_text);
char_const ct = new char_const();
ct.source_context = sc;
if (char_text.Length == 1)
{
ct.cconst = char_text[0];
return ct;
}
return null;
}
public literal create_string_const(string text, SourceContext sc)
{
literal lt;
if (text.Length == 3 && text[0] == '\'' && text[2] == '\'')
{
lt = new char_const(text[1]);
lt.source_context = sc;
return lt;
}
text = ReplaceSpecialSymbols(text.Substring(1, text.Length - 2));
lt = new string_const(text);
lt.source_context = sc;
return lt;
}
public override void visit(char_const _char_const)
{
returned_scope = TypeTable.char_type;//entry_scope.FindName(PascalABCCompiler.TreeConverter.compiler_string_consts.char_type_name);
if (in_kav)
cnst_val.prim_val = this.converter.controller.Parser.LanguageInformation.GetStringForChar(_char_const.cconst);
//cnst_val.prim_val = "'"+_char_const.cconst.ToString()+"'";
else cnst_val.prim_val = _char_const.cconst;
}
public override void visit(char_const _char_const)
{
AddPossibleComments(_char_const, true, true);
}
public override void visit(char_const _char_const)
{
//throw new NotImplementedException();
returned_scope = new ElementScope(TypeTable.char_type);
}
public void read_char_const(char_const _char_const)
{
read_literal(_char_const);
_char_const.cconst = br.ReadChar();
}
public void visit(char_const _char_const)
{
bw.Write((Int16)87);
write_char_const(_char_const);
}
public override void visit(char_const _char_const)
{
}
public void visit(char_const _char_const)
{
read_char_const(_char_const);
}
public override void visit(char_const _char_const)
{
sb.Append("'");
sb.Append(_char_const.cconst.ToString());
sb.Append("'");
}
public void CompareInternal(char_const left, char_const right)
{
if (left == null && right != null || left != null && right == null)
throw_not_equal(left, right);
if (left != null && right != null)
{
if (left.cconst != right.cconst)
throw_not_equal(left, right);
}
}
public override void visit(char_const _char_const)
{
RetValue val = new RetValue();
val.prim_val = _char_const.cconst;
eval_stack.Push(val);
names.Add("'" + _char_const.cconst.ToString() + "'");
}
public virtual literal create_string_const(GPBParser parser)
{
literal lt;
string text = parser.LRParser.TokenString;
if (text.Length==3 && text[0]=='\'' && text[2]=='\'')
{
lt=new char_const(text[1]);
lt.source_context = GetTokenSourceContext(parser.LRParser);//create_source_context(token);
return lt;
}
text = ReplaceSpecialSymbols(text.Substring(1, text.Length - 2));
lt=new string_const(text);
lt.source_context = GetTokenSourceContext(parser.LRParser);//create_source_context(token);
return lt;
}
public virtual char_const create_char_const(string text,LexLocation loc)
{
string char_text = new string(text.ToCharArray(1,text.Length - 2));
SourceContext sc = GetTokenSourceContext(loc);
char_text = ReplaceSpecialSymbols(char_text);
char_const ct = new char_const();
ct.source_context = sc;
if (char_text.Length == 1)
{
ct.cconst = char_text[0];
return ct;
}
return null;
}
public static procedure_definition BuildToStringFuncForAutoClass(List<ident> names)
{
var pal = new procedure_attributes_list(proc_attribute.attr_override);
var fp = new formal_parameters();
var ff = new function_header("ToString", "string", fp, pal);
var cleft = new char_const('(');
var cright = new char_const(')');
var ccomma = new char_const(',');
bin_expr ex = new bin_expr(cleft, cright, Operators.Plus);
for (var i = 0; i < names.Count; i++)
{
var dn = new dot_node(names[i], new ident("ToString"));
var asnode = new typecast_node(names[i], new named_type_reference("object"), op_typecast.as_op);
var eqnode = new bin_expr(asnode, new nil_const(), Operators.Equal);
var expr = new question_colon_expression(eqnode, new string_const("nil"), dn);
ex.left = new bin_expr(ex.left, expr, Operators.Plus);
if (i<names.Count-1)
ex.left = new bin_expr(ex.left, ccomma, Operators.Plus);
}
var ass = new assign("Result", ex);
return BuildShortProcFuncDefinitionNoSC(ff, ass);
}
public virtual literal create_string_const(string text,LexLocation loc)
{
literal lt;
if (text.Length == 3 && text[0] == '\'' && text[2] == '\'')
{
lt = new char_const(text[1]);
lt.source_context = GetTokenSourceContext(loc);
return lt;
}
string text1 = ReplaceSpecialSymbols(text.Substring(1, text.Length - 2));
lt = new string_const(text1);
lt.source_context = GetTokenSourceContext(loc);
return lt;
}
public void write_char_const(char_const _char_const)
{
write_literal(_char_const);
bw.Write(_char_const.cconst);
}
public override void visit(char_const _char_const)
{
text="Value: "+_char_const.cconst;
}
