Всем здравствуйте !!!
Искал в документацию по GT.M но ничего не нашел ...
На форуме у них тоже тихо, думал может здесь помогут.
Вот как это описывается в доке Cache' :
" You can use the JOB command to implement a TCP concurrent server. A TCP concurrent server allows multiple clients to be served simultaneously. In this mode, a client does not have to wait for the server to finish serving other clients. Instead, each time a client requests the server, it spawns a separate subjob for that client which remains open as long as the client needs it. As soon as this subjob has been spawned (indicated by the return of the JOB command), another client may request service and the server will create a subjob for that client as well. "
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
server
server
SET io="|TCP|1"
SET ^serverport= 7001
OPEN io:(:^serverport:"MA"): 200
IF ('$TEST) {
WRITE !,"Cannot open server port"
QUIT }
ELSE { WRITE !,"Server port opened" }
loop
USE io READ x ; Read for accept
USE 0 WRITE !,"Accepted connection"
JOB child:(: 5 :io:io) ;Concurrent server bit is on
GOTO loop
child
WRITE $JOB,! ; Send job id on TCP device to be read by client
QUIT
.
.
Как этот прием
JOB child:(:5:io:io) использовать в GT.M ?
Спасибо, буду очень благодарен
