3

このC++コードに相当する単純なFortran 2003オブジェクト指向レイアウトの場合の例を教えてください。

stefanos-imac:tmp borini$ more Animal.h 
class Animal {
    public:
        Animal(int age);
        ~Animal();
        virtual void speak();
        int getAge();
    private:
        int age;
};

stefanos-imac:tmp borini$ more Animal.cpp 
#include <Animal.h>
#include <iostream>
Animal::Animal(int age) {
    std::cout << "init animal" << age << std::endl;
    this->age = age;
}
Animal::~Animal() {
    std::cout << "dtor animal" << std::endl;
}
void Animal::speak() {
    std::cout << "speak not reimplemented" << std::endl;
}
int Animal::getAge() {
    return this->age;
}
stefanos-imac:tmp borini$ more Cat.h 
#include <Animal.h>
class Cat : public Animal {
    public:
        Cat(int age);
        ~Cat();
        virtual void speak();
};
stefanos-imac:tmp borini$ more Cat.cpp 
#include <Cat.h>
#include <iostream>
Cat::Cat(int age) : Animal(age) {
    std::cout << "init cat" << std::endl;
}
Cat::~Cat() { 
    std::cout << "dtor cat" << std::endl;
}
void Cat::speak() {
    std::cout << "meow" << std::endl;
}
stefanos-imac:tmp borini$ more main.cpp 
#include <iostream>
#include <Cat.h>

int main() {
    Cat c(10);

    std::cout << c.getAge() <<std::endl;
    c.speak();
}

コードに問題があります。以下を参照してください

stefanos-imac:oop borini$ more Animal.f90 
module AnimalModule
   implicit none
   private
   public :: AnimalType

   type :: AnimalType
      private
      integer :: age
   contains
      procedure :: getAge 
      procedure :: speak
      final :: dtor
   end type

   interface AnimalType
      module procedure ctor
   end interface
contains 
   subroutine ctor(self, age)
      type(AnimalType), intent(inout) :: self
      integer :: age
      print *, "Constructor Animal"
      self%age = age
   end subroutine 
   subroutine dtor(self)
      type(AnimalType), intent(inout) :: self
      print *, "Destroying animal"
   end subroutine 

   function getAge(self)
      class(AnimalType), intent(inout) :: self
      integer :: getAge
      getAge = self%age
   end function
   subroutine speak(self)
      class(AnimalType), intent(in) :: self

      print *, "Animal::speak not overridden"
   end subroutine
end

stefanos-imac:oop borini$ more Cat.f90 
module CatModule
   use AnimalModule
   implicit none
   private

   type, extends(AnimalType) :: CatType
      private
   contains
      procedure :: speak 
      final :: dtor
   end type

   interface CatType
      module procedure ctor
   end interface

contains 
   subroutine ctor(self, age)
      type(CatType), intent(inout) :: self
      integer, intent(in) :: age
      print *, "Constructor Cat"
      self%AnimalType = AnimalType(age)
   end subroutine 
   subroutine dtor(self)
      type(CatType), intent(inout) :: self
      print *, "Destroying Cat"
   end subroutine 
   subroutine speak(self)
      class(CatType), intent(in) :: self

      print *, "Meow"
   end subroutine
end

stefanos-imac:oop borini$ ifort Animal.f90 Cat.f90 
Cat.f90(10): error #8341: Final subroutines are not inherited through type extension and cannot be overridden.   [DTOR]
      final :: dtor
---------------^
Cat.f90(22): error #6292: The parent type of this field is use associated with the PRIVATE fields attribute   [AGE]
      self%AnimalType = AnimalType(age)
-----------------------------------^
compilation aborted for Cat.f90 (code 1)
stefanos-imac:oop borini$

特に、基本クラスを初期化する方法と、派生クラスのデストラクタを定義する方法が明確ではありません。

ありがとう

4

1 に答える 1

4 
   subroutine ctor(self, age)
      type(CatType), intent(inout) :: self
      integer, intent(in) :: age
      print *, "Constructor Cat"
      self%AnimalType = AnimalType(age)
   end subroutine

これは間違っています。CatType には AnimalType コンポーネントがありません。AnimalType 型を拡張します。ctor はサブルーチンであり、関数として使用します。コンストラクターを関数として定義することをお勧めします（ただし、割り当てではなく初期化するだけです）が、サブルーチンも使用できます。クラス名と同じ名前を実現するために行ったようにインターフェイス ブロックを使用できますがCALL、サブルーチンとして定義した場合は、一貫して使用する必要があります。

派生クラスのコンストラクターでは、適切なコンポーネントを設定するか、基本クラスのコンストラクターを使用できます。その場合、タイプに対して適切に機能するユーザー定義の割り当てを記述することを忘れないでください。

于 2012-06-14T09:28:29.300 に答える