XML bearbeiten im VBScript (FinalBuilder)

[himitsu]

Wie Uwe es bei seinem Project Magician wohl macht, dass die DPROJ dabei nicht kaputt geht?

effektiv geht es hier ja auf das hinaus
https://learn.microsoft.com/en-us/pr...57828(v=vs.85)

[Uwe Raabe]

Zitat von himitsu:

Wie Uwe es bei seinem Project Magician wohl macht, dass die DPROJ dabei nicht kaputt geht?

Ehrlich gesagt, weiß ich gar nicht, ob sie dabei nicht doch kaputt geht. Aber falls es relevant ist: Ich verwende NativeXML zur Bearbeitung.

[himitsu]

OK, vermutete du hattest da vielleicht selber schon damit gekämpft und entsprechend eine Lösung gefunden.


aktuell sieht es nun so aus

Code:

' in der Projektdatei die entsprechende Default-Config aktivieren (Release, Debug oder DebugOhneEurekalog)
function UpdateDefaultConfigInProjectFile(Action)
  File   = ExpandVarQuiet(Action.BuildFile)
  Config = FBVariables.MAKE_CONFIG

  set XML = CreateObject("Microsoft.XMLDOM")
  XML.preserveWhiteSpace = True
  XML.async = False
  if not XML.load(File) then call Err.Raise(1, "FinalBuilder", File + " not loaded : " + CStr(XML.parseError.errorCode) + " " + CStr(XML.parseError.reason))

  set Node = XML.selectSingleNode("//ItemGroup/BuildConfiguration[@Include='" + Config + "']")
  if Node is Nothing then
    Action.Echo "does NOT found Config '" + Config + "' in " + File
  else
    Action.Echo "found Config '" + Config + "' in " + File

    set Node = XML.selectSingleNode("//PropertyGroup/Config")
    if Node.text <> Config then
      Node.text = Config

      XML.preserveWhiteSpace = True  ' sonst wird aus 4-Leerzeichen ein Tab, bei der Einrückung
      'if XML.save(File) <> 0 then call Err.Raise(1, "FinalBuilder", "write error")
      Text = XML.xml

      ' aus nachfolgenden <PostBuildEvent>&quot;$(root)\... wurde <PostBuildEvent>"$(root)\...
      ' im ersten <PostBuildEvent><![CDATA["$(root)\... ist und bleibt alles OK
      ' es funktioniert zwar dennoch, aber im GIT-Diff/Commit wäre es blöde
      Line = "<PostBuildEvent>&quot;$(root)\Build\dproj__compile_postbuild.cmd&quot; &quot;$(Config)&quot; &quot;$(Platform)&quot; &quot;$(OutputExt)&quot; &quot;$(InputDir)$(InputName)&quot; &quot;$(OutputDir)$(OutputName)&quot;"
      Text = Replace(Text, Replace(Line, "&quot;", """"), Line)
      Line = "<Debugger_Launcher>/usr/bin/xterm -e &quot;%debuggee%&quot;</Debugger_Launcher>"
      Text = Replace(Text, Replace(Line, "&quot;", """"), Line)

      ' innerhalb der Nicht-CDATA-PostBuildEvent wird vom Delphi nur CR gespeichert (nicht LF), aber überall sonst als CRLF
      Text = Replace(Text, vbCrLf + "</PostBuildEvent>", vbCr + "</PostBuildEvent>")

      ' Außerdem speichert Delphi inkl. UTF-8 BOM, aber XML.save tut das nicht
      set fh = CreateObject("ADODB.Stream")
      fh.Charset = "UTF-8"
      fh.Open
      fh.WriteText Text
      fh.SaveToFile File, 2   ' 2=adSaveCreateOverWrite
      fh.Close
    end if
  end if
end function

bzw. im alten XE-Script

Code:

    ' XE hatte alles um einen Tab eingerückt und eine Leerzeile am Ende ... also das für GIT nun wieder rein
    Text = vbTab + Replace(Text, vbLf, vbLf + vbTab)
    if Right(Text, 1) = vbTab then Text = Left(Text, Len(Text) - 1)  ' Trim/RTrim entfernt keine Tabs/Zeilenumbrüche

Wobei ich ja eigentlich "nur" das machen wollte

Code:

' in der Projektdatei die entsprechende Default-Config aktivieren (Release, Debug oder DebugOhneEurekalog)
function UpdateDefaultConfigInProjectFile(Action)
  File   = ExpandVar(Action.BuildFile)
  Config = FBVariables.MAKE_CONFIG

  set XML = CreateObject("Microsoft.XMLDOM")
  if not XML.load(File) then call Err.Raise(1, "FinalBuilder", File + " not loaded : " + CStr(XML.parseError.errorCode) + " " + CStr(XML.parseError.reason))

  set Node = XML.selectSingleNode("//ItemGroup/BuildConfiguration[@Include='" + Config + "']")
  if Node is Nothing then
    Action.Echo "does NOT found Config '" + Config + "' in " + File
  else
    Action.Echo "found Config '" + Config + "' in " + File

    set Node = XML.selectSingleNode("//PropertyGroup/Config")
    if Node.text <> Config then
      Node.text = Config

      if XML.save(File) <> 0 then call Err.Raise(1, "FinalBuilder", "write error")
    end if
  end if
end function

Aber damit sich FinalBuilder, Delphi und Git nicht streiten und dann "Änderungen" zeigen, welche es garnicht gibt, bzw. es nicht sinnlos gegenseitig hin-&herkonvertieren ...........

[himitsu]

Zitat:

NativeXML

Hmmm, so im Groben und Ganzen scheint das gleicht zu arbeiten,

ist aber im VBScript aber so wohl nicht nutzbar.

Bliebe nur noch die Frage, ob man MSXML gleich arbeiten lassen kann.




ProjectMagicianCmd mit -n , -r , -x , -f , -d und -uwp ausgerufen
und dann das Projekt nochmal in 11.3 geöffnet und neu gespeichert.

Danach ist vom -r das Linux und Android aber wieder drin.

Zusätzlich noch TargetedPlatforms=1 und aus <Platforms> gelöscht, bleiben die dann auch weg.

Hatte mich eh schon immer etwas genervt (schonmal per Hand gelöscht hatte), weil ist ja ein VCL-Programm <FrameworkType>VCL</FrameworkType> und unterstützt das eh nicht.

Code:

        <TargetedPlatforms>3</TargetedPlatforms>
...
            <Platforms>
                <Platform value="Android">False</Platform>
                <Platform value="Android64">False</Platform>
                <Platform value="Linux64">False</Platform>
                <Platform value="Win32">True</Platform>
                <Platform value="Win64">True</Platform>
            </Platforms>

Sooooooooooo ... BOM ist vorhanden, auch die &quot; bleiben, nur beim PostBuildEvent ist etwas nicht ganz in Ordnung (für GIT, aber die Funktion geht) und Delphi ändert es wieder zurück.

Original

Code:

        <PostBuildEvent><![CDATA["xxxx.cmd" params
$(PostBuildEvent)]]></PostBuildEvent>

ProjectMagician

Code:

        <PostBuildEvent>
            <![CDATA["xxxx.cmd" params
$(PostBuildEvent)]]>
        </PostBuildEvent>

[add]
Ohhh, man kann auch alle Parameter gemeinsam nutzen.
Die Hilfe laß sich so, als ginge es nur einzeln.
(hatte es dennoch grade mal so probiert)
ProjectMagicianCmd [-v:<version> | -n | -r | -x | -f | -d | -uwp] [<filepath>]<filename> [-l:<logfile>] [-s]
anstatt
ProjectMagicianCmd [-v:<version>] [-n] [-r] [-x] [-f] [-d] [-uwp] [<filepath>]<filename> [-l:<logfile>] [-s]

Im IDE-Package gibt es ein "Clean Line Feads".
Wie gesagt, da muß du etwas aufpassen, da teilweise wirklich CR statt CRLF vorkommen. (genauso, wie ein RichEdit ja intern #13 als LineFead benutzt und die Delphi-Komponente das nur bruchteilhaft im VCL-TRichEdit konvertiert)

[Uwe Raabe]

Zitat von himitsu:

Im IDE-Package gibt es ein "Clean Line Feads".
Wie gesagt, da muß du etwas aufpassen, da teilweise wirklich CR statt CRLF vorkommen. (genauso, wie ein RichEdit ja intern #13 als LineFead benutzt und die Delphi-Komponente das nur bruchteilhaft im VCL-TRichEdit konvertiert)

Das betrifft aber nur pas- und dpr/dpk-Dateien beim Öffnen in der IDE. Ist in Delphi 11 ja eh schon eingebaut.

[Uwe Raabe]

Zitat von himitsu:

nur beim PostBuildEvent ist etwas nicht ganz in Ordnung (für GIT, aber die Funktion geht) und Delphi ändert es wieder zurück.

Original

Code:

        <PostBuildEvent><![CDATA["xxxx.cmd" params
$(PostBuildEvent)]]></PostBuildEvent>

ProjectMagician

Code:

        <PostBuildEvent>
            <![CDATA["xxxx.cmd" params
$(PostBuildEvent)]]>
        </PostBuildEvent>

Ja, das ist bekannt und wird von NativeXML so umgesetzt. Da es faktisch nicht relevant ist und bisher auch nur selten benutzt wurde habe ich das erstmal dabei belassen.

[himitsu]

Zitat:

LineFeed

Ahhh, OK.


Ja, funktional stimmt es ja, da die Daten im CDATA nicht geändert werden.
Ist halt nur bissl blöd unpraktisch in einer Versionierung, wenn sich das Tool und die IDE gegenseitig bekämpfen.


OK, nervend ist es auch, wenn die IDE manchmal bei jedem Speichern die DPROJ bissl umsortiert.

[Uwe Raabe]

Zitat von himitsu:

OK, nervend ist es auch, wenn die IDE manchmal bei jedem Speichern die DPROJ bissl umsortiert.

Gerade das sollte der Project Magician aber abfangen. Wenn nicht, hätte ich gern einen TestCase...

[himitsu]

Zitat von Uwe Raabe:

Zitat von himitsu:

Wie Uwe es bei seinem Project Magician wohl macht, dass die DPROJ dabei nicht kaputt geht?

Ehrlich gesagt, weiß ich gar nicht, ob sie dabei nicht doch kaputt geht. Aber falls es relevant ist: Ich verwende NativeXML zur Bearbeitung.

Also einen Fehler hab ich grade gesehn. (nur sortieren, ohne "Ungenutztes" löschen)
(OK, das ist eigentlich ein VCL-Projekt und braucht die Fremdplatformen eigentlich garnicht, womit es hier erstmal nicht stört)

Die <PropertyGroup> werden doch alphabetisch sortiert?
Sie müssen aber eigentlich vorrangig nach Abhängigkeit <CfgParent> sortiert sein, da sie voneinander abhängen und Werte überschreiben, aber anschließend untergeordnet ist alphabetisch OK.

z.B. wird Android vor Base/Basis einsortiert, aber Base muß vor Android kommen.

umsortiert:

Code:

    <PropertyGroup Condition="('$(Platform)'=='Android' and '$(Base)'=='true') or '$(Base_Android)'!=''">
        <Base>true</Base>
        <CfgParent>Base</CfgParent>
        <Base_Android>true</Base_Android>
    </PropertyGroup>
    <PropertyGroup Condition="('$(Platform)'=='Android64' and '$(Base)'=='true') or '$(Base_Android64)'!=''">
        <Base>true</Base>
        <CfgParent>Base</CfgParent>
        <Base_Android64>true</Base_Android64>
    </PropertyGroup>
    <PropertyGroup Condition="'$(Config)'=='Base' or '$(Base)'!=''">
        <Base>true</Base>
    </PropertyGroup>

original:

Code:

    <PropertyGroup Condition="'$(Config)'=='Base' or '$(Base)'!=''">
        <Base>true</Base>
    </PropertyGroup>
    <PropertyGroup Condition="('$(Platform)'=='Android' and '$(Base)'=='true') or '$(Base_Android)'!=''">
        <Base_Android>true</Base_Android>
        <CfgParent>Base</CfgParent>
        <Base>true</Base>
    </PropertyGroup>
    <PropertyGroup Condition="('$(Platform)'=='Android64' and '$(Base)'=='true') or '$(Base_Android64)'!=''">
        <Base_Android64>true</Base_Android64>
        <CfgParent>Base</CfgParent>
        <Base>true</Base>
    </PropertyGroup>

In Condition(Config=Base) wird die Variable <Base> auf True gesetzt,
aber Condition(Platform=Android) prüft $(Base) schon vor diesem Setzen jener Variable, welche nun aber erst nachher gesetzt wird.

Oder hab ich das falsch verstanden?
Im Prinzip ist die DPROJ doch eine Art von Batch, welche nacheinander abgearbeitet wird. (zumindestens was die Auflösung von Variablen und Reihenfolge von Actionen angeht)


Ganz unten, nach den <Imports>, hab ich dann noch die blöden zusätzlichen <PropertyGroup> vom Delphi ... nach welchem Muster die umsortiert sind, konnte ich nicht ergründen.