///<summary>
///Конструктор с параметрами.
///</summary>
public typed_parameters(ident_list _idents,type_definition _vars_type,parametr_kind _param_kind,expression _inital_value,SourceContext sc)
{
this._idents=_idents;
this._vars_type=_vars_type;
this._param_kind=_param_kind;
this._inital_value=_inital_value;
source_context = sc;
}
///<summary>
///Конструктор с параметрами.
///</summary>
public typed_parameters(ident_list _idents,type_definition _vars_type,parametr_kind _param_kind,expression _inital_value)
{
this._idents=_idents;
this._vars_type=_vars_type;
this._param_kind=_param_kind;
this._inital_value=_inital_value;
}
///<summary>
///Конструктор с параметрами.
///</summary>
public oberon_procedure_receiver(parametr_kind _param_kind,ident _receiver_name,ident _receiver_typename,SourceContext sc)
{
this._param_kind=_param_kind;
this._receiver_name=_receiver_name;
this._receiver_typename=_receiver_typename;
source_context = sc;
}
private string GetParamKind(parametr_kind kind)
{
switch (kind)
{
case parametr_kind.const_parametr: return "const";
case parametr_kind.out_parametr: return "out";
case parametr_kind.params_parametr: return "params";
case parametr_kind.var_parametr: return "var";
}
return "";
}
///<summary>
///Конструктор с параметрами.
///</summary>
public oberon_procedure_receiver(parametr_kind _param_kind,ident _receiver_name,ident _receiver_typename)
{
this._param_kind=_param_kind;
this._receiver_name=_receiver_name;
this._receiver_typename=_receiver_typename;
}