void ConvertPasProcedureTypeDecl(PasProcedureTypeDecl pasProcedure, CsNamespace csNamespace)
{
var csDelegate = new CsDelegateDomain();
csDelegate.Name = pasProcedure.Name;
///TODO delegate
csNamespace.Decls.Add(csDelegate);
_associations.Assign(pasProcedure, csDelegate);
}
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;
}
