krvsa,
Правильно EvLaUy заметил, но дело не в этом.
Здесь как бы одними вопрос-ответ не отделаться, минимум здесь статья нужна.
Как запускать API-server(его нужно писать или иметь готовым), как конект сделать, как записать-получить данные...
Отдельно нужно посмотреть как запускать xinetd.
Вот кусок кода с использованием xinetd:
%mactivlog ;;Compilation tools WinBuilder company "ELTRANSSOFT" :[24.12.2013 14:38:45]
;; xinetd native server. No use GT.M native socket
login(PORT,server,timeo)
i $g(timeo)="" s timeo=15
i $g(server)="" s server=1
i $g(port)="" s port=1666
d apiInit(server,port)
i $g(server)="" s server=1
i '$d(^%apilog(server,"ERRCODE")) s ^%apilog(server,"ERRCODE")="<##>"
i +port=0 s port=1667,^apilog(server,"KNOWNPORT")=1667
i $g(timeo)="" s timeo=15,^apilog(server,"TIMEO")=15
s sock=$P($key,"|",2)
s host=$P($key,"|",3)
s scms=""
d nextlogin(timeo,PORT,scms,server,host)
Q
;
............
............
А вот с использованием родного сокета GT.M:
%activlog ;;Compilation tools WinBuilder company "ELTRANSSOFT" :[12.12.2013 08:44:05]
;; Use GT.M native socket
login(port,server,timeo)
i $g(timeo)="" s timeo=15
i $g(server)="" s server=1
i $g(port)="" s port=1960
d apiInit(server,port)
srvlisten
i $g(server)="" s server=1
s port=$g(^apilog(server,"KNOWNPORT"))
s timeo=$g(^apilog(server,"TIMEO"))
i +port=0 s port=1960,^apilog(server,"KNOWNPORT")=1960
i $g(timeo)="" s timeo=15,^apilog(server,"TIMEO")=15
s tcpdev="|tcp|"_port
o tcpdev:(zlisten=port_":tcp":nodelimiter:znodelay:attach="listener"):timeo:"socket"
e q
u tcpdev
w /listen(1)
f d q:$key]""
. w /wait(timeo)
. i $key]"" Q
s sock=$P($key,"|",2)
s host=$P($key,"|",3)
s scms=""
c tcpdev:(socket="listener") j srvlisten^%activlog u tcpdev:(nodelimiter:znodelay:socket=sock)
d nextlogin(timeo,port,scms,server,host)
Q
...........
...........
;
Это только пример как запускать сервер API на базе MSM-Activate.
А вот как это делает Роб Твид в M/Wire(я от себя добавил сокета GT.M, но он использует xinetd):
Можете заглянуть у него на странице, там все это есть. Если видите, даже в коментах он
показывает как запускать этот сервис !!
QUIT
;
; By default this server code runs on port 6330
;
; For GT.M systems it is invoked via xinetd:
; Edit /etc/services and add the line:
;
; mwire 6330/tcp # Service for M/Wire Protocol
;
; Copy the file mwire to /etc/xinetd.d/mwire
; Copy the file zmwire to /usr/local/gtm/zmwire and change
; its permissions to executable (eg 755)
;
; These files may be edited to change the paths or port number
; Restart xinetd using: sudo /etc/init.d/xinetd restart
;
; On GT.M systems you must also have installed MGWSI or m_apache
; in order to provide the MD5 hashing function for passwords
; Alternatively substitute the MD5 callout to the MD5 function of your choice
;
; For Cache systems, it is invoked via the M/Wire Daemon routine
; which should be running as a jobbed process:
;
; job start^zmwireDaemon
;
; You can change the port number by simply editing the line
;
; port+1^zmwireDaemon
;
; Stop the Daemon process using ^RESJOB and restart it.
;
listen ; GT.M native master server
s timeo=30
s port=6330
s tcpdev="|TCP|"_port
o tcpdev:(ZLISTEN=port_":TCP":NODELIMITER:ZNODELAY:ATTACH="listener"):timeo:"SOCKET"
;e q
u tcpdev:morereadtime=100
u tcpdev
w /listen(1)
f d q:$key]""
. w /wait(timeo)
. i $key]"" q
s socket=$p($key,"|",2)
c tcpdev:(SOCKET="listener") j listen^%mwire u tcpdev:(NODELIMITER:ZNODELAY:SOCKET=socket)
d command
;
mwireVersion
;;Build 22
;
mwireDate
;;06 July 2011
;
version
;
s output="+M/Wire "_$p($t(mwireVersion+1),";;",2,2000) ;_separatorend;
w output
QUIT
;
build
;
.....
....
