oop - 在 OCaml 中即时创建对象

Question

我试图通过使用编译代码而不是顶层来学习 OCaml；然而，网上的许多示例代码似乎对后者有吸引力。

我想在下面的对象方法中创建一个新的 Foo 。此代码无法编译，引用 doFooProc 定义的语法错误。

class bar =
object (self)
 method doFooProc = (new Foo "test")#process
end;;

class foo (param1:string)=
object (self)
 method process = Printf.printf "%s\n" "Processing!"
 initializer Printf.printf "Initializing with param = %s\n" param1
end;;

此外，“let”语法在类定义中似乎并不友好。这是为什么？

class bar =
object (self)
 method doFooProc = 
  let xxx = (new Foo "test");
  xxx#process
end;;

class foo (param1:string)=
object (self)
 method process = Printf.printf "%s\n" "Processing!"
 initializer Printf.printf "Initializing with param = %s\n" param1
end;;

如何在 doFooProc 方法中创建 foo 类的新对象并调用实例化的 foo 的 process 命令？

Answer 1

对于两个相互递归的类，使用 and 关键字

class bar =
  object (self)
    method doFooProc = 
      let xxx = (new foo "test") in
      xxx#process
  end
and foo (param1:string)=
  object (self)
    method process = Printf.printf "%s\n" "Processing!"
    initializer Printf.printf "Initializing with param = %s\n" param1
    method bar = new bar
  end;;`