HLOPRSR2 ;ALB/CJM - Visual Parser 12 JUN 1997 10:00 am ;08/17/2009
Source file <HLOPRSR2.m>
| action | A | extended action | Ea | event driver | Ed | subscriber | Su | protocol | O | limited protocol | LP | run routine | RR | broker | B | edit | E | server | Se | P | screenman | SM | inquire | I |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| WRITELN(LINE,Y) | ;writes one line to the screen
|
|
| RIGHT | ;
|
|
| GORIGHT | ;
|
|
| LEFT | ;
|
|
| GOLEFT | ;
|
|
| MSGSIZE() | ;
|
|
| SCRNSIZE() | ;
|
|
| TOP(INC) | ;msg line at the top of the scrolling area
|
|
| LINE(TO,INC) | ;msg line
|
|
| X(TO,INC) | ;current position within the line
|
|
| Y(LINE) | ;screen line of msg line = LINE
|
|
| SEG(INC) | ;returns the current segement #
|
|
| FLD(SET) | ;returns the currrent field #
|
|
| REP(SET) | ;returns the current repitition #
|
|
| COMP(SET) | ;returns the current component #
|
|
| SUB(SET) | ;returns the current sub-component #
|
|
| SEGSTART(SEGMENT) | ;
|
|
| IOXY(Y,X) | ; moves to screen position line=Y, col=X
|
|
| HILITE(LINE1,CHAR1,LINE2,CHAR2) | ;does hightlighting
|
|
| LITE | ||
| UNLITE | ;
|
|
| DOWN | ;
|
|
| UP | ;
|
|
| SCROLL(COUNT) | ; Scrolls up (COUNT positive) or down (COUNT negative)
|
|
| GETCHAR(INC) | ;returns a message character, can go forward or backward but will not cross the segment boundary.
|
|
| LJ(STRING,LENGTH) | ;
|
| Name | Field # of Occurrence |
|---|---|
| $$BOT^HLOPRSR1 | SCROLL+8, SCROLL+10 |
| $$COMP^HLOPRSR1 | COMP+1 |
| $$FLD^HLOPRSR1 | FLD+1 |
| $$LINE^HLOPRSR1 | LINE+1 |
| $$MSGSIZE^HLOPRSR1 | MSGSIZE+1 |
| $$REP^HLOPRSR1 | REP+1 |
| $$SCRNSIZE^HLOPRSR1 | SCRNSIZE+1 |
| $$SEG^HLOPRSR1 | SEG+1 |
| $$SEGSTART^HLOPRSR1 | SEGSTART+1 |
| $$SUB^HLOPRSR1 | SUB+1 |
| $$TOP^HLOPRSR1 | TOP+1 |
| $$X^HLOPRSR1 | X+2 |
| $$Y^HLOPRSR1 | Y+1 |
| IOXY^HLOPRSR1 | IOXY+1 |
| WRITELN^HLOPRSR1 | WRITELN+1 |
| DESCRIBE^HLOPRSR3 | GORIGHT+4, GOLEFT+4, DOWN+16, UP+16 |
| $$LJ^XLFSTR | LJ+1 |
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Name | Line Occurrences |
|---|---|
| $$COMP | RIGHT+12, RIGHT+25, RIGHT+27, RIGHT+29, LEFT+15, LEFT+23, LEFT+27, LEFT+35, LEFT+46, LEFT+47 , LEFT+48, LEFT+61, LEFT+63, LEFT+65 |
| $$FLD | RIGHT+12, RIGHT+25, LEFT+15, LEFT+23, LEFT+27, LEFT+35, LEFT+46, LEFT+61, LEFT+63, LEFT+65 |
| $$GETCHAR | RIGHT+22, RIGHT+33, LEFT+42, LEFT+58, LEFT+69, HILITE+22 |
| $$LINE | RIGHT+7, RIGHT+8, RIGHT+9, RIGHT+10, RIGHT+11, RIGHT+20, RIGHT+34, RIGHT+35, RIGHT+38, RIGHT+41 , LEFT+6, LEFT+9, LEFT+11, LEFT+12, LEFT+13, LEFT+14, LEFT+19, LEFT+20, LEFT+21, LEFT+22 , LEFT+27, LEFT+29, LEFT+30, LEFT+32, LEFT+33, LEFT+34, LEFT+35, LEFT+39, LEFT+40, LEFT+41 , LEFT+44, LEFT+52, LEFT+53, LEFT+55, LEFT+70, LEFT+74, LEFT+77, LEFT+78, HILITE+17, DOWN+5 , DOWN+7, DOWN+13, DOWN+14, DOWN+15, DOWN+17, UP+5, UP+7, UP+13, UP+14, UP+15 , UP+17, SCROLL+10, GETCHAR+8, GETCHAR+13, GETCHAR+19, GETCHAR+20, GETCHAR+31, GETCHAR+35 |
| $$MSGSIZE | DOWN+7, UP+7 |
| $$REP | RIGHT+12, RIGHT+25, RIGHT+27, LEFT+15, LEFT+23, LEFT+35, LEFT+46, LEFT+47, LEFT+61, LEFT+63 , LEFT+65 |
| $$SEG | RIGHT+6, LEFT+9, LEFT+27, DOWN+4, DOWN+5, DOWN+15, UP+4, UP+5, UP+15, GETCHAR+13 , GETCHAR+19 |
| $$SEGSTART | RIGHT+6, LEFT+9, LEFT+27, DOWN+4, DOWN+5, DOWN+15, UP+4, UP+5, UP+15, GETCHAR+13 , GETCHAR+19 |
| $$SUB | RIGHT+12, RIGHT+25, RIGHT+27, RIGHT+29, RIGHT+31, LEFT+15, LEFT+23, LEFT+27, LEFT+35, LEFT+46 , LEFT+47, LEFT+48, LEFT+49, LEFT+61, LEFT+63, LEFT+65, LEFT+67 |
| $$TOP | SCROLL+7, SCROLL+17 |
| $$X | RIGHT+12, RIGHT+20, RIGHT+34, RIGHT+35, RIGHT+41, LEFT+6, LEFT+9, LEFT+10, LEFT+15, LEFT+23 , LEFT+27, LEFT+35, LEFT+44, LEFT+52, LEFT+53, LEFT+55, LEFT+70, LEFT+77, LEFT+78, HILITE+17 , HILITE+24, DOWN+17, UP+17, GETCHAR+9, GETCHAR+11, GETCHAR+13, GETCHAR+16, GETCHAR+18, GETCHAR+20, GETCHAR+24 , GETCHAR+31, GETCHAR+35 |
| $$Y | GORIGHT+2, GOLEFT+2, HILITE+17, HILITE+24, LITE+2, LITE+3, DOWN+9, DOWN+10, DOWN+12, UP+9 , UP+10, UP+12 |
| DOWN | RIGHT+18 |
| GOLEFT | LEFT+9, LEFT+26 |
| GORIGHT | RIGHT+6 |
| HILITE | GORIGHT+5, GOLEFT+5, DOWN+17, UP+17 |
| IOXY | HILITE+17, HILITE+24, LITE+3, DOWN+10, UP+10, SCROLL+4, SCROLL+9, SCROLL+14, SCROLL+18 |
| LITE | HILITE+11, UNLITE+7 |
| SCROLL | GORIGHT+2, GOLEFT+2, DOWN+12, UP+12 |
| UNLITE | HILITE+7 |
| UP | LEFT+6, LEFT+73 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| CHAR | RIGHT+1~, RIGHT+22*, RIGHT+24, RIGHT+26, RIGHT+28, RIGHT+30, RIGHT+33*, RIGHT+34, RIGHT+36, RIGHT+40 , LEFT+1~, LEFT+42*, LEFT+43, LEFT+46, LEFT+47, LEFT+48, LEFT+49, LEFT+51, LEFT+58*, LEFT+60 , LEFT+62, LEFT+64, LEFT+66, LEFT+69*, LEFT+70, LEFT+71, LEFT+76 |
| CHAR1 | HILITE~, HILITE+8, HILITE+10, LITE+3, LITE+4, UNLITE+1~, UNLITE+4*, UNLITE+6, UNLITE+8 |
| CHAR2 | HILITE~, HILITE+8, HILITE+10, LITE+4, UNLITE+1~, UNLITE+4* |
| >> COMP | RIGHT+28, LEFT+48, LEFT+64 |
| COUNT | SCROLL~, SCROLL+3, SCROLL+5, SCROLL+13, SCROLL+15 |
| >> DELIM | RIGHT+34, LEFT+43, LEFT+70 |
| END | GETCHAR+6~, GETCHAR+7*, GETCHAR+16*, GETCHAR+22*, GETCHAR+24*, GETCHAR+31*, GETCHAR+34 |
| >> FLD | RIGHT+8, RIGHT+9, RIGHT+24, LEFT+9, LEFT+12, LEFT+19, LEFT+32, LEFT+35, LEFT+46, LEFT+60 |
| HILITE | HILITE+7, HILITE+10*, UNLITE+3, UNLITE+4, UNLITE+5! |
| I | DOWN+1~, DOWN+8*, UP+1~, UP+8*, SCROLL+2~, SCROLL+5*, SCROLL+15* |
| INC | TOP~, TOP+1, LINE~, LINE+1, X~, X+2, SEG~, SEG+1, GETCHAR~, GETCHAR+10 , GETCHAR+17, GETCHAR+31 |
| >> IOBM | GORIGHT+2, LITE+2, DOWN+9, DOWN+12, SCROLL+4, SCROLL+9 |
| >> IOCUON | HILITE+25 |
| >> IOIND | SCROLL+6 |
| >> IOINHI | HILITE+21, UNLITE+6 |
| >> IOINORM | HILITE+23, UNLITE+8 |
| >> IORI | SCROLL+16 |
| >> IORVOFF | HILITE+12, UNLITE+2 |
| >> IORVON | HILITE+9 |
| >> IOTM | GOLEFT+2, LITE+2, UP+9, UP+12 |
| LASTPART | DOWN+2!, UP+2! |
| LASTPART( | LEFT+61, LEFT+63, LEFT+65 |
| LASTPART(1 | RIGHT+13*, LEFT+16*, LEFT+36* |
| LASTPART(2 | RIGHT+14*, LEFT+17*, LEFT+37* |
| LENGTH | LJ~, LJ+1 |
| LINE | WRITELN~, WRITELN+1, RIGHT+1~, LEFT+1~, Y~, Y+1, LITE~, LITE+1*, LITE+2, LITE+3 , LITE+4 |
| LINE1 | HILITE~, HILITE+8, HILITE+10, LITE+1, LITE+3, LITE+4, UNLITE+1~, UNLITE+4* |
| LINE2 | HILITE~, HILITE+8, HILITE+10, LITE+1, LITE+4, UNLITE+1~, UNLITE+4*, UNLITE+6, UNLITE+8 |
| >> MSG | RIGHT+8, RIGHT+9, LEFT+9, LEFT+12, LEFT+19, LEFT+29, LEFT+32, LEFT+35, LITE+4, DOWN+13 , UP+13, SCROLL+8, SCROLL+17, GETCHAR+20, GETCHAR+35 |
| >> POS( | DOWN+8*, UP+8* |
| >> POS("CHAR" | SCROLL+11*, SCROLL+19* |
| >> POS("CURRENT | DELIMITER" , RIGHT+6, RIGHT+7*, RIGHT+17*, RIGHT+18, RIGHT+20, LEFT+5, LEFT+11*, LEFT+20*, LEFT+26 , LEFT+35*, LEFT+39*, LEFT+44*, LEFT+55, LEFT+70*, LEFT+74*, HILITE+13, HILITE+17, DOWN+14*, UP+14* |
| >> POS("NEXT DEL | IMITER" , RIGHT+8*, RIGHT+17, RIGHT+34*, RIGHT+38*, LEFT+5*, LEFT+40*, DOWN+15*, UP+15* |
| QUIT | RIGHT+1~, RIGHT+3*, RIGHT+33, RIGHT+34*, RIGHT+37*, LEFT+1~, LEFT+3*, LEFT+69, LEFT+70*, LEFT+72* |
| >> REP | RIGHT+26, LEFT+47, LEFT+62 |
| >> SEGLINE( | UNLITE+6, UNLITE+8 |
| SEGMENT | SEGSTART~, SEGSTART+1 |
| >> SEGTYPE | RIGHT+6, LEFT+9, LEFT+29*, LEFT+31, LEFT+41, DOWN+3*, DOWN+13*, UP+3*, UP+13* |
| SET | FLD~, FLD+1, REP~, REP+1, COMP~, COMP+1, SUB~, SUB+1 |
| STRING | LJ~, LJ+1 |
| >> SUB | RIGHT+30, LEFT+49, LEFT+66 |
| TMP | GETCHAR+6~ |
| TMP("LINE" | GETCHAR+8*, GETCHAR+31 |
| TMP("X" | GETCHAR+9*, GETCHAR+31 |
| TO | LINE~, LINE+1, X~, X+2 |
| VALUE | RIGHT+2!, RIGHT+3*, RIGHT+9*, RIGHT+11, RIGHT+35, RIGHT+40*, LEFT+2!, LEFT+3*, LEFT+12*, LEFT+14 , LEFT+19*, LEFT+28!*, LEFT+32*, LEFT+34, LEFT+41*, LEFT+45!*, LEFT+51*, LEFT+52, LEFT+73, LEFT+76* , LEFT+77 |
| VALUE("END" | RIGHT+11*, RIGHT+35*, RIGHT+41*, GORIGHT+5, LEFT+14*, LEFT+22*, LEFT+34*, LEFT+41*, LEFT+53*, LEFT+77* , GOLEFT+5 |
| VALUE("START" | RIGHT+10*, RIGHT+35*, GORIGHT+5, LEFT+13*, LEFT+21*, LEFT+33*, LEFT+41*, LEFT+52*, LEFT+78*, GOLEFT+5 |
| X | IOXY~, IOXY+1, HILITE+6~, HILITE+13*, HILITE+17, HILITE+20 |
| Y | WRITELN~, WRITELN+1, IOXY~, IOXY+1 |