DICF1 ;SEA/TOAD,SF/TKW-VA FileMan: Finder, Part 2 (Transform) ;1SEP2014
Source file <DICF1.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 |
|---|---|---|
| XFORM(DIFLAGS,DIVALUE,DISCREEN,DINDEX) | ;
; FIND--produce array of values and screens by transforming input ; subroutine, DIVALUE, DINDEX, & DISCREEN passed by reference |
|
| VALUES | ; Alternate Lookup Values
|
|
| LOWER | ; 2. Add Upper-case Lookup Value to Array, If Needed
|
|
| CHK | ; 3. Skip Remaining Transforms for Most Data Types
|
|
| COMMA | ; 4. Add Comma-piece Lookup Value to Arrays, If Needed
|
|
| 21 | ||
| 22 | ||
| 23 | ||
| 24 | ||
| LONG | ; 5. Add Long Lookup Value to Arrays, If Needed
|
|
| DIREF | ||
| L10 | ||
| SPECIAL(DIFILE,DIEN,DIFIEN,DIFLAGS,DIVALUE,DINDEX,DISCREEN,DIDENT,DIOUT,DILIST) | ;
; Process space-bar return, 'IEN or DIVALUE equal to an IEN. |
|
| 11 | ; 1. Handle Space Lookup Value (Space-bar Recall)
|
|
| 12 | ; Handle Accent-grave Lookup Value
|
|
| 13 | ; Handle Pure Numeric Lookup Value (Possible IEN)
|
|
| ENTRY | ; Execute screens, and if entry passes, do ACCEPT to add it to output.
|
|
| BACKFROM(DIVALUE,DINDEX) | ; create From values for backward collation
|
|
| EOR | ; end of routine DICF1
|
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| %DT | CHK+8~, CHK+9* |
| B | BACKFROM+19~*, BACKFROM+20, BACKFROM+27~*, BACKFROM+28 |
| DI001 | 13+3~*, 13+6 |
| DI01FLAG | 13+4~*, 13+6 |
| DI0NODE | ENTRY+1~*, ENTRY+2, ENTRY+3 |
| DIDENT | SPECIAL~, ENTRY+3 |
| DIEN | SPECIAL~, 11+7*, 11+8*, 12+3*, 13+7*, 13+9*, ENTRY+1, ENTRY+2, ENTRY+3 |
| >> DIERR | 13+9 |
| DIFIEN | SPECIAL~, 11+3, ENTRY+2, ENTRY+3 |
| DIFILE | SPECIAL~, 11+3, 13+3, 13+4, 13+5, 13+6, ENTRY+1, ENTRY+2, ENTRY+3 |
| DIFILE( | 13+5, 13+6, ENTRY+1 |
| DIFLAGS | XFORM~, VALUES+12, LOWER+2, CHK+8~, COMMA+2, 21+2, 22+2, 23+4, 24+5, L10+2 , L10+3, SPECIAL~, 13+6, ENTRY+2, ENTRY+3 |
| DILIST | SPECIAL~, ENTRY+3 |
| DINDEX | XFORM~, CHK+8~, SPECIAL~, ENTRY+2, ENTRY+3, BACKFROM~ |
| DINDEX( | VALUES+6*, CHK+5, COMMA+4, LONG+2, LONG+5, LONG+11*, LONG+12, LONG+13, LONG+14* |
| DINDEX("#" | XFORM+3, BACKFROM+14 |
| DINDEX("DONE" | 13+9 |
| DINODE | 11+4~*, 11+5, 11+6, 11+7 |
| DINODEL | 11+5~*, 11+6, 11+7 |
| DIOUT | 21+6~*, 21+7, 21+11*, 21+12*, SPECIAL~, SPECIAL+2*, 11+2*, 12+2, 12+4*, 13+9* |
| DIPART1 | 21+3~*, 21+13 |
| DIPART2 | 21+4~*, 21+13 |
| DIPART3 | 21+5~*, 21+13 |
| DIPC2 | 22+2~, 22+3*, 22+4*, 22+5 |
| DIPIECE | 21+7~*, 21+8 |
| DIPIECE1 | COMMA+3~*, COMMA+4, COMMA+5, 23+2, 24+3 |
| DIPIECE2 | 22+2~, 22+3*, 22+4, 22+5, 23+4, 24+5 |
| DIREF | LONG+3~, DIREF*, DIREF+1, DIREF+2 |
| DIROOT | 11+3~*, 11+4, 11+6 |
| DISCREEN | XFORM~, CHK+8~, SPECIAL~, ENTRY+2 |
| DISCREEN( | VALUES+9!, 23+3*, 24+4*, LONG+8!*, LONG+16, L10+2*, L10+3*, L10+4*, L10+5* |
| DISLONG | LONG+3~, LONG+15*, LONG+16*, DIREF+1, DIREF+2 |
| DISPART | LONG+3~, DIREF+1*, L10+3, L10+5 |
| DISTEMP | COMMA+3~*, 21+12, 21+13*, 21+14, 21+15*, 21+16, 22+5*, 23+3, 24+4 |
| DISUB | XFORM+3~*, VALUES+4, VALUES+5, VALUES+6, VALUES+8, VALUES+9, VALUES+10, VALUES+11, LOWER+2, LOWER+3 , CHK+5, CHK+6, CHK+8~, COMMA+2, COMMA+3, COMMA+4, 21+8, 22+3, 23+2, 23+3 , 23+4, 24+2, 24+3, 24+4, 24+5, LONG+2, LONG+4, LONG+5, LONG+6, LONG+7 , LONG+8, LONG+9, LONG+11, LONG+12, LONG+13, LONG+14, LONG+16, DIREF, L10+2, L10+3 , L10+4, L10+5, BACKFROM+14~*, BACKFROM+16, BACKFROM+18, BACKFROM+19, BACKFROM+20, BACKFROM+24, BACKFROM+26, BACKFROM+27 , BACKFROM+28 |
| DISXACT | LONG+3~, DIREF+2*, L10+2, L10+4 |
| DIVAL | BACKFROM+22~*, BACKFROM+23, BACKFROM+24*, BACKFROM+25, BACKFROM+26, BACKFROM+27, BACKFROM+28 |
| DIVALUE | XFORM~, CHK+8~, SPECIAL~, 11+2, 12+2, 12+3, 13+2, 13+5, 13+7, BACKFROM~ |
| DIVALUE( | VALUES+4*, VALUES+5, VALUES+6, VALUES+8!, VALUES+10*, VALUES+11, LOWER+2, LOWER+3*, CHK+6, CHK+8 , COMMA+2, COMMA+3, 21+8, 22+3, 23+2*, 23+4*, 24+2, 24+3*, 24+5*, LONG+2 , LONG+4, LONG+6, LONG+7!*, LONG+9*, LONG+11*, LONG+13*, BACKFROM+16, BACKFROM+18, BACKFROM+19, BACKFROM+24 , BACKFROM+26, BACKFROM+27 |
| DIVALUE("BACK" | BACKFROM+16*, BACKFROM+20*, BACKFROM+28* |
| DIVPIECE | 21+7~, 21+8*, 21+9, 21+10*, 21+11, 21+12, 21+13 |
| DUZ | 11+4 |
| I | VALUES+5~*, VALUES+6, VALUES+8*, VALUES+9*, LONG+4*, LONG+6, LONG+7, LONG+8, LONG+9, LONG+10 , LONG+11, LONG+13, LONG+16, DIREF, L10+2, L10+3, L10+4, L10+5 |
| J | LONG+3~, LONG+12*, LONG+13, LONG+14 |
| L | LONG+5~*, LONG+6, LONG+9, LONG+12, LONG+14 |
| M | LONG+5~, LONG+12* |
| U | 13+4 |
| X | CHK+8~*, LONG+3~, LONG+7*, LONG+8* |
| Y | CHK+7~ |