{*******************************************************}
{                                                       }
{       Tocsg.KvFilter.Kwautdef                         }
{                                                       }
{       Copyright (C) 2022 kku                          }
{                                                       }
{*******************************************************}

unit Tocsg.KvFilter.Kwautdef;

interface

uses
  Winapi.Windows, Tocsg.KvFilter.adinfo;

const
  adMnemStrSize = 5;   // Number of characters in mnemStr of adDocDesc
  adDescStrSize = 128; // Number of characters in descStr of adDocDesc
  adVersStrSize = 30;  // Number of characters in versStr of adDocDesc

// ENencapType
  NOT_ENCAPSULATED = 0; // Not encapsulated with MAC encasulation
  MAC_BINARY       = 1; // In Mac binary format
  APPLE_SINGLE     = 2; // In Apple Single format
  APPLE_DOUBLE     = 3; // In Apple Double format
  WANG_GDL         = 4; // WANG GDL format

// ENminFormat
  MINOR_NOT_DEFINED   = 0; // No minor format
  MINOR_STANDARD      = 1;
  MINOR_BOOK          = 2;
  MINOR_CHART         = 3;
  MINOR_MACRO         = 4;
  MINOR_TEXT          = 5;
  MINOR_BINARY        = 6;
  MINOR_PC            = 7;
  MINOR_WINDOWS       = 8;
  MINOR_DOS           = 9;
  MINOR_MACINTOSH     = 10;
  MINOR_RGB           = 11;
  MINOR_TIFF          = 12;
  MINOR_IFF           = 13;
  MINOR_EXPERIMENTAL  = 14;
  MINOR_FMTINFO       = 15;	// changed from MINOR_FORMAT
  MINOR_RLE           = 16;
  MINOR_SYMBOL        = 17;
  MINOR_OLD           = 18;
  MINOR_FOOTNOTE      = 19;
  MINOR_STYLE         = 20;
  MINOR_PALETTE       = 21;
  MINOR_CONFIGURATION = 22;
  MINOR_ACTIVITY      = 23;
  MINOR_RESOURCE      = 24;
  MINOR_CALCULATION   = 25;
  MINOR_GLOSSARY      = 26;
  MINOR_SPELLING      = 27;
  MINOR_THESAURUS     = 28;
  MINOR_HYPHENATION   = 29;
  MINOR_MISC          = 30;
  MINOR_UNIX          = 31;
  MINOR_VAX           = 32;
  MINOR_DRIVER        = 33;
  MINOR_ARCHIVE       = 34;

type
  ENencapType = Integer;
  ENminFormat = Integer;

  PAdMacEncap = ^TAdMacEncap;
  TAdMacEncap = record
    encapType: ENencapType;
    dataOffset,
    dataLength,
    rsrcOffset,
    rsrcLength: Integer;
  end;

// autodetect
  PKvAdDocDesc = ^TKvAdDocDesc;
  TKvAdDocDesc = record
    sFileRec: PChar;                               // - Pointer to struct for file name and path.
                                                   //   If NULL then use adFormat to fill adClass,
                                                   //   descStr and mnemStr.
                                                   //      MAC:    FSSpec record of the file.
                                                   //      OTHERS: char * of file path name.
    nAdVersion: Integer;                         // - version number of this Auto-detect API
    nAdClass: ENdocClass;                          // - same as return value of function.  Return
                                                   //   values of kwAutoDet are described below.
    nAdFormat: Integer;                          // - Formats are numbered 1 to ...
                                                   //   (See Auto-detect documentation
    sVersStr: array [0..adVersStrSize-1] of Char;  // - Version string of format found
    nMajorVersion,
    nMinorVersion: Integer;
    sMnemStr: array [0..adMnemStrSize-1] of Char;  // - Keyword mnemonic of format found
    macEncap: TAdMacEncap;                        // - Structure describing MAC encapsulation
    nIsEncripted: Integer;                       // - TRUE if this file is encrypted (Protected)
    nMinorFormat: ENminFormat;
    sDescStr: array [0..adDescStrSize-1] of Char;  // - Description string of format found

    pIoObj, //KPTPIOobj IS_FAR * ioObj;            // - I/O object autodetect will access document from
    pVAPI: Pointer; // void IS_FAR *      pVAPI;   // - pointer to VAPI services structure

    reserved: array [0..5] of Char;                // - Reserved for future use
  end;

implementation

end.