Hatena::Groupocaml-nagoya

Gemmaの日記

 | 

2008-09-24

Hello World(サーバーはC++、クライアントはOCaml)

17:49

IDL

service Hello
{
  string hello(1: string name)
}

Thriftでサーバー(C++)、クライアント(OCaml)を生成

$ thrift --gen cpp --gen ocaml hello.thrift

サーバーロジックを書く

Hello_server.skeleton.cpp

class HelloHandler : virtual public HelloIf {
 public:
  HelloHandler() {
    // Your initialization goes here
  }

  void hello(std::string& _return, const std::string& name) {
    // Your implementation goes here
    _return.append("Hello ").append(name);
  }
};

サーバーコンパイル

$ g++ -g Hello_server.skeleton.cpp Hello.cpp -o Hello_server -lthrift -I/usr/local/include/thrift

クライアントを書く

Hello_client.mlを新規作成して内容はこうする。

open Thrift;;
open Hello_types;;

let s = new TSocket.t "localhost" 9090;;
let p = new TBinaryProtocol.t s;;
let c = new Hello.client p p;;

s#opn;
print_string (c#hello "Gemma");
print_char '\n';
s#close;

クライアントコンパイルする

Makefileを使うべし。

SOURCES = ./gen-ocaml/hello_types.ml ./gen-ocaml/hello_consts.ml ./gen-ocaml/Hello.ml Hello_client.ml
RESULT = tc
INCDIRS = "./Desktop/thrift/lib/ocaml/src/" "./gen-ocaml/"
LIBS = unix thrift
all: nc
OCAMLMAKEFILE = ./Desktop/thrift/lib/ocaml/OCamlMakefile
include $(OCAMLMAKEFILE)

このMakefileの実行結果

make[1]: ディレクトリ `/home/teruaki' に入ります
ocamldep -I ./gen-ocaml/ Hello_client.ml > ._d/Hello_client.d
ocamldep -I ./gen-ocaml/ gen-ocaml/Hello.ml > ._d/./gen-ocaml/Hello.d
ocamldep -I ./gen-ocaml/ gen-ocaml/hello_consts.ml > ._d/./gen-ocaml/hello_consts.d
ocamldep -I ./gen-ocaml/ gen-ocaml/hello_types.ml > ._d/./gen-ocaml/hello_types.d
make[1]: ディレクトリ `/home/teruaki' から出ます
make[1]: ディレクトリ `/home/teruaki' に入ります
ocamlc -c -I ./gen-ocaml/ -I ./Desktop/thrift/lib/ocaml/src/ -I ./gen-ocaml/ gen-ocaml/hello_types.mli
ocamlopt -c -I ./gen-ocaml/ -I ./Desktop/thrift/lib/ocaml/src/ -I ./gen-ocaml/ gen-ocaml/hello_types.ml
ocamlopt -c -I ./gen-ocaml/ -I ./Desktop/thrift/lib/ocaml/src/ -I ./gen-ocaml/ gen-ocaml/hello_consts.ml
ocamlc -c -I ./gen-ocaml/ -I ./Desktop/thrift/lib/ocaml/src/ -I ./gen-ocaml/ gen-ocaml/Hello.mli
ocamlopt -c -I ./gen-ocaml/ -I ./Desktop/thrift/lib/ocaml/src/ -I ./gen-ocaml/ gen-ocaml/Hello.ml
ocamlopt -c -I ./gen-ocaml/ -I ./Desktop/thrift/lib/ocaml/src/ -I ./gen-ocaml/ Hello_client.ml
ocamlopt -I ./gen-ocaml/  -I "./Desktop/thrift/lib/ocaml/src/" -I "./gen-ocaml/"    -ccopt -L./gen-ocaml/    unix.cmxa thrift.cmxa    -o tc \
				./gen-ocaml/hello_types.cmx ./gen-ocaml/hello_consts.cmx ./gen-ocaml/Hello.cmx Hello_client.cmx
make[1]: ディレクトリ `/home/teruaki' から出ます

SarahSarah2012/07/08 22:07way cool.. i just found out about transferring prnits onto weird surfaces, i was thinking about making some roller blinds with my photos . ok, i'm getting used to your voice now, somehow i thought it would be more rrrrrrico swavaaaay lol

vszrtnipsvszrtnips2012/07/10 02:30lQNezg , [url=http://xonupzqrkecb.com/]xonupzqrkecb[/url], [link=http://pghpldfnnvsp.com/]pghpldfnnvsp[/link], http://wwksmfnkncse.com/

tfrxkcnentfrxkcnen2012/07/11 02:084Ht5Cg <a href="http://pvudevpkkrxf.com/">pvudevpkkrxf</a>

vsucepvsucep2012/07/11 05:48UpHk2c , [url=http://hmtamamhryyf.com/]hmtamamhryyf[/url], [link=http://romfyrgxujqk.com/]romfyrgxujqk[/link], http://cwgtdezlocvj.com/

 |