]>
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 | |
23 | (pf : Processor.t) | |
24 | (st : Transport.server_t) | |
25 | (tf : Transport.factory) | |
26 | (ipf : Protocol.factory) | |
27 | (opf : Protocol.factory)= | |
28 | object | |
29 | inherit TServer.t pf st tf ipf opf | |
30 | method serve = | |
31 | st#listen; | |
32 | while true do | |
33 | let tr = tf#getTransport (st#accept) in | |
34 | ignore (Thread.create | |
35 | (fun _ -> | |
36 | let ip = ipf#getProtocol tr in | |
37 | let op = opf#getProtocol tr in | |
38 | try | |
39 | while pf#process ip op do | |
40 | () | |
41 | done | |
42 | with _ -> ()) ()) | |
43 | done | |
44 | end | |
45 |