NToBE ?

[Bjoerk]

Jo. Das kann man so nicht verwenden. Ich habs mal laufen lassen. Wahnsinn (Siehe Anlage). Ich werd die units fpvutils und fpvectorial ganz rauschmeißen und nur die 3 Klassen TDXFToken, TDXFTokenizer und die TvDXFVectorialReader aus der dxfreader verwenden. Die ReadENTITIES bekommen das entsprechende Objekt meiner Software und ein Event um das einer Liste hinzuzufügen.
Wegen der Lizenz. Ich verwende grundsätzlich nichts was nicht abgeklärt ist. Normalerweise mache ich’s so, daß ich dem Autor eine Mail mit der überabeiteten unit schicke und frage an ob ich die so (auch ggf. kommerziell) verwenden kann. Dann kommt in aller Regel ein no poblem und es freut mich, daß sich überhaut mal jemand dafür interessiert.

[Jens01]

Zitat:

Die ReadENTITIES bekommen das entsprechende Objekt meiner Software und ein Event um das einer Liste hinzuzufügen.

Man könnte auch jedem ReadENTITY ein spezielles Event zuordnen, wo gleichzeitig die Parameter übergeben werden. Dann ist das noch etwas mehr gekapselt. -Hab sowas mal mit einem experimentellen Parser gemacht-

Edit:
Hab gerade gesehen, dass da hierarchische Strukturen enthalten sind, so dass mein Ansatz nicht so richtig geht und Deiner etwas komplizierter wird. Glaube ich jetzt mal so...
Edit: Geht doch..

[Bjoerk]

Wenn man die Insert rausschmeißt geht's, ansonsten braucht man eine Liste innerhalb des Parsers.

BTW: Hast du die Einleseroutine verstanden? Wenn ja wie kommen FloatValue und
IntValue in die DxfItems, da wird später nämlich munter drauf zugegriffen, ich sehe aber kein Einlesen?

Delphi-Quellcode:

  TDxfToken = class
  public
    GroupCode: integer;
    StrValue: string;
    FloatValue: double;
    IntValue: integer;
    Childs: TList;
    procedure Clear;
    constructor Create;
    destructor Destroy; override;
  end;

  TDxfTokenizer = class
  public
    Tokens: TList;
    function TablesSubsection(const Value: string): boolean;
    function BlocksSubsection(const Value: string): boolean;
    function EntitiesSubsection(const Value: string): boolean;
    procedure LoadFromFile(const FileName: string);
    procedure Clear;
    constructor Create;
    destructor Destroy; override;
  end;


procedure TDxfTokenizer.LoadFromFile(const FileName: string);
var
  I: integer;
  StrSectionGroupCode, StrSectionName: string;
  IntSectionGroupCode: integer;
  CurTokenBase, NextTokenBase, SectionTokenBase, LastBlockToken: TList;
  NewToken: TDxfToken;
  ParserState: integer;
  SL: TStringList;
begin
  if FileExists(FileName) then
  begin
    SL := TStringList.Create;
    try
      Tokens.Clear;
      SL.LoadFromFile(FileName);

      CurTokenBase := Tokens;
      NextTokenBase := Tokens;
      I := 0;
      ParserState := 0;

      while I < SL.Count - 1 do
      begin
        CurTokenBase := NextTokenBase;

        // Now read and process the section name
        StrSectionGroupCode := SL.Strings[I];
        IntSectionGroupCode := StrToInt(Trim(StrSectionGroupCode));
        StrSectionName := SL.Strings[I + 1];

        NewToken := TDxfToken.Create;
        NewToken.GroupCode := IntSectionGroupCode;
        NewToken.StrValue := StrSectionName;

        // Waiting for a section
        if ParserState = 0 then
        begin
          if (StrSectionName = 'SECTION') then
          begin
            ParserState := 1;
            NextTokenBase := NewToken.Childs;
          end
          else
            if (StrSectionName = 'EOF') then
            begin
              Exit;
            end
            // Comments can be in the beginning of the file and start with 999
            else
              if (IntSectionGroupCode = 999) then
              begin
                // nothing to be done, let it add the token
              end
              else
              begin
                raise Exception.Create(Format(
                  'TDxfTokenizer.ReadFromStrings: Expected SECTION, but got: %s', [StrSectionname]));
              end;
        end
        // Processing the section name
        else
          if ParserState = 1 then
          begin
            if (StrSectionName = 'HEADER') or
              (StrSectionName = 'CLASSES') or
              (StrSectionName = 'OBJECTS') or
              (StrSectionName = 'THUMBNAILIMAGE') then
            begin
              ParserState := 2;
              SectionTokenBase := CurTokenBase;
            end
            else
              if (StrSectionName = 'BLOCKS') or (StrSectionName = 'TABLES') then
              begin
                ParserState := 4;
                SectionTokenBase := CurTokenBase;
              end
              else
                if (StrSectionName = 'ENTITIES') then
                begin
                  ParserState := 3;
                  SectionTokenBase := CurTokenBase;
                end
                else
                begin
                  raise Exception.Create(Format(
                    'TDxfTokenizer.ReadFromStrings: Invalid section name: %s', [StrSectionname]));
                end;
          end
          // Reading a generic section
          else
            if ParserState = 2 then
            begin
              if StrSectionName = 'ENDSEC' then
              begin
                ParserState := 0;
                CurTokenBase := SectionTokenBase;
                NextTokenBase := Tokens;
              end;
            end
            // Reading the ENTITIES section
            else
              if ParserState = 3 then
              begin
                if EntitiesSubsection(StrSectionName) then
                begin
                  CurTokenBase := SectionTokenBase;
                  NextTokenBase := NewToken.Childs;
                end
                else
                  if StrSectionName = 'ENDSEC' then
                  begin
                    ParserState := 0;
                    CurTokenBase := SectionTokenBase;
                    NextTokenBase := Tokens;
                  end;
              end
              // Reading the TABLES or BLOCKS sections
              else
                if ParserState = 4 then
                begin
                  // This orders the blocks themselves
                  if TablesSubsection(StrSectionName) or BlocksSubsection(StrSectionName) then
                  begin
                    CurTokenBase := SectionTokenBase;
                    NextTokenBase := NewToken.Childs;
                    LastBlockToken := NewToken.Childs;
                  end
                  // This orders the entities inside blocks
                  else
                    if EntitiesSubsection(StrSectionName) and (LastBlockToken <> nil) then
                    begin
                      CurTokenBase := LastBlockToken;
                      NextTokenBase := NewToken.Childs;
                    end
                    else
                      if StrSectionName = 'ENDSEC' then
                      begin
                        ParserState := 0;
                        CurTokenBase := SectionTokenBase;
                        NextTokenBase := Tokens;
                      end;
                end;
        CurTokenBase.Add(NewToken);
        Inc(I, 2);
      end;
    finally
      SL.Free;
    end;
  end;
end;

[Jens01]

über dies StrValue in ReadFromStrings?

[Bjoerk]

Das ist doch qausi die ReadFromStrings? Hab jetzt aber gesehen, daß zunächst alles erstmal in den StrValue geladen wird. Der Item braucht eigentlich keinen FloatValuem, die können auch lokale Variablen in den Read ReadEntities_XY sein.

[implementation]

Bezüglich der LGPL:
Der Code ist freie Software, du kannst ihn also problemlos zu jedem Zweck verwenden und zu jedem Preis weitergeben/verkaufen. Es greift allerdings bibliothekweites Copyleft, d.h. wenn du am Code etwas änderst oder hinzufügst, gelten die LGPL-Klauseln auch für deine Veränderungen. Dies greift aber nicht mehr auf ein Programm, das diese Bibliothek nur einbindet. Dynamisches Linken ist völlig problemlos, da muss dich das Copyleft nicht stören, statisches eigentlich auch, mit der Einschränkung dass du die ungelinkten *.o/*.obj-Dateien auch vom restlichen Programm mitliefern musst, damit der Nutzer bei Bedarf das Programm gegen eine neuere Version der Bibliothek linken kann. Nun ist die FreePascal-Lizenz aber keine unveränderte LGPL, sondern es hängt noch eine zusätzliche Klausel dran, die sagt, dass du genau das nicht brauchst

TL;DR: Wenn du die Bibliothek nur einbindest, kannst du praktisch machen was du willst; wenn du sie veränderst oder ergänzt, unterliegst du dem Copyleft.

Ich habe auch mal eine Auflistung zu dem Thema gemacht.

[Bjoerk]

Um alle Tokens freigeben zu können hab ich eine zweite Liste (*** Stack) mitlaufen. Das geht aber doch auch anders (ist doch so ein verkette Listen Zeugs). Wie macht denn nochmal sowas?

Delphi-Quellcode:

procedure TDxfTokenizer.LoadFromFile(const FileName: string);
begin
  if FileExists(FileName) then
  begin
    ..
    SL := TStringList.Create;
    try
      SL.LoadFromFile(FileName);
      ..
      while I < SL.Count - 1 do
      begin
        ...
        NewToken := TDxfToken.Create;
        NewToken.Group := IntSectionGroupCode;
        NewToken.Name := StrSectionName;
        FList.Add(NewToken); // ***



destructor TDxfTokenizer.Destroy;
begin
  Clear;
  FList.Free;
  Tokens.Free;
  inherited Destroy;
end;

procedure TDxfTokenizer.Clear;
var
  I: integer;
  Token: TDxfToken;
begin
  for I := FList.Count - 1 downto 0 do // ***
  begin
    Token := TDxfToken(FList[I]);
    Token.Free;
  end;
  FList.Clear;
  Tokens.Clear;
end;