public virtual const_node create_int_const(string text,LexLocation loc,System.Globalization.NumberStyles NumberStyles)
{
if (NumberStyles == System.Globalization.NumberStyles.HexNumber)
text = text.Substring(1);
const_node cn = new int32_const();
if (text.Length < 8)
(cn as int32_const).val = Int32.Parse(text,System.Globalization.NumberStyles.Integer);
else
{
try
{
UInt64 uint64 = UInt64.Parse(text,System.Globalization.NumberStyles.Integer);
if (uint64 <= Int32.MaxValue)
(cn as int32_const).val = (Int32)uint64;
else
if (uint64 <= Int64.MaxValue)
cn = new int64_const((Int64)uint64);
else
cn = new uint64_const(uint64);
}
catch (Exception)
{
if (NumberStyles == System.Globalization.NumberStyles.HexNumber)
GPPGParser.errors.Add(new BadHex(GPPGParser.current_file_name,GetTokenSourceContext(loc),new syntax_tree_node()));
else
GPPGParser.errors.Add(new BadInt(GPPGParser.current_file_name,GetTokenSourceContext(loc),new syntax_tree_node()));
}
}
cn.source_context = GetTokenSourceContext(loc);
return cn;
}
public unit_name NewUnitHeading(ident unitkeyword, ident uname, LexLocation loc)
{
var un = new unit_name(uname, UnitHeaderKeyword.Unit, loc);
if (unitkeyword.name.ToLower().Equals("library"))
un.HeaderKeyword = UnitHeaderKeyword.Library;
return un;
}
public typecast_node NewAsIsConstexpr(expression constterm, op_typecast typecastop, type_definition tdef, LexLocation loc)
{
var naic = new typecast_node(constterm as addressed_value, tdef, typecastop, loc);
if (!(constterm is addressed_value))
parsertools.errors.Add(new bad_operand_type(parsertools.CurrentFileName, constterm.source_context, naic));
return naic;
}
public procedure_header NewProcedureHeader(attribute_list attrlist, procedure_header nprh, procedure_attribute forw, LexLocation loc)
{
if (nprh.proc_attributes == null)
nprh.proc_attributes = new procedure_attributes_list();
nprh.proc_attributes.Add(forw, forw.source_context);
nprh.attributes = attrlist;
nprh.source_context = loc;
return nprh;
}
public expression NewConstVariable(expression constvariable, expression constvariable2, LexLocation loc)
{
if (constvariable2 is dereference)
((dereference)constvariable2).dereferencing_value = (addressed_value)constvariable;
if (constvariable2 is dot_node)
((dot_node)constvariable2).left = (addressed_value)constvariable;
var ncv = constvariable2;
ncv.source_context = loc;
return ncv;
}
public static void WriteError(string Message, LexLocation Location, string Param = "")
{
string res;
if (Param == "")
res = Message;
else
res = string.Format(Message, Param);
Console.ForegroundColor = ConsoleColor.Red;
Console.WriteLine("("+ Location.StartLine+","+Location.StartColumn+") " + res);
Console.ResetColor();
ErrorCount += 1;
}
public program_module NewProgramModule(program_name progName, Object optHeadCompDirs, uses_list mainUsesClose, syntax_tree_node progBlock, Object optPoint, LexLocation loc)
{
var progModule = new program_module(progName, mainUsesClose, progBlock as block, null, loc);
progModule.Language = LanguageId.PascalABCNET;
if (optPoint == null && progBlock != null)
{
var fp = progBlock.source_context.end_position;
var err_stn = progBlock;
if ((progBlock is block) && (progBlock as block).program_code != null && (progBlock as block).program_code.subnodes != null && (progBlock as block).program_code.subnodes.Count > 0)
err_stn = (progBlock as block).program_code.subnodes[(progBlock as block).program_code.subnodes.Count - 1];
parsertools.errors.Add(new PABCNETUnexpectedToken(parsertools.CurrentFileName, StringResources.Get("TKPOINT"), new SourceContext(fp.line_num, fp.column_num + 1, fp.line_num, fp.column_num + 1, 0, 0), err_stn));
}
return progModule;
}
public static compiler_directive MakeDirective(string text, LexLocation loc)
{
string name = "";
string directive = "";
if (text != null)
{
var ind = text.IndexOf(' ');
if (ind == -1)
name = text;
else
{
name = text.Substring(0, ind);
directive = text.Substring(ind+1);
if (directive.StartsWith("'"))
directive = directive.Remove(0,1);
if (directive.EndsWith("'"))
directive = directive.Substring(0, directive.Length - 1);
}
}
return new compiler_directive(new token_info(name), new token_info(directive), loc);
}
/*public procedure_definition NewProcDecl(procedure_definition proc_decl_noclass, LexLocation loc)
{
(proc_decl_noclass.proc_header as procedure_header).class_keyword = true;
proc_decl_noclass.source_context = loc;
return proc_decl_noclass;
}*/
public case_variants NewCaseItem(syntax_tree_node case_item, LexLocation loc)
{
var nci = new case_variants();
if (case_item is case_variant)
nci.Add((case_variant)case_item);
nci.source_context = loc;
return nci;
}
public simple_property NewSimplePrimPropertyDefinition(simple_property simple_property_definition, LexLocation loc)
{
var nsnpd = simple_property_definition;
nsnpd.attr = definition_attribute.Static;
nsnpd.source_context = loc;
return nsnpd;
}
public property_accessors NewPropertySpecifiersRead(ident tkRead, ident opt_identifier, property_accessors property_specifiers, LexLocation loc)
{
var nnps = property_specifiers;
if (nnps == null)
{
nnps = new property_accessors();
}
if (opt_identifier != null && opt_identifier.name.ToLower() == "write")
{
nnps.read_accessor = new read_accessor_name(null);
nnps.write_accessor = new write_accessor_name(null);
nnps.read_accessor.source_context = tkRead.source_context;
nnps.write_accessor.source_context = opt_identifier.source_context;
}
else
{
if (opt_identifier != null)
nnps.read_accessor = new read_accessor_name(opt_identifier, tkRead.source_context.Merge(opt_identifier.source_context));
else nnps.read_accessor = new read_accessor_name(opt_identifier, tkRead.source_context);
}
nnps.source_context = loc;
return nnps;
}
public while_node NewWhileStmt(token_info tkWhile, expression expr, token_info opt_tk_do, statement stmt, LexLocation loc)
{
var nws = new while_node(expr, stmt, WhileCycleType.While, loc);
if (opt_tk_do == null)
{
file_position fp = expr.source_context.end_position;
syntax_tree_node err_stn = stmt;
if (err_stn == null)
{
err_stn = expr;
}
parsertools.errors.Add(new PABCNETUnexpectedToken(parsertools.CurrentFileName, StringResources.Get("TKDO"), new SourceContext(fp.line_num, fp.column_num + 1, fp.line_num, fp.column_num + 1, 0, 0), err_stn));
}
return(nws);
}
public method_name NewQualifiedIdentifier(method_name qualified_identifier, ident identifier, LexLocation loc)
{
var nqi = qualified_identifier;
nqi.class_name = nqi.meth_name;
nqi.meth_name = identifier;
nqi.source_context = loc;
return nqi;
}
public addressed_value NewVarReference(get_address var_address, addressed_value variable, LexLocation loc)
{
var_address.address_of = variable;
parsertools.create_source_context(parsertools.NodesStack.Peek(),parsertools.NodesStack.Peek(), variable);
return (addressed_value)parsertools.NodesStack.Pop();
}
public var_def_statement NewVarOrIdentifier(ident identifier, named_type_reference fptype, LexLocation loc)
{
var n_t_r = fptype;
var vds = new var_def_statement();
vds.vars = new ident_list();
vds.vars.idents.Add(identifier);
vds.vars_type = n_t_r;
vds.source_context = loc;
return vds;
}
public expression NewVariable(addressed_value variable, expression var_specifiers, LexLocation loc)
{
if (var_specifiers is dot_node)
{
var dn = (dot_node)var_specifiers;
dn.left = variable;
}
else if (var_specifiers is template_param_list)
{
var tpl = (template_param_list)var_specifiers;
((dot_node)tpl.dereferencing_value).left = variable;
parsertools.create_source_context(tpl.dereferencing_value, variable, tpl.dereferencing_value);
}
else if (var_specifiers is dereference)
{
((dereference)var_specifiers).dereferencing_value = variable;
}
else if (var_specifiers is ident_with_templateparams)
{
((ident_with_templateparams)var_specifiers).name = (addressed_value_funcname)variable;
}
var_specifiers.source_context = loc;
return(var_specifiers);
}
public var_def_statement NewVarOrIdentifier(ident identifier, named_type_reference fptype, LexLocation loc)
{
var n_t_r = fptype;
var vds = new var_def_statement();
vds.vars = new ident_list();
vds.vars.idents.Add(identifier);
vds.vars_type = n_t_r;
vds.source_context = loc;
return(vds);
}
public addressed_value NewVarReference(get_address var_address, addressed_value variable, LexLocation loc)
{
var_address.address_of = variable;
parsertools.create_source_context(parsertools.NodesStack.Peek(), parsertools.NodesStack.Peek(), variable);
return((addressed_value)parsertools.NodesStack.Pop());
}
public program_module NewProgramModule(program_name progName, Object optHeadCompDirs, uses_list mainUsesClose, syntax_tree_node progBlock, Object optPoint, LexLocation loc)
{
var progModule = new program_module(progName, mainUsesClose, progBlock as block, null, loc);
progModule.Language = LanguageId.PascalABCNET;
if (optPoint == null && progBlock != null)
{
var fp = progBlock.source_context.end_position;
var err_stn = progBlock;
if ((progBlock is block) && (progBlock as block).program_code != null && (progBlock as block).program_code.subnodes != null && (progBlock as block).program_code.subnodes.Count > 0)
{
err_stn = (progBlock as block).program_code.subnodes[(progBlock as block).program_code.subnodes.Count - 1];
}
parsertools.errors.Add(new PABCNETUnexpectedToken(parsertools.CurrentFileName, StringResources.Get("TKPOINT"), new SourceContext(fp.line_num, fp.column_num + 1, fp.line_num, fp.column_num + 1, 0, 0), err_stn));
}
return(progModule);
}
public function_lambda_call NewFactor(ident func_decl_lambda, expression_list expr_list, LexLocation loc)
{
var fld = parsertools.find_pascalABC_lambda_name(func_decl_lambda.name);
var _expression_list = expr_list;
var _lambda_definition = fld;
var _lambda_call = new function_lambda_call(_lambda_definition, _expression_list, loc);
_lambda_call.source_context = func_decl_lambda.source_context;
return(_lambda_call);
}
public typecast_node NewAsIsExpr(syntax_tree_node term, op_typecast typecast_op, type_definition simple_or_template_type_reference, LexLocation loc)
{
var naie = new typecast_node((addressed_value)term, simple_or_template_type_reference, typecast_op, loc);
if (!(term is addressed_value))
{
parsertools.errors.Add(new bad_operand_type(parsertools.CurrentFileName, term.source_context, naie));
}
return(naie);
}
public for_node NewForStmt(bool opt_var, ident identifier, type_definition for_stmt_decl_or_assign, expression expr1, for_cycle_type fc_type, expression expr2, token_info opt_tk_do, statement stmt, LexLocation loc)
{
var nfs = new for_node(identifier, expr1, expr2, stmt, fc_type, null, for_stmt_decl_or_assign, opt_var != false, loc);
if (opt_tk_do == null)
{
file_position fp = expr2.source_context.end_position;
syntax_tree_node err_stn = stmt;
if (err_stn == null)
{
err_stn = expr2;
}
parsertools.errors.Add(new PABCNETUnexpectedToken(parsertools.CurrentFileName, StringResources.Get("TKDO"), new SourceContext(fp.line_num, fp.column_num + 1, fp.line_num, fp.column_num + 1, 0, 0), err_stn));
}
if (!opt_var && for_stmt_decl_or_assign == null)
{
parsertools.AddWarningFromResource("USING_UNLOCAL_FOR_VARIABLE", identifier.source_context);
}
return(nfs);
}
public while_node NewWhileStmt(token_info tkWhile, expression expr, token_info opt_tk_do, statement stmt, LexLocation loc)
{
var nws = new while_node(expr, stmt, WhileCycleType.While, loc);
if (opt_tk_do == null)
{
file_position fp = expr.source_context.end_position;
syntax_tree_node err_stn = stmt;
if (err_stn == null)
err_stn = expr;
parsertools.errors.Add(new PABCNETUnexpectedToken(parsertools.CurrentFileName, StringResources.Get("TKDO"), new SourceContext(fp.line_num, fp.column_num + 1, fp.line_num, fp.column_num + 1, 0, 0), err_stn));
}
return nws;
}
public procedure_header NewProcedureHeader(attribute_list attrlist, procedure_header nprh, procedure_attribute forw, LexLocation loc)
{
if (nprh.proc_attributes == null)
{
nprh.proc_attributes = new procedure_attributes_list();
}
nprh.proc_attributes.Add(forw, forw.source_context);
nprh.attributes = attrlist;
nprh.source_context = loc;
return(nprh);
}
public typecast_node NewAsIsExpr(syntax_tree_node term, op_typecast typecast_op, type_definition simple_or_template_type_reference, LexLocation loc)
{
var naie = new typecast_node((addressed_value)term, simple_or_template_type_reference, typecast_op, loc);
if (!(term is addressed_value))
parsertools.errors.Add(new bad_operand_type(parsertools.CurrentFileName, term.source_context, naie));
return naie;
}
public method_name NewQualifiedIdentifier(method_name qualified_identifier, ident identifier, LexLocation loc)
{
var nqi = qualified_identifier;
nqi.class_name = nqi.meth_name;
nqi.meth_name = identifier;
nqi.source_context = loc;
return(nqi);
}
public get_address NewVarAddress(get_address var_address, LexLocation loc)
{
var nva = new get_address();
nva.source_context = loc;
var_address.address_of = (addressed_value)nva;
return nva;
}
public simple_property NewSimplePrimPropertyDefinition(simple_property simple_property_definition, LexLocation loc)
{
var nsnpd = simple_property_definition;
nsnpd.attr = definition_attribute.Static;
nsnpd.source_context = loc;
return(nsnpd);
}
public void AddError(string msg, LexLocation span, int severity)
{
AddError(msg, span.sLin, span.sCol, span.eCol - span.sCol + 1, severity);
}
public case_variants AddCaseItem(case_variants case_list, syntax_tree_node case_item, LexLocation loc)
{
var nci = case_list;
if (case_item is case_variant)
{
nci.Add((case_variant)case_item);
}
nci.source_context = loc;
return(nci);
}
public property_accessors NewPropertySpecifiersWrite(ident tkWrite, ident opt_identifier, property_accessors property_specifiers, LexLocation loc)
{
var nnpsw = property_specifiers;
if (nnpsw == null)
{
nnpsw = new property_accessors();
}
if (opt_identifier != null)
{
nnpsw.write_accessor = new write_accessor_name(opt_identifier, tkWrite.source_context.Merge(opt_identifier.source_context));
}
else
{
nnpsw.write_accessor = new write_accessor_name(opt_identifier, tkWrite.source_context);
}
nnpsw.source_context = loc;
return(nnpsw);
}
public static void AddError(string message, LexLocation loc)
{
Errors.Add(new SyntaxError(message, CurrentFileName, ToSourceContext(loc), null));
}
public token_info NewClassOrInterfaceKeyword(token_info tktemp, string text, LexLocation loc)
{
var ncoik = tktemp;
ncoik.text = text;
ncoik.source_context = loc;
return ncoik;
}
public virtual SourceContext GetTokenSourceContext(LexLocation loc)
{
// HACK: loc.sCol + 1 -> special magic with source context :(
return(new SourceContext(loc.sLin, loc.sCol + 1, loc.eLin, loc.eCol));
}
public declaration NewPropertyDefinition(attribute_list opt_attribute_declarations, declaration simple_property_definition, LexLocation loc)
{
var nnpd = simple_property_definition;
nnpd.attributes = opt_attribute_declarations;
nnpd.source_context = loc;
return nnpd;
}
public virtual const_node create_hex_const(string text, LexLocation loc)
{
return(create_int_const(text, loc, System.Globalization.NumberStyles.HexNumber));
}
public simple_property NewSimplePropertyDefinition(method_name qualified_identifier, property_interface property_interface, property_accessors property_specifiers, property_array_default array_defaultproperty, LexLocation loc)
{
var nnspd = new simple_property();
nnspd.property_name = qualified_identifier.meth_name;
if (property_interface != null)
{
nnspd.parameter_list = property_interface.parameter_list;
nnspd.property_type = property_interface.property_type;
nnspd.index_expression = property_interface.index_expression;
}
if (property_specifiers != null)
nnspd.accessors = property_specifiers;
if (array_defaultproperty != null)
nnspd.array_default = array_defaultproperty;
nnspd.source_context = loc;
return nnspd;
}
public ScanObj(int t, object val, LexLocation loc)
{
this.token = t; this.yylval = val; this.yylloc = loc;
}
public property_accessors NewPropertySpecifiersWrite(ident tkWrite, ident opt_identifier, property_accessors property_specifiers, LexLocation loc)
{
var nnpsw = property_specifiers;
if (nnpsw == null)
{
nnpsw = new property_accessors();
}
if (opt_identifier != null)
nnpsw.write_accessor = new write_accessor_name(opt_identifier,tkWrite.source_context.Merge(opt_identifier.source_context));
else nnpsw.write_accessor = new write_accessor_name(opt_identifier,tkWrite.source_context);
nnpsw.source_context = loc;
return nnpsw;
}
public ScanObj(int t, ValueType val, LexLocation loc)
{
this.token = t; this.yylval = val; this.yylloc = loc;
}
public case_variants AddCaseItem(case_variants case_list, syntax_tree_node case_item, LexLocation loc)
{
var nci = case_list;
if (case_item is case_variant)
nci.Add((case_variant)case_item);
nci.source_context = loc;
return nci;
}
public Attribute(List <string> Value, LexLocation Location)
{
this.Value = Value;
this.Location = Location;
}
public for_node NewForStmt(bool opt_var, ident identifier, type_definition for_stmt_decl_or_assign, expression expr1, for_cycle_type fc_type, expression expr2, token_info opt_tk_do, statement stmt, LexLocation loc)
{
var nfs = new for_node(identifier, expr1, expr2, stmt, fc_type, null, for_stmt_decl_or_assign, opt_var != false, loc);
if (opt_tk_do == null)
{
file_position fp = expr2.source_context.end_position;
syntax_tree_node err_stn = stmt;
if (err_stn == null)
err_stn = expr2;
parsertools.errors.Add(new PABCNETUnexpectedToken(parsertools.CurrentFileName, StringResources.Get("TKDO"), new SourceContext(fp.line_num, fp.column_num + 1, fp.line_num, fp.column_num + 1, 0, 0), err_stn));
}
return nfs;
}
public XMLDecl(List <string> Value, LexLocation Location)
{
this.Value = Value;
this.Location = Location;
}
public function_lambda_call NewFactor(ident func_decl_lambda, expression_list expr_list, LexLocation loc)
{
var fld = parsertools.find_pascalABC_lambda_name(func_decl_lambda.name);
var _expression_list = expr_list;
var _lambda_definition = fld;
var _lambda_call = new function_lambda_call(_lambda_definition, _expression_list, loc);
_lambda_call.source_context = func_decl_lambda.source_context;
return _lambda_call;
}
public DoctypeDcecl(List <string> Value, LexLocation Location)
{
this.Value = Value;
this.Location = Location;
}
public get_address NewVarAddress(LexLocation loc)
{
var nva = new get_address();
nva.source_context = loc;
parsertools.NodesStack.Push(nva);
return nva;
}
public DoctypeDcecl(string Value, LexLocation Location)
{
this.Value = new List <string>();
this.Value.Add(Value);
this.Location = Location;
}
public expression NewVariable(addressed_value variable, expression var_specifiers, LexLocation loc)
{
if (var_specifiers is dot_node)
{
var dn = (dot_node)var_specifiers;
dn.left = variable;
}
else if (var_specifiers is template_param_list)
{
var tpl = (template_param_list)var_specifiers;
((dot_node)tpl.dereferencing_value).left = variable;
parsertools.create_source_context(tpl.dereferencing_value, variable, tpl.dereferencing_value);
}
else if (var_specifiers is dereference)
{
((dereference)var_specifiers).dereferencing_value = variable;
}
else if (var_specifiers is ident_with_templateparams)
{
((ident_with_templateparams)var_specifiers).name = (addressed_value_funcname)variable;
}
var_specifiers.source_context = loc;
return var_specifiers;
}
public simple_property NewSimplePropertyDefinition(method_name qualified_identifier, property_interface property_interface, property_accessors property_specifiers, proc_attribute virt_over_none_attr, property_array_default array_defaultproperty, LexLocation loc)
{
var nnspd = new simple_property();
nnspd.virt_over_none_attr = virt_over_none_attr;
nnspd.property_name = qualified_identifier.meth_name;
if (property_interface != null)
{
nnspd.parameter_list = property_interface.parameter_list;
nnspd.property_type = property_interface.property_type;
nnspd.index_expression = property_interface.index_expression;
}
if (property_specifiers != null)
{
nnspd.accessors = property_specifiers;
}
if (array_defaultproperty != null)
{
nnspd.array_default = array_defaultproperty;
}
nnspd.source_context = loc;
return(nnspd);
}
public statement_list NewLambdaBody(expression expr_l1, LexLocation loc)
{
var _statement_list = new statement_list();
var id = new ident("result");
var _op_type_node = new op_type_node(Operators.Assignment);
//_op_type_node.source_context = parsertools.GetTokenSourceContext();
var _assign = new assign((addressed_value)id, expr_l1, _op_type_node.type);
parsertools.create_source_context(_assign, id, expr_l1);
_statement_list.subnodes.Add((statement)_assign);
_statement_list.source_context = loc;
//block _block = new block(null, _statement_list);
return _statement_list;
}
/// <summary>
/// Converts a LexLocation type to TextPoint.
/// </summary>
/// <param name="location">LexLocation instance.</param>
/// <param name="document">TextDocument</param>
/// <returns>new LexLocation instance</returns>
public static TextPoint LexLocationToTextPoint(TextDocument document, LexLocation location)
{
TextPoint point = new LuaTextPoint(document, location.sCol, location.sLin);
return point;
}
public declaration NewPropertyDefinition(attribute_list opt_attribute_declarations, declaration simple_property_definition, LexLocation loc)
{
var nnpd = simple_property_definition;
nnpd.attributes = opt_attribute_declarations;
nnpd.source_context = loc;
return(nnpd);
}
public Token(string Value, LexLocation Location)
{
this.Value = new List <string>();
this.Value.Add(Value);
this.Location = Location;
}
public XML_TreeNode(List <string> Value, LexLocation Location)
{
this.Value = Value;
this.Location = Location;
}
public property_accessors NewPropertySpecifiersRead(ident tkRead, ident opt_identifier, property_accessors property_specifiers, LexLocation loc)
{
var nnps = property_specifiers;
if (nnps == null)
{
nnps = new property_accessors();
}
if (opt_identifier != null && opt_identifier.name.ToLower() == "write")
{
nnps.read_accessor = new read_accessor_name(null);
nnps.write_accessor = new write_accessor_name(null);
nnps.read_accessor.source_context = tkRead.source_context;
nnps.write_accessor.source_context = opt_identifier.source_context;
}
else
{
if (opt_identifier != null)
{
nnps.read_accessor = new read_accessor_name(opt_identifier, tkRead.source_context.Merge(opt_identifier.source_context));
}
else
{
nnps.read_accessor = new read_accessor_name(opt_identifier, tkRead.source_context);
}
}
nnps.source_context = loc;
return(nnps);
}
public class_definition NewObjectType(class_attribute class_attributes, token_info class_or_interface_keyword, named_type_reference_list opt_base_classes, where_definition_list opt_where_section, class_body opt_not_component_list_seq_end, LexLocation loc)
{
var nnof = new class_definition(opt_base_classes, opt_not_component_list_seq_end, class_keyword.Class, null, opt_where_section, class_attribute.None, false, loc);
string kw = class_or_interface_keyword.text.ToLower();
nnof.attribute = class_attributes;
if (kw=="record")
nnof.keyword=class_keyword.Record;
else
if (kw=="interface")
nnof.keyword=class_keyword.Interface;
else
if (kw=="i")
nnof.keyword=class_keyword.TemplateInterface;
else
if (kw=="r")
nnof.keyword=class_keyword.TemplateRecord;
else
if (kw=="c")
nnof.keyword=class_keyword.TemplateClass;
if (nnof.body != null && ((class_definition)nnof).body.class_def_blocks != null &&
((class_definition)nnof).body.class_def_blocks.Count > 0 && ((class_definition)nnof).body.class_def_blocks[0].access_mod == null)
{
if (nnof.keyword == class_keyword.Class)
nnof.body.class_def_blocks[0].access_mod = new access_modifer_node(access_modifer.internal_modifer);
else
nnof.body.class_def_blocks[0].access_mod = new access_modifer_node(access_modifer.none);
}
return nnof;
}
public Token(List <string> Value, LexLocation Location)
{
this.Value = Value;
this.Location = Location;
}
/// <summary>
/// Converts a LexLocation type to TextPoint.
/// </summary>
/// <param name="location">LexLocation instance.</param>
/// <returns>new LexLocation instance</returns>
public static TextPoint LexLocationToTextPoint(LexLocation location)
{
return LexLocationToTextPoint(null, location);
}
public CS_TreeNode(string Value, LexLocation Location)
{
this.Value = new List <string>();
this.Value.Add(Value);
this.Location = Location;
}
