]>
Commit | Line | Data |
---|---|---|
f67539c2 TL |
1 | (* |
2 | Licensed to the Apache Software Foundation (ASF) under one | |
3 | or more contributor license agreements. See the NOTICE file | |
4 | distributed with this work for additional information | |
5 | regarding copyright ownership. The ASF licenses this file | |
6 | to you under the Apache License, Version 2.0 (the | |
7 | "License"); you may not use this file except in compliance | |
8 | with the License. You may obtain a copy of the License at | |
9 | ||
10 | http://www.apache.org/licenses/LICENSE-2.0 | |
11 | ||
12 | Unless required by applicable law or agreed to in writing, | |
13 | software distributed under the License is distributed on an | |
14 | "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY | |
15 | KIND, either express or implied. See the License for the | |
16 | specific language governing permissions and limitations | |
17 | under the License. | |
18 | *) | |
19 | ||
20 | open Thrift | |
21 | ||
22 | class t port = | |
23 | object | |
24 | inherit Transport.server_t | |
25 | val mutable sock = None | |
26 | method listen = | |
27 | let s = Unix.socket Unix.PF_INET Unix.SOCK_STREAM 0 in | |
28 | sock <- Some s; | |
29 | Unix.bind s (Unix.ADDR_INET (Unix.inet_addr_any, port)); | |
30 | Unix.listen s 256 | |
31 | method close = | |
32 | match sock with | |
33 | Some s -> Unix.shutdown s Unix.SHUTDOWN_ALL; Unix.close s; | |
34 | sock <- None | |
35 | | _ -> () | |
36 | method acceptImpl = | |
37 | match sock with | |
38 | Some s -> let (fd,_) = Unix.accept s in | |
39 | new TChannelTransport.t (Unix.in_channel_of_descr fd,Unix.out_channel_of_descr fd) | |
40 | | _ -> raise (Transport.E (Transport.NOT_OPEN,"TServerSocket: Not listening but tried to accept")) | |
41 | end |