©2011-2018 Open Source Electronic Health Record Alliance
This work is licensed under a Creative Commons Attribution 3.0 Unported License
This work is licensed under a Creative Commons Attribution 3.0 Unported License
%ZISTCPS ;ISF/RWF - DEVICE HANDLER TCP/IP SERVER CALLS ;06/20/2005 09:11
Source file <ZISTCPS.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| EXIT() | ;See if time to exit
|
|
| OPNERR | ;
|
|
| LISTEN(SOCK,RTN,ZRULE) | ;Listen on socket, start routine
|
|
| CHILDONT(IO,RTN) | ;Child process for OpenM
|
|
| LG2 | ||
| GTMLNCH(IO,RTN) | ;Run gt.m job for this conncetion.
|
|
| LGTM | ;GT.M multi thread server
|
|
| VAR | ;Setup IO variables
|
|
| CLOSE | ;Close and reset
|
|
| LOG(MSG) | ;LOG STATUS
|
|
| LONT2 | ||
| LONT | ;Open port in Accept mode with standard terminators.
|
|
| NEWOK() | ;Is it OK to start a new process
|
| Name | Line Occurrences |
|---|---|
| Function Call: READ |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^%ZIS(14.5 - [#14.5] | NEWOK+1 |
| ^%ZOSF("OS" | LISTEN+3 |
| ^%ZOSF("VOL" | NEWOK+1 |
| ^TMP("ZISTCP" | LGTM+1!, LOG+2* |
| ^XUTL("XQ" | VAR+4* |
| Name | Line Occurrences |
|---|---|
| $$EXIT | LONT2, LG2+3 |
| $$NEWOK | CHILDONT+3, LG2+9 |
| @( | CHILDONT+5, GTMLNCH+4 |
| GTMLNCH | LG2+21 |
| LG2 | LG2+9 |
| LGTM | LISTEN+6 |
| LOG | LGTM+4, LGTM+7, LGTM+8, LGTM+10, LG2+8 |
| LONT | LISTEN+6 |
| LONT2 | LONT2+5 |
| VAR | CHILDONT+5, GTMLNCH+4 |
| Name | Field # of Occurrence |
|---|---|
| ^($J | LOG+2* |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| %A | LISTEN+1~, LGTM+1~, LG2*, LG2+2* |
| %ZA | LONT+1~, LONT2+3*, LONT2+4 |
| CNT | LOG+1~, LOG+2* |
| EXIT | LISTEN+1~, LONT+2*, LONT2*, LONT2+1, OPNERR+1*, LG2*, LG2+3*, LG2+5, GTMLNCH+1~ |
| IO | CHILDONT~, CHILDONT+1*, CHILDONT+2, VAR+1, GTMLNCH~, GTMLNCH+3 |
| IO("C" | GTMLNCH+5 |
| IO("ERROR" | OPNERR+1* |
| IO(0 | VAR+1*, GTMLNCH+3* |
| IO(1 | VAR+1*, GTMLNCH+3* |
| IOF | VAR+3* |
| IOST | VAR+2* |
| IOST(0 | VAR+2* |
| >> IOT | VAR+2* |
| >> LISTEN(1 | LGTM+10 |
| MSG | LOG~, LOG+2 |
| NEWCHAR | LONT+1~, LONT2* |
| NEWJOB | CHILDONT+3*, CHILDONT+4, CHILDONT+5! |
| NIO | LISTEN+1~, LISTEN+7, LONT+2*, LONT+4, LONT2, LONT2+1, LGTM+3*, LGTM+4, LGTM+6, LGTM+8 , LG2+5, LG2+10, LG2+11, LG2+14, LG2+19, LG2+21, GTMLNCH+1~ |
| NIO("SOCK" | LG2+7*, LG2+8, LG2+11 |
| NIO("ZISTCP" | LGTM+8*, LGTM+10*, LG2+2*, LG2+7, LG2+11! |
| >> POP | LISTEN+4*, LISTEN+6*, LISTEN+7, LONT+4*, VAR+1*, OPNERR+1*, LG2+22* |
| RTN | LISTEN~, CHILDONT~, CHILDONT+5, LG2+21, GTMLNCH~, GTMLNCH+4 |
| SOCK | LISTEN~, LONT+2, LGTM+7, GTMLNCH+1~ |
| >> SOCKET | LG2+11, LG2+14 |
| U | LISTEN+5*, GTMLNCH+2* |
| >> WAIT(30 | LG2+1 |
| X | LISTEN+1~ |
| XQVOL | LISTEN+5*, GTMLNCH+1~ |
| >> XUENV | LISTEN+5* |
| >> Y | LISTEN+5 |
| ZISOS | LISTEN+1~, LISTEN+3*, LISTEN+6, GTMLNCH+1~ |
| ZISQUIT | EXIT+2~*, EXIT+3 |
| ZRULE | LISTEN~, LISTEN+3*, EXIT+3 |