source: oup/releases/0.11a/Unit3_data.pas@ 693

UNIT Unit3_data;
INTERFACE
USES Classes;

CONST
  version:String='v0.11a';
  CrLf:String[2]=#13+#10;

TYPE
  Tdata=Array OF Byte;
  Theader=PACKED RECORD
    Ident:Array[0..$13] OF Byte;
    Files:LongWord;
    NamedFiles:LongWord;
    Extensions:LongWord;
    DataAddr:LongWord;
    DataSize:LongWord;
    NamesAddr:LongWord;
    NamesSize:LongWord;
    Ident2:Array[0..$F] OF Byte;
  END;
  Tfilesmap=Array OF PACKED RECORD
    Extension:Array[0..$3] OF Char;
    DataAddr:LongWord;
    NameAddr:LongWord;
    FileSize:LongWord;
    FileType:LongWord;
  END;
  Tfiles=Array OF PACKED RECORD
    FileName:String;
    Extension:String[4];
    Name:String;
    Size:LongWord;
    FileType:LongWord;
    DatAddr:LongWord;
  END;

  Tnamedfilesmap=Array OF PACKED RECORD
        FileNumber:LongWord;
          blubb:LongWord;
  END;
  Textensionsmap=Array OF PACKED RECORD
        Ident:Array[0..$7] OF Byte;
          Extension:Array[0..$3] OF Char;
        ExtCount:LongWord;
  END;

  TAppSettings=RECORD
    DatPath:String[250];
    ExtractPath:String[250];
  END;

  TExportHandlers=RECORD
    Ext:String[4];
    needed:Boolean;
    Handler:Function(fileid:LongWord; convert:Boolean):Integer;
  END;

VAR
  dat_filename:String='';
  dat_header:Theader;
  dat_filesmap:Tfilesmap;
  dat_files:Tfiles;
  dat_namedfilesmap:Tnamedfilesmap;
  dat_extensionsmap:Textensionsmap;
  AppSettings:TAppSettings;
  AppSettingsFile:File OF TAppSettings;

CONST
  header_ident1:Array[0..$13] OF Byte=
      ($1F,$27,$DC,$33,$DF,$BC,$03,$00,$31,$33,$52,$56,$40,$00,$14,$00,$10,$00,$08,$00);
  header_ident2:Array[0..$F] OF Byte=
      ($99,$CF,$40,$00,$90,$4F,$63,$00,$F4,$55,$5F,$00,$90,$4F,$63,$00);

  export_noerror:Integer=0;
  export_nohandler:Integer=1;
  export_handlererror:Integer=2;
  export_error:Integer=3;

IMPLEMENTATION

END.