ocaml + oasis +定制模块，如何编译

Question

所以我有以下文件：

_oasis：

OASISFormat: 0.4
Name:        PongBattleServer
Version:     0.1.0
Synopsis:    Server for handling multi-player pong games
Authors:     Jason Miesionczek
License:     MIT
Plugins:     META (0.4), DevFiles (0.4)
Executable pongserver
  Path:       src
  BuildTools: ocamlbuild
  MainIs:     main.ml

main.ml：

open Players;;

let () =
    let mgr = new player_manager

players.ml：

type player =
    {
        name: string;
        score: int;
    }

class player_manager =
    object (self)
        val mutable player_list = ( [] : player list)
        method add p =
            player_list <- p :: player_list
    end;;

当我运行make时，会得到以下错误：

ocaml setup.ml -build 
/home/araxia/.opam/system/bin/ocamlfind ocamldep -modules src/main.ml > src/main.ml.depends
+ /home/araxia/.opam/system/bin/ocamlfind ocamldep -modules src/main.ml > src/main.ml.depends
File "src/main.ml", line 4, characters 32-32:
Error: Syntax error
Command exited with code 2.
E: Failure("Command ''/usr/bin/ocamlbuild' src/main.byte -tag debug' terminated with error code 10")
make: *** [build] Error 1
Makefile:7: recipe for target 'build' failed

我刚开始接触绿洲等，我做错了什么？

Answer 1

这和绿洲无关，只是当你写的时候

let () =
  let mgr = new player_manager

OCaml需要一个in关键字，因为要么let引入一个全局变量，要么它引入一个局部变量，然后您将需要一个let var = expr in expr，其他什么都不需要。

所以，代之以

let () =
  let mgr = new player_manager in ()

就目前而言，因为您没有使用mgr做任何事情。