| 1 | unit _MetaTypes;
|
|---|
| 2 |
|
|---|
| 3 | interface
|
|---|
| 4 |
|
|---|
| 5 | uses
|
|---|
| 6 | _FileTypes, _EmptyFile, _DataTypes, _Extensions, _TreeElement,
|
|---|
| 7 | AKEV, AKVA, BINA, SUBT, TXAN, TXMP;
|
|---|
| 8 | // ABNA, AGDB, AGQC, AGQG, AGQM, AGQR, AISA, AITR, AIWA, AKAA, AKBA, AKBP, AKDA,
|
|---|
| 9 | // AKEV, AKOT, AKVA, BINA, CBPI, CBPM, CONS, CRSA, DOOR, DPge, EDIA, ENVP, FILM,
|
|---|
| 10 | // FXLR, GMAN, HPge, IDXA, IGHH, IGPA, IGPG, IGSA, IGSt, Impt, IPge, KeyI, M3GA,
|
|---|
| 11 | // M3GM, M3TA, Mtrl, NMSA, OBAN, OBDC, OBLS, OBOA, OFGA, ONCC, ONCP, ONCV, ONFA,
|
|---|
| 12 | // ONGS, ONIA, ONLD, ONLV, ONMA, ONOA, ONSA, ONSK, ONTA, ONVL, ONWC, OPge, OSBD,
|
|---|
| 13 | // OTIT, OTLF, PLEA, PNTA, PSpc, PSpL, PSUI, QTNA, QUDA, SNDD, StNA, SUBT, TMFA,
|
|---|
| 14 | // TMRA, TRAC, TRAM, TRAS, TRBS, TRCM, TRFT, TRGA, TRGE, TRIA, TRIG, TRMA, TRSC,
|
|---|
| 15 | // TRTA, TSFF, TSFL, TSFT, TSGA, TStr, TURR, TXAN, TXCA, TXMA, TXMB, TXMP, TXPC,
|
|---|
| 16 | // TxtC, UUEA, UVDL, VCRA, WMCL, WMDD, WMM_, WMMB, WPge;
|
|---|
| 17 |
|
|---|
| 18 | type
|
|---|
| 19 | TTreeElement = _TreeElement.TTreeElement;
|
|---|
| 20 | TFile = _FileTypes.TFile;
|
|---|
| 21 | TFile_Empty = _EmptyFile.TFile_Empty;
|
|---|
| 22 | TExtension = _Extensions.TExtension;
|
|---|
| 23 | TExtensions = _Extensions.TExtensions;
|
|---|
| 24 |
|
|---|
| 25 | TDataField = _DataTypes.TDataField;
|
|---|
| 26 | TContainer = _DataTypes.TContainer;
|
|---|
| 27 | TBlock = _DataTypes.TBlock;
|
|---|
| 28 | TArray = _DataTypes.TArray;
|
|---|
| 29 |
|
|---|
| 30 | TFileID = _DataTypes.TFileID;
|
|---|
| 31 | TLevelID = _DataTypes.TLevelID;
|
|---|
| 32 | TInt = _DataTypes.TInt;
|
|---|
| 33 | TFloat = _DataTypes.TFloat;
|
|---|
| 34 | TString = _DataTypes.TString;
|
|---|
| 35 | TBitSet = _DataTypes.TBitSet;
|
|---|
| 36 | TDatLink = _DataTypes.TDatLink;
|
|---|
| 37 | TLinkByID = _DataTypes.TLinkByID;
|
|---|
| 38 | TRawLink = _DataTypes.TRawLink;
|
|---|
| 39 | TUnused = _DataTypes.TUnused;
|
|---|
| 40 |
|
|---|
| 41 | TFileClass = class of TFile;
|
|---|
| 42 | TFileDesc = record
|
|---|
| 43 | ext: String;
|
|---|
| 44 | ftype: TFileClass;
|
|---|
| 45 | end;
|
|---|
| 46 |
|
|---|
| 47 | const
|
|---|
| 48 | FileDescs: array[0..5] of TFileDesc = (
|
|---|
| 49 | (ext: 'AKEV'; ftype: TFile_AKEV),
|
|---|
| 50 | (ext: 'AKVA'; ftype: TFile_AKVA),
|
|---|
| 51 | (ext: 'BINA'; ftype: TFile_BINA),
|
|---|
| 52 | (ext: 'SUBT'; ftype: TFile_SUBT),
|
|---|
| 53 | (ext: 'TXAN'; ftype: TFile_TXAN),
|
|---|
| 54 | (ext: 'TXMP'; ftype: TFile_TXMP)
|
|---|
| 55 | );
|
|---|
| 56 |
|
|---|
| 57 | {
|
|---|
| 58 | FileDescs: array[0..112] of TFileDesc = (
|
|---|
| 59 | (ext: 'ABNA'; ftype: TFile_ABNA),
|
|---|
| 60 | (ext: 'AGDB'; ftype: TFile_AGDB),
|
|---|
| 61 | (ext: 'AGQC'; ftype: TFile_AGQC),
|
|---|
| 62 | (ext: 'AGQG'; ftype: TFile_AGQG),
|
|---|
| 63 | (ext: 'AGQM'; ftype: TFile_AGQM),
|
|---|
| 64 | (ext: 'AGQR'; ftype: TFile_AGQR),
|
|---|
| 65 | (ext: 'AISA'; ftype: TFile_AISA),
|
|---|
| 66 | (ext: 'AITR'; ftype: TFile_AITR),
|
|---|
| 67 | (ext: 'AIWA'; ftype: TFile_AIWA),
|
|---|
| 68 | (ext: 'AKAA'; ftype: TFile_AKAA),
|
|---|
| 69 | (ext: 'AKBA'; ftype: TFile_AKBA),
|
|---|
| 70 | (ext: 'AKBP'; ftype: TFile_AKBP),
|
|---|
| 71 | (ext: 'AKDA'; ftype: TFile_AKDA),
|
|---|
| 72 | (ext: 'AKEV'; ftype: TFile_AKEV),
|
|---|
| 73 | (ext: 'AKOT'; ftype: TFile_AKOT),
|
|---|
| 74 | (ext: 'AKVA'; ftype: TFile_AKVA),
|
|---|
| 75 | (ext: 'BINA'; ftype: TFile_BINA),
|
|---|
| 76 | (ext: 'CBPI'; ftype: TFile_CBPI),
|
|---|
| 77 | (ext: 'CBPM'; ftype: TFile_CBPM),
|
|---|
| 78 | (ext: 'CONS'; ftype: TFile_CONS),
|
|---|
| 79 | (ext: 'CRSA'; ftype: TFile_CRSA),
|
|---|
| 80 | (ext: 'DOOR'; ftype: TFile_DOOR),
|
|---|
| 81 | (ext: 'DPge'; ftype: TFile_DPge),
|
|---|
| 82 | (ext: 'EDIA'; ftype: TFile_EDIA),
|
|---|
| 83 | (ext: 'ENVP'; ftype: TFile_ENVP),
|
|---|
| 84 | (ext: 'FILM'; ftype: TFile_FILM),
|
|---|
| 85 | (ext: 'FXLR'; ftype: TFile_FXLR),
|
|---|
| 86 | (ext: 'GMAN'; ftype: TFile_GMAN),
|
|---|
| 87 | (ext: 'HPge'; ftype: TFile_HPge),
|
|---|
| 88 | (ext: 'IDXA'; ftype: TFile_IDXA),
|
|---|
| 89 | (ext: 'IGHH'; ftype: TFile_IGHH),
|
|---|
| 90 | (ext: 'IGPA'; ftype: TFile_IGPA),
|
|---|
| 91 | (ext: 'IGPG'; ftype: TFile_IGPG),
|
|---|
| 92 | (ext: 'IGSA'; ftype: TFile_IGSA),
|
|---|
| 93 | (ext: 'IGSt'; ftype: TFile_IGSt),
|
|---|
| 94 | (ext: 'Impt'; ftype: TFile_Impt),
|
|---|
| 95 | (ext: 'IPge'; ftype: TFile_IPge),
|
|---|
| 96 | (ext: 'KeyI'; ftype: TFile_KeyI),
|
|---|
| 97 | (ext: 'M3GA'; ftype: TFile_M3GA),
|
|---|
| 98 | (ext: 'M3GM'; ftype: TFile_M3GM),
|
|---|
| 99 | (ext: 'M3TA'; ftype: TFile_M3TA),
|
|---|
| 100 | (ext: 'Mtrl'; ftype: TFile_Mtrl),
|
|---|
| 101 | (ext: 'NMSA'; ftype: TFile_NMSA),
|
|---|
| 102 | (ext: 'OBAN'; ftype: TFile_OBAN),
|
|---|
| 103 | (ext: 'OBDC'; ftype: TFile_OBDC),
|
|---|
| 104 | (ext: 'OBLS'; ftype: TFile_OBLS),
|
|---|
| 105 | (ext: 'OBOA'; ftype: TFile_OBOA),
|
|---|
| 106 | (ext: 'OFGA'; ftype: TFile_OFGA),
|
|---|
| 107 | (ext: 'ONCC'; ftype: TFile_ONCC),
|
|---|
| 108 | (ext: 'ONCP'; ftype: TFile_ONCP),
|
|---|
| 109 | (ext: 'ONCV'; ftype: TFile_ONCV),
|
|---|
| 110 | (ext: 'ONFA'; ftype: TFile_ONFA),
|
|---|
| 111 | (ext: 'ONGS'; ftype: TFile_ONGS),
|
|---|
| 112 | (ext: 'ONIA'; ftype: TFile_ONIA),
|
|---|
| 113 | (ext: 'ONLD'; ftype: TFile_ONLD),
|
|---|
| 114 | (ext: 'ONLV'; ftype: TFile_ONLV),
|
|---|
| 115 | (ext: 'ONMA'; ftype: TFile_ONMA),
|
|---|
| 116 | (ext: 'ONOA'; ftype: TFile_ONOA),
|
|---|
| 117 | (ext: 'ONSA'; ftype: TFile_ONSA),
|
|---|
| 118 | (ext: 'ONSK'; ftype: TFile_ONSK),
|
|---|
| 119 | (ext: 'ONTA'; ftype: TFile_ONTA),
|
|---|
| 120 | (ext: 'ONVL'; ftype: TFile_ONVL),
|
|---|
| 121 | (ext: 'ONWC'; ftype: TFile_ONWC),
|
|---|
| 122 | (ext: 'OPge'; ftype: TFile_OPge),
|
|---|
| 123 | (ext: 'OSBD'; ftype: TFile_OSBD),
|
|---|
| 124 | (ext: 'OTIT'; ftype: TFile_OTIT),
|
|---|
| 125 | (ext: 'OTLF'; ftype: TFile_OTLF),
|
|---|
| 126 | (ext: 'PLEA'; ftype: TFile_PLEA),
|
|---|
| 127 | (ext: 'PNTA'; ftype: TFile_PNTA),
|
|---|
| 128 | (ext: 'PSpc'; ftype: TFile_PSpc),
|
|---|
| 129 | (ext: 'PSpL'; ftype: TFile_PSpL),
|
|---|
| 130 | (ext: 'PSUI'; ftype: TFile_PSUI),
|
|---|
| 131 | (ext: 'QTNA'; ftype: TFile_QTNA),
|
|---|
| 132 | (ext: 'QUDA'; ftype: TFile_QUDA),
|
|---|
| 133 | (ext: 'SNDD'; ftype: TFile_SNDD),
|
|---|
| 134 | (ext: 'StNA'; ftype: TFile_StNA),
|
|---|
| 135 | (ext: 'SUBT'; ftype: TFile_SUBT),
|
|---|
| 136 | (ext: 'TMFA'; ftype: TFile_TMFA),
|
|---|
| 137 | (ext: 'TMRA'; ftype: TFile_TMRA),
|
|---|
| 138 | (ext: 'TRAC'; ftype: TFile_TRAC),
|
|---|
| 139 | (ext: 'TRAM'; ftype: TFile_TRAM),
|
|---|
| 140 | (ext: 'TRAS'; ftype: TFile_TRAS),
|
|---|
| 141 | (ext: 'TRBS'; ftype: TFile_TRBS),
|
|---|
| 142 | (ext: 'TRCM'; ftype: TFile_TRCM),
|
|---|
| 143 | (ext: 'TRFT'; ftype: TFile_TRFT),
|
|---|
| 144 | (ext: 'TRGA'; ftype: TFile_TRGA),
|
|---|
| 145 | (ext: 'TRGE'; ftype: TFile_TRGE),
|
|---|
| 146 | (ext: 'TRIA'; ftype: TFile_TRIA),
|
|---|
| 147 | (ext: 'TRIG'; ftype: TFile_TRIG),
|
|---|
| 148 | (ext: 'TRMA'; ftype: TFile_TRMA),
|
|---|
| 149 | (ext: 'TRSC'; ftype: TFile_TRSC),
|
|---|
| 150 | (ext: 'TRTA'; ftype: TFile_TRTA),
|
|---|
| 151 | (ext: 'TSFF'; ftype: TFile_TSFF),
|
|---|
| 152 | (ext: 'TSFL'; ftype: TFile_TSFL),
|
|---|
| 153 | (ext: 'TSFT'; ftype: TFile_TSFT),
|
|---|
| 154 | (ext: 'TSGA'; ftype: TFile_TSGA),
|
|---|
| 155 | (ext: 'TStr'; ftype: TFile_TStr),
|
|---|
| 156 | (ext: 'TURR'; ftype: TFile_TURR),
|
|---|
| 157 | (ext: 'TXAN'; ftype: TFile_TXAN),
|
|---|
| 158 | (ext: 'TXCA'; ftype: TFile_TXCA),
|
|---|
| 159 | (ext: 'TXMA'; ftype: TFile_TXMA),
|
|---|
| 160 | (ext: 'TXMB'; ftype: TFile_TXMB),
|
|---|
| 161 | (ext: 'TXMP'; ftype: TFile_TXMP),
|
|---|
| 162 | (ext: 'TXPC'; ftype: TFile_TXPC),
|
|---|
| 163 | (ext: 'TxtC'; ftype: TFile_TxtC),
|
|---|
| 164 | (ext: 'UUEA'; ftype: TFile_UUEA),
|
|---|
| 165 | (ext: 'UVDL'; ftype: TFile_UVDL),
|
|---|
| 166 | (ext: 'VCRA'; ftype: TFile_VCRA),
|
|---|
| 167 | (ext: 'WMCL'; ftype: TFile_WMCL),
|
|---|
| 168 | (ext: 'WMDD'; ftype: TFile_WMDD),
|
|---|
| 169 | (ext: 'WMM_'; ftype: TFile_WMM_),
|
|---|
| 170 | (ext: 'WMMB'; ftype: TFile_WMMB),
|
|---|
| 171 | (ext: 'WPge'; ftype: TFile_WPge)
|
|---|
| 172 | );
|
|---|
| 173 | }
|
|---|
| 174 |
|
|---|
| 175 | implementation
|
|---|
| 176 |
|
|---|
| 177 | end.
|
|---|
