DICF4 ;SEA/TOAD,SF/TKW-VA FileMan: Finder, (pointer indexes) ;15NOV2012
Source file <DICF4.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| P2 | ; Process variable pointer
|
|
| P3 | ||
| P1 | ; Process regular pointer
|
|
| ERR(DIERN,DIFILE,DIIENS,DIFIELD,DI1,DI2,DI3) | ;
; error logging procedure |
|
| SETDA(DIEN) | ; Return code that sets DA array to current level when pointer field is in a multiple. DA itself=DA(1).
|
|
| DIC(DIC,DIEN,DIFILE,DINDEX,DIVALUE,DITARGET) | ; If we were called from ^DIC, we want to do recursive lookup there.
|
|
| BLDSCR(DISCR,DINEW,DIPRV,DIFL,DINDEX,DISCREEN,DIFILE) | ; Build screen to make sure entry is in pointer index.
|
|
| SETIX(DIFORCE,DINDEX,DIX,DIF) | ; If user passes list of indexes to use on pointed-to file, set up to use them.
|
|
| POINT(DIFILE,DIFLAGS,DINDEX,DIDENT,DIEN,DIFIEN,DISCREEN,DIVALUE,DIC,DIFORCE) | ;
; PREPIX^DICF2--transform value for indexed pointer field |
|
| NUM | ||
| P21 |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DD( | P3+1, DIC+3 |
| ^DIC - [#1] | P3+5 |
| Name | Line Occurrences |
|---|---|
| $$SETDA | DIC+9 |
| BLDSCR | NUM+3, P3+17 |
| DIC | P1+4, P2+2 |
| P3 | P21, P21+1 |
| SETIX | NUM+1, P3+8 |
| Name | Field # of Occurrence |
|---|---|
| ^( | P3+1 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| % | SETIX+1~, SETIX+2*, SETIX+3, SETDA+1~, SETDA+2*, DIC+1~, DIC+3* |
| %Y | DIC+1~, DIC+3* |
| D | DIC+1~, DIC+2* |
| DA | DIC+9~ |
| DD | DIC+1~, DIC+3* |
| DF | DIC+1~, DIC+2* |
| DI | ERR+3~* |
| DI1 | ERR~ |
| DI2 | ERR~ |
| DI3 | ERR~ |
| DIC | POINT~, P1+4, P2+2, DIC~, DIC+8~* |
| DICODE | SETDA+1~*, SETDA+2*, SETDA+3 |
| DICR | DIC+4*, DIC+10*! |
| DICR( | DIC+10! |
| DICRS | DIC+1~ |
| DICSUBS | BLDSCR+1~*, BLDSCR+4 |
| DID | DIC+1~ |
| DIDENT | POINT~ |
| DIEN | POINT~, P1+4, P2+2, SETDA~, DIC~, DIC+9~ |
| DIEN( | SETDA+2 |
| DIEN(1 | SETDA+1 |
| DIERN | ERR~, ERR+4 |
| >> DIERR | NUM+5, P2+3, P21, P21+2, P3+1, P3+9 |
| DIF | POINT+2~, POINT+3*, POINT+4*, NUM+1, NUM+2~*, NUM+4, P3+7, SETIX~, SETIX+4*, SETIX+5* |
| DIF1 | P3~, P3+2!, P3+7*, P3+8, P3+9, P3+13*, P3+19 |
| DIFIELD | ERR~ |
| DIFIEN | POINT~ |
| DIFILE | POINT~, P1+4, NUM+3, P2+2, P3+17, BLDSCR~, BLDSCR+6, BLDSCR+8, DIC~, DIC+2 , DIC+6~, ERR~ |
| DIFILE( | BLDSCR+6, BLDSCR+8 |
| DIFILE("CHAIN" | NUM+2, P3+16 |
| DIFILES | P2+6~, P2+8, P21+1! |
| DIFILES( | P3+3 |
| DIFILES(0 | P21+1, P3+3, P3+11 |
| DIFINDER | DIC+1~, DIC+7* |
| DIFL | POINT+2~, P1+2*, NUM+3, NUM+4, P3+2!, P3+7*, P3+9, P3+17, P3+19, SETIX+2 , BLDSCR~, BLDSCR+3 |
| DIFL( | BLDSCR+3 |
| DIFL("CHAIN" | NUM+2*, P3+16* |
| DIFLAGS | POINT~, POINT+3, POINT+4, P1+4, P1+5, P2+1 |
| DIFORCE | POINT~, NUM+1, P3+8, SETIX~ |
| DIFORCE("PTRIX" | NUM+1, P3+8, SETIX+1 |
| DIIENS | ERR~ |
| DINDEX | POINT~, P1+4, NUM+1, NUM+3, P2+2, P3+8, P3+17, SETIX~, BLDSCR~, BLDSCR+6 , BLDSCR+8, DIC~, DIC+3 |
| DINDEX( | P3+6 |
| DINDEX("#" | BLDSCR+5 |
| DINDEX("START" | DIC+2 |
| DINDEX(1 | P1+1, P1+2, NUM+6*, P2+4*, P2+8, P21+3*, P3+1, SETIX+2, BLDSCR+3, DIC+3 |
| DINEW | POINT+2~, POINT+7*, POINT+8*, NUM+3, P3+17, BLDSCR~, BLDSCR+2, BLDSCR+4, BLDSCR+6, BLDSCR+8 |
| DINUM | DIC+1~ |
| DIPE | ERR+2~, ERR+4 |
| DIPE( | ERR+3* |
| DIPRV | POINT+2~, POINT+7*, POINT+8, NUM+3, P3+17, BLDSCR~, BLDSCR+2 |
| DIPVAL | POINT+2~, NUM+4, P3+2!, P3+19 |
| DIPVAL(1 | P1+3*, P3+11*, P3+14* |
| DIS1 | P3~, P3+2!, P3+10*, P3+17, P3+19 |
| DIS1(1 | P3+11* |
| DISCR | POINT+2~, NUM+3, NUM+4, P3+10, BLDSCR~ |
| DISCR( | POINT+7*, BLDSCR+2*, BLDSCR+6*, BLDSCR+8* |
| DISCR("S" | BLDSCR+4* |
| DISCR(1 | P1+3* |
| DISCREEN | POINT~, NUM+3, P3+17, BLDSCR~ |
| DISCREEN( | POINT+7 |
| DISCREEN("S" | BLDSCR+2 |
| DISCREEN("V" | P3+4 |
| DISCREEN(1 | P1+3, P3+11 |
| DISKIP | POINT+2~ |
| >> DISUB | P3+6 |
| DITARGET | POINT+2~, POINT+5, P1+4, NUM+4, NUM+5, NUM+6, P2+2, P2+3, P2+4, P21 , P21+1, P21+2, P21+3, P3+18, P3+19, DIC~, DIC+13 |
| DITARGET("C" | POINT+6*, P3+18* |
| DIVAL | DIC+1~ |
| DIVAL(0 | DIC+2* |
| DIVAL(1 | DIC+2* |
| DIVALUE | POINT~, P1+4, P2+2, DIC~ |
| DIVALUE(1 | P1+3, P2+6, P2+7, P3+11, P3+14, DIC+2 |
| DIVP | P3~, P3+1* |
| DIX | POINT+2~, POINT+3*, NUM+1, NUM+4, P3+2!*, P3+8, P3+19, SETIX~, SETIX+3*, SETIX+4 |
| DIX("PTRIX" | SETIX+1*, SETIX+2 |
| DO | DIC+1~ |
| DO(2 | DIC+2* |
| DS | DIC+1~, DIC+3* |
| F | NUM+2~*! |
| G | P3~, P3+4, P3+5*, P3+6* |
| I | P3~, BLDSCR+3~*, BLDSCR+4, DIC+6~, DIC+8*! |
| U | P1+2, SETIX+4, BLDSCR+3, DIC+13 |
| V | P2+7~*, P2+8 |
| X | P3~, P3+1*, P3+3, P3+5, P3+7, DIC+1~, DIC+2*, DIC+13 |
| Y | DIC+1~, DIC+3*, DIC+10, DIC+12, DIC+13 |