DICL3 ;SF/TKW-VA FileMan: Lookup: Lister, Part 4 ;1/26/99 08:32
Source file <DICL3.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| FOLLOW(DIFILE,DIF,DIDEF,DICHNNO,DILVL,DIFRFILE,DIFIELD,DIDXFILE,DIVPTR,DISUB,DISCREEN) | ;
|
|
| F1 | ; increment stack level, loop increments at top
; if pointing file lacks B index, store that in stack |
|
| F2 | ; Find data type of .01 field of pointed-to file, process
; end of pointer chain. |
|
| F3 | ; Advance file number, Process regular pointers within pointer chain.
|
|
| F4 | ; Process variable pointers within the pointer chain.
|
|
| BACKTRAK(DIFLAGS,DIFILE,DISTACK,DIEN,DIFIEN,DINDEX0,DINDEX,DIDENT,DISCREEN,DILIST) | ;
|
|
| B1 | ; back up one level on stack, recover file #, root, and index file,
; and set value to match equal to the previous level's ien value |
|
| B2 | ; loop through matches on pointer index,
; quit when no matches, if not back to root of pointer chain yet, ; make another recursive call to BACKTRAK to unwind to pointing ; file's matches |
|
| SETB | ; Set temporary "B" index on pointed-to files.
|
