dcu32.pas

dede 的源代码 3.10b

unit DCU32;
(*
The DCU parser module of the DCU32INT utility by Alexei Hmelnov.
(All the DCU data structures are described here)
----------------------------------------------------------------------------
E-Mail: [e-mail]
http://monster.icc.ru/~alex/DCU/
----------------------------------------------------------------------------

See the file "readme.txt" for more details.

------------------------------------------------------------------------
                             IMPORTANT NOTE:
This software is provided 'as-is', without any expressed or implied warranty.
In no event will the author be held liable for any damages arising from the
use of this software.
Permission is granted to anyone to use this software for any purpose,
including commercial applications, and to alter it and redistribute it
freely, subject to the following restrictions:
1. The origin of this software must not be misrepresented, you must not
   claim that you wrote the original software.
2. Altered source versions must be plainly marked as such, and must not
   be misrepresented as being the original software.
3. This notice may not be removed or altered from any source
   distribution.
*)
interface
uses
  SysUtils, Classes, op, DAsmUtil, DCU_In, DCU_Out, FixUp, Dialogs;

{$IFNDEF VER90}
 {$IFNDEF VER100}
  {$REALCOMPATIBILITY ON}
 {$ENDIF}
{$ENDIF}

var
  VUnitName: String;
  hasReadFinalization: Boolean = false;
  CurVer: Integer;

const {My own (AX) codes for Delphi/Kylix versions}
  verD2=2;
  verD3=3;
  verD4=4;
  verD5=5;
  verD6=6;
  verD7=7;
  verK1=100; //Kylix

{ Internal unit types }
const
  drStop=#0;
  drStop_a='a'; //Last Tag in all files
  drStop1='c';
  drUnit='d';
  drUnit1='e'; //in implementation
  drImpType='f';
  drImpVal='g';
  drDLL='h';
  drExport='i';
  drEmbeddedProcStart='j';
  drEmbeddedProcEnd='k';
  drCBlock='l';
  drFixUp='m';
  drImpTypeDef='n'; //import of type definition by "A = type B"
  drSrc='p';
  drObj='q';
  drRes='r';
  drStop2='