package Test



partial package MyPartialPackageLevelOne



  constant String level = "LevelOne";

  

  replaceable partial record MyRecord

   //record variable to be defined a level higher

  end MyRecord;

  

  

  replaceable partial model MyReplaceablePartialModelLevelOne

  

    Real variableOne;

    Real variableTwo;

    Real variableThree;

    Real variableFour;

    

    MyRecord myRecord;

    

    equation

     

     variableThree = 3;

     variableFour = 4; 

     

  

  end MyReplaceablePartialModelLevelOne;

    

end MyPartialPackageLevelOne;





partial package MyPartialPackageLevelTwo

 

  extends MyPartialPackageLevelOne(level = "LevelTwo");

 

  redeclare record extends MyRecord

    Real recordVariable;  

  end MyRecord;



end MyPartialPackageLevelTwo;





////finally used package



package MyUsedPackage

  

  extends MyPartialPackageLevelTwo(final level = "LevelThree");

//this works!

/*

  redeclare record extends MyRecord

    Real recordVariable;  

  end MyRecord;

*/

  redeclare model extends MyReplaceablePartialModelLevelOne

    

    equation

          

     myRecord.recordVariable = variableOne;

        

  end MyReplaceablePartialModelLevelOne;

  

end MyUsedPackage;



  

model TestModel

  

  package MyPackage = MyUsedPackage;

    

  MyPackage.MyReplaceablePartialModelLevelOne modelFromPackage;

  

  equation

    

    modelFromPackage.variableOne =1;

    modelFromPackage.variableTwo =2;  

  

end TestModel; 





end Test;