%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
 ;
 ............
 ............

%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
 ...........
 ...........
 ;

  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
 ;
 .....
 ....