private void ConvertPasProcedureDecl(PasProcedureDecl pasProcedure, List<CsStat> csCodes)
{
var csDelegate = new CsDelegateDomain();
csDelegate.Name = pasProcedure.Name + "Delegate";
ConvertPasParams(pasProcedure.Params, csDelegate.Params);
AddDecls(csDelegate.Codes, pasProcedure.Decls);
AddCodes(csDelegate.Codes, pasProcedure.Codes);
csDelegate.ReturnType = ConvertPasTypeRef(pasProcedure.ReturnType);
var csVar = new CsLocalVarDecl();
csVar.Name = pasProcedure.Name;
csVar.TypeRef = new CsRef { Decl = csDelegate };
csCodes.Add(csVar);
///_mappings[pasProcedure]= csVar;
}
void ConvertPasVarDecl(PasVarDecl pasVar, List<CsStat> csCodes)
{
var csVar = new CsLocalVarDecl();
csVar.Name = pasVar.Name;
csVar.TypeRef = ConvertPasTypeRef(pasVar.TypeRef);
csCodes.Add(csVar);
///_associations.Assign(pasVar, csVar);
}
void AddWith(List<CsStat> csCodes, PasWith pasWith)
{
var csVar = new CsLocalVarDecl { Name = "with" + ((++_generator).ToString()), TypeRef = new CsRef { Decl = new CsAliasTypeDecl { Name = "string", TargetTypeName = "string" } } };
csCodes.Add(csVar);
var csAssignment = new CsAssignment();
csAssignment.LeftSide = new CsValue { Kind = CsValueKind.Name, StrData = csVar.Name };
csAssignment.RightSide = CsValueOf(pasWith.SubjectValue);
csCodes.Add(csAssignment);
AddCodes(csCodes, pasWith.Codes);
}
