anchor.diff:    Purpose:
       UnrealScript package scanner, search for UnrealScript classes
   
  -  $Id: unit_packages.pas,v 1.52 2005-10-02 09:18:08 elmuerte Exp $
  +  $Id: unit_packages.pas,v 1.53 2007-01-07 14:02:50 elmuerte Exp $
   *******************************************************************************}
   
   {
  
positive.code:   pprio: integer;
    tmp, pname, packn, ppackn: string;
    i,j:  integer;
  begin
    guard('CreateClassTree');
    pprio := 0;
  
negative.code:         // in case of a partially qualified name, duplicate parent classname
          // check for a local (in this package) parent and use that
          if ((packn = '') and (parent <> nil) and DuplicateHash.Exists(LowerCase(parent.name))) then begin
            tpar := classlist[i].package.classes.Find(parent.name);
            if ((tpar <> parent) and (tpar <> nil)) then begin
              InternalLog('Scanner: Found local parent class for '+classlist[i].FullName, ltInfo, CreateLogEntry(classlist[i]));
              continue;
            end;
  